unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
cmdErster: TButton;
cmdZurueck: TButton;
cmdVor: TButton;
cmdLetzter: TButton;
cmdEnde: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
txtBezeichnung: TEdit;
txtFirma: TEdit;
txtOrt: TEdit;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure cmdEndeClick(Sender: TObject);
procedure cmdErsterClick(Sender: TObject);
procedure cmdLetzterClick(Sender: TObject);
procedure cmdZurueckClick(Sender: TObject);
procedure cmdVorClick(Sender: TObject);
private
procedure AnzahlDS();
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
uses
ADOInt;
var
con: Connection;
rst: Recordset;
anzahl : Integer;
const
erst = 0;
zurueck = 1;
vor = 2;
letzt = 3;
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var
strsql:
String;
begin
con:= CoConnection.Create;
rst:= CoRecordset.Create;
strsql:= '
SELECT * FROM HERSTELLER';
con.Open('
AutoVermittlung','
','
',-1);
rst.Open(strsql, con, adOpenKeyset, adLockReadOnly, 1);
rst.MoveFirst;
cmdZurueck.Enabled:= False;
txtBezeichnung.Text:= rst.Fields[1].Value;
txtFirma.Text:= rst.Fields[2].Value;
txtOrt.Text:= rst.Fields[5].Value;
AnzahlDS();
end;
procedure TForm1.AnzahlDS();
begin
anzahl := rst.RecordCount;
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
rst.Close;
con.Close;
rst:=
nil;
con:=
nil;
end;
procedure TForm1.cmdEndeClick(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.cmdErsterClick(Sender: TObject);
begin
rst.MoveFirst;
txtBezeichnung.Text := rst.Fields[1].Value;
cmdVor.Enabled := True;
cmdZurueck.Enabled:= False;
end;
procedure TForm1.cmdLetzterClick(Sender: TObject);
begin
rst.MoveLast;
txtBezeichnung.Text := rst.Fields[1].Value;
cmdVor.Enabled := False;
cmdZurueck.Enabled:= True;
end;
procedure TForm1.cmdZurueckClick(Sender: TObject);
begin
rst.MovePrevious;
txtBezeichnung.Text := rst.Fields[1].Value;
cmdVor.Enabled := True;
end;
procedure TForm1.cmdVorClick(Sender: TObject);
begin
rst.MoveNext;
txtBezeichnung.Text := rst.Fields[1].Value;
cmdZurueck.Enabled:= True;
end;
end.