1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131
|
procedure TDGT4_bis.BitBtn10Click(Sender: TObject);
begin
DGT4_BIS.BitBtn7.Visible := true;
DGT4_BIS.BitBtn7.Enabled := true;
DGT4_BIS.BitBtn10.Visible := false;
DGT4_BIS.BitBtn10.Enabled := false;
with DataModule5.ADOQuery2 do
begin // Ici on modifie les champs sélectionner
SQL.Clear;
SQL.Add('Update DGT4_BIS set NOM=:Nom, PRENOM=:Prenom, ADRESSE=:Adresse, CODE_POSTAL=:Code_Postal, LOCALITE=:Localite,');
sql.add('DATE_1=:Date_1, MATRICULE=:Matricule, TELEPHONE=:Telephone, JUSTIFICATION=:Justification,');
SQL.Add('ID_FONCTION_1=:Id_fonction_1, FONCTION_1=:Fonction_1, COURS_1=:Cours_1, NIVEAU_1=:Niveau_1,');
SQL.Add('NATURE_COURS_11=:Nature_Cours_11, NATURE_COURS_22=:Nature_Cours_22, NATURE_COURS_33=:Nature_Cours_33, PERIODES_1=:Periodes_1,');
sql.add('NIVEAU_11=:Niveau_11, ANNEE_ETUDE_1=:Annee_Etude_1, DATE_DEBUT_1=:Date_Debut_1, DATE_FIN_1=:Date_Fin_1,');
SQL.Add('ID_FONCTION=:Id_Fonction, FONCTION=:Fonction, COURS=:Cours, NIVEAU=:Niveau,');
SQL.Add('NATURE_COURS_1 = :Nature_Cours_1, NATURE_COURS_2=:Nature_Cours_2, NATURE_COURS_3=:Nature_Cours_3, PERIODES=:Periodes,');
SQL.add('NIVEAU_2=:Niveau_2, ANNEE_ETUDE=:Annee_Etude, DATE_DEBUT=:Date_Debut, DATE_FIN=:Date_Fin');
SQL.Add('Where NOM = :Oldtype and');
SQL.Add('PRENOM = :Oldtype1 and');
SQL.Add('ADRESSE = :Oldtype2 and');
SQL.Add('CODE_POSTAL = :Oldtype3 and');
SQL.Add('LOCALITE = :Oldtype4 and');
SQL.Add('DATE_1 = :Oldtype5 and');
SQL.Add('MATRICULE = :Oldtype6 and');
SQL.Add('TELEPHONE = :Oldtype7 and');
SQL.Add('JUSTIFICATION = :Oldtype8 and');
SQL.Add('ID_FONCTION_1 = :Oldtype9 and');
SQL.Add('FONCTION_1 = :Oldtype10 and');
SQL.Add('COURS_1 = :Oldtype11 and');
SQL.Add('NIVEAU_1 = :Oldtype12 and');
SQL.Add('NATURE_COURS_11 = :Oldtype13 and');
SQL.Add('NATURE_COURS_22 = :Oldtype14 and');
SQL.Add('NATURE_COURS_33 = :Oldtype15 and');
SQL.Add('PERIODES_1 = :Oldtype16 and');
SQL.Add('NIVEAU_11 = :Oldtype17 and');
SQL.Add('ANNEE_ETUDE_1 = :Oldtype18 and');
SQL.Add('DATE_DEBUT_1 = :Oldtype19 and');
SQL.Add('DATE_FIN_1 = :Oldtype20 and');
SQL.Add('ID_FONCTION = :Oldtype21 and');
SQL.Add('FONCTION = :Oldtype22 and');
SQL.Add('COURS = :Oldtype23 and');
SQL.Add('NIVEAU = :Oldtype24 and');
SQL.Add('NATURE_COURS_1 = :Oldtype25 and');
SQL.Add('NATURE_COURS_2 = :Oldtype26 and');
SQL.Add('NATURE_COURS_3 = :Oldtype27 and');
SQL.Add('PERIODES = :Oldtype28 and');
SQL.Add('NIVEAU_2 = :Oldtype29 and');
SQL.Add('ANNEE_ETUDE = :Oldtype30 and');
SQL.Add('DATE_DEBUT = :Oldtype31 and');
SQL.Add('DATE_FIN = :Oldtype32');
DataModule5.ADOQuery2.Parameters.ParamByName('Nom').Value := edit20.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType').Value := OldType;
DataModule5.ADOQuery2.Parameters.ParamByName('Prenom').Value := edit21.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType1').Value := OldType1;
DataModule5.ADOQuery2.Parameters.ParamByName('Adresse').Value := edit22.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType2').Value := OldType2;
DataModule5.ADOQuery2.Parameters.ParamByName('Code_Postal').Value := edit23.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType3').Value := OldType3;
DataModule5.ADOQuery2.Parameters.ParamByName('Localite').Value := edit24.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType4').Value := OldType4;
DataModule5.ADOQuery2.Parameters.ParamByName('Date_1').Value := edit25.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType5').Value := OldType5;
DataModule5.ADOQuery2.Parameters.ParamByName('Matricule').Value := edit26.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType6').Value := OldType6;
DataModule5.ADOQuery2.Parameters.ParamByName('Telephone').Value := edit27.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType7').Value := OldType7;
DataModule5.ADOQuery2.Parameters.ParamByName('Justification').Value := edit19.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType8').Value := OldType8;
DataModule5.ADOQuery2.Parameters.ParamByName('Id_Fonction_1').Value := edit1.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType9').Value := OldType9;
DataModule5.ADOQuery2.Parameters.ParamByName('Fonction_1').Value := edit2.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType10').Value := OldType10;
DataModule5.ADOQuery2.Parameters.ParamByName('Cours_1').Value := edit3.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType11').Value := OldType11;
DataModule5.ADOQuery2.Parameters.ParamByName('Niveau_1').Value := edit4.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType12').Value := OldType12;
DataModule5.ADOQuery2.Parameters.ParamByName('Nature_Cours_11').Value := edit5.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType13').Value := OldType13;
DataModule5.ADOQuery2.Parameters.ParamByName('Nature_Cours_22').Value := edit30.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType14').Value := OldType14;
DataModule5.ADOQuery2.Parameters.ParamByName('Nature_Cours_33').Value := edit31.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType15').Value := OldType15;
DataModule5.ADOQuery2.Parameters.ParamByName('Periodes_1').Value := edit6.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType16').Value := OldType16;
DataModule5.ADOQuery2.Parameters.ParamByName('Niveau_11').Value := edit7.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType17').Value := OldType17;
DataModule5.ADOQuery2.Parameters.ParamByName('Annee_Etude_1').Value := edit28.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType18').Value := OldType18;
DataModule5.ADOQuery2.Parameters.ParamByName('Date_Debut_1').Value := edit8.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType19').Value := OldType19;
DataModule5.ADOQuery2.Parameters.ParamByName('Date_Fin_1').Value := edit9.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType20').Value := OldType21;
DataModule5.ADOQuery2.Parameters.ParamByName('Id_Fonction').Value := edit10.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType21').Value := OldType21;
DataModule5.ADOQuery2.Parameters.ParamByName('Fonction').Value := edit11.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType22').Value := OldType22;
DataModule5.ADOQuery2.Parameters.ParamByName('Cours').Value := edit12.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType23').Value := OldType23;
DataModule5.ADOQuery2.Parameters.ParamByName('Niveau').Value := edit13.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType24').Value := OldType24;
DataModule5.ADOQuery2.Parameters.ParamByName('Nature_Cours_1').Value := edit14.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType25').Value := OldType25;
DataModule5.ADOQuery2.Parameters.ParamByName('Nature_Cours_2').Value := edit32.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType26').Value := OldType26;
DataModule5.ADOQuery2.Parameters.ParamByName('Nature_Cours_3').Value := edit33.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType27').Value := OldType27;
DataModule5.ADOQuery2.Parameters.ParamByName('Periodes').Value := edit15.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType28').Value := OldType28;
DataModule5.ADOQuery2.Parameters.ParamByName('Niveau_2').Value := edit16.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType29').Value := OldType29;
DataModule5.ADOQuery2.Parameters.ParamByName('Annee_Etude').Value := edit29.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType30').Value := OldType30;
DataModule5.ADOQuery2.Parameters.ParamByName('Date_Debut').Value := edit17.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType31').Value := OldType31;
DataModule5.ADOQuery2.Parameters.ParamByName('Date_Fin').Value := edit18.text;
DataModule5.ADOQuery2.Parameters.ParamByName('OldType32').Value := OldType32;
ExecSQL;
SQL.Clear;
SQL.Add('SELECT * FROM DGT4_BIS ORDER BY NOM');
Open;
DGT4_BIS.BitBtn2.Click;
DGT4_BIS.BitBtn4.Click;
DGT4_BIS.BitBtn6.Click;
end;
end; |
Partager