程序启动画面的问题?(50分)

我要将我的应用软件做一个启动画面,然后显示登录窗口,通过密码判定,主窗体的菜单的使用
情况?请各位帮帮忙,小弟初学DELPHI,希望能给段完整的代码?谢谢了

设置好用户权限就可以了，根据登陆用户的权限使某些菜单可用或不可用
主要是数据表结构的设置

哪个我知道,我的意思是怎么在主窗体创建之前,调用登录窗体

with TFrm_StartForm.Create(Application) do begin
Show;
Repaint;
screen.cursor:=crHourglass;

Application.CreateForm(TFrm_Main, Frm_Main);
Frm_Main.show;
Frm_Main.Update;

screen.cursor:=crHourglass;
bringtofront;
update;
sleep(2000);

screen.cursor:=crDefault;
Close;
free;
end;//with
Application.Run;

这段代码好象是显示窗体的，启动画面的而没有调用，登录窗口进行密码判定啊，能在讲详细点吗？谢谢了

假如你的程序有三个窗体：frmlog.frmmain,splashscreen(启动画面），在project/options
中，在main form中选择frmmain,从auto—create forms中将frmlog，splashcreen移到右边的
available forms,在程序的工程文件中添加代码
begin
Application.Initialize;
try
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
SplashScreen.Update;
sleep(4000);
Application.Title := 'abcd';
Application.CreateForm(TfrmMain, frmMain);
splashscreen.Hide;
SplashScreen.Close;
finally
SplashScreen.Free;
end;
Application.Run;
end.
在frmmain的oncreate中写代码：
begin
frmLogin:=TfrmLogin.create(self);
frmLogin.showmodal;
frmLogin.release;
end;
再在frmlogin的btnokclick事件中根据不同的密码设置菜单某相应可用

登陆窗体自动创建，主窗体等用户确认身份后再动态创建

加在.dpr文件中。举个例子：

program Simulator;

uses
Forms, Windows,
MainUnit in 'MainUnit.pas' {MainForm},
ConfigUnit in 'ConfigUnit.pas' {ConfigForm},
TankCtrlUnit in 'TankCtrlUnit.pas' {TankCtrlForm},
VoiceCfgUnit in 'VoiceCfgUnit.pas' {VoiceCfgForm},
AboutUnit in 'AboutUnit.pas' {AboutForm},
SplashUnit in 'SplashUnit.pas' {SplashForm};

{$R *.RES}
var SplashForm:TSplashForm;
begin
SplashForm:=TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
sleep(600);

Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TConfigForm, ConfigForm);
Application.CreateForm(TTankCtrlForm, TankCtrlForm);
Application.CreateForm(TVoiceCfgForm, VoiceCfgForm);
Application.CreateForm(TAboutForm, AboutForm);

SplashForm.close;
SplashForm.free;

Application.Run;
end.

up一下，有人有新注解吗？

猫咪小贝，我能通过E_mial和你联系吗？

你好能通过E_mail和你联系吗？我希望能够认识你！

luckyboy97 呵呵，好啊，有空联系了，你在线呼叫一下：然后我告诉你吧！