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

procedure TFormMain.QueryStruClick(Sender: TObject);
begin
  //大客戶構(gòu)成查詢
  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
  //個人客戶構(gòu)成分析
  Pro_OpenForm(TFrm_AnalyzeCustComp, Frm_AnalyzeCustComp, self);
end;

procedure TFormMain.AnalyzeGroupCompClick(Sender: TObject);
begin
  //集團客戶構(gòu)成分析
  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
  //大客戶業(yè)務(wù)使用查詢
  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
  //大客戶服務(wù)查詢
  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
  //大客戶業(yè)務(wù)受理查詢
  //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
  //大客戶未享受服務(wù)查詢
  //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
  //系統(tǒng)參數(shù)設(shè)置
  Pro_OpenForm(TFrm_SetupUserLog, Frm_SetupUserLog, self);
end;

procedure TFormMain.SetupservqualityClick(Sender: TObject);
begin
  //服務(wù)方式設(shè)置
  Pro_OpenForm(TFrm_Setupservquality, Frm_Setupservquality, self);
end;

procedure TFormMain.SetupservtypeClick(Sender: TObject);
begin
  //服務(wù)方式設(shè)置
  Pro_OpenForm(TFrm_Setupservtype, Frm_Setupservtype, self);
end;

procedure TFormMain.SetupservmodeClick(Sender: TObject);
begin
  //服務(wù)方式設(shè)置
  Pro_OpenForm(TFrm_Setupservmode, Frm_Setupservmode, self);
end;

procedure TFormMain.HelpAboutClick(Sender: TObject);
begin
  //服務(wù)方式設(shè)置
  Pro_OpenForm(TFrm_About, Frm_About, self);
end;
procedure TFormMain.AnalyzeIntegralClick(Sender: TObject);
begin
  //大客戶積分推廣統(tǒng)計
  Pro_OpenForm(TFRM_AnalyzeIntegral, FRM_AnalyzeIntegral, self);
end;

procedure TFormMain.ManagerLogClick(Sender: TObject);
begin
  //客戶經(jīng)理服務(wù)日志
  Pro_OpenForm(TFrm_ServerLog, Frm_ServerLog, self);
end;

procedure TFormMain.ServiceCustClick(Sender: TObject);
begin
  //個人客戶個性化服務(wù)
  Pro_OpenForm(TFrm_CustIndiServ, Frm_CustIndiServ, self);
end;

procedure TFormMain.ManagerAchivesClick(Sender: TObject);
begin
  //大客戶經(jīng)理檔案管理
  Pro_OpenForm(TFrm_ManagerAchives, Frm_ManagerAchives, self);
end;

procedure TFormMain.ServiceGroupClick(Sender: TObject);
begin
  //集團個性化服務(wù)
  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
  //帳單增減量統(tǒng)計
  Pro_OpenForm(TFrm_QueryReckoningM, Frm_QueryReckoningM, self);
end;

procedure TFormMain.AnalyzeAppealClick(Sender: TObject);
begin
  //投訴統(tǒng)計
  Pro_OpenForm(TFrm_AnalyzeAppeal, Frm_AnalyzeAppeal, self);
end;

procedure TFormMain.AnalyzeGradeStruClick(Sender: TObject);
begin
  //星級變動結(jié)構(gòu)
  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
   //級別權(quán)限設(shè)置
   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
   //大客戶業(yè)務(wù)處理
   Pro_OpenForm(TFRM_ManagerOperate, FRM_ManagerOperate, self);
end;

procedure TFormMain.setupservicetopicClick(Sender: TObject);
begin
   //大客戶業(yè)務(wù)處理
   Pro_OpenForm(TFrm_SetupservTopic, Frm_SetupservTopic, self);
end;

procedure TFormMain.QueryACTFEEClick(Sender: TObject);
begin
   //大客戶業(yè)務(wù)處理
   Pro_OpenForm(TFrm_QueryACTFEE, Frm_QueryACTFEE, self);
end;

procedure TFormMain.N3Click(Sender: TObject);
begin
  //信息發(fā)布
  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.