supermarketms.dpr

来自「这是一个超市管理系统源代码,看上去还不错,大家看下」· DPR 代码 · 共 67 行

program supermarketms;

uses
  Forms,
  mainfrm in 'mainfrm.pas' {FormMain},
  SplashFrm in 'SplashFrm.pas' {FormSplash},
  LoginFrm in 'LoginFrm.pas' {FormLogin},
  MainDM in 'MainDM.pas' {DMMain: TDataModule},
  uConfigMgr in 'uConfigMgr.pas',
  CompanyInfoFrm in 'CompanyInfoFrm.pas' {ComanyInfoDlg},
  GoodInfoFrm in 'GoodInfoFrm.pas' {GoodInfoDlg},
  GoodEditFrm in 'GoodEditFrm.pas' {GoodEditDlg},
  SaleInputFrm in 'SaleInputFrm.pas' {SaleInputDlg},
  SalesManFrm in 'SalesManFrm.pas' {SalesManDlg},
  SalesManQuery in 'SalesManQuery.pas' {SalesManQueryDlg},
  SalesManQueryReportFrm in 'SalesManQueryReportFrm.pas' {QRSalesManQuery: TQuickRep},
  SalesManQueryChartFrm in 'SalesManQueryChartFrm.pas' {SalesManQueryChart},
  DepartInputFrm in 'DepartInputFrm.pas' {DepartInputDlg},
  SysOperatorInputFrm in 'SysOperatorInputFrm.pas' {SysOperatorInputDlg},
  SaleBackFrm in 'SaleBackFrm.pas' {SaleBackInputDlg},
  DBBackupFrm in 'DBBackupFrm.pas' {DBBackupDlg},
  ABoutBoxFrm in 'ABoutBoxFrm.pas' {AboutBoxDlg},
  StockInFrm in 'StockInFrm.pas' {StockInDlg},
  StockOutFrm in 'StockOutFrm.pas' {StockOutDlg},
  SaleBackQueryFrm in 'SaleBackQueryFrm.pas' {SaleBackQueryDlg},
  QRSaleBackFrm in 'QRSaleBackFrm.pas' {QRSaleBack: TQuickRep},
  StorageQueryFrm in 'StorageQueryFrm.pas' {StorageQueryDlg},
  SaleBackQueryChart in 'SaleBackQueryChart.pas' {SaleBackQueryChartDlg},
  PermissionFrm in 'PermissionFrm.pas' {PermissionDlg};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TDMMain, DMMain);
  Application.CreateForm(TFormSplash, FormSplash);
  Application.CreateForm(TFormLogin, FormLogin);
  FormSplash.Show;
  FormSplash.Update;
  Application.ProcessMessages;
  FormSplash.Close;
  FormLogin.ShowModal;
  FormSplash.Free;
  FormSplash := nil;
  if FormLogin.IsLegal then
  begin
    FormLogin.Close;
    FormMain.SetUserName(FormLogin.GetUserName);
    FormMain.SetUserRealName(FormLogin.GetUserRealName);
    FormMain.SetUserPermission(FormLogin.GetUserPermission);
    FormLogin.Free;
    FormLogin := nil;
  end
  else
  begin
    FormLogin.Free;
    FormLogin := nil;
    FormMain.Free;
    FormMain := nil;
    DMMain.Free;
    DMMain := nil;
    Application.Terminate;
  end;
  Application.Run;
end.