xhxt.dpr

这是一个很好的超市管理系统

program XHXT;

uses
  Forms,
  SysUtils,
  UnitDM in 'UnitDM.pas' {DM: TDataModule},
  UnitXiangPin in 'UnitXiangPin.pas' {FrmXiangPin},
  UnitMain in 'UnitMain.pas' {FrmMain},
  UnitJieMian in 'UnitJieMian.pas' {FrmJieMian},
  UnitXPXS in 'UnitXPXS.pas' {FrmXPXS},
  UnitXPTH in 'UnitXPTH.pas' {FrmXPTH},
  UnitDH in 'UnitDH.pas' {FrmDH},
  UnitJHTH in 'UnitJHTH.pas' {FrmJHTH},
  KCCXQRT1 in 'KCCXQRT1.pas' {QRTKCCX: TQuickRep},
  MYCX2QRT1 in 'MYCX2QRT1.pas' {QRTMYCX2: TQuickRep},
  UnitChangePass in 'UnitChangePass.pas' {FrmChangePass},
  UnitDHR in 'UnitDHR.pas' {FrmDHR},
  UnitGHX in 'UnitGHX.pas' {FrmGHX},
  UnitKCCX in 'UnitKCCX.pas' {FrmKCCX},
  UnitMYCX in 'UnitMYCX.pas' {FrmMYCX},
  UnitUserManage in 'UnitUserManage.pas' {FrmUserManage},
  UnitZDYCX in 'UnitZDYCX.pas' {FrmZDYCX},
  ZDYCX1QRT1 in 'ZDYCX1QRT1.pas' {QRTZDYCX1: TQuickRep},
  ZDYCXQRT21 in 'ZDYCXQRT21.pas' {QRTZDYCX2: TQuickRep};

{$R *.res}
var times: Tdatetime;

begin
  Application.Initialize;
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFrmJieMian, FrmJieMian);
  Application.CreateForm(TFrmXPXS, FrmXPXS);
  Application.CreateForm(TFrmXPTH, FrmXPTH);
  Application.CreateForm(TFrmDH, FrmDH);
  Application.CreateForm(TFrmJHTH, FrmJHTH);
  Application.CreateForm(TQRTKCCX, QRTKCCX);
  Application.CreateForm(TQRTMYCX2, QRTMYCX2);
  Application.CreateForm(TFrmChangePass, FrmChangePass);
  Application.CreateForm(TFrmDHR, FrmDHR);
  Application.CreateForm(TFrmGHX, FrmGHX);
  Application.CreateForm(TFrmKCCX, FrmKCCX);
  Application.CreateForm(TFrmMYCX, FrmMYCX);
  Application.CreateForm(TFrmUserManage, FrmUserManage);
  Application.CreateForm(TFrmZDYCX, FrmZDYCX);
  Application.CreateForm(TQRTZDYCX1, QRTZDYCX1);
  Application.CreateForm(TQRTZDYCX2, QRTZDYCX2);
  FrmJieMian.Show;
  FrmJieMian.Update;
  times := now;
  repeat ; until times + strtotime('00:00:02') < now;
    FrmJieMian.free;
  //application.CreateForm(TFrmLogin, FrmLogin);
  //FrmLogin.ShowModal;
  //FrmLogin.Free;
  Application.CreateForm(TFrmMain, FrmMain);
  FrmMain.ShowModal;
  FrmMain.Free;
  Application.Run;
end.