一套完成的租赁管理，和作业版不同，这个功能应该够用了。 procedureTFrm_Login.bbtnokClick(Sender:TObject); begin //录入检验 ifcbUserId.text=''then begin messagedlg('请选择用户名！',mtInformation,[mbok],0); cbUserId.SetFocus(); exit; end; //登录验证 withADOQ_Tempdo begin close; SQL.C