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
| //********************************************************** table SegNominal
req:= 'CREATE TABLE SEGNOMINAL (' +
' SEGNOMINAL_NO AUTOINCREMENT, '+
' SEGNOMINAL_NOMINAL_NO INTEGER NOT NULL, ' +
' CONSTRAINT FK_SegNominal2Nominal FOREIGN KEY (SEGNOMINAL_NOMINAL_NO) '+
' REFERENCES NOMINAL(NOMINAL_NO) ON UPDATE CASCADE ON DELETE CASCADE, '+
' SEGNOMINAL_SEGNO INTEGER NOT NULL, ' +
' SEGNOMINAL_ORDER INTEGER NOT NULL, ' +
' SEGNOMINAL_PERCENT BYTE NOT NULL, ' +
' SEGNOMINAL_L_MAX SINGLE NOT NULL, ' +
' SEGNOMINAL_C_MAX SINGLE NOT NULL, ' +
' SEGNOMINAL_H_MAX SINGLE NOT NULL, ' +
' SEGNOMINAL_L_MIN SINGLE NOT NULL, ' +
' SEGNOMINAL_C_MIN SINGLE NOT NULL, ' +
' SEGNOMINAL_H_MIN SINGLE NOT NULL, ' +
' SEGNOMINAL_L SINGLE NOT NULL, ' +
' SEGNOMINAL_A SINGLE NOT NULL, ' +
' SEGNOMINAL_B SINGLE NOT NULL, ' +
' SEGNOMINAL_SIZE INTEGER NOT NULL, ' +
' SEGNOMINAL_COLOR INTEGER NOT NULL, ' +
' SEGNOMINAL_ACTIVED BIT NOT NULL, ' +
' SEGNOMINAL_ADDED BIT NOT NULL, ' +
' SEGNOMINAL_DELETED BIT NOT NULL, ' +
' SEGNOMINAL_CONTROL BIT NOT NULL, ' +
' SEGNOMINAL_USED BIT DEFAULT -1 '+
')';
ADOCommand1.CommandText := req;
ADOCommand1.Execute;
// ==================== Clé primaire
req := 'ALTER TABLE SEGNOMINAL ADD CONSTRAINT PK_SEGNOMINAL '+
'PRIMARY KEY (SEGNOMINAL_NO);';
ADOCommand1.CommandText := req;
ADOCommand1.Execute;
//===================== Procédure stockée pour ecrire un segNominal
req:='CREATE PROC procSegNominalAddItem( NominalNo INTEGER,'+//2
'SegNo INTEGER,Order INTEGER,PerCent BYTE,LMax SINGLE,CMax SINGLE,HMax SINGLE,'+//5
'LMin SINGLE,CMin SINGLE,HMin SINGLE,LStar SINGLE,AStar SINGLE,'+//5
'BStar SINGLE,PixSize INTEGER,aColor INTEGER,ActivOk BIT,AddOk BIT,'+ //5
'DelOk BIT,ControlOk BIT)'+ //2 total 19
'AS INSERT INTO SEGNOMINAL (SEGNOMINAL_NOMINAL_NO,'+ //2
'SEGNOMINAL_SEGNO,SEGNOMINAL_ORDER,SEGNOMINAL_PERCENT,SEGNOMINAL_L_MAX,SEGNOMINAL_C_MAX,'+//4
'SEGNOMINAL_H_MAX,SEGNOMINAL_L_MIN,SEGNOMINAL_C_MIN,SEGNOMINAL_H_MIN,'+//4
'SEGNOMINAL_L,SEGNOMINAL_A,SEGNOMINAL_B,SEGNOMINAL_SIZE,SEGNOMINAL_COLOR,'+//5
'SEGNOMINAL_ACTIVED,SEGNOMINAL_ADDED,SEGNOMINAL_DELETED,SEGNOMINAL_CONTROL) '+//4 total 19
'VALUES(NominalNo,SegNo,Order,PerCent,LMax,CMax,HMax,LMin,CMin,HMin,'+ //10
'LStar,AStar,BStar,PixSize,aColor,ActivOk,AddOk,DelOk,ControlOk);';//9 total 19
ADOCommand1.CommandText := req;
ADOCommand1.Execute; |
