Lazarus通过IBQuery、TIBDatabase、TIBTransaction控件进行数据库操作

最新推荐文章于 2024-08-07 22:50:28 发布

7.33

最新推荐文章于 2024-08-07 22:50:28 发布

阅读量637

点赞数

文章标签：数据库开发

本文链接：https://blog.csdn.net/ddzwer/article/details/125660607

版权

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;