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