Query1.Close; Query1.DataBaseName:=′′; Query1.SQL.Clear; Query1.SQL.Add(′Select * from ″Master.db″ A,″Customer.dbf ″ B Where A.CustNo=B.CustNo′); {在同一行内输入} Query1.Open;
Begin For I:=1 To 10 Do Begin Query1.Close; Query1.DataBaseName:=′′; Query1.Sq1.Clear; Query1.Sq1.Add(′Select A.七月,B.个人账号,B.用户号,C.姓名From“:ZFGjj:个人汇激部门表”A,“:ZFGjj:住房公积金明细表”B,“:RSDA:在职职工目录”C Where(A.用户号=B.封存=:ib)′);{在同一行输入} Query1.Prepare; Query1.Params[0].DataType.=ftInteger; Query1.Params[1].DataType.=ftBoolean; Query1.Params[0].Asinteger:=ia[I]; Query1.Params[1].Asboolean:=ib; Query1.Open; End; End;