delphi7 制作登入界面

1.创建窗体form1,form2,加入edit1,edit2 和bnt按钮
2.新建数据库,建立一个mdb文件,如:SSS.mdb 打开,建立新表, 建立字段 Fusername ,文本类型 Fpassword,文本类型 加了个F防止字段是关键字保存表，选择名字,如:如:AMU
打开表，在Fusername 加入 AAA(帐号), Fpassword 下加入 123(密码)
3.加入ADOConnection控件
双击,选择build,选择microsoft jet 4.0 ole db (accsee2003),2007选择12.0
下一步，选择你的数据库,MDB文件，测试连接，连接成功就OK
把它的loginprompt 设置为false ,这是数据库登录提示，可以不要
4加入aodquety控件，在connection属性线则ADOConnection
5.在edit2.passwordchar属性填*号，使edit2输入的时候为*号，作为密码框
6.在按钮Click事件写到
if edit1.text='' then
being
showmessage('帐号不能为空');
exit;
end;
if edit2.text='' then
being
showmessage('密码不能为空');
exit;
end;

with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from AMU where Fusername='''+edit1.text+''' and Fpassword='''+edit2.text+''' ');
open;
begin
if bof and eof then \\没有发现以上的条件
exit
else
form2.show;
end;
end;
打了这么多字，手打的好累

你会ACCESS吗？ 这个是没有源码的。

我加你QQ，帮你弄一下，再给你解释一下

我发了 请接收

有错就直接贴出来然后说报什么错，让大家给你看哪错了。废这工夫让别人给你写