program yygl;

uses
  Forms,
  main in 'main.pas' {Frmmain},
  login in 'Login.pas' {Frmlogin},
  splash in 'splash.pas' {Frmsplash},
  user in 'User.pas' {Frmuser},
  adduser in 'Adduser.pas' {Frmadduser},
  pass in 'Pass.pas' {Frmpass},
  bmxx in 'bmxx.pas' {frmbmxx},
  ghsxx in 'Ghsxx.pas' {frmghsxx},
  ywyxx in 'Ywyxx.pas' {frmywyxx},
  dbdw in 'dbdw.pas' {Frmdbdw},
  khxx in 'Khxx.pas' {frmkhxx},
  wpcx in 'wpcx.pas' {Frmwpcx},
  input in 'input.pas' {Frminput},
  pjdy in 'pjdy.pas' {Frmpjdy},
  xspj in 'xspj.pas' {Frmxspj},
  repxs in 'repxs.pas' {frmreport},
  dbrep in 'dbrep.pas' {Frmdbrep},
  hwbs in 'hwbs.pas' {Frmhwbs},
  ghs in 'ghs.pas' {Frmghs},
  kh in 'kh.pas' {Frmkh},
  hwdb in 'hwdb.pas' {Frmhwdb},
  dbdwxx in 'dbdwxx.pas' {Frmdbdwxx},
  ckxx in 'Ckxx.pas' {frmckxx},
  pdrep in 'pdrep.pas' {Frmpdrep},
  pd in 'pd.pas' {Frmpd},
  xstj in 'xstj.pas' {Frmxstj},
  wpxg in 'wpxg.pas' {Frmwpxg},
  xscx in 'xscx.pas' {Frmxscx},
  wzck in 'wzck.pas' {Frmwzck},
  zero in 'zero.pas' {Frmzero},
  lscgcx in 'lscgcx.pas' {frmlscgcx},
  xsrep in 'xsrep.pas' {frmxsrep},
  lscgrep in 'lscgrep.pas' {frmlscgrep};

{$R *.RES}

begin
  Application.Initialize;
  Frmsplash:=TFrmsplash.Create(Application);
  try
    Frmsplash.show;
    Frmsplash.Update;
    Application.Title := '醫藥藥材管理系統';
    Application.CreateForm(TFrmmain, Frmmain);
  Application.CreateForm(TFrmdbrep, Frmdbrep);
  Application.CreateForm(Tfrmreport, frmreport);
  Application.CreateForm(TFrmpdrep, Frmpdrep);
  Application.CreateForm(Tfrmlscgcx, frmlscgcx);
  Application.CreateForm(Tfrmxsrep, frmxsrep);
  Application.CreateForm(Tfrmlscgrep, frmlscgrep);
  Frmlogin:=TFrmlogin.Create(Frmlogin);
  FrmLogin.ShowModal;
    FrmLogin.Update;
    Frmsplash.Close;
  finally
    Frmsplash.Free;
  end;
  Application.Run;
end.