实验室设备管理系统 1．用户登陆界面代码 procedure TForm1.Button1Click(Sender: TObject); var u,p:string; //temp:string; begin u:=edit1.Text; p:=edit2.Text; if(u='')then begin showmessage('用户名不允许为空!'); edit1.SetFocus;