如何用delphi编写一个登录窗口，登录后切换到主界面
首先显示登录界面，进行用户名和密码验证后显示主界面，采用adoquery和adoconnection组件，连接数据库，具体怎么做？要详细代码和步骤。
[解决办法]
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;
[解决办法]
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;
