facture en delphi Fermé

Question

Bonjour,
 
je veux realiser une facture en delphi esq qlq un pe maidé a avoir des idées pour qsq je doi metre ?

hama34000 · Answer

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.

mayessoune · Answer

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

Facture en delphi

2 réponses

Discussions similaires