pmis.~dpr

一个电力企业的后台管理程序

program pmis;

uses
  Forms,
  main in 'Main.pas' {MainForm},
  EcscMain in 'EcscMain.pas' {Form_Main},
  PostMailFrm in 'PostMailFrm.pas' {Form_PostMail},
  AutoMenuFrm in 'AutoMenuFrm.pas' {Form_AutoMenu},
  ToolOptionsFrm in 'ToolOptionsFrm.pas' {Form_ToolOptions},
  ToolPropertyFrm in 'ToolPropertyFrm.pas' {Form_ToolProperty},
  MemuOption in 'MemuOption.pas',
  SystemDM in '数据库模块\SystemDM.pas' {SysDM: TDataModule},
  SystemPH in '公用单元模块\SystemPH.pas',
  systemLogoFaceFM in '公用窗体模块\systemLogoFaceFM.pas' {frm_LogoFace},
  systemLoginFM in '公用窗体模块\systemLoginFM.pas' {frm_Login},
  systemModipwdFM in '公用窗体模块\systemModipwdFM.pas' {frm_ModiPwd},
  sysconfigfrm in '基本设置\sysconfigfrm.pas' {Frm_SysConfig},
  RoleSet in '基本设置\RoleSet.pas' {Form_RoleSet},
  DepartmentFrm in '基本设置\DepartmentFrm.pas' {Form_Department},
  ManagData in '数据库模块\ManagData.pas' {ManagDM: TDataModule},
  pubBillFM in '基本设置\基窗体\pubBillFM.pas' {frm_pubBill},
  LoginManagerFM in '基本设置\LoginManagerFM.pas' {frm_LoginManager},
  phonemanageFRM in '基本设置\phonemanageFRM.pas' {frm_phonemanage},
  pashostconfig in '数据维护\pashostconfig.pas' {Frm_hostconfig},
  pashostconfigdm in '数据维护\pashostconfigdm.pas' {DM_hostconfig: TDataModule},
  IvrPathFrm in '数据维护\IvrPathFrm.pas' {Frm_IvrPath},
  CounselingFrm in '数据维护\CounselingFrm.pas' {Form_Counsetling},
  HtmlFrm in '数据维护\调用咨询模块\HtmlFrm.pas' {Form_Html},
  RichEdit1Frm in '数据维护\调用咨询模块\RichEdit1Frm.pas' {Form_RichEdit1},
  RichEditFrm in '数据维护\调用咨询模块\RichEditFrm.pas' {Form_RichEdit},
  Condef in '数据维护\调用咨询模块\Condef.pas',
  InfoSeleFileFrm in '数据维护\InfoSeleFileFrm.pas' {Form_InfoSeleFile},
  ExcelFrm in '数据维护\调用咨询模块\ExcelFrm.pas' {Form_Excel},
  RecordBatchDelFrm in '数据维护\RecordBatchDelFrm.pas' {Form_BatchDel},
  WorkStateTJDM in '统计报表\WorkStateTJDM.pas' {DM_WorkStateTJ: TDataModule},
  WorkStateTJFrm in '统计报表\WorkStateTJFrm.pas' {Form_WorkStateTJ},
  DealStateTJDM in '统计报表\DealStateTJDM.pas' {DM_DealStateTJ: TDataModule},
  DealStateTJFrm in '统计报表\DealStateTJFrm.pas' {Form_DealStateTJ},
  TreandTJDM in '统计报表\TreandTJDM.pas' {DM_TrendTJ: TDataModule},
  TrendTJFrm in '统计报表\TrendTJFrm.pas' {Form_TrendTJ},
  MyPreviewFrm in '统计报表\MyPreviewFrm.pas' {MyPreview},
  prgramstaticFrm in '统计报表\prgramstaticFrm.pas' {Form_prgramstatic},
  prgramstaticFrm0 in '统计报表\prgramstaticFrm0.pas' {Form_prgramstatic0},
  TrRepFrm in '统计报表\TrRepFrm.pas' {Form_TrRep},
  TrRepFrm0 in '统计报表\TrRepFrm0.pas' {Form_TrRep0},
  DMStatic in '统计报表\DMStatic.pas' {DM_Static: TDataModule},
  phonelineinfofm in '数据维护\phoneline\phonelineinfofm.pas' {fm_phonelineinfo},
  phonelinefm in '数据维护\phoneline\phonelinefm.pas' {fm_PhoneLine},
  U_AddData in 'GWBJ\U_AddData.pas' {Frm_EditData},
  U_EditLst in 'GWBJ\U_EditLst.pas' {Frm_EditLst},
  U_Gwbj in 'GWBJ\U_Gwbj.pas' {Frm_Gwsz},
  U_SySet in 'U_SySet.pas' {Frm_SySet},
  ClientAskRep in 'ClientAskRep.pas' {Frm_Base},
  CommonFunc in 'CommonFunc.pas',
  GzRepFrm in 'GzRepFrm.pas' {Frm_GzRep},
  PreviewForm in 'PreviewForm.pas' {frmPreviewForm},
  pubReport in 'pubReport.pas',
  rbReport_Interface in 'rbReport_Interface.pas',
  UserCompRepFrm in 'UserCompRepFrm.pas' {Frm_ClientComp},
  ClientAskRepFrm in 'ClientAskRepFrm.pas' {Frm_ClientAsk},
  AgentCountFrm in 'AgentCountFrm.pas' {Frm_AgentCount},
  ZhRepFrm in 'ZhRepFrm.pas' {Frm_ZhRep},
  RepWork in 'RepWork.pas' {Frm_AgentWork},
  CallRecordForm in 'CallRecordForm.pas' {Frm_CallRep},
  Form_WorkSel in 'Form_WorkSel.pas' {Frm_WorkSel},
  AskInfoForm in 'AskInfoForm.pas' {Frm_AskInfo},
  BusiCount in 'BusiCount.pas' {Frm_BusiCount},
  RepClass in 'RepClass.pas',
  SubRepClass in 'SubRepClass.pas',
  CoutAllYwForm in 'CoutAllYwForm.pas' {Frm_AllBusi},
  AgentStateFrm in 'AgentStateFrm.pas' {Form_AgetState},
  DTS_Cls in 'DTS_Cls.pas',
  Frm_Dst in 'Frm_Dst.pas' {Form_Dts},
  Frm_ConditionSet in 'Frm_ConditionSet.pas' {Form_CondSet},
  Frm_CutUser_Static in '统计报表\Frm_CutUser_Static.pas' {Form_CutUser_Static},
  DepartmentWorFrm in 'DepartmentWorFrm.pas' {Form_DepartmentWork},
  Frm_ClientElecAsk in 'Frm_ClientElecAsk.pas' {Form_ClientElecAsk},
  Frm_NormalStatic in 'Frm_NormalStatic.pas' {Form_NormalStatic};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '电力客服数据管理系统';
  try
    if not SystemInit then exit;
    LoadLogo;
    SetLogo(10);
    Application.CreateForm(TSysDM, SysDM);
  Application.CreateForm(TManagDM, ManagDM);
  Application.CreateForm(TDM_hostconfig, DM_hostconfig);
  Application.CreateForm(TDM_WorkStateTJ, DM_WorkStateTJ);
  Application.CreateForm(TDM_DealStateTJ, DM_DealStateTJ);
  Application.CreateForm(TDM_TrendTJ, DM_TrendTJ);
  Application.CreateForm(TDM_Static, DM_Static);
  SetLogo(50);
    if not sysDM.ConnectFlag then
    begin
      Application.MessageBox('连接数据库失败，请检查数据库配置！','提示',0);
      application.Terminate;
    end;
    if not sysDM.CallLogin then exit;                   SetLogo(60);
    Application.CreateForm(TForm_Main, Form_Main);
    SetLogo(80);
    FreeLogo;
    Application.Run;
  except
    Application.MessageBox('连接数据库失败，请检查网络设置和数据库配置！','提示',0);
    application.Terminate;
  end;
end.