splash.pas

来自「销售帐目管理」· PAS 代码 · 共 57 行

unit Splash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUISkinForm, SUIDlg  ;

type
  TFrmSplash = class(TForm)
    suiSkinForm1: TsuiSkinForm;
    suiMessageDialog1: TsuiMessageDialog;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSplash: TFrmSplash;

implementation

uses PubUnit, DataModule, Main;

{$R *.dfm}

procedure TFrmSplash.FormCreate(Sender: TObject);
begin
  SysPath := ExtractFilePath(Application.ExeName);
  ReadIni ;
  Application.Title := P_AppName ;
end;

procedure TFrmSplash.FormActivate(Sender: TObject);
begin
  DelayMsec(100);
  try
    DataModule1.db1.Connected ;
//    ChgDebugMode(P_DebugFlag);
    OpenAllQuery();
  except
    on E : Exception do
      with suiMessageDialog1 do
      begin
        Caption := P_AppName ;
        Text := '数据库连接失败！'+Chr(10)+Chr(13)+E.Message ;
        ShowModal ;
      end;
  end;
  DelayMsec(P_SplashDelay*1000);
end;

end.