dhgl.dpr

delphi开发的中国移动大客户管理系统,后台数据库为oracle

program dhgl;
uses
  Forms,
  Windows,
  SysUtils,
  IniFiles,
  main in 'main.pas' {FormMain},
  load in 'load.pas' {FormLoading},
  dmmain in 'dmmain.pas' {dm_main: TDataModule},
  crypt in 'crypt.pas',
  FunctionP in 'FunctionP.pas',
  ProcedureP in 'ProcedureP.pas',
  rygl in 'rygl.pas' {FormRygl},
  FormRegCityP in 'FormRegCityP.pas' {FormRegCity},
  Unit_Public in 'Unit_Public.pas',
  unit_ValidateCust in 'unit_ValidateCust.pas' {frm_ValidateCust},
  Unit_ManagerSMSSend in 'Unit_ManagerSMSSend.pas' {Frm_ManagerSMSSend},
  Unit_SelectInfoP in 'Unit_SelectInfoP.pas' {Frm_SelectInfo},
  Unit_ManagerDistribute in 'unit_ManagerDistribute.pas' {Frm_ManagerDistribute},
  Unit_custmakeup in 'Unit_custmakeup.pas',
  unit_operationuse_B in 'unit_operationuse_B.pas' {form_operationuse_B},
  Unit_AnalyzeTemplet in 'Unit_AnalyzeTemplet.pas' {Frm_AnalyzeTemplet},
  Unit_AnalyzeGroupComp in 'Unit_AnalyzeGroupComp.pas' {Frm_AnalyzeGroupComp},
  Unit_custbrowsebase_P in 'Unit_custbrowsebase_P.pas' {Form_custbrowsebase_P},
  Unit_custombrowsebase in 'Unit_custombrowsebase.pas' {form_custombrowsebase},
  Unit_SystemIssueInfo in 'Unit_SystemIssueInfo.pas' {Frm_SystemIssueInfo},
  Unit_SystemAffiche in 'Unit_SystemAffiche.pas' {Frm_SystemAffiche},
  Unit_ArchivesGroupInfo in 'Unit_ArchivesGroupInfo.pas' {Form_ArchivesGroupInfo},
  Unit_AnalyzeCustFancy in 'Unit_AnalyzeCustFancy.pas' {Frm_AnalyzeCustFancy},
  ThreadP in 'ThreadP.pas',
  Unit_CompMana in 'Unit_CompMana.pas' {Frm_CompMana},
  login in 'login.pas' {Formlogin},
  Unit_ServiceBarterCard in 'Unit_ServiceBarterCard.pas' {Frm_ServiceBarterCard},
  Unit_ServiceEconBuyCard in 'Unit_ServiceEconBuyCard.pas' {Frm_ServiceEconBuyCard},
  Unit_ManagerAdmination in 'Unit_ManagerAdmination.pas' {Frm_ManagerAdmination},
  Unit_AnalyzeOpertion in 'Unit_AnalyzeOpertion.pas' {Frm_AnalyzeOpertion},
  Unit_SetupFeast in 'Unit_SetupFeast.pas',
  Unit_Config in 'Unit_Config.pas' {Frm_Config},
  Unit_SetupCalling in 'Unit_SetupCalling.pas' {Frm_SetupCalling},
  Unit_SetupDiploma in 'Unit_SetupDiploma.pas' {Frm_SetupDiploma},
  Unit_SetupAppeal in 'Unit_SetupAppeal.pas' {Frm_SetupAppeal},
  Unit_SetupSMS in 'Unit_SetupSMS.pas' {Frm_SetupSMS},
  Unit_Setupservtype in 'Unit_Setupservtype.pas' {Frm_Setupservtype},
  Unit_SetupGrade in 'Unit_SetupGrade.pas' {Frm_SetupGrade},
  Unit_SetupPara in 'Unit_SetupPara.pas' {Frm_SetupPara},
  Unit_UserLog in 'Unit_UserLog.pas' {Frm_SetupUserLog},
  Unit_UserLog_Rp in 'Unit_UserLog_Rp.pas' {QuickReportczrz: TQuickRep},
  Unit_Setupservquality in 'Unit_Setupservquality.pas' {Frm_Setupservquality},
  Unit_Setupservmode in 'Unit_Setupservmode.pas' {Frm_Setupservmode},
  Unit_about in 'Unit_about.pas' {Frm_About},
  unit_ArchivesCustInfo in 'unit_ArchivesCustInfo.pas' {Frm_ArchivesCustInfo},
  selectviplx in 'selectviplx.pas' {FormSELECTJT},
  Unit_AnalyzeIntegral in 'Unit_AnalyzeIntegral.pas' {Frm_AnalyzeIntegral},
  Unit_Serverlog in 'Unit_Serverlog.pas' {Frm_ServerLog},
  Unit_CustIndiServ in 'Unit_CustIndiServ.pas' {Frm_CustIndiServ},
  Unit_SystemWake in 'Unit_SystemWake.pas' {Frm_SystemWake},
  Unit_ManagerAchives in 'Unit_ManagerAchives.pas' {Frm_ManagerAchives},
  Unit_GroupIndiServ in 'Unit_GroupIndiServ.pas' {Frm_GroupIndiServ},
  Unit_ServiceAppeal in 'Unit_ServiceAppeal.pas' {FRM_ServiceAppeal},
  Unit_AnalyzeAppeal in 'Unit_AnalyzeAppeal.pas' {Frm_AnalyzeAppeal},
  Unit_AnalyzeGradeStru in 'Unit_AnalyzeGradeStru.pas' {Frm_AnalyzeGradeStru},
  Lunar in 'lunar.pas',
  Unit_HelpVersionUpdate in 'Unit_HelpVersionUpdate.pas' {FRM_HelpVersionUpdate},
  RgtRoleFunction in 'Rgt\RgtRoleFunction.pas' {RgtFrmRoleFunction},
  unit_custstatusbackWrite in 'unit_custstatusbackWrite.pas' {frm_custstatusbackwrite},
  Unit_Setupinditop in 'Unit_Setupinditop.pas' {Frm_Setupinditop},
  Unit_Setupindititle in 'Unit_Setupindititle.pas' {Frm_SetupIntitle},
  Unit_CA_consumestru in 'Unit_CA_consumestru.pas' {FRM_CA_consumestru},
  Unit_CA_consumeaction in 'Unit_CA_consumeaction.pas' {frm_CA_consumeaction},
  Unit_ManagerOperate in 'Unit_ManagerOperate.pas' {FRM_ManagerOperate},
  Unit_setupservicetopic in 'Unit_setupservicetopic.pas' {Frm_SetupservTopic},
  PrintFrmForm in 'PrintFrmForm.PAS' {PrintForm},
  OLE2 in 'ole2.pas',
  unit_SendInfo in 'unit_SendInfo.pas' {Frm_SendInfo},
  Unit_QueryStru in 'Unit_QueryStru.pas' {FRM_QueryStru},
  Unit_QueryReckoning in 'Unit_QueryReckoning.pas' {frm_QueryReckoning},
  unit_QueryArrearage in 'unit_QueryArrearage.pas' {frm_QueryArrearage},
  unit_QueryCustHistory in 'unit_QueryCustHistory.pas' {frm_QueryCustHistory},
  unit_queryindiservice in 'unit_queryindiservice.pas' {frm_queryindiservice},
  Unit_QueryCapture in 'Unit_QueryCapture.pas' {FRM_QueryCapture},
  Unit_QueryOperationUse in 'Unit_QueryOperationUse.pas' {FRM_QueryOperationUse},
  unit_QueryIntegral in 'unit_QueryIntegral.pas' {FRM_QueryIntegral},
  unit_QueryBirthday in 'unit_QueryBirthday.pas' {frm_QueryBirthday},
  Unit_QueryAppeal in 'Unit_QueryAppeal.pas' {frm_QueryAppeal},
  Unit_QueryGradeOrder in 'Unit_QueryGradeOrder.pas' {Frm_QueryGradeOrder},
  Unit_QueryReckoningM in 'Unit_QueryReckoningM.pas' {Frm_QueryReckoningM},
  Unit_QueryACTFEE in 'Unit_QueryACTFEE.pas' {Frm_QueryACTFEE},
  Sort in 'Sort.pas' {TSortFrm},
  OtherQuery in 'OtherQuery.pas' {OtherQueryFrm},
  OtherSort in 'OtherSort.pas' {OtherSortFrm},
  query in 'query.pas' {QueryFrm},
  Unit_ImportData in 'Unit_ImportData.pas' {Frm_ImportData},
  backup in 'xtgl\backup.pas' {BackFrm},
  DbBackcp in 'xtgl\DbBackcp.pas' {DbBackupFrm},
  DbRestore in 'xtgl\DbRestore.pas' {DbRestoreFrm},
  restore in 'xtgl\restore.pas' {RestoreFrm},
  SelectDir in 'xtgl\SelectDir.pas' {SelectDirFrm},
  sysbackup in 'xtgl\sysbackup.pas' {SysBackFrm},
  sysrestore in 'xtgl\sysrestore.pas' {SysRestoreFrm},
  xt_bffa_frm_print in 'xtgl\xt_bffa_frm_print.pas' {xt_bffa_print},
  xt_bffa_frm_main in 'xtgl\xt_bffa_frm_main.pas' {xt_bffa_main},
  xt_bffa_frm_Add in 'xtgl\xt_bffa_frm_Add.pas' {xt_bffa_Add},
  xt_sjbf_frm_main in 'xtgl\xt_sjbf_frm_main.pas' {xt_sjbf_main},
  xt_sjhf_frm_main in 'xtgl\xt_sjhf_frm_main.pas' {xt_sjhf_main},
  RgtSelectUnitFunctionSelect in 'Rgt\RgtSelectUnitFunctionSelect.pas' {RgtSelectFormFunctionSelect},
  RgtFunctionMaintainFrmMain in 'Rgt\RgtFunctionMaintainFrmMain.pas' {RgtFunctionMaintainMain},
  Unit_SetupPurManager in 'Unit_SetupPurManager.pas' {Frm_SetupPurManager},
  RgtSelectFormCtrlFrmSelect in 'Rgt\RgtSelectFormCtrlFrmSelect.pas' {RgtSelectFormCtrlSelect},
  RgtRole in 'Rgt\RgtRole.pas' {RgtFrmRole},
  RgtCommon in 'Rgt\RgtCommon.pas';

{$R *.RES}
const
  AppMutex = 'Fmcc_VipSystem V3.0';
  //注意:在每次升级的时候需要修改这个地方的系统唯一进程。
  //  并且也要修改后台数据库的版本号
  //   2002 08 24 modify by zengzc 
var
  ConfigIni : TIniFile;
  AppVersion : String;
  mutex: THandle;

begin
   //加入系统的唯一进程管理
   mutex := OpenMutex(MUTEX_ALL_ACCESS,false,PChar(AppMutex));
   if mutex = 0 then
     mutex := CreateMutex(nil,true,PChar(AppMutex))
   else
    begin
      Application.MessageBox('VIP大客户管理系统已启动!','提示',MB_OK);
      Exit;
    end;

   ConfigIni := TInifile.Create(ExtractFilePath(application.exename) + '/Config.ini');
   try
      PS_CityNo := ConfigIni.ReadString('cityno', 'cityno', '');
      PS_ConnStr := ConfigIni.ReadString('connect string', 'server name', '');
   finally
      ConfigIni.Free;
   end;
   PS_CityNo:=Copy(PS_CityNo,1,3);
   if (PS_CityNo = '') or (PS_ConnStr = '') or (length(PS_CityNo) > 5) then
      begin
         Application.MessageBox('请先配置正确的系统配置文件(config.ini)', '系统提示', MB_OK + MB_ICONINFORMATION);
         Exit;
      end;

   Application.Title := '移动通信VIP管理系统';
   Application.Initialize;
   Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(Tdm_main, dm_main);
  Application.CreateForm(TFormLoading, FormLoading);
  Try
      begin
         DM_Main.Databasedh.Connected := false;
         DM_Main.Databasedh.Params.Clear;
         DM_Main.Databasedh.Params.Add('SERVER NAME='+ PS_ConnStr);
         DM_Main.Databasedh.Params.Add('USER NAME=vipconn');  //用户名和密码固定不变
         DM_Main.Databasedh.Params.Add('PASSWORD=vipconn');
         DM_Main.Databasedh.Connected := True;
      End;
   Except
      Application.MessageBox(Pchar('登录到服务器失败!'), '系统提示', MB_OK+MB_ICONERROR);
      Exit;
   End;

   dm_main.Txtpzb.Open;

   AppVersion := DM_Main.Txtpzb.FieldByName('version').AsString;
   if AppVersion <> 'V3.01' then
    begin
      Application.CreateForm(TFRM_HelpVersionUpdate,FRM_HelpVersionUpdate);
      FRM_HelpVersionUpdate.ShowModal;
    end;
  Application.Run;
  ReleaseMutex(mutex);

end.