二进制CRUD
二进制CRUD
只适用于delphi客户端,不支持其他语言。
多表查询
procedure TForm1.btnClick(Sender: TObject); // 多表查询 begin var bin: TBin; bin.resource := 'bin'; bin.dbid := '1'; bin.sqls := ['select * from tgoods', 'select * from tunit']; bin.dss := [ClientDataSet1, ClientDataSet2]; bin.qry; end;
多表保存
procedure TForm1.Button1Click(Sender: TObject); // 多表保存 begin var bin: TBin; bin.resource := 'bin'; bin.dbid := '1'; bin.tblNames := ['tgoods', 'tunit']; bin.noSaveFlds := ['', '']; bin.dss := [ClientDataSet1, ClientDataSet2]; bin.save; end;
单表查询
procedure TForm1.Button5Click(Sender: TObject); //单表查询 begin var bin: TBin; bin.resource := 'bin'; bin.dbid := '1'; bin.sqls := ['select * from tgoods']; bin.dss := [ClientDataSet1]; bin.qry; end;
单表保存
procedure TForm1.Button6Click(Sender: TObject); //单表保存 begin var bin: TBin; bin.resource := 'bin'; bin.dbid := '1'; bin.tblNames := ['tgoods']; bin.noSaveFlds := ['']; bin.dss := [ClientDataSet1]; bin.save; end;
execsql
procedure TForm1.Button7Click(Sender: TObject); // execsql begin var bin: TBin; bin.resource := 'bin'; bin.dbid := '1'; bin.sql := 'delete from tunit where unitid=''1'''; bin.execsql; end;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/17620960.html