请问在一个页面上的我定义了一个函数，在另一个页面上调用它。但是我在调用后数据提不出来。怎么回事？？

Question

代码如下：：在函数中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;
谢谢了，大家帮忙看看，后天就要叫工了，麻烦了！

Answer 1

在前一个页面上的调用是：
if g_showin('qtxx',bsskinedit43.Text,'',bsskinedit4.Text) then begin
 bsskinedit43.Text:=DictWin_F.dataset.Fields[1].AsString;
end;帮帮忙！