在登陆框中登录用户。
用一个变量admin记录用户名,
登录以后。再另一个form里面。调用这个变量,怎么调用??
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;问题,好像不是怎么清楚慢慢补充吧
用一个变量admin记录用户名,
登录以后。再另一个form里面。调用这个变量,怎么调用??
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;问题,好像不是怎么清楚慢慢补充吧
2)在另一个窗体中,uses Form1,假设Form1是当前窗体
同意樓上的如果另一個窗體在沒有建立的情況,最好把ADMIN設為全局的。如果已經建立了,可翠寫在PUBLIC裏面。