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
| procedure TProjetMGR.AddObject(var aNewObject ;aTKindObject:TKindObject);
var
fqyTemp: Tquery;
begin
fqyTemp := TQuery.Create(nil);
fqyTemp.Name := 'Temp_qy';
fqyTemp.UniDirectional := True;
with fqyTemp do
begin
Close;
SQL.Clear;
SQL.Add(Format('INSERT INTO "%s"',[TableOfObject(aTKindObject)]));
case aTKindObject of
koEcoMusic:
begin
SQL.Add('(Valide,Libelle,adresse,CodePostal,Id_commune,Telephone,Telecopie,Email,Id_Dir,Id_Pres,Id_Scrt,Logo,Web)');
SQL.Add(Format('VALUES ("%s","%s","%s","%s","%d","%s","%s","%s","%d","%d","%d","%s","%s")',
[BoolToStr(TEcolMusicDesc(aNewObject).Valide),
TEcolMusicDesc(aNewObject).Libelle,
TEcolMusicDesc(aNewObject).adresse,
TEcolMusicDesc(aNewObject).CodePostal,
TEcolMusicDesc(aNewObject).Id_Commune,
TEcolMusicDesc(aNewObject).Telephone,
TEcolMusicDesc(aNewObject).Telecopie,
TEcolMusicDesc(aNewObject).Email,
TEcolMusicDesc(aNewObject).id_Dir,
TEcolMusicDesc(aNewObject).id_Pres,
TEcolMusicDesc(aNewObject).id_Scrt,
TEcolMusicDesc(aNewObject).Logo,
TEcolMusicDesc(aNewObject).Web]));
end;
koEleve:
begin
SQL.Add('(Id_EcoMusic, Valide, Nom, Prenom, Naissance,Adresse, Id_Commune, CodePostal, Telephone, Portable, Email, Id_Instrument, Id_NivFM, Id_NivPI, P_Collective, UMJ,Id_Ets, Id_Type_Sco, Lien_Famille, Remarques)');
SQL.Add(Format('VALUES ("%d","%s","%s","%s","%s","%s","%d","%s","%s","%s","%s","%d","%d","%d","%s","%s","%d","%d","%s","%s")',
[TEleveDesc(aNewObject).Id_EcoMusic,
BoolToStr(TEleveDesc(aNewObject).Valide),
TEleveDesc(aNewObject).Nom,
TEleveDesc(aNewObject).Prenom,
TEleveDesc(aNewObject).Naissance,
TEleveDesc(aNewObject).Adresse,
TEleveDesc(aNewObject).Id_Commune,
TEleveDesc(aNewObject).CodePostal,
TEleveDesc(aNewObject).Telephone,
TEleveDesc(aNewObject).Portable,
TEleveDesc(aNewObject).Email,
TEleveDesc(aNewObject).Id_Instrument,
TEleveDesc(aNewObject).Id_NivFM,
TEleveDesc(aNewObject).Id_NivPI,
BoolToStr(TEleveDesc(aNewObject).P_Collective),
BoolToStr(TEleveDesc(aNewObject).UMJ),
TEleveDesc(aNewObject).Id_Ets,
TEleveDesc(aNewObject).Id_Type_Sco,
TEleveDesc(aNewObject).Lien_Famille,
TEleveDesc(aNewObject).Remarques]));
end;
koExamen:
begin
SQL.Add('(Id_EcoMusic,Valide,Id_Eleve,NotePI,TA,DV,DIA,DR,St_ECRIT,LNC,LR,CP,St_ORAL,Total_General,Note_20,Id_Appreciation,Jury)');
SQL.Add(Format('VALUES ("%d","%s","%d","%f","%f","%f","%f","%f","%f","%f","%f","%f","%f","%f","%f","%d","%s")',
[TExamenDesc(aNewObject).Id_EcoMusic,BoolToStr(TExamenDesc(aNewObject).Valide),TExamenDesc(aNewObject).Id_Eleve,TExamenDesc(aNewObject).NotePI,
TExamenDesc(aNewObject).TA,TExamenDesc(aNewObject).DV,TExamenDesc(aNewObject).DIA,
TExamenDesc(aNewObject).DR,TExamenDesc(aNewObject).St_ECRIT,TExamenDesc(aNewObject).LNC,
TExamenDesc(aNewObject).LR,TExamenDesc(aNewObject).CP,TExamenDesc(aNewObject).St_ORAL,
TExamenDesc(aNewObject).Total_General,TExamenDesc(aNewObject).Note_20,TExamenDesc(aNewObject).Id_Appreciation,
TExamenDesc(aNewObject).Jury]));
end;
koUser:
begin
SQL.Add('(Nom, Pwd, Acces)');
SQL.Add(Format('VALUES ("%s", "%s", "%s")', [TUserDesc(aNewObject).Nom,TUserDesc(aNewObject).Pwd,
EncodeAccessLevel(TUserDesc(aNewObject).Nom, TUserDesc(aNewObject).Pwd,TUserDesc(aNewObject).Acces)]));
end;
koPersonnel:
begin
SQL.Add('(Id_EcoMusic,Valide,Nom,NomNaiss,Prenom,Adresse,Id_Commune,CodePostal,Telephone,Portable,Email,Id_Fonction,Id_Instrument,Remarques)');
SQL.Add(Format('VALUES ("%d","%s","%s","%s","%s","%s","%d","%s","%s","%s","%s","%d","%d","%s")',
[TPersonnelDesc(aNewObject).Id_EcoMusic, BoolToStr(TPersonnelDesc(aNewObject).Valide), TPersonnelDesc(aNewObject).Nom, TPersonnelDesc(aNewObject).NomNaiss,
TPersonnelDesc(aNewObject).Prenom ,TPersonnelDesc(aNewObject).Adresse,TPersonnelDesc(aNewObject).Id_Commune,
TPersonnelDesc(aNewObject).CodePostal,TPersonnelDesc(aNewObject).Telephone,TPersonnelDesc(aNewObject).Portable,
TPersonnelDesc(aNewObject).Email ,TPersonnelDesc(aNewObject).Id_Fonction,TPersonnelDesc(aNewObject).Id_Instrument,
TPersonnelDesc(aNewObject).Remarques]));
end;
koReglement:
begin
SQL.Add('(Id_EcoMusic,Valide,Id_Eleve,MontantTotal,AlaCarte,Cheque_1,Cheque_2,Cheque_3,Date_1,Date_2,Date_3)');
SQL.Add(Format('VALUES ("%d","%d","%s","%s","%s","%s","%s","%s","%s","%s")',
[TReglementDesc(aNewObject).Id_EcoMusic, BoolToStr(TReglementDesc(aNewObject).Valide), TReglementDesc(aNewObject).Id_Eleve, CurrToStr(TReglementDesc(aNewObject).MontantTotal),
BoolToStr(TReglementDesc(aNewObject).AlaCarte),CurrToStr(TReglementDesc(aNewObject).Cheque_1),CurrToStr(TReglementDesc(aNewObject).Cheque_2),
CurrToStr(TReglementDesc(aNewObject).Cheque_3),TReglementDesc(aNewObject).Date_1,TReglementDesc(aNewObject).Date_2,
TReglementDesc(aNewObject).Date_3]));
end;
koHoraire:
begin
SQL.Add('(Id_EcoMusic,Valide,libelle,Id_NiveauFM,Id_NiveauPI,Id_Instrument,Id_Professeur,Id_Jour,Id_HeureD,Id_HeureF)');
SQL.Add(Format('VALUES ("%d","%s","%s","%d","%d","%d","%d","%d","%d","%d")',
[THoraireDesc(aNewObject).Id_EcoMusic,
BoolToStr(THoraireDesc(aNewObject).Valide),
THoraireDesc(aNewObject).Libelle,
THoraireDesc(aNewObject).Id_NiveauFM,
THoraireDesc(aNewObject).Id_NiveauPI,
THoraireDesc(aNewObject).Id_Instrument,
THoraireDesc(aNewObject).Id_Professeur,
THoraireDesc(aNewObject).Id_Jour,
THoraireDesc(aNewObject).Id_HeureD,
THoraireDesc(aNewObject).Id_HeureF]));
end;
koCotisation:
begin
SQL.Add('(Id_EcoMusic,Valide,Libelle,Montant,Date_1,Date_2,Date_3)');
SQL.Add(Format('VALUES ("%d","%s","%s","%s","%s","%s","%s")',
[TCotisationDesc(aNewObject).Id_EcoMusic,
BoolToStr(TCotisationDesc(aNewObject).Valide),
TCotisationDesc(aNewObject).Libelle,
CurrToStr(TCotisationDesc(aNewObject).Montant),
TCotisationDesc(aNewObject).Date_1,
TCotisationDesc(aNewObject).Date_2,
TCotisationDesc(aNewObject).Date_3]));
end;
end;
ExecSQL;
end;
fqyTemp.free;
end; |
Partager