代码如下::在函数中DictWin_F是当前的页面,我把sql语句调出来了,没问题,可就是dataset2中没数据,在datagrid中没显示!所以想请大家帮忙看看有什么问题!!
function g_showin(slx: string; sMc: string; sDm: string; sCx: string): boolean;
var s_sql: string;
begin
if trim(slx) = 'clxh' then begin
s_sql := 'select top 20 * from g_cljscsb where clxh like ''' + trim(sMc) + '*''';
DictWin_F.ADOConnection1.Connected := true;
DictWin_F.dataset2.Active := false;
DictWin_F.dataset2.CommandText := s_sql;
DictWin_F.Edit1.Text := s_sql;
DictWin_F.dataset2.Active := true;
end;
if trim(slx) <> 'clxh' then begin
s_sql := 'select top 20 * from g_zdxmzlb where xmdm like ''%' + trim(slx) + '*''';
DictWin_F.ADOConnection1.Connected := true;
DictWin_F.dataset2.Active := true;
DictWin_F.dataset2.CommandText := s_sql;
DictWin_F.dataset2.Active := true;
end;
DictWin_F.dataset := DictWin_F.dataset2;
DictWin_F.is_lx := slx;
DictWin_F.is_mc := sMc;
DictWin_F.is_dm := sDm;
DictWin_F.is_cx := sCx;
DictWin_F.ShowModal;
if DictWin_F.ib_ok then result := true
else
result := false;
end;
谢谢了,大家帮忙看看,后天就要叫工了,麻烦了!
function g_showin(slx: string; sMc: string; sDm: string; sCx: string): boolean;
var s_sql: string;
begin
if trim(slx) = 'clxh' then begin
s_sql := 'select top 20 * from g_cljscsb where clxh like ''' + trim(sMc) + '*''';
DictWin_F.ADOConnection1.Connected := true;
DictWin_F.dataset2.Active := false;
DictWin_F.dataset2.CommandText := s_sql;
DictWin_F.Edit1.Text := s_sql;
DictWin_F.dataset2.Active := true;
end;
if trim(slx) <> 'clxh' then begin
s_sql := 'select top 20 * from g_zdxmzlb where xmdm like ''%' + trim(slx) + '*''';
DictWin_F.ADOConnection1.Connected := true;
DictWin_F.dataset2.Active := true;
DictWin_F.dataset2.CommandText := s_sql;
DictWin_F.dataset2.Active := true;
end;
DictWin_F.dataset := DictWin_F.dataset2;
DictWin_F.is_lx := slx;
DictWin_F.is_mc := sMc;
DictWin_F.is_dm := sDm;
DictWin_F.is_cx := sCx;
DictWin_F.ShowModal;
if DictWin_F.ib_ok then result := true
else
result := false;
end;
谢谢了,大家帮忙看看,后天就要叫工了,麻烦了!
if g_showin('qtxx',bsskinedit43.Text,'',bsskinedit4.Text) then begin
bsskinedit43.Text:=DictWin_F.dataset.Fields[1].AsString;
end;帮帮忙!