unit_serviceappeal.pas

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

   If pcAppeal.ActivePageIndex=1 Then
      Begin
         If QueryReg.IsEmpty Then
            Begin
               Application.MessageBox('请选择投诉信息！','提示',MB_ICONINFORMATION);
               Exit;
            End;

         Fun_ComponentStatus(Self,0,True,Panel_AppDispose);
         DbGrid2.Enabled:=False;
         DbGrid3.Enabled:=False;
         dtpEDCL_DEALTIME.DateTime:=Date;
         meEDCL_DEALCONTENT.Text:='';
         meEDCL_CUSTOPIN.Text:='';

         edEDCL_Wk_No.Text:=GH;
         coEDCL_QUALITYCODE.ItemIndex:=1;
         meEDCL_DEALCONTENT.SetFocus;
      End;

   iSign:=1;
   Fun_ButtonStatus(Self,True);
   Panel_browse.Enabled:=False;

end;

procedure TFrm_ServiceAppeal.Btn_DeleteClick(Sender: TObject);
Var
   SQL:String;
begin
   If Not QueryCustInfo.Active Then
      Begin
         Application.MessageBox('请选择客户！','提示',MB_ICONINFORMATION);
         Exit;
      End;

   If pcAppeal.ActivePageIndex=0 Then
      Begin
         If QueryReg.IsEmpty Then
            Begin
               Application.MessageBox('请选择将要删除的投诉信息！','提示',MB_ICONINFORMATION);
               Exit;
            End;

         If Application.MessageBox('确定删除当前客户投诉信息？','提示',MB_ICONINFORMATION+MB_YESNO)=IDYES Then
            Begin
               SQL:='Delete From T_F_appeal Where APP_ID='+QueryReg.FieldByName('App_ID').AsString;
               AnalyzeSQL(SQL);
               QueryReg.Close;
               QueryReg.Open;
               ShowRecord(QueryReg,Panel_appRegister);
            End;
      End;
   If pcAppeal.ActivePageIndex=1 Then
      Begin
         If QueryOper.IsEmpty Then
            Begin
               Application.MessageBox('请选择将要删除的反馈信息！','提示',MB_ICONINFORMATION);
               Exit;
            End;

         If Application.MessageBox('确定删除当前客户投诉反馈信息？','提示',MB_ICONINFORMATION+MB_YESNO)=IDYES Then
            Begin
               SQL:='Delete From T_F_appealDeal Where DEAL_ID='+QueryOper.FieldByName('DEAL_ID').AsString;
               AnalyzeSQL(SQL);
               QueryOper.Close;
               QueryOper.Open;
               ShowRecord(QueryOper,Panel_AppDispose);
               If QueryOper.RecordCount=0 Then
                  Begin
                     SQL:='Update T_F_appeal Set REPMARK=0 Where APP_ID='+QueryReg.FieldByName('APP_ID').AsString;
                     AnalyzeSQL(SQL);
                  End;
            End;
      End;
end;

procedure TFrm_ServiceAppeal.Btn_SaveClick(Sender: TObject);
Var
   SQL:String;
   DateString01:String;
   DateString02:String;
   ID:Integer;
