数据库中有一个Table表:UserInfo
其字段:
NameCode varchar(20) 主键 Not NULL
Name varchar(50) Not NULL
Password varchar(50) NULL
这个是登录窗口的数据库表,现在我需要用dephi做一个登录界面,连接数据库用ado,我希望有具体的代码和解释,以及步骤。如有需要请加我QQ574015671 我是新手,刚接触dephi,现在急需知道dephi的项目流程
其字段:
NameCode varchar(20) 主键 Not NULL
Name varchar(50) Not NULL
Password varchar(50) NULL
这个是登录窗口的数据库表,现在我需要用dephi做一个登录界面,连接数据库用ado,我希望有具体的代码和解释,以及步骤。如有需要请加我QQ574015671 我是新手,刚接触dephi,现在急需知道dephi的项目流程
Combobox edit 1个BUTTON
登陆窗体创建的时候连接数据库读入用户名称等到一个Combobox里,选取Combobox里的一个用户,在Edit中输入密码后,按BUTTON 检查EDIT的内容与数据库中密码是否一致,一至就登陆,不一至就退出噻
procedure Tlogin.FormCreate(Sender: TObject);
begin
with dm.aq_login do
begin
close;
SQL.Clear;
SQL.Add('select * from users');
Open;
combobox1.Items.Clear;
while not Eof do
begin
combobox1.Items.Add(FieldByName('users').AsString);
next;
end;
end;
end;procedure Tlogin.Button1Click(Sender: TObject);
begin
with dm.aq_login do
begin
if locate('users;password',vararrayof([combobox1.Text,edit1.Text]),[]) then
begin
zhu.Show;
unit1.login.hide;
end
else
showmessage('用户名或密码错误!');
edit1.Clear;
end;
end;
上个月的这个时候我也问过类似的问题。。苦于没人回答。。百度到的都是大项目一点都看不懂给你贴个我写的吧dm(是数据模块窗口名)。aq_……是adoquery组件。