~~~~~~~~

Question

在登陆框中登录用户。 
    用一个变量admin记录用户名， 
登录以后。再另一个form里面。调用这个变量，怎么调用？？ 
。
定义在登录form里面，
public
    admin: string;
下面是我的调用uses unit1;
....
procedure Tadmin_user.Button2Click(Sender: TObject); 
var Bno1:string; 
begin 
    Bno1:=trim(combobox1.Text); 
    if (Bno1 <>'')or( Bno2 <>'')or (Bno3 <>'')or (Bno4 <>'')or (Bno5 <>'') then 
    adoquery1.Close; 
    adoquery1.SQL.Clear; 
    adoquery1.SQL.Add('insert into student_book(Sno,Bno,Ano,SBtime) values (Sno,Bno1,Ano,now)') ; 
    adoquery1.Parameters.ParamByName('sno').Value:=sno; 
    adoquery1.Parameters.ParamByName('Bno1').Value:=Bno1; 
    adoquery1.Parameters.ParamByName('Ano').Value:=admin; 
    showmessage(adoquery1.SQL.Text);     adoquery1.Open; 
end; 
刚才网友用这面方法，我用了，没有用。。
1）当前的admin变量为public 
2）在另一个窗体中，uses Form1，假设Form1是当前窗体另外uses Form1,还是是uses unit1 啊？
前者不能用。

Answer 1

File>Use Unit,选择unit1,你就可以用Form1.admin来访问了这个变量了,不过全局变量不建议声明在Form的定义里面,建议:
type
  TForm1=class(TForm)
  ...
  end;
var
  Form1: TForm1;
  admin:string;//admin变量implementation
....
,Use后即可访问,而不用依赖于Form1是否创建