Facture en delphi

c c c -  
 nadirinfo -
Bonjour,

je veux realiser une facture en delphi esq qlq un pe maidé a avoir des idées pour qsq je doi metre ?
A voir également:

2 réponses

Réponse 1 / 2
mayessoune Messages postés 185 Date d'inscription   Statut Membre Dernière intervention   9
 
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
1
toufik34
 
et la saisie des produits?
0
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.
0
Réponse 2 / 2
hama34000 Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   7
 
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.
0

Discussions similaires

Retrouver mes factures réglo mobile
Conde -
Mlv2a -

7 réponses
Facture payer mais tjrs pas de service
Vanessa -
Xileh -

1 réponse
Facture Raynair
sreevers -
tess -

9 réponses
demande de facturation de ma ligne reglo mobile depuis le 1er à
odile -
Utilisateur anonyme -

1 réponse
comment obtenir une facture detaillee
moune -
NEMESIS204 -

2 réponses