Question

DELPHI变量问题

form1是mainform,用ADOQuery1检查用户.
成功后显示form2，在form2中提取ADOQery1中当前用户信息到状态栏上.
再关闭ADOQuery1.
这样写代码正确吗？
但这样就一直占用着ADOQuery1,再用作其他用途修改过SQL句有时会出错。
问题：有可以在form1登录成功后就创建用户信息的变量，供后面的form使用。而不用地直占用ADOQuery?

Answer 1

在LoginForm即登陆窗体中定义全局变量，在代码中public定义，如下所示：
public
{ Public declarations }
uname,upassword:string; //定义全局变量
end;

登陆窗体中用户输入：
procedure TLoginForm.FormCreate(Sender: TObject);
begin
uname := ComboBox1.text;//用户名
pass := Edit1.Text; //密码
end;

状态栏显示登陆的用户名：（其中加Timer和tatusBar控件）
procedure TBalanceForm.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text := '当前用户：'+LoginForm.uname; //引用uname变量
end;

Answer 2

你可以自己创建这个保存用户信息的变量，定义成全局变量就可以，也可以放在其他任何位置，只要form1和form2都能访问就行