菜鸟问题

Question

各位大侠：
　　如何在delphi中先显示登录窗口，用户名和密码正确后(从数据库中检索到合法的)，再打开主窗口
，给个例子！谢谢！我是刚学delphi         谢谢！不胜感谢！

Answer 1

http://www.2ccc.com/article.asp?articleid=1504这里有个例子好好看看把。

Answer 2

$R *.res}begin
  Application.Initialize;
  Application.Title := ';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmDataModule, frmDataModule);
  Application.CreateForm(Tfrm_About, frm_About);
  frmLogin:=TfrmLogin.Create(Application);
  frmLogin.ShowModal;
  Application.Run;
end.

Answer 3

在验证密码后面加入:
application.createform(Tmainform,mainform);
mainform.show;
self.close;

Answer 4

在projcet菜单下的option设置启动窗口

Answer 5

1、第一层的大侠，你给的地址不对，是讲述FastReport的用法。
2、后面两层的大侠，能否给一个实际的例子，与数据库相连的例子从数据库中得到合法用户，谢谢！

Answer 6

procedure TForm1.create(Sender: TObject);
begin
form4:=Tform4.Create(Self);
form4.ShowModal;
form4.Release;
end;procedure TForm4.BitBtn1Click(Sender: TObject);
begin
if (table1.FindKey([Edit2.text])) and (Edit2.text=table1.FieldByName('用户名').asstring) and (edit1.Text=table1.FieldByName('密码').asstring) then
begin
Form1.N6.Enabled:=true;
Form1.N7.Enabled:=true;
end
else
begin
Application.MessageBox('用户名或密码错误！','错误信息提示', 0);
Form1.N6.Enabled:=false;
Form1.N7.Enabled:=false;
end;
end;