房屋管理系统,算一个大作业的参考,界面简单,功能单元,适合初学,高手不要下载。 begin with adoquery1 do begin close; SQL.Clear; sql.Add('select * from users where(用户名=:a) and (密码=:b)'); parameters.ParamByName('a').Value:=Trim(edit1.Text); parameters.ParamByName('b').Value:=Trim(edit2.Text); open; end; if adoquery1.RecordCount>0 then begin application.MessageBox('登陆成功','提示',0+64) ; form1.Hide; form2.Show; end