expertextract.dpr

来自「专家抽取系统1.0 是用Delphi6.0 开发的一款用于招投标,评审过程中从专」· DPR 代码 · 共 37 行

program ExpertExtract;

uses
  Forms,
  Controls,
  Main in 'Main.pas' {frmMain},
  Splash in 'Splash.pas' {frmSplash},
  Login in 'Login.pas' {frmLogin},
  Extract1 in 'Extract1.pas' {frmExtract1},
  Extract1Rep in 'Extract1Rep.pas' {frmExtract1Rep},
  ExpertUpdate in 'ExpertUpdate.pas' {frmExpertUpdate},
  ExpertAdd in 'ExpertAdd.pas' {frmExpertAdd},
  GroupAdd in 'GroupAdd.pas' {frmGroupAdd},
  GroupUpdate in 'GroupUpdate.pas' {frmGroupUpdate},
  ExtractResult in 'ExtractResult.pas' {frmExtractResult},
  HisExtractPro in 'HisExtractPro.pas' {frmHisExtractPro};

{$R *.res}

begin
  Application.Initialize;
  //创建splash窗体
  frmSplash :=TfrmSplash.Create(Application);
  //以模式对话框的方式显示splash窗体
  frmSplash.ShowModal;

  //如果定时时间到或单击了窗体上的图形
  if  frmSplash.ModalResult = mrOK then
  begin
    Application.Title := '专家抽取系统';     //设置应用程序的标题
    Application.CreateForm(TfrmMain, frmMain);
    frmSplash.Hide;    //将启动封面窗体隐藏
    frmSplash.free;  //将启动封面窗体清除
    Application.Run;
  end;
end.