Facture en delphi

si tu n'utilises pas une BDD pour la facture , alors tu place les composants nécessaire pour saisir les données de la facture.

si vous utilisez le delphi il vous faut

par exmemple un bouton
num de la facture c'est avec les DBEDIT
date de la facture c aussi avec DBEdit
et des boutons
pour nouveau
<gras>exemple</gras>

procedure TForm2.BitBtn1Click(Sender: TObject);
var x :integer;
begin
datamodule3.Table16.Last;
x:=datamodule3.Table16.fieldbyname('Nfact').asinteger+1;
datamodule3.Table16.Insert;
datamodule3.Table16.FieldByName('Nfact').AsInteger:=x;
dbedit3.Enabled:=true;
dbedit3.Text:=inttostr(x);
dbedit3.SetFocus;
datamodule3.Table16.edit;
end;

pour valider

exemple

procedure TForm29.BitBtn2Click(Sender: TObject);
begin
if messagedlg('Voulez_vous enregistrer cet enregistrement',mtinformation,[mbYes,mbNo,mbCancel],0)=mryes then
begin
if (datamodule3.Table16.State in [dsinsert,dsedit]) then
begin
if not datamodule3.table16.eof then
begin
datamodule3.Table16.Edit;
datamodule3.Table16.Post;
end
else
showmessage('***erreur***');

end;
end;
end;
procedure TForm29.FormActivate(Sender: TObject);

begin
timer1.Enabled:=true;
end;

pour modifier
exemple

Procedure TForm29.BitBtn5Click(Sender: TObject);
begin
// Boucle qui enclenche la procédure de modification d'une fiche client
if((datamodule3.Table16.RecordCount=0)) then
exit; // quitte la procédure si la table est vide et qu'on est pas en insertion
dbedit4.SetFocus;
end;

pour supprimer
exemple

procedure TForm29.BitBtn4Click(Sender: TObject);
begin
if messagedlg('Voulez_vous supprimer cet enregistrement',mtinformation,[mbYes,mbNo,mbCancel],0)=mryes then

begin
if not datamodule3.table16.eof then
begin
datamodule3.Table16.Delete; // Suppression de l'enregistrement
form6.animate1.active:=true;
form6.show;
showmessage('L`enregistrement est supprimé');
form6.animate1.active:=false;
form29.Show;
form6.close;
end
else
showmessage('***erreur***');
end;
end;

pour anuler

exemple

procedure TForm29.BitBtn6Click(Sender: TObject);
begin
datamodule3.table16.Cancel;
end;
un calendrier