全局变量声明引用

Question

我在DataModule里声明
public
    { Public declarations }
    TeaIdtemp:String;
///////////////////////
主程序里
 with DataModule2.qryLogin do
         begin
           Close;
           Sql.Clear;
           Sql.Add('select * from Tea_info where TeaName=:TName and TeaPwd=:TPwd');
           Parameters.ParamByName('TName').Value := trim(Accounts.text);
           Parameters.ParamByName('TPwd').Value := trim(Password.text);
           Prepared;
           Open;
           if RecordCount > 0 then
           begin
             DataModule2.TeaIdtemp:=Fields.Fields[0].AsString;
             Close;
             FrmMain.Visible:=False;
             FrmTea1.ShowModal;
           end
           else
           begin
             ShowMessage('密码不正确，请重新输入');
             Password.SetFocus;
             Password.SelectAll;
           end;
         end;
////////////////////////
在另一个FrmTest中引用   
   EditTeaId.Text:=DataModule2.TeaIdtemp;
   EditTeaId.ReadOnly:=true;
为什么EditTeaId.Text没有内容呢?

Answer 1

DataModule2.TeaIdtemp:=Fields.Fields[0].AsString
你能肯定Fields[0]里的数据就是你要的数据吗？为什么不用FieldByName('').AsString呢？在EditTeaId.Text:=DataModule2.TeaIdtemp之前，你是否已经运行了DataModule2的主程序呢？
如果运行了，Query里面的参数对吗？是否SQL语句运行的结果不对呢？