begin

   If pcAppeal.ActivePageIndex=0 Then
      Begin

         If coED_AppLevel.ItemIndex<=0 Then
            Begin
               Application.MessageBox('请选择投诉级别！','提示',MB_ICONINFORMATION);
               coED_AppLevel.SetFocus;
               Exit;
            End;

         If COED_Subject_No.ItemIndex<=0 Then
            Begin
               Application.MessageBox('请选择投诉类型！','提示',MB_ICONINFORMATION);
               COED_Subject_No.SetFocus;
               Exit;
            End;


         If dtpED_AppTime.Checked Then
            DateString01:='To_Date('''+FormatDateTime('YYYY-MM-DD',dtpED_AppTime.DateTime)+''',''YYYY-MM-DD'')'
         Else
            DateString01:=''''+'''';

         If dtpED_ReplyTime.Checked Then
            DateString02:='To_Date('''+FormatDateTime('YYYY-MM-DD',dtpED_ReplyTime.DateTime)+''',''YYYY-MM-DD'')'
         Else
            DateString02:=''''+'''';

         If iSign=1 Then
            Begin

               QueryAnalyze.Close;
               QueryAnalyze.SQL.Clear;
               QueryAnalyze.SQL.Add('Select seq_app_id.nextval From Dual');
               QueryAnalyze.Open;

               ID:=QueryAnalyze.Fields[0].AsInteger;


               SQL:='Insert Into T_F_appeal(APP_ID,CITYNO,OFF_NO_HOME,WK_NO,SID,SUBJECT_NO,APPCONTENT,APPTIME,APPLEVEL,REPLYTIME,REPMARK,APPFROM,INTRO)'+
                    'Values('+IntToStr(ID)+','''+QueryCustInfo.FieldByName('CityNo').AsString+''','+QueryCustInfo.FieldByName('Off_No_Home').AsString+','''+
                                                   Trim(edED_WK_NO.Text)+''','''+Trim(edED_SID.Text)+''','+Fun_GetCodeName(COED_Subject_No)+','''+Trim(meED_AppContent.Text)+''','+
                                                   DateString01+','+Fun_GetCodeName(coED_AppLevel)+','+DateString02+',0,0,'''+Trim(meED_Intro.Text)+''')';



            End;

         If iSign=2 Then
            Begin
               ID:=QueryReg.FieldByName('APP_ID').AsInteger;

               SQL:='Update T_F_Appeal Set APPTIME='+DateString01+','+
                                          'ReplyTime='+DateString02+','+
                                          'AppLevel='+Fun_GetCodeName(coED_AppLevel)+','+
                                          'Subject_No='+Fun_GetCodeName(COED_Subject_No)+','+
                                          'AppContent='''+Trim(meED_AppContent.Text)+''','+
                                          'Intro='''+Trim(meED_Intro.Text)+''''+
                                    ' Where App_ID='+IntToStr(ID);


            End;

         AnalyzeSQL(SQL);

         QueryReg.Close;
         QueryReg.Open;
         QueryReg.Locate('APP_ID',ID,[]);
         iSign:=0;
         Fun_ComponentStatus(Self,0,False,Panel_appRegister);
         DbGrid1.Enabled:=True;

      End;

   If pcAppeal.ActivePageIndex=1 Then
      Begin
         If coEDCL_QUALITYCODE.ItemIndex<=0 Then
            Begin
               Application.MessageBox('请选择客户满意程度！','提示',MB_ICONINFORMATION);
               coEDCL_QUALITYCODE.SetFocus;
               Exit;
            End;

         If iSign=1 Then
            Begin
               QueryAnalyze.Close;
               QueryAnalyze.SQL.Clear;
               QueryAnalyze.SQL.Add('Select seq_app_id.nextval From Dual');
               QueryAnalyze.Open;

               ID:=QueryAnalyze.Fields[0].AsInteger;

               SQL:='Insert Into T_F_appealdeal(Deal_ID,App_ID,CityNo,Off_No_Home,WK_NO,Dealcontent,DealTime,CustOpin,QualityCode)'+
                    'Values('+IntToStr(ID)+','+QueryReg.FieldByName('APP_ID').AsString+','''+QueryReg.FieldByName('CityNo').AsString+''','+
                    QueryReg.FieldByName('Off_No_Home').AsString+','''+Trim(edEDCL_Wk_No.Text)+''','''+Trim(meEDCL_DEALCONTENT.Text)+''','+
                    'To_Date('''+FormatDateTime('YYYY-MM-DD',dtpEDCL_DEALTIME.DateTime)+''',''YYYY-MM-DD''),'''+Trim(meEDCL_CustOpin.Text)+''','+Fun_GetCodeName(coEDCL_QUALITYCODE)+')';

            End;
         If iSign=2 Then
            Begin
               ID:=QueryOper.FieldByName('Deal_ID').AsInteger;
               SQL:='Update  T_F_appealdeal Set WK_NO='''+Trim(edEDCL_WK_NO.Text)+''','+
                                                'QUALITYCODE='+Fun_GetCodeName(coEDCL_QUALITYCODE)+','+
                                                'DEALTIME=To_Date('''+FormatDateTime('YYYY-MM-DD',dtpEDCL_DEALTIME.DateTime)+''',''YYYY-MM-DD''),'+
                                                'DEALCONTENT='''+Trim(meEDCL_DEALCONTENT.Text)+''','+
                                                'CUSTOPIN='''+Trim(meEDCL_CUSTOPIN.Text)+''''+
                                            'Where Deal_ID='+IntToStr(ID);
            End;

         AnalyzeSQL(SQL);

         If iSign=1 Then
            Begin
               SQL:='Update T_F_appeal Set REPMARK=1 Where APP_ID='+QueryReg.FieldByName('APP_ID').AsString;
               AnalyzeSQL(SQL);
            End;



         QueryOper.Close;
         QueryOper.Open;
         QueryOper.Locate('DEAL_ID',ID,[]);
         iSign:=0;
         Fun_ComponentStatus(Self,0,False,Panel_AppDispose);
         DbGrid2.Enabled:=True;
         DbGrid3.Enabled:=True;

      End;

   Fun_ButtonStatus(Self,False);
   Panel_browse.Enabled:=True;



end;

procedure TFrm_ServiceAppeal.Btn_CancelClick(Sender: TObject);
begin
   iSign:=0;
   Case pcAppeal.ActivePageIndex Of
      0:
         Begin
            ShowRecord(QueryReg,Panel_appRegister);
            Fun_ComponentStatus(Self,0,False,Panel_appRegister);
            Panel_browse.Enabled:=True;
            DbGrid1.Enabled:=True;
         End;
      1:
         Begin
            ShowRecord(QueryOper,Panel_AppDispose);
            Fun_ComponentStatus(Self,0,False,Panel_AppDispose);
            Panel_browse.Enabled:=True;
            DbGrid2.Enabled:=True;
            DbGrid3.Enabled:=True;
         End;
   End;


   Fun_ButtonStatus(Self,False);

end;

procedure TFrm_ServiceAppeal.cbBR_ApptimeClick(Sender: TObject);
begin
   dtpBR_AppTimeBegin.Enabled:=cbBR_Apptime.Checked;
   dtpBR_AppTimeEnd.Enabled:=cbBR_Apptime.Checked;
end;

procedure TFrm_ServiceAppeal.cbBR_DoneClick(Sender: TObject);
begin
   rbBR_DoneYes.Enabled:=cbBR_Done.Checked;
   rbBR_DoneNo.Enabled:=cbBR_Done.Checked;
end;

procedure TFrm_ServiceAppeal.QueryOperAfterScroll(DataSet: TDataSet);
begin
   If Not QueryOper.Active Then
      Exit;
   ShowRecord(QueryOper,Panel_AppDispose);
end;

procedure TFrm_ServiceAppeal.Btn_ModifyClick(Sender: TObject);
begin
   If Not QueryCustInfo.Active Then
      Begin
         Application.MessageBox('请选择客户！','提示',MB_ICONINFORMATION);
         Exit;
      End;

   If pcAppeal.ActivePageIndex=0 Then
      Begin
         If QueryReg.IsEmpty Then
            Begin
               Application.MessageBox('请选择将要修改的投诉信息！','提示',MB_ICONINFORMATION);
               Exit;
            End;
         Fun_ComponentStatus(Self,0,True,Panel_appRegister);
         DbGrid1.Enabled:=False;
         coED_AppLevel.SetFocus;
      End;
   If pcAppeal.ActivePageIndex=1 Then
      Begin
         If QueryOper.IsEmpty Then
            Begin
               Application.MessageBox('请选择将要修改的反馈信息！','提示',MB_ICONINFORMATION);
               Exit;
            End;
         Fun_ComponentStatus(Self,0,True,Panel_AppDispose);
         DbGrid2.Enabled:=False;
         DbGrid3.Enabled:=False;
         meEDCL_DEALCONTENT.SetFocus;
      End;

   iSign:=2;
   Fun_ButtonStatus(Self,True);
   Panel_browse.Enabled:=False;

end;

procedure TFrm_ServiceAppeal.pcAppealChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
   If iSign<>0 Then
      AllowChange:=False; 
end;

procedure TFrm_ServiceAppeal.pcAppealChange(Sender: TObject);
begin
   Case PcAppeal.ActivePageIndex Of
      0:;
      1:
         Begin
            QueryRegAfterScroll(Nil);
         End;
   End;
end;

end.