Delphi制作登录框的新问题

我想用Delphi制作一个登录框，账号和密码放在一个Access里面，不是放在SQL里面。当账号和密码都输入正确的时候form2才显示出来，怎么做？ 最好有简单的源代码，我是个新手。

楼主第一你要明白一点，SQL 于ACCESS 的区别， 还有应该瞭解下基本的SQL语句，
我只能说下SQL语句，怎麼去写还是介意你自己多想想 我告诉你了也就没有学习的意义！

with qry1 do
begin
Close;
SQL.Clear;
SQL.Add( 'select * from Enter where username=:a and pass=:b' );
Parameters.ParamByName('a').Value:=Trim(Edit1.Text);
Parameters.ParamByName('b').Value:=Trim(Edit2.Text);
Open;
下面然後继续判断....如果实在不明白你可以发邮件给我 [email protected]
end；

最简单的办法，用adoquery写入sql语句来判断 在form1上放2个label,2个edit ,1个button ,再放上一个数据库连接控件adoconnection,一个查询控件adoquery ,adoquery联接到adoconnection 在adoconnection的属性connectionstring中配置好数据加，并联接 假设数据库为a,用户表为db_yh username password aa tform1为登陆框 组件： datasource1: tdatasource; adoquery1: tadoquery; // procedure tform1.button1click(sender: tobject); begin with adoquery1 do begin close; sql.clear; sql.add('select * from 登录表 where name=:edit1.text and pwd=:edit2.text'); parameters[0].value:=trim(edit1.text); parameters[1].value:=trim(edit2.text); open; end; if adoquery1.recordcount>0 then //找到记录 begin if trim(adoquery1.fieldbyname('type').asstring)='system' then //系统用户 //adoquery1.fields[2].asstring通过索引号访问字段对象 form2.showmodal; form1.close; if trim(adoquery1.fieldbyname('type').asstring)='usual' then //一般用户 begin showmessage('一般用户登陆'); //此句仅仅作为测试，用以区分不同权限用户 form2.showmodal; form1.close; end; end else //查找失败 begin showmessage('对不起，该用户不存在！'); edit1.text:=''; edit2.text:=''; end; end;