procedure Tloginfrm.BTokClick(Sender: TObject); begin with toplist do begin //2 if Locate('username',Eusername.Text,[]) then begin //3 if EPass.Text <> Fields[1].AsString then ShowMessage('密码错误') else begin //4 loginfrm.Close; N2.Enabled:=true;//这边开始出错,说没有定义,但我在上面uses了母窗口了 n9.Enabled:=true; n12.Enabled:=true; n15.Enabled:=true; if Fields[0].AsString:='admin' then n18.Enabled:=true; end; //4 end //3 else ShowMessage('操作员不存在'); end; //2 end; //1
在子窗口的implementation下加入
uses 主窗口单元;用时
MainForm.Menu1.Enabled:=true;....
begin
with toplist do
begin //2 if Locate('username',Eusername.Text,[])
then
begin //3
if EPass.Text <> Fields[1].AsString
then ShowMessage('密码错误')
else
begin //4
loginfrm.Close;
N2.Enabled:=true;//这边开始出错,说没有定义,但我在上面uses了母窗口了
n9.Enabled:=true;
n12.Enabled:=true;
n15.Enabled:=true;
if Fields[0].AsString:='admin'
then n18.Enabled:=true;
end; //4
end //3
else
ShowMessage('操作员不存在'); end; //2
end; //1
在interface里面uses也是可以的