房屋租赁系统适合入门和作业参考
房屋管理系统，算一个大作业的参考，界面简单，功能单元，适合初学，高手不要下载。r beginr withr adoquery1r dor beginr close;r SQL.Clear;r sql.Add('select * from users where(用户名=:a) and (密码=:b)');r parameters.ParamByName('a').Value:=Trim(edit1.Text);r parameters.ParamByName('b').Value:=Trim(edit2.Text);r open;r end;r if adoquery1.RecordCount>0 thenr beginr application.MessageBox('登陆成功','提示',0+64) ;r form1.Hide;r form2.Show;r end
文件大小：1.36MB
评论区