一个关于数据库应用的开始界面问题！

Question

我要做个数据库应用程序的启动画面，实现功能如下：
首先启动开始欢迎界面，一定时间后出现登录窗口，输入用户、密码，输入正确出现主界面，然后可以通过主菜单打开各个子菜单。
请问各位我应该怎么来做呢？急急！！帮帮忙！谢谢了！

Answer 1

在项目文件(*.dpr)里面加入以下代码(要在Application.Initialize;后加入)：
  Splashfrm:=TSplashFrm.Create(Application);
  SplashFrm.Show;
  SplashFrm.Update;
  Sleep(4000);  --等待四秒
  SplashFrm.Hide;
  SplashFrm.FreeOnRelease;
然后在创建登录窗口即可。
在Win98+Delphi5下面调试通过!

Answer 2

你可以把启动窗体的borderstyle属性设为bsnone,然后放一个timer控件，一定时间后，让这个窗体隐藏，然后弹出输入框，当登录正确后显示出主窗体

Answer 3

那用不用想上面大哥讲的那样做呢？formstyle属性怎样设置呢？

Answer 4

要。不光要在（*。drp)中写还要在创建的窗口中设置formstyle和timepicker
在弄上一幅图等各三两秒钟登陆窗口就出来了。

Answer 5

上面的大哥都只是讲了一小点，能否那位给出一段完整的代码，或者是告诉我哪儿能够有完整的代码下载，分值不够在加？
各位高手能否留下你们的E_mail以便请教！！！！！！！

Answer 6

欢迎画面：
假设已有一个工程。在应用程序添加一个窗体，将这个窗体起名为MoveForm，MoveForm 的单元起名为Move。选择View/Project Manager，击Option按钮，选择结果Project Option 对话底部的Forms页栏目。注意，MainForm和MoveForm是在Auto-create forms 列表中。选择MoveForm并击右键头按钮，把这个表格移到 Available forms 。 所有的Delphi表格通过缺省方式自动在内存中建立，因此它们要消耗内存和系统资源。在类似这里（程序运行时创建一个表格）的情况下，你应该将表格从自动创建列表格中去掉。
下面修改工程文件：
选择View/Project Source，修改begin和end之间的语句如下：
  frmsplash:=Tfrmsplash.Create(Application);{Create创建闪现窗口对象}
  frmsplash.Show;
  frmsplash.Update;
  Application.CreateForm(TForm1, Form1);
  frmsplash.Hide;
  frmsplash.Free;
控制闪现时间，在主窗体中添加：
program TMainForm.FormCreate(sender:Tobject);
var
currentTime:LongInt;
begin
currentTime:=GetTickCount div 1000;
while ((GetTickCount div 1000)<(currentTime+3) do
{不做任何事); //闪现时间可任意设置，这里为3秒
end;
end.密码登录窗：
需要建立数据库表存储相关信息，比如username字段存储用户名，password字段存储密码，以ADO连接。
procedure Tloginform.Button1Click(Sender: TObject);
begin
  user:=combobox1.text;
  pass:=edit1.text;
  results:=ADOtable1.Lookup('username',ComboBox1.text,'password');{检索数据库中对应用户名的密码项}
  if results=edit1.Text then
  begin
    i:=true;
    close;
    form1.Show;
    form1.StatusBar1.Panels[1].Text:=combobox1.text;
  end else
      showmessage('密码不正确，请再输一次');
end;procedure Tloginform.Button2Click(Sender: TObject);
begin
    close;
    application.Terminate ;
end;procedure Tloginform.FormCreate(Sender: TObject);
begin
   i:=false;
   ADOtable1.Active:=true;
   ADOConnection1.LoginPrompt:=false;
end;同时我在工程文件中加入了一下语句：
  loginform:=Tloginform.create(Application);
  loginform.show;
  loginform.Update;
  while i=true do
  begin
  loginform.Hide;
  loginform.free;
  end;这样一个简单的闪现窗口和密码窗就实现了。可以补充这段程序，实现更好的安全管理。