Discussion :

[kroma23]

Salut
je veux realiser une facture sur une fiche est pour cela jai fais
un champ edit pour le numero de la facture
un champ edit pour la date de la facture
est pour la saisie des produits je veux faire un petit tableur dans la meme fiche.
mon probleme est:
comment faire pour creer ce tableur.
est ce que vous avez une ideé sur ce genre de programmation
merci

[ShaiLeTroll]

la TDBGrid est faite pour cela, je te conseigne de ne pas l'ouvrir pour la saisie, elle n'est pas très confortable mais d'ajouter un formulaire pour saisir un item ...

[rec82]

salut
comme il a dit ShaiLeTroll :

je te conseigne de ne pas l'ouvrir pour la saisie.

juste une petite participation:
ce que j'ai fait une fois :
une fiche facture qui contient :
1*n°facture ,date facture
2*une button client :l'hors d'un click il ouvre la fiche client et je sélectionne mon client pour avoir: n°client,nom ,prenom,.....(toute information necessaire pour client) dans ma fiche facture;
2*une dbgrid pour afficher les lignes de facture pour cette facture ,et des buttons :ajouter ,supprimer ,modifier :pour les lignes de factures.
l'hors d'un click sur ajouter la fiche ligne facture (contien :n°facture,n°produit ,quantité.....) aprés validation cette ligne de facture s'ajoute dans la dbgrid qui se trouve dans la fiche facture.
remarque :
la dbgrid et lié avec une query:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
select * from ligne_facture
where  n-facture=:k

et dans la fiche de ligne facture quand tu valide saisie :
tu enregistre les infos dans la table ligne facture et tu execute la requete lié à la dbgrid de la fiche :facture :

exemplemon propre exemple l'hors de click sur vaider dans la forme ligne facture):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
begin
t4.Insert; // t4 et dataset lié à la table ligne_facture
t4.FieldByName('vente').AsInteger:=strtoint(edit1.Text);
t4.FieldByName('num').AsInteger:=strtoint(edit2.Text);
t4.FieldByName('des').AsString:=edit3.Text;
t4.FieldByName('quant').AsFloat:=strtofloat(edit5.Text);
t4.FieldByName('ht').AsFloat:=strtofloat(edit7.Text);
t4.FieldByName('ttc').AsFloat:=strtofloat(edit8.Text);
t4.FieldByName('tva').AsFloat:=strtofloat(edit9.Text);
t4.Post;
showmessage('Ligne vente enregistrer');
end;
//*******ajout dans la dbgrid de form facture
datamodule16.ad.Close;          //ad  :query lié aux dbgrid de fiche facture //son code au dessus
datamodule16.ad.Parameters.ParamByName('k').Value:=edit1.Text;
datamodule16.ad.Open;

j' espère que sa t'aide un peut
cordialement rec82

[rec82]

salut
désolé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
begin
t4.Insert; // t4 et dataset lié à la table ligne_facture
t4.FieldByName('facture').AsInteger:=strtoint(edit1.Text);//facture:N°facture
t4.FieldByName('num').AsInteger:=strtoint(edit2.Text);//num et N° produit
t4.FieldByName('des').AsString:=edit3.Text;//des:désignation produit
t4.FieldByName('quant').AsFloat:=strtofloat(edit5.Text);
t4.FieldByName('ht').AsFloat:=strtofloat(edit7.Text);
t4.FieldByName('ttc').AsFloat:=strtofloat(edit8.Text);
t4.FieldByName('tva').AsFloat:=strtofloat(edit9.Text);
t4.Post

cordialement rec82

[edam]

http://www.jcolibri.com/articles/bdd...p/mastapp.html