customeradmin.dpr

适合Delphi初学者使用。其中涉及XML文件导入

program CustomerAdmin;

uses
  Forms,
  Windows,
  SysUtils,
  Main in 'Main.pas' {frmMain},
  gendm in 'gendm.pas' {DM: TDataModule},
  md5 in '..\GenFunc\md5.pas',
  RegExpr in '..\GenFunc\RegExpr.pas',
  Skin in '..\GenFunc\Skin.pas' {FormSkin},
  genAccessFunc in '..\GenFunc\genAccessFunc.pas',
  genFunc in '..\GenFunc\genFunc.pas',
  genModal in '..\GenFunc\genModal.pas' {FormGenModal},
  head in '..\GenFunc\head.pas',
  LXReg in '..\GenFunc\LXReg.pas',
  Login in 'Login.pas' {frmLogin},
  ModifyPass in 'ModifyPass.pas' {frmModifyPass},
  ExcelMessage in 'ExcelMessage.pas',
  genSimpleModal in '..\GenFunc\genSimpleModal.pas' {frmGenSimpleModal},
  TurnShop in 'TurnShop.pas' {frmTurnShop},
  InfoShop in 'InfoShop.pas' {frmInfoShop},
  ExcelImportColSet in 'ExcelImportColSet.pas' {frmExcelImportColSet};

{$R *.res}

begin
  Application.Initialize;
  gUserInfo.sAppPath := ExtractFilePath(Application.ExeName);
  gUserInfo.sTitle := 'Setting';
  Application.Title := '资料管理系统';
  Application.CreateForm(TDM, DM);
  //Application.CreateForm(TfrmExcelImportColSet, frmExcelImportColSet);
  //Application.CreateForm(TfrmInfoShop, frmInfoShop);
  //Application.CreateForm(TfrmInfoShop, frmInfoShop);
  //Application.CreateForm(TfrmModifyPass, frmModifyPass);
  if TfrmLogin.ShowForm then
  begin
    Application.CreateForm(TfrmMain, frmMain);
  //Application.CreateForm(TfrmLogin, frmLogin);
    Application.Run;
  end
  else
  begin
    Application.Terminate;
  end;

end.