Bonjour tout le monde,
Pour mon application de gestion de la paye, avec Delphi 10.3, Je doit écrire un algorithme qui permet de transférer TOUS les enregistrements d'une table vers une autre (table_temporaire vers table_paye). les deux tables ont exactement la même structure. En fait, la paye se calcul sur la table_temporaire ou on peux ajouter, supprimer, modifier comme on le souhaite, mais une fois le calcul terminé, J'aimerai qu'en cliquant sur le bouton VALIDER, TOUS les enregistrements de la table_temporaire soient transférés vers la table_paye ou ces derniers sont définitivement sauvegarder.
Ce que je fait :
Mais ce dernier ajoute uniquement le seul et le dernier enregistrement
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
18
19
20
21
22 procedure TForm3.Button2Click(Sender: TObject); begin With ADOTable4 do begin ADOTable4.Insert ; ADOTable4['Id_rubrique_t'] := ADOTable3['Id_rubrique']; ADOTable4['Code_rubrique_t'] := ADOTable3['Code_rubrique'] ; ADOTable4['Designation_t'] := ADOTable3['Designation'] ; ADOTable4['Base_t'] := ADOTable3['Base'] ; ADOTable4['T_Pat_t'] := ADOTable3['T_Pat'] ; ADOTable4['T_Sal_t'] := ADOTable3['T_Sal'] ; ADOTable4['P_Pat_t'] := ADOTable3['P_Pat'] ; ADOTable4['P_Sal_t'] := ADOTable3['P_Sal'] ; ADOTable4.Post ; end; end;
Quelqu'un à une solution à me proposer ? merci par avance !
Partager