请问大家的启动画面窗口通常是怎么做的？还有那个登录窗口

谢谢 问题点数：20、回复次数：11Top

1 楼drift1981（delphi coder）回复于 2004-10-04 14:20:14 得分 2

一般启动画面用一个timer控制关闭时间,或者用鼠标单击关闭Top

2 楼hc0007（当你孤单的时候你会想起谁?）回复于 2004-10-04 15:49:44 得分 3

program   wjsys;  
   
  uses  
      Forms,  
      WndFlash   in   'WndFlash.pas'   {FrmFlash},  
      Un_dm   in   'Un_dm.pas'   {DM:   TDataModule},  
      Un_Logon   in   'Un_Logon.pas'   {Logon},  
      Un_MainForm   in   'Un_MainForm.pas'   {MainForm},  
   
  {$R   *.res}  
   
  begin  
      FrmFlash:=TFrmFlash.Create(Application);//构造封面窗口  
      FrmFlash.Show;                                                   //显示  
      FrmFlash.Update;  
      Application.Initialize;  
      Application.CreateForm(TDM,   DM);  
      Application.CreateForm(TLogon,   Logon);  
      FrmFlash.Hide;                                         //隐藏  
      FrmFlash.Free;                                             //释放内存  
      Application.Run;  
  end.  
   
   
  网上找一下delphi   百例，里面有非常详细的源代码Top

3 楼ShanShiMin（Delphi+C#=我的最爱）回复于 2004-10-04 16:00:44 得分 2

一般是修改工程文件，首先Create启动窗口，然后在Application.Run之前Close。Top

4 楼ma369（）回复于 2004-10-04 16:43:06 得分 2

二楼的就行，非常实用Top

5 楼kencharles（肯.查尔斯）回复于 2004-10-04 17:31:56 得分 5

我把一个实例贴出来，你自己看吧！觉得还可以的话就赶紧把分给结了！  
  unit   DM;  
   
  interface  
   
  uses  
      SysUtils,   Classes,   DB,   ADODB,Windows  
      ;  
   
  type  
      TdmMain   =   class(TDataModule)  
          qryCommon:   TADOQuery;  
          ADOConnection:   TADOConnection;  
          procedure   DataModuleCreate(Sender:   TObject);  
      private  
          {   Private   declarations   }  
          procedure   SetLocalComputerTime;  
      public  
          {   Public   declarations   }  
          strDBConnect   :   widestring;             //ConnetString;  
      end;  
   
  var  
      dmMain:   TdmMain;  
   
  implementation  
   
  uses   MessageDemo;  
   
  {$R   *.dfm}  
   
   
  procedure   TdmMain.DataModuleCreate(Sender:   TObject);  
  var  
          frmMessageDemo:   TfrmMessageDemo;  
          intUserIDPos:integer;  
  begin  
          frmMessageDemo:=TfrmMessageDemo.Create(self);  
          frmMessageDemo.MessageShow('正在连接服务器，请稍候......');  
          frmMessageDemo.show;  
          frmMessageDemo.Refresh;  
   
          try  
                  ADOConnection.Open('sa','');  
                  //处理   gDBCString   加密码,不直接加在   ConnectionString   能否起到保密作用？  
                  strDBConnect   :=   ADOConnection.ConnectionString;  
                  intUserIDPos   :=   pos('User   ID',strDBConnect);  
                  Insert('Password=sa;',strDBConnect,intUserIDPos);  
                  frmMessageDemo.Free;  
          except  
                  frmMessageDemo.MessageShow('服务器连接失败，请与系统管理员联系');  
                  frmMessageDemo.Refresh;                  
                  Sleep(3000);  
                  frmMessageDemo.Free;  
          end;  
  end;  
   
   
  procedure   TdmMain.SetLocalComputerTime;  
  var  
          MySysTime   :   TSystemTime;  
  begin  
          with   QryCommon   do  
          begin  
                  sql.Clear;  
                  sql.Add('select                 '  
                          +'datepart(yyyy,getdate())   SYear,datepart(mm,getdate())   SMonth,'  
                  +'datepart(dd,getdate())   SDay,datepart(hh,getdate())   SHour,'  
                          +'datepart(mi,getdate())   SMini,datepart(ss,getdate())   SSecond,'  
                          +'datepart(ms,getdate())   SMilSec   ');  
                  open;  
   
                  MySysTime.wYear   :=   FieldByName('sYear').AsVariant;  
                  MySysTime.wMonth   :=   FieldByName('SMonth').AsVariant;  
                  MySysTime.wDay   :=   FieldByName('SDay').AsVariant;  
                  MySysTime.wHour   :=   FieldByName('SHour').AsVariant;  
                  MySysTime.wMinute   :=   FieldByName('SMini').AsVariant;  
                  MySysTime.wSecond   :=   FieldByName('SSecond').AsVariant;  
                  MySysTime.wMilliseconds   :=   FieldByName('SMilSec').AsVariant;  
          end;  
          setLocalTime(MySysTime);  
  end;  
   
  end.Top

6 楼angelface（§<@#$&^%$>§）回复于 2004-10-04 21:08:37 得分 2

这里搜一下会有很多的,Top

7 楼net_morning（矿泉水）回复于 2004-10-05 19:09:13 得分 0

多谢诸位大侠啦，国庆愉快！Top

8 楼ln521（*逃课小王子*）回复于 2004-10-05 19:46:16 得分 2

oncreate中写了  
  是login的  
  画面也可以用sleep  
  Top

9 楼net_morning（矿泉水）回复于 2004-10-08 13:57:03 得分 0

哪位大侠能提供几张启动画面的图片？  
  非常感谢！Top

10 楼lyguo（愚人(每天顶几顶挣分升星星)http://zz.ihenan.cn/map/）回复于 2004-10-08 16:45:42 得分 2

随便什么都等啊你到网上找一下Top

11 楼net_morning（矿泉水）回复于 2004-10-10 17:11:36 得分 0

请问登录失败后用哪个语句退出应用程序比较好？我打算在主form的creat事件里先打开启动画面，然后打开登录窗口，然后关闭启动画面。Top

相关问题

• application
• frmmessagedemo
• mysystime
• asvariant
• frmflash
• tdmmain
• fieldbyname
• strdbconnect
• datepart
• intuseridpos

• 帖主：net_morning
• drift1981
• hc0007
• ShanShiMin
• ma369
• kencharles
• angelface
• ln521
• lyguo

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载