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
| Type
EnumTravaux=(CreateTable, CreateChamp, EditChamp, RecordSupprimer, RecordModifier, RecordInsert);
EnumPriorite=(Obligatoire, Recommandé, Information);
// EnumOperation=(InTable,InChamp,InRecord);
type
TTravaux = Record
// Travaux : EnumTravaux;
Priorite : EnumPriorite;
MessageTravaux: String;
TypeParamValue1 : TFieldType;
ParamsValue1 : Variant;
TypeParamValue2 : TFieldType;
ParamsValue2 : Variant;
TypeParamWhere3 : TFieldType;
ParamsWhere3 : Variant;
TypeParamWhere4 : TFieldType;
ParamsWhere4 : Variant;
Case Travaux : EnumTravaux of
CreateTable:(
NomDeLaTable: String[255];
RequeteCreatetable: String[255]
);
CreateChamp,EditChamp:(
NomTable: String[255];
NomChamp: String[255];
RequeteCreateChamp: String[255];
RequeteEditChamp: String[255];
);
RecordSupprimer, RecordModifier, RecordInsert:(
RequeteRecord : String[255];
);
End; |
Partager