求助：如何写一个erp系统的密码登陆界面。(200分)

各位大哥。小弟最近学习delphi完成一个erp系统。在密码登陆界面处被卡住了。请各位大哥伸出援助之手
我希望的功能是这样。我用delphi自带的数据库作好了一个密码表。登陆时。如果输入密码正确，就
进入主界面。如果错误就弹出输入错误的信息。
我不知道怎么实现这个功能，望各位大哥帮帮我。谢谢。

使用两个tedit来分别输入用户名和密码，然后使用sql语句查找数据库中的
密码表，如果有对应记录就登录成功,关闭登录窗口，打开主窗体。
否则showmessage('密码不对，请重新输入');

去查老帖子吧。到处都是这个代码了。

paradox?做一个启动闪现窗体，在project.dpr在mainform之前create and showmodal;
放一个Query连上数据库路径，
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('select password where username = '''+edtUserName.Text+'''');
Query.Open;
if Query.FieldByName('password').AsString = edtPassWord.Text then
close..........
else
begin
Showmessage('no');//或者可以重试，改一下代码就行了
Application.Terminate;
end;

哥们：erp是什么概念呀！说说吧！

在工程文件中加入
var
Logform: TLogform;
ISession: TSession;
IDatabase: TDatabase;
begin
ISession:= TSession.Create(application);
with ISession do
begin
Active := false;
SessionName := 'ADB';//自定的连接名
Active := True;
end;
IDatabase:=TDatabase.Create(application);
with IDatabase do
begin
DatabaseName := 'DBA';//ODBC中的别名
LoginPrompt := False;
params.Add('PWD=liudaobin');
SessionName := 'ADB';
AliasName := 'DBA';
Connected := True;
end;
logform:=Tlogform.Create(application);
if logform.ShowModal = mrOK then
begin
//创建其它窗口
end;
end.
在Logform中写以下代码
procedure TLogform.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text='') and (Edit2.Text='') then
begin
messagedlg('您未输入用户名字和用户密码，请正确输入用户名字和用户密码！',
mtconfirmation,[mbYes,mbNO],0);
Edit1.SetFocus
end
else
if table1.FindKey([edit1.text,edit2.text]) then
begin
UserWigeht:=table1.fieldbyname('US_WT').Value;
ModalResult := mrOK
end
else
begin
messagedlg('用户名字或用户密码错误，请正确输入用户名字和用户密码！',
mtconfirmation,[mbYes,mbNO],0);
Edit1.SetFocus
end
end;

我有点不信！
如是你写一个登录页面都会有问题的话，你完成的是ERP吗？
ERP是一个超大型的系统，应该不是那么容易搞定的。

楼上已有正确答案。

太无聊了吧？这么“有知”的问题

www.2ccc.com 勤工助学管理系统 的源代码，你可以看看，我写的，还可以。有登陆的界面做法。

多人接受答案了。