Discussion :

[bhami9]

salut mes amies
voila mon problème sur delphi
j'ai une table situation
champ1['num_sit']
champ2['montant _travaux _réalisé_précédemment']
champ3['montant_travaux_réalisé_mois']

_situation numéro 1

t situation['montant _travaux _réalisé_précédemment']:=0
t situation[montant_travaux_réalisé_mois]:=10
_situation numéro 2

t situation['montant _travaux _réalisé_précédemment']:=10
par ce que cette montant ce le montant de mois précédent
t situation[montant_travaux_réalisé_mois]:=20
voila je sais pas comment écrire cette programme en delphi7

[andreditdd]

Bonjour,
Quel base de données emploies tu ?

André

[bhami9]

Bonjour,
bonjour André
la base de donnée ce database DESKtob type paradox
et le montant des travaux réalisée précédemment c'est une champ calculé
dans la table situation

[redoran]

salut; je crois que tu peut utilisé tablesituation.Last pour récupéré le derrnier chiffre...

[bhami9]

salut
oui ce sur mais je sais pas comment fait cette solution
je suis très débutant
merci de vous réponse

[redoran]

salut; j'ai vue ton fichier joint
voila vous faite : tatable.situation.last ; pour ce positionné sur le dernier enregistrement et récupère le dernier chiffre d'affaire ainsi les valeurs seront visible dans le dbedit ensuite tu les utilisent dans ton code d'insertion. cette proposition est valable dans le cas ou les enregistrement son classé par ordre croissant.
sinon tu localise l'enregistrement voulu avec locate et tu fait la meme procedure.

[bhami9]

salut; j'ai pas compris le mot :
tatable
asque :
Tsituation.last ; !!!!!
encore
Où puis-je mettre ce code ?
asque en mode insertion ? ou bien parmi les règles de calcules
mon programme et ce dessous

[redoran]

non ; tatable c'est votre table concernée par la mise a jour "situation,
le code tu le met dans le bouton nouveau

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
.............
tsituation.open;
tsituation.last;
..................
end;

[bhami9]

salut
merci mon amie
mais je te jure que ce programme et très difficile , j'ai fais cette solution
mais ya pas de nouveaux
tu peut me aidée par msn ?

[redoran]

ta question n'est pas clair , voila si tu veut récupéré le dernier chiffre d'affaire c'est comme suite :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
.............
tsituation.open;
tsituation.last; // les edit affiche les données du dernier enregistrement bien sur après les avoir affecté les valeurs de ta table situation
ici ton code de mise a jour 
end;

[bhami9]

voila exactement ce ça que j'ai fait:
mais
quand j'ai exécute le programme je vois tout les DBedit de la derniére enregestrement de la table situation
mais moi je veux récupérer la valeur de champ ['Quantité -execut-mois''] et je met dans le champ ['Quantité -execut-preced'] de l'enregistrement numéro 2 exetera ....

Code :

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

1
2
3
4
5
6
7
procédure TFsituation.nouveauClick(Sender: TObject);
begin
.............
tsituation.insert;
tsituation.last; // les DBEDIT affiche les données du dernier enregistrement 
quelle code je met ici
end;

[/QUOTE]

[redoran]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procédure TFsituation.nouveauClick(Sender: TObject);
begin
.............
tsituation.insert;// sa sert a quoi ????  c'est a enlevé 
tsituation.last; // les EDIT affiche les données du dernier enregistrement 
quelle code je met ici... 
edit1.text:=Table.FieldByName('tonchamp').AsString;
ainsi de suite.....
la tu aura les données voulu dans les edit ok 
 
end;

[bhami9]

merci mon amie
mais juste une remarque
j'ai utiliser des DBEDIT cé pas edit

[redoran]

affecte tes valeurs aux edit comme dans le code précédant ; j'espère que j'ai pu t'aidé...

[bhami9]

merci mon amie
je peux pas maitriser les TÉDIT par ce que mon projet et tout l'application
réalise avec les DBedit alors, je peux pas changer plus de 50 forme
merci 1000 fois de votre aide

[seabs]

Bonjour,

Il faut reconnaître que les "DBEdit" présentent des restrictions lorsque le développement porte sur des applications de gestion. Il est effectivement préférable d'utiliser les TEdit et le SQL.

Pour le cas qui te préoccupe, il semble possible de résoudre le problème en posant deux composants "TTable" et deux "TDataSource" sur ta fiche. Ensuite, il te faut relier les composants qui traitent le dernier enregistrement à TTable_1 et l'enregistrement précédent est traité par TTable_2. Ces deux composants sont reliés à la même table physique dans ta base Paradox.

Ensuite tu assures la coordination de ces deux tables par du code placé dans AfterScroll de la table TTable_1.

Pour éviter toute erreur tu mets en lecture la TTable_2.

Bon courage