Sujet Précédent Sujet Suivant

Facture en delphi

Fermé
c c c - 17 mai 2008 à 22:08
 nadirinfo - 23 déc. 2015 à 16:06
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 mercredi 9 juillet 2008 Statut Membre Dernière intervention 3 septembre 2014 9
29 juil. 2008 à 17:37
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
5 févr. 2015 à 15:16
et la saisie des produits?
0
nadirinfo
23 déc. 2015 à 16:06
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 mardi 29 avril 2008 Statut Membre Dernière intervention 11 novembre 2010 7
18 mai 2008 à 00:35
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

Aliexpress : Comment obtenir une facture ?
Ofeei -
Lorevana -

27 réponses
Facture Raynair
sreevers -
tess -

9 réponses
retrouver les factures des posts sponsorisés
Carotte -
bubblytattoo -

11 réponses
Voir ses factures Free - Mon compte
baissaoui -
baissaoui -

0 réponse
Facture payer mais tjrs pas de service
Vanessa -
Xileh -

1 réponse