pmerp.dpr.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

program PmERP;

uses
  ExceptionLog,
  Forms,
  Windows,
  Registry,
  Sysutils,
  Dialogs,
  ShellApi,
  Classes,
  Controls,
  fr_Class,
  CommFun,
  SYSDATA,
  ErpMain in 'ErpMain.pas' {ErpMainForm},
  Sys700_01 in 'Sys700_01.pas' {Sys700_01Form},
  Sys100_01 in 'Sys100_01.pas' {Sys100_01Form},
  Sys600_01 in 'Sys600_01.pas' {Sys600_01Form},
  Sys500_01 in 'Sys500_01.pas' {Sys500_01Form},
  Sys300_01 in 'Sys300_01.pas' {Sys300_01Form},
  Sys800_01 in 'Sys800_01.pas' {Sys800_01Form},
  Sys000_01 in 'Sys000_01.pas' {Sys000_01Form},
  Sys410_01 in 'Sys410_01.pas' {Sys410_01Form},
  Sys400_01 in 'Sys400_01.pas' {Sys400_01Form},
  Sys900_01 in 'Sys900_01.pas' {Sys900_01Form},
  Sys900_02 in 'Sys900_02.pas' {Sys900_02Form},
  Sys910_01 in 'Sys910_01.pas' {Sys910_01Form},
  Sys910_02 in 'Sys910_02.pas' {Sys910_02Form},
  Sys800_02 in 'Sys800_02.pas' {Sys800_02Form},
  Sys500_02 in 'Sys500_02.pas' {Sys500_02Form},
  SysW00_01 in 'SysW00_01.pas' {SysW00_01Form},
  SerW00_01 in 'SerW00_01.pas' {SerW00_01Form},
  CwaW00_01 in 'CwaW00_01.pas' {CwaW00_01Form},
  TasW00_01 in 'TasW00_01.pas' {TasW00_01Form},
  Welcome in 'Welcome.pas' {WelcomeForm},
  PayW00_01 in 'PayW00_01.pas' {PayW00_01Form},
  ResW00_01 in 'ResW00_01.pas' {ResW00_01Form},
  CshW00_01 in 'CshW00_01.pas' {CshW00_01Form},
  HrmW00_01 in 'HrmW00_01.pas' {HrmW00_01Form},
  InvW00_01 in 'InvW00_01.pas' {InvW00_01Form},
  HwWork in 'HwWork.pas' {HwWorkForm},
  Sys910_03 in 'Sys910_03.pas' {Sys910_03Form},
  OrdW00_01 in 'OrdW00_01.pas' {OrdW00_01Form},
  OrdW01_01 in 'OrdW01_01.pas' {OrdW01_01Form},
  PurW00_01 in 'PurW00_01.pas' {PurW00_01Form};

{$R *.RES}

begin
  //防止程序执行两次
  Screen.Cursor:=crHourGlass;
  CheckInstance('Polymide BIS');
  Application.Initialize;
  Application.Title := 'Polymide BIS';
  ARegPath:='\Software\HwERP5';

  //从注册表中读取缺省语种设置
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey(ARegPath, True);
    if not ValueExists('LanguageID') then
    begin
      WriteInteger('LanguageID',GetSystemDefaultLangID);
    end;
    ALanguageID:=ReadInteger('LanguageID');
  finally
    CloseKey;
    Free;
  end;

  WelcomeForm:=TWelcomeForm.Create(Application);
  WelcomeForm.Show;
  WelcomeForm.Update;

  SYSDM:=TSYSDM.Create(Application);
  SetLangs;

  try
    SYSDM.SYSADOC.Connected:=False;
    SYSDM.SYSADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\HwSYS.hws;Mode=ReadWrite|Share Deny None;Persist Security Info=False';
    SYSDM.SYSADOC.Connected:=True;
  except
    ShowMsg(SYSDM.SYSADOC.Errors[0].Description,1);
    Application.Terminate;
  end;

  APackageHandle:=TStringList.Create;
  AContainsUnit:=TStringList.Create;
  LoadPack('CommPackage.bpl');
  ADemoFlag:=False;
  CheckRegister;   //检查产品是否已注册

  WelcomeForm.Close;
  Sys700_01Form:=TSys700_01Form.Create(Application);
  Screen.Cursor:=crDefault;
  if Sys700_01Form.ShowModal=1 then
  begin
    WelcomeForm.Show;
    WelcomeForm.Update;
    if AVerPath<>ASystemPath then SetLangs;
    Application.CreateForm(TErpMainForm, ErpMainForm);
    Application.Run;
    WelcomeForm.Close;
  end else
  begin
    SYSDM.LangsADOC.Connected:=False;
    SYSDM.SYSADOC.Connected:=False;
    SYSDM.ADOC.Connected:=False;
  end;
end.