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
|
try
IBDataBase1.DatabaseName := '192.168.1.6:'+ExtractFilePath(Application.ExeName)+'GestionAppareil.FDB';
IBDataBase1.SQLDialect := 3;
IBDataBase1.Params.Clear;
IBDataBase1.Params.Add('USER "SYSDBA"');
IBDataBase1.Params.Add('PASSWORD "masterkey"');
IBDataBase1.Params.Add('PAGE_SIZE 4096');
IBDataBase1.CreateDatabase;
IBDatabase1.Connected := true;
IBTransaction1.DefaultDatabase := IBDataBase1;
IBQuery1.Database := IBDatabase1;
IBQuery1.Transaction := IBTransaction1;
try
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('CREATE GENERATOR "ID_CLIENT"');
IBQuery1.ExecSQL;
IBTransaction1.CommitRetaining;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('CREATE GENERATOR "ID_GESTION"');
IBQuery1.ExecSQL;
IBTransaction1.CommitRetaining;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('CREATE GENERATOR "ID_DEVIS"');
IBQuery1.ExecSQL;
IBTransaction1.CommitRetaining ;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('CREATE GENERATOR "ID_LISTEAPPAREIL"');
IBQuery1.ExecSQL;
IBTransaction1.CommitRetaining ;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('create table CLIENT(ID_CLIENT integer not null Primary Key,'+
'NOM VarChar(255),ADRESSE VarChar(150),CODEPOSTAL VarChar(20),'+
'VILLE VarChar(255),TELEPHONET VarChar(30),TELEPHONEPTB VarChar(30),'+
'TELEPHONEFAX VarChar(30))');
IBQuery1.ExecSQL;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('create table GESTION(ID_GESTION integer not null Primary Key,'+
'USERID VarChar(255),APPAREIL VarChar(150),STATUT VarChar(60),'+
'NATUREAPPAREIL VarChar(100),LIEU VarChar(30),DATEENTREE Date,'+
'DEVIS VarChar(30),MARQUE VarChar(100),DEFAUT VarChar(30),ACCOMPTE VarChar(30),'+
'BUDGET VarChar(30))');
IBQuery1.ExecSQL;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('create table LISTEAPPAREILS(ID_LISTEAPPAREIL integer not null Primary Key,'+
'NOMAPPAREIL VarChar(100),TYPEAPPAREIL VarChar(100));');
IBQuery1.ExecSQL;
IBQuery1.Active:=false;
IBQuery1.SQL.clear;
IBQuery1.SQL.Add('CREATE TRIGGER TCLIENT FOR CLIENT ACTIVE BEFORE INSERT POSITION 0 AS begin IF (NEW.ID_CLIENT IS NULL) THEN NEW.ID_CLIENT= GEN_ID(ID_CLIENT,1);END;');
IBQuery1.ExecSQL;
IBQuery1.SQL.Clear;
IBTransaction1.CommitRetaining;
IBQuery1.Active:=false;
IBQuery1.SQL.clear;
IBQuery1.SQL.Add('CREATE TRIGGER TGESTION FOR GESTION ACTIVE BEFORE INSERT POSITION 0 AS begin IF (NEW.ID_GESTION IS NULL) THEN NEW.ID_GESTION= GEN_ID(ID_GESTION,1);END;');
IBQuery1.ExecSQL;
IBQuery1.SQL.Clear;
IBTransaction1.CommitRetaining;
IBQuery1.Active:=false;
IBQuery1.SQL.clear;
IBQuery1.SQL.Add('CREATE TRIGGER TLISTEAPPAREILS FOR LISTEAPPAREILS ACTIVE BEFORE INSERT POSITION 0 AS begin IF (NEW.ID_LISTEAPPAREIL IS NULL) THEN NEW.ID_LISTEAPPAREIL= GEN_ID(ID_LISTEAPPAREIL,1);END;');
IBQuery1.ExecSQL;
IBQuery1.SQL.Clear;
IBTransaction1.CommitRetaining;
except
IBTransaction1.Rollback;
end;
IBDataBase1.Connected := false;
finally
end;
end; |
[Delphi+Firebird] Erreur de mise à jour
Répondre avec citation
Envoyé par Les Règles
- Aucune réponse aux sollicitations techniques par MP
Partager