1. 基本的查询语句后面加上 WHERE 1=1，便于增加查询条件。

ASkStr := \'select * from Twork where 1=1 \';
if length(cxTEworkid.Text) <> 0 then 
begin
ASkStr := ASkStr + \' and GWORKID like \' +
quotedstr(\'%\' + cxTEworkid.Text + \'%\')
end;

　　

2. 多表查询可以用一个字符串代替一个表。逻辑上更清晰。

  

WorkTable = \'select GWorkId from TWork where 1=1 \';
PayTable = \'select sum(GXMtotal) as SGXMtotal,GXMType from TPAY where GWorkId In \';
PayGroupBy = \' Group By GXMType \';
ASkStr := PayTable + \' ( \' + WorkTable + tmpwhere + \' ) \' + PayGroupBy;

 

3.自己定义一个连接函数，判断数据库初始化是否成功，便于控制。

  

function Tdm.InitDbOk: boolean;
begin
  result := true;
  if fileexists(DBFileName) then
  begin
    FDConn.DriverName := \'SQLite\';
    FDConn.LoginPrompt := false;
    FDConn.Params.Clear;
    FDConn.Params.Values[\'Database\'] := DBFileName;
    FDConn.Params.Values[\'DriverID\'] := \'SQLite\';
    FDConn.Params.Values[\'CharacterSet\'] := \'utf8\';
    try
      FDConn.Connected := true;
    except
      result := false;
    end;
  end
  else
    result := false;
end;

　　

版权声明：本文为happyhills原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/happyhills/p/4477531.html