E
esnow
Unregistered / Unconfirmed
GUEST, unregistred user!
with ADOQuery_Sys do
begin
Close;
SQL.Clear;
SQL.Add(Format('Select RyDm from v_Ry_Bm_Jg where bmdm = ''%s''', [P_bmdm]));
// SQL.Add(Format('and KsDm = ''%s'' order by RyDm', [P_BmDm]));
//Open;
//if (ADOQuery_Sys.RecordCount > 0) then
// for I := 1 to ADOQuery_Sys.RecordCount do
with ADOQuery_tmp do
begin
Close;
SQL.Clear ;
SQL.Add (Format('Select rydm,xm from Rs_Zgda_Jbxx where ksdm = ''%s''', [P_bmdm]));
SQL.Add (Format(' and RyDm in ''%s''', [ADOQuery_sys.ExecSQL]));
sql.SaveToFile ('c:/test.sql');
// open;
// if (ADOQuery_tmp.RecordCount > 0) then
//MessageDlg('功能〖'+p_bmdm+'〗未定义!', mtInformation, [mbOk], 0);
// FindFastCode(ADOQuery_tmp, Edit_RyDm, mPosition, 200, 0);
end;
end;
end;
我想搜索一些记录是否在另一个搜索的结果集中。。。看下我的代码有什么问题吗?
begin
Close;
SQL.Clear;
SQL.Add(Format('Select RyDm from v_Ry_Bm_Jg where bmdm = ''%s''', [P_bmdm]));
// SQL.Add(Format('and KsDm = ''%s'' order by RyDm', [P_BmDm]));
//Open;
//if (ADOQuery_Sys.RecordCount > 0) then
// for I := 1 to ADOQuery_Sys.RecordCount do
with ADOQuery_tmp do
begin
Close;
SQL.Clear ;
SQL.Add (Format('Select rydm,xm from Rs_Zgda_Jbxx where ksdm = ''%s''', [P_bmdm]));
SQL.Add (Format(' and RyDm in ''%s''', [ADOQuery_sys.ExecSQL]));
sql.SaveToFile ('c:/test.sql');
// open;
// if (ADOQuery_tmp.RecordCount > 0) then
//MessageDlg('功能〖'+p_bmdm+'〗未定义!', mtInformation, [mbOk], 0);
// FindFastCode(ADOQuery_tmp, Edit_RyDm, mPosition, 200, 0);
end;
end;
end;
我想搜索一些记录是否在另一个搜索的结果集中。。。看下我的代码有什么问题吗?