Aktuelle Cursorposition im RecordSet-Objekt auslesen?

[mirko2000]

Ich möchte, dass die Buttons "Vor" bzw. "Zurück" deaktiviert werden, wenn der erste bzw. letzte Datensatz erreicht ist.

Delphi-Quellcode:

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.