main.~dpr

在公司做的一个小的系统源代码

program MAIN;


uses
  Forms,
  windows,
  Umain in 'Umain.pas' {frmmain},
  Udm in 'Udm.pas' {dm: TDataModule},
  Ulogin in 'Ulogin.pas' {frmlogin},
  Ulgb in 'Ulgb.pas',
  Uinsert in 'Uinsert.pas' {frminsert},
  Uxiugai in 'Uxiugai.pas' {frmxiugai},
  Uquery in 'Uquery.pas' {frmquery},
  Uprint in 'Uprint.pas' {frmprint},
  Uliulan in 'Uliulan.pas' {frmliulan},
  Uabout in 'Uabout.pas' {frmabout},
  Uusergl in 'Uusergl.pas' {Frmusergl},
  Uuserchange in 'Uuserchange.pas' {Frmuserchange},
  usplash in 'usplash.pas' {Frmsplash},
  Uzzjjgb in 'Uzzjjgb.pas' {frmzzjjgb},
  Ufwq in 'Ufwq.pas' {Frmsjfwq};

{$R *.res}

begin
  Frmsplash := TFrmsplash.Create(Application);
  Frmsplash.AlphaBlend := false;
  Frmsplash.Show; {显示徽标Form}
  Frmsplash.Update; {重画徽标Form，确保其中的图片被显示出来}
  Application.Initialize;
  Application.CreateForm(Tdm, dm);
  application.Title := '全省招标采购药品价格管理系统';
     if Gsyserror then
  begin
    application.MessageBox('系统必须文件已被破坏，系统无法启动！',Gsysname,mb_ok+mb_iconerror);   //,mb_ok+mb_iconerror
    application.Terminate;
  end;
  if Gdberror then
  begin
    application.MessageBox('连接数据库失败，请检查网络状况！',Gsysname,mb_ok+mb_iconerror);
    application.Terminate;
  end;
  Application.CreateForm(TFrmmain, Frmmain);
  Application.CreateForm(TFrmlogin, Frmlogin);
   Frmsplash.AlphaBlend := true;
  Frmsplash.Update;
  while Frmsplash.AlphaBlendValue > 10 do
    Frmsplash.AlphaBlendValue := Frmsplash.AlphaBlendValue - 10;
  Frmsplash.Hide;
  Frmsplash.Free;
   frmlogin.ShowModal;
  frmmain.show;
  if gjgbm='' then
  begin
    frmzzjjgb:=tfrmzzjjgb.Create(application);
    frmzzjjgb.ShowModal ;
    frmzzjjgb.Free;
  end;
  Application.Run;
end.