Ce code fonctionne bien :
Mais peut-on le simplifier ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 procedure TForm1.Button1Click(Sender: TObject); begin try screen.Cursor := CrHourGlass; with IboQuery1.SQL do begin Clear; Add('CREATE TABLE TEMPO '); Add('(UN NUMERIC(15,2), '); Add('DEUX NUMERIC(15,2), '); Add('TROIS NUMERIC(15,2))'); IboQuery1.ExecSQL; Clear; Add('INSERT INTO TEMPO (UN, DEUX, TROIS) VALUES(1000,2000,3000) '); IboQuery1.ExecSQL; end; finally Screen.Cursor := CrDefault; end; end;
Cantador
Partager