public
{ Public-Deklarationen }
adoabfrageinfo:Tadoquery;
adoquelleinfo:Tdatasource;
info:Tcxtabsheet;
cdname,cdnummer:string;
popupinfo:Tpopupmenu;
infoeintragloeschen:Tmenuitem;
detail:Tpagecontrol;
procedure Eintragloeschen(Sender: TObject);
...
procedure Tuebersicht.Eintragloeschen(Sender: Tobject);
begin
if messagedlg('Sind Sie sicher, daß Sie den gewählten Eintrag löschen möchten ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
adoabfrageinfo.Delete;
end;
end;
...
//Beim Klicken auf einen Button passiert folgendes
adoabfrageinfo:=Tadoquery.Create(self);
with adoabfrageinfo do
begin
connection:=start.dbconnect;
end;
{Datenbankabfrage Info wurde erstellt}
adoquelleinfo:=Tdatasource.Create(self);
with adoquelleinfo do
begin
dataset:=adoabfrageinfo;
end;
...
//
SQL-Abfrage für info
adoabfrageinfo.Active:=false;
adoabfrageinfo.SQL.Clear;
adoabfrageinfo.sql.Add('select * from info where nummer='+quotedstr(adoabfrage.fieldbyname('nummer').AsString));
adoabfrageinfo.Active:=true;