crm.dpr

来自「客户关系管理系统 DELPHI7下的」· DPR 代码 · 共 42 行

program CRM;

uses
  Forms,
  CRMMain_Unit in '..\Units\CRMMain_Unit.pas' {frmCRMMain},
  Employee_Unit in '..\Units\Employee_Unit.pas' {frmEmployee},
  BackWall_Unit in '..\Units\BackWall_Unit.pas' {frmBackWall},
  About_Unit in '..\Units\About_Unit.pas' {frmAbout},
  DM_Unit in '..\Units\DM_Unit.pas' {DM: TDataModule},
  UserLogin_Unit in '..\Units\UserLogin_Unit.pas' {frmUserLogin},
  UserPwdSetup_Unit in '..\Units\UserPwdSetup_Unit.pas' {frmUserPwdSetup},
  UserSetup_Unit in '..\Units\UserSetup_Unit.pas' {frmUserSetup},
  DBSetup_Unit in '..\Units\DBSetup_Unit.pas' {frmDBSetup},
  CustomerType_Unit in '..\Units\CustomerType_Unit.pas' {frmCustomerType},
  CustomerInfo_Unit in '..\Units\CustomerInfo_Unit.pas' {frmCustomerInfo},
  CustEmp_Unit in '..\Units\CustEmp_Unit.pas' {frmCustEmp},
  CompanyInfo_Unit in '..\Units\CompanyInfo_Unit.pas' {frmCompanyInfo},
  Department_Unit in '..\Units\Department_Unit.pas' {frmDepartment},
  Transaction_Unit in '..\Units\Transaction_Unit.pas' {frmTransaction},
  TransProduction_Unit in '..\Units\TransProduction_Unit.pas' {frmTransProduction},
  CustomerBooking_Unit in '..\Units\CustomerBooking_Unit.pas' {frmCustomerBooking},
  Production_Unit in '..\Units\Production_Unit.pas' {frmProduction},
  DataChoice_Unit in '..\Units\DataChoice_Unit.pas' {frmDataChoice},
  Eventlog_Unit1 in '..\Units\Eventlog_Unit1.pas' {frmEventlog};

{$R *.res}

//  frmSplash: TfrmSplash;
begin
  Application.Initialize;
{  frmSplash := TfrmSplash.Create(Application);
  frmSplash.Show;
  Application.ProcessMessages;
  frmSplash.Update;
  if Assigned(frmSplash) then
    frmSplash.Free;}
  Application.CreateForm(TfrmCRMMain, frmCRMMain);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TfrmBackWall, frmBackWall);
  Application.Run;
end.