rainbowmis.dpr

来自「仓库管理系统 仓库管理系统」· DPR 代码 · 共 60 行

program RainbowMIS;

uses
  Forms,
  Windows,
  dbmRainbowMis in 'dbmRainbowMis.pas' {dmRainbowMIS: TDataModule},
  chHeadUnit in 'chHeadUnit.pas',
  dfm_password in 'dfm_password.pas' {dfmPassword},
  TreeFunc in 'TreeFunc.pas',
  dfm_sale in 'dfm_sale.pas' {dfmsale},
  dfm_total in 'dfm_total.pas' {dfmtotal},
  dfm_reprint in 'dfm_reprint.pas' {dfmreprint};

//  start in 'start.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  //Application.CreateForm(TdfmFlash, dfmFlash);
{  dfmFlash:=TdfmFlash.Create(Application);
  dfmFlash.lblTip.Caption := '';
  dfmFlash.Show;
  dfmFlash.Update;
  sleep(1000);
  dfmFlash.lblTip.Caption := '正在启动数据库连接,请稍候...';
  dfmFlash.Update;    2000/12/08/}
  //@ Create Datamodules
  dmRainbowMIS:=TdmRainbowMIS.Create(Application);
  //@ Show flash form only for 3 seconds
  dfmPassword:=TdfmPassword.Create(Application);
  sleep(1000);
  //@ show password form
{  dfmFlash.lblTip.Caption := '等待用户登录...';
  dfmFlash.Update; 2000/12/08}
  //@ show password form
 { If Not dfmPassword.Execute Then Begin
    //@ Close Flash form
    dfmFlash.Close;
    dfmFlash.Free;
    Application.Terminate;
  End; }
  If dfmPassword.Execute Then Begin
{    dfmFlash.lblTip.Caption := '正在启动系统,请稍候...';
    dfmFlash.Update;  2000/12/08}
    //@ Load Main Form
  Application.Title := '收银';
//  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(Tdfmsale, dfmsale);
  Application.Run;
  End
  Else Begin
    //@ Close Flash form
{    dfmFlash.Close;
    dfmFlash.Free;  2000/12/08}
    Application.Terminate;
  End;

end.