A voir également:
- Facture en delphi
- Delphi 7 - Télécharger - Langages
- Facture ryanair - Forum Réseaux sociaux
- Réglo mobile facture ✓ - Forum Autres opérateurs mobiles
- Logiciel devis facture - Télécharger - Comptabilité & Facturation
- Facture instagram ✓ - Forum Instagram
2 réponses
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
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
toufik34
et la saisie des produits?
nadirinfo
slt, mais il vous manque une chose importante l'état de sortie de la facture, et la d'afficher le montant de facture en lettre.
