main.pas

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

  //大客户分配管理
  Pro_OpenForm(TFrm_ManagerDistribute, Frm_ManagerDistribute, self);
end;

procedure TFormMain.QueryStruClick(Sender: TObject);
begin
  //大客户构成查询
  Pro_OpenForm(TFRM_QueryStru, FRM_QueryStru, self);
end;

procedure TFormMain.ArchivesCustInfoClick(Sender: TObject);
begin
  //个人客户档案
  Pro_OpenForm(TFrm_ArchivesCustInfo, Frm_ArchivesCustInfo, self);
end;

procedure TFormMain.AnalyzeCustCompClick(Sender: TObject);
begin
  //个人客户构成分析
  Pro_OpenForm(TFrm_AnalyzeCustComp, Frm_AnalyzeCustComp, self);
end;

procedure TFormMain.AnalyzeGroupCompClick(Sender: TObject);
begin
  //集团客户构成分析
  Pro_OpenForm(TFrm_AnalyzeGroupComp, Frm_AnalyzeGroupComp, self);
end;
procedure TFormMain.QueryReckoningClick(Sender: TObject);
begin
  //大客户话费查询
  Pro_OpenForm(TFRM_QueryReckoning, FRM_QueryReckoning, self);
end;

procedure TFormMain.QueryCaptureClick(Sender: TObject);
begin
  //大客户缴费销账查询
  Pro_OpenForm(TFRM_QueryCapture, FRM_QueryCapture, self);
end;

procedure TFormMain.QueryOperationUseClick(Sender: TObject);
begin
  //大客户业务使用查询
  Pro_OpenForm(TFRM_QueryOperationUse, FRM_QueryOperationUse, self);
end;

procedure TFormMain.QueryArrearageClick(Sender: TObject);
begin
  //大客户欠费信息查询
  Pro_OpenForm(TFRM_QueryArrearage, FRM_QueryArrearage, self);
end;

procedure TFormMain.QueryCustHistoryClick(Sender: TObject);
begin
  //大客户历史资料查询
  Pro_OpenForm(TFRM_QueryCustHistory, FRM_QueryCustHistory, self);
end;

procedure TFormMain.QueryEnjoyServiceClick(Sender: TObject);
begin
  //大客户服务查询
  Pro_OpenForm(TFRM_QueryindiService, FRM_QueryindiService, self);
end;

procedure TFormMain.QueryIntegralClick(Sender: TObject);
begin
  //大客户积分查询
  Pro_OpenForm(TFRM_QueryIntegral, FRM_QueryIntegral, self);
end;

procedure TFormMain.QueryBirthdayClick(Sender: TObject);
begin
  //大客户积分查询
  Pro_OpenForm(TFRM_QueryBirthday, FRM_QueryBirthday, self);
end;

procedure TFormMain.QueryAppealClick(Sender: TObject);
begin
  //大客户投诉查询
  Pro_OpenForm(TFRM_QueryAppeal, FRM_QueryAppeal, self);
end;

procedure TFormMain.QureyOperationClick(Sender: TObject);
begin
  //大客户业务受理查询
  //Pro_OpenForm(TFRM_QueryCapture, FRM_QueryCapture, self);
end;

procedure TFormMain.QueryParticularClick(Sender: TObject);
begin
  //大客户通话清单查询
  //Pro_OpenForm(TFRM_QueryOperationUse, FRM_QueryOperationUse, self);
end;

procedure TFormMain.QueryNoEnjoyServiceClick(Sender: TObject);
begin
  //大客户未享受服务查询
  //Pro_OpenForm(TFRM_QueryindiService, FRM_QueryindiService, self);
end;

procedure TFormMain.QueryInterestClick(Sender: TObject);
begin
  //大客户兴趣喜好查询
  //Pro_OpenForm(TFRM_QueryindiService, FRM_QueryindiService, self);
end;

procedure TFormMain.QueryReplaceGatheringClick(Sender: TObject);
begin
  //大客户托收查询
  //Pro_OpenForm(TFRM_QueryIntegral, FRM_QueryIntegral, self);
end;

procedure TFormMain.QueryAccountBalanceClick(Sender: TObject);
begin
  //客户账户余额查询
  //Pro_OpenForm(TFRM_QueryIntegral, FRM_QueryIntegral, self);
end;

procedure TFormMain.ArchivesGroupInfoClick(Sender: TObject);
begin
  Pro_OpenForm(TForm_ArchivesGroupInfo,Form_ArchivesGroupInfo ,self);
end;

