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