如何用delphi编写一个登录窗口，登录后切换到主界面

Question

首先显示登录界面，进行用户名和密码验证后显示主界面，采用adoquery和adoconnection组件，连接数据库，具体怎么做？要详细代码和步骤。

Answer 1

!!!!!!!!!!
方法很多了。
最根本的是思路
if(用户正确and 密码正确)
begin
登陆成功
else
重新输入
end

Answer 2

给多少分?^_^
挺简单的在网上找一找。实在不会，就联系我[email protected]

Answer 3

ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from user where id='''+edit1.text+''' and pass='''+edit2.text+'''');
ADOQuery1.open;
if ADOQuery1.recrodcount=0 then 
begin 
showmessage('输入的用户名或密码不正确！');
end
else
begin
 form2.show;
 self.hide;
end;
end;

Answer 4

在工程文件中先show 登陆框在些判断密码是否正确再show 出主窗口

Answer 5

procedure Tflogin.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text='' then
begin
ShowMessage('用户名不能为空！');
Edit1.SetFocus;
exit;
end;
if  Edit2.Text='' then
begin
ShowMessage('密码不能为空！');
Edit2.SetFocus;
exit;
end;
data.loginquery.Close;
data.loginquery.SQL.Clear;
data.loginquery.SQL.Add('select * from admin where account='''+Edit1.Text+'''');
data.loginquery.Open;
if(data.loginquery.Eof) then
begin
ShowMessage('用户名不存在！');
 Edit1.Clear;
 Edit2.Clear;
Edit1.SetFocus;
exit;
end;
if data.loginquery.FieldValues['password']<>Edit2.Text then
begin
 if 4-i>0 then
 begin
 m:=IntToStr(4-i);
ShowMessage('密码错误,您还有'''+m+'''此机会！');
Edit2.Clear;
Edit2.SetFocus;
i:=i+1;
 end
 else
 begin
 ShowMessage('对不起,系统将终止，请先核查您有没有此权限！');
 Application.Terminate;
 end;
exit;
end;
fmain.Show;
flogin.Hide;
end;

Answer 6

wxj9527老兄的答案最简单了，支持以下。