(...)
procedure TFbase.BscanClick(Sender: TObject);
begin
if(Fscan = nil) then
begin
gApp.CreateForm(TFscan, Fscan);
Fscan.InitShowing(gApp);
Fscan.BarCode.Visible:=false;
Fscan.Bproduit.Visible:=true;
fscan.Bsignaler.Visible:=false;
Fscan.Bproduit.Text:='Commercer à scanner';
DataBase.DataBaseName:='myData.db';
Fbase.DataBase.Select('SELECT * FROM Produits');
Fscan.totprod.Text:=IntToStr(Fbase.DataBase.Cursor.GetRowCount)+
' produits dans la base';
end
else
begin
Fscan.Show;
DataBase.DataBaseName:='myData.db';
Fbase.DataBase.Select('SELECT * FROM Produits');
Fscan.totprod.Text:=IntToStr(Fbase.DataBase.Cursor.GetRowCount)+
' produits dans la base';
Fscan.Bproduit.Text:='Commercer à scanner';
fscan.Bsignaler.Visible:=false;
Fscan.BarCode.Visible:=false;
Fscan.Bproduit.Visible:=true;
end;
end;
(...)