procedure TFormMain.AnalyzeFancyClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_AnalyzeCustFancy, Frm_AnalyzeCustFancy, self);
end;

procedure TFormMain.ArchivesCompeteClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_CompMana, Frm_CompMana, self);
end;

procedure TFormMain.ServiceBarterCardClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_ServiceBarterCard,Frm_ServiceBarterCard, self);
end;

procedure TFormMain.ServiceEconBuyCardClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_ServiceEconBuyCard, Frm_ServiceEconBuyCard, self);
end;

procedure TFormMain.AnalyzeOpertionClick(Sender: TObject);
begin
  //
  Pro_OpenForm(TFrm_AnalyzeOpertion, Frm_AnalyzeOpertion, self);
end;

procedure TFormMain.ManagerAdminationClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_ManagerAdmination, Frm_ManagerAdmination, self);
end;

procedure TFormMain.SetupFeastClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_SetupFeast,Frm_SetupFeast, self);
end;

procedure TFormMain.SetupCallingClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_SetupCalling, Frm_SetupCalling, self);
end;

procedure TFormMain.SetupDiplomaClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_SetupDiploma, Frm_SetupDiploma, self);
end;

procedure TFormMain.SetupAppealClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_SetupAppeal, Frm_SetupAppeal, self);
end;

procedure TFormMain.SetupSMSClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_SetupSMS, Frm_SetupSMS, self);
end;

procedure TFormMain.SetupAccessingClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_Setupservtype, Frm_Setupservtype, self);
end;

procedure TFormMain.SetupGradeClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_SetupGrade, Frm_SetupGrade, self);
end;

procedure TFormMain.SetupParaClick(Sender: TObject);
begin
  Pro_OpenForm(TFrm_SetupPara, Frm_SetupPara, self);
end;

procedure TFormMain.SetupUserLogClick(Sender: TObject);
begin
  //系统参数设置
  Pro_OpenForm(TFrm_SetupUserLog, Frm_SetupUserLog, self);
end;

procedure TFormMain.SetupservqualityClick(Sender: TObject);
begin
  //服务方式设置
  Pro_OpenForm(TFrm_Setupservquality, Frm_Setupservquality, self);
end;

procedure TFormMain.SetupservtypeClick(Sender: TObject);
begin
  //服务方式设置
  Pro_OpenForm(TFrm_Setupservtype, Frm_Setupservtype, self);
end;

procedure TFormMain.SetupservmodeClick(Sender: TObject);
begin
  //服务方式设置
  Pro_OpenForm(TFrm_Setupservmode, Frm_Setupservmode, self);
end;

procedure TFormMain.HelpAboutClick(Sender: TObject);
begin
  //服务方式设置
  Pro_OpenForm(TFrm_About, Frm_About, self);
end;
procedure TFormMain.AnalyzeIntegralClick(Sender: TObject);
begin
  //大客户积分推广统计
  Pro_OpenForm(TFRM_AnalyzeIntegral, FRM_AnalyzeIntegral, self);
end;

procedure TFormMain.ManagerLogClick(Sender: TObject);
begin
  //客户经理服务日志
  Pro_OpenForm(TFrm_ServerLog, Frm_ServerLog, self);
end;

procedure TFormMain.ServiceCustClick(Sender: TObject);
begin
  //个人客户个性化服务
  Pro_OpenForm(TFrm_CustIndiServ, Frm_CustIndiServ, self);
end;

procedure TFormMain.ManagerAchivesClick(Sender: TObject);
begin
  //大客户经理档案管理
  Pro_OpenForm(TFrm_ManagerAchives, Frm_ManagerAchives, self);
end;

procedure TFormMain.ServiceGroupClick(Sender: TObject);
begin
  //集团个性化服务
  Pro_OpenForm(TFrm_GroupIndiServ, Frm_GroupIndiServ, self);
end;

procedure TFormMain.QueryGradeOrderClick(Sender: TObject);
begin
  //星级消费排名
  Pro_OpenForm(TFrm_QueryGradeOrder, Frm_QueryGradeOrder, self)
end;

procedure TFormMain.ServiceAppealClick(Sender: TObject);
begin
  //投诉
  Pro_OpenForm(TFrm_ServiceAppeal, Frm_ServiceAppeal, self);
end;

procedure TFormMain.QueryReckoningMClick(Sender: TObject);
begin
  //帐单增减量统计
  Pro_OpenForm(TFrm_QueryReckoningM, Frm_QueryReckoningM, self);
end;

procedure TFormMain.AnalyzeAppealClick(Sender: TObject);
begin
  //投诉统计
  Pro_OpenForm(TFrm_AnalyzeAppeal, Frm_AnalyzeAppeal, self);
end;

procedure TFormMain.AnalyzeGradeStruClick(Sender: TObject);
begin
  //星级变动结构
  Pro_OpenForm(TFrm_AnalyzeGradeStru, Frm_AnalyzeGradeStru, self);
end;

procedure TFormMain.Windows_AutoArrClick(Sender: TObject);
begin
  //自动排列窗体
  ArrangeIcons;
//   APPLICATION.CreateForm(TForm1,Form1);
//   Form1.ShowModal;
end;

procedure TFormMain.Windows_MinAllClick(Sender: TObject);
  //全部最小化
var
  i : integer;
begin
  for i := FormMain.MDIChildCount-1 downto 0 do
  begin
    FormMain.MDIChildren[i].WindowState := wsMinimized;
  end;
end;

procedure TFormMain.Windows_MaxAllClick(Sender: TObject);
begin
  //最大化左右的窗口，由于最大化一个窗口就可以是全部的窗口最大化，
  //所以只有最大化第一个窗口
  if FormMain.MDIChildCount>0 then
    FormMain.MDIChildren[0].WindowState := wsMaximized;
end;

procedure TFormMain.Windows_CloseAllClick(Sender: TObject);
var
  i:integer;
begin
  for i := FormMain.MDIChildCount-1 downto 0 do
  begin
    FormMain.MDIChildren[i].Close;
  end;
end;

procedure TFormMain.Windows_RestoreAllClick(Sender: TObject);
var
  i : integer;
begin
  for i := FormMain.MDIChildCount-1 downto 0 do
  begin
    FormMain.MDIChildren[i].WindowState := wsNormal ;
  end;
end;

procedure TFormMain.HelpVersionUpdateClick(Sender: TObject);
begin
   //版本更新说明
//  Pro_OpenForm(TFRM_HelpVersionUpdate, FRM_HelpVersionUpdate, self);
   Application.CreateForm(TFRM_HelpVersionUpdate, FRM_HelpVersionUpdate);
   FRM_HelpVersionUpdate.ShowModal;
end;

procedure TFormMain.SetupPurManagerClick(Sender: TObject);
begin
   //级别权限设置
   Pro_OpenForm(TFrm_SetupPurManager, Frm_SetupPurManager, self);
end;

procedure TFormMain.SetupinditopClick(Sender: TObject);
begin
   //大客户喜好项目
   Pro_OpenForm(TFrm_Setupinditop, Frm_Setupinditop, self);
end;

procedure TFormMain.SetupindititleClick(Sender: TObject);
begin
   //大客户喜好项
   Pro_OpenForm(TFrm_SetupIndititle, Frm_SetupIndititle, self);

end;

procedure TFormMain.ManagerOperateClick(Sender: TObject);
begin
   //大客户业务处理
   Pro_OpenForm(TFRM_ManagerOperate, FRM_ManagerOperate, self);
end;

procedure TFormMain.setupservicetopicClick(Sender: TObject);
begin
   //大客户业务处理
   Pro_OpenForm(TFrm_SetupservTopic, Frm_SetupservTopic, self);
end;

procedure TFormMain.QueryACTFEEClick(Sender: TObject);
begin
   //大客户业务处理
   Pro_OpenForm(TFrm_QueryACTFEE, Frm_QueryACTFEE, self);
end;

procedure TFormMain.N3Click(Sender: TObject);
begin
  //信息发布
  Pro_OpenForm(TFrm_ImportData, Frm_ImportData, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  //
  CloseHandle(ZqsMutex);
end;

procedure TFormMain.N5Click(Sender: TObject);
begin
  Pro_OpenForm(Txt_bffa_main, xt_bffa_main, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

procedure TFormMain.N6Click(Sender: TObject);
begin
  Pro_OpenForm(Txt_sjbf_main, xt_sjbf_main, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

procedure TFormMain.N7Click(Sender: TObject);
begin
  Pro_OpenForm(Txt_sjhf_main, xt_sjhf_main, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

procedure TFormMain.N8Click(Sender: TObject);
begin
  Pro_OpenForm(TRgtFunctionMaintainMain, RgtFunctionMaintainMain, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

procedure TFormMain.N9Click(Sender: TObject);
begin
  Pro_OpenForm(TRgtFrmRole, RgtFrmRole, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

procedure TFormMain.N10Click(Sender: TObject);
begin
  Pro_OpenForm(TRgtFrmRoleFunction,RgtFrmRoleFunction, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

end.