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; |
