IBDatabase连接数据库,IBTransaction连IBDatabase,IBQuery连IBTransaction和IBDatabase进行数据库操作。
查询
if IBQuery1.Active then
IBQuery1.Transaction.Commit;
IBQuery1.Active:=False;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from WORKMANSHIP');
IBQuery1.Active:=True;
IBQuery1.FetchAll;
修改
var
sql:string;
begin
sql:='UPDATE WORKMANSHIP SET CYCLE_TIME=:SD1,FRONT_LOCK_CHAMBER=:SD2,HEATING1=:SD3 WHERE NAME=:NAME';
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(sql);
IBQuery1.ParamByName('NAME').Value:=StrToInt(Frame2_1.Edit19.Text);
IBQuery1.ParamByName('SD1').Value:=StrToInt(Frame2_1.Edit1.Text);
IBQuery1.ParamByName('SD2').Value:=StrToInt(Frame2_1.Edit2.Text);
IBQuery1.ParamByName('SD3').Value:=StrToInt(Frame2_1.Edit3.Text);
IBQuery1.ExecSQL;
IBQuery1.Transaction.Active:=True;
IBQuery1.Transaction.Commit;
end;
增加
var
sql:string;
begin
sql:='INSERT INTO WORKMANSHIP(NAME,CYCLE_TIME,FRONT_LOCK_CHAMBER,HEATING1) '+ 'VALUES(:NAME,:SD1,:SD2,:SD3) ';
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(sql);
IBQuery1.ParamByName('NAME').Value:=StrToInt(Frame2_1.Edit19.Text);
IBQuery1.ParamByName('SD1').Value:=StrToInt(Frame2_1.Edit1.Text);
IBQuery1.ParamByName('SD2').Value:=StrToInt(Frame2_1.Edit2.Text);
IBQuery1.ParamByName('SD3').Value:=StrToInt(Frame2_1.Edit3.Text);
IBQuery1.ExecSQL;
IBQuery1.Transaction.Commit;
end;
删除
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('delete from WORKMANSHIP where NAME=:NAME');
IBQuery1.ParamByName('NAME').Value:=name_SQL;
IBQuery1.ExecSQL;
IBQuery1.Transaction.Commit;