unit_groupindiserv.pas

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

  end;
  try
   StrToDate(FlatMaskEditEndDate2Q.Text);
  except
    Application.MessageBox('输入的结束时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate2Q.SetFocus;
    Exit;
  end;
  sQuerySQL:='Select SERVICECODE,decode(L.OBJTYPE,0,''个人'',1,''集团'') ObjType,decode(L.ObjFlag,''0'',''大户'',''1'',''非大户'',''2'',''亲属伙伴'') ObjFlag,';
  sQuerySQL:=sQuerySQL+' ServObj,ObjName,SERVTYPE,SERVMODE,decode(L.ServKind,0,''主动服务'',1,''被动服务'') ServKind,SERVQUALITY,Decode(L.Finish,0,''未完成'',1,''完成'') Finish,';
  sQuerySQL:=sQuerySQL+' L.Wk_No Wk_No,To_Char(L.BeginTime,''YYYY-MM-DD'') Beg_Date,To_Char(L.BeginTime,''HH24:MI'') Beg_time,';
  sQuerySQL:=sQuerySQL+' To_Char(L.EndTime,''YYYY-MM-DD'') End_Date,To_Char(L.EndTime,''HH24:MI'') End_Time,ServCont,ObjAdvice Advice,ObjInfo,';
  sQuerySQL:=sQuerySQL+' ServMoney,UseMoney,TotalMoney,SERV_TOPIC';
  sQuerySQL:=sQuerySQL+' From T_F_ServiceLog L,T_D_ServMode M,T_D_ServType T,T_D_ServQuality Q,T_D_ServiceTopic P';

  sQuerySQL:=sQuerySQL+' Where 1=1 ';
  if FlatComboBoxCity.Text<>'所有' then
    sQuerySQL:=sQuerySQL+' And L.CITYNO='''+Fun_GetCity(FlatComboBoxCity,'',1)+'''';
  if FlatComboBoxCounty.Text<>'所有' then
    sQuerySQL:=sQuerySQL+' And L.OFF_NO_HOME='+Fun_GetCounty(FlatComboBoxCounty,'','',1);
  if FlatComboBox_ManagerNo.Text<>'所有' then
    sQuerySQL:=sQuerySQL+' And L.WK_NO='''+Copy(Trim(FlatComboBox_ManagerNo.Text),1,Pos(':',Trim(FlatComboBox_ManagerNo.Text))-1)+'''';
  if sJTYHDM<>'' then
    sQuerySQL:=sQuerySQL+' And L.SERVOBJ='''+sJTYHDM+'''';
  sQuerySQL:=sQuerySQL+' And L.TypeCode=T.TYPECODE(+) And L.ModeCode=M.MODECODE(+) And L.QualityCode=Q.QUALITYCODE(+) And L.OBJTYPE=1 And L.ServTop_Id=P.SERVTOP_ID(+) And  L.TypeCode=4 ';
  sQuerySQL:=sQuerySQL+' And BeginTime>=To_Date('''+Trim(FlatMaskEditBeginDate2Q.Text)+''',''YYYY-MM-DD'')';
  sQuerySQL:=sQuerySQL+' And BeginTime<To_Date('''+Trim(FlatMaskEditEndDate2Q.Text)+''',''YYYY-MM-DD'')+1';
  if Trim(FlatComboBoxServKind2Q.Text)<>'' then
    sQuerySQL:=sQuerySQL+' And ServKind='+IntToStr(FlatComboBoxServKind2Q.ItemIndex-1);
  if FlatCheckBoxFinish2Q.Checked then
    sQuerySQL:=sQuerySQL+' And Finish=0 ';
  with QueryServeLog2 do
  begin
    if Active then Close;
    SQl.Clear;
    SQL.Add(sQuerySQL);
    Open;
  end;
end;

procedure TFrm_GroupIndiServ.FlatButtonSave3Click(Sender: TObject);
var
  sSQL,sServiceCode,sModiContent:String;
begin
  if Trim(FlatEditObject2Value.Text)='' then
  Begin
    Application.MessageBox('服务对象不能为空！','提示',MB_OK+MB_ICONINFORMATION);
    FlatEditObject2Value.SetFocus;
    Exit;
  end;
  try
   StrToDate(FlatMaskEditBeginDate2.Text);
  except
    Application.MessageBox('输入的开始时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditBeginDate2.SetFocus;
    Exit;
  end;
{
  try
   StrToDate(FlatMaskEditEndDate2.Text);
  except
    Application.MessageBox('输入的结束时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate2.SetFocus;
    Exit;
  end;
  if FlatMaskEditBeginDate2.Text+FlatMaskEditBeginTime2.Text>=FlatMaskEditEndDate2.Text+FlatMaskEditEndTime2.Text then
  begin
    Application.MessageBox('结束时间不能小于开始时间！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate2.SetFocus;
    Exit;
  end;
}
  sServiceCode:=LabelServiceCode2.Caption;
  sModiContent:='修改情况：';
  sSQL:='Update T_F_ServiceLog Set SERVICECODE='+LabelServiceCode2.Caption;
  if QueryServeLog2.FieldByName('Finish').AsString='完成' then
  begin
    if FlatCheckBoxFinish2.Checked=True then
    begin
      sModiContent:=sModiContent+'完成标志：由完成改成未完成;';
      sSQL:=sSQL+',Finish=0';
    end;
  end;
  if QueryServeLog2.FieldByName('Finish').AsString<>'完成' then
  begin
    if FlatCheckBoxFinish2.Checked=False then
    begin
      sModiContent:=sModiContent+'完成标志:由未完成改成完成;';
      sSQL:=sSQL+',Finish=1';
    end;
  end;
  if Trim(FlatComboBoxServiceTopic.Text)<>QueryServeLog2.FieldByName('SERV_TOPIC').AsString then
  begin
    sModiContent:=sModiContent+'个性标题：由'+QueryServeLog2.FieldByName('SERV_TOPIC').AsString+'改成'+Trim(FlatComboBoxServiceTopic.Text)+';';
    sSQL:=sSQL+', ServTop_Id='+Fun_GetSERV_TOPIC(FlatComboBoxServiceTopic,PS_CityNo,JX,1);
  end;
  if Trim(FlatComboBoxServMode2.Text)<>QueryServeLog2.FieldByName('SERVMODE').AsString then
  begin
    sModiContent:=sModiContent+'服务方式：由'+QueryServeLog2.FieldByName('SERVMODE').AsString+'改成'+Trim(FlatComboBoxServMode2.Text)+';';
    //sSQL:=sSQL+', ModeCode='+Trim(FlatComboBoxServModeT.Text);
    sSQL:=sSQL+', ModeCode='+Fun_GetCodeName(FlatComboBoxServMode2);
  end;
  if Trim(FlatComboBoxServKind2.Text)<>QueryServeLog2.FieldByName('SERVKIND').AsString then
  begin
    sModiContent:=sModiContent+'服务类别：由'+QueryServeLog2.FieldByName('SERVKIND').AsString+'改成'+Trim(FlatComboBoxServKind2.Text)+';';
    if FlatComboBoxServKind2.ItemIndex=0 then
      sSQL:=sSQL+', ServKind=0'
    else
      sSQL:=sSQL+', ServKind=1';
  end;
  if (FlatMaskEditBeginDate2.Text+FlatMaskEditBeginTime2.Text)<>(QueryServeLog2.FieldByName('BEG_DATE').AsString+QueryServeLog2.FieldByName('BEG_TIME').AsString) then
  begin
    sModiContent:=sModiContent+'服务开始时间：由'+QueryServeLog2.FieldByName('BEG_DATE').AsString+QueryServeLog2.FieldByName('BEG_TIME').AsString+'改成'+FlatMaskEditBeginDate2.Text+FlatMaskEditBeginTime2.Text+';';
    sSQL:=sSQL+', BEGINTIME=To_Date('''+FlatMaskEditBeginDate2.Text+' '+FlatMaskEditBeginTime2.Text+''',''YYYY-MM-DD HH24:MI'')';
  end;
{
  if (FlatMaskEditEndDate2.Text+FlatMaskEditEndTime2.Text)<>(QueryServeLog2.FieldByName('END_DATE').AsString+QueryServeLog2.FieldByName('END_TIME').AsString) then
  begin
    sModiContent:=sModiContent+'服务结束时间：由'+QueryServeLog2.FieldByName('END_DATE').AsString+QueryServeLog2.FieldByName('END_TIME').AsString+'改成'+FlatMaskEditEndDate2.Text+FlatMaskEditEndTime2.Text+';';
    sSQL:=sSQL+', EndTime=To_Date('''+FlatMaskEditEndDate2.Text+' '+FlatMaskEditEndTime2.Text+''',''YYYY-MM-DD HH24:MI'')';
  end;
}
  if (FlatMaskEditEndDate2.Text+FlatMaskEditEndTime2.Text)<>(QueryServeLog2.FieldByName('END_DATE').AsString+QueryServeLog2.FieldByName('END_TIME').AsString) then
  begin
    if Trim(FlatMaskEditEndDate2.Text)<>'' then
      sSQL:=sSQL+', EndTime=To_Date('''+FlatMaskEditEndDate2.Text+' '+FlatMaskEditEndTime2.Text+''',''YYYY-MM-DD HH24:MI'')'
    else
      sSQL:=sSQL+', EndTime=To_Date('''',''YYYY-MM-DD HH24:MI'')';
    sModiContent:=sModiContent+'服务结束时间：由'+QueryServeLog2.FieldByName('END_DATE').AsString+QueryServeLog2.FieldByName('END_TIME').AsString+'改成'+FlatMaskEditEndDate2.Text+FlatMaskEditEndTime2.Text+';';
  end;
  if Trim(FlatEditObject2Value.Text)<>QueryServeLog2.FieldByName('SERVOBJ').AsString then
  begin
    sModiContent:=sModiContent+'服务对象：由'+QueryServeLog2.FieldByName('SERVOBJ').AsString+'改成'+Trim(FlatEditObject2Value.Text)+';';
    sSQL:=sSQL+', ServObj='''+Trim(FlatEditObject2Value.Text)+'''';
  end;
  if Trim(FlatEditObjectName2.Text)<>QueryServeLog2.FieldByName('ObjName').AsString then
  begin
    sModiContent:=sModiContent+'对象名称：由'+QueryServeLog2.FieldByName('ObjName').AsString+'改成'+Trim(FlatEditObjectName2.Text)+';';
    sSQL:=sSQL+', ObjName='''+Trim(FlatEditObjectName2.Text)+'''';
  end;
  if Trim(FlatComboBoxServQuality2.Text)<>QueryServeLog2.FieldByName('SERVQUALITY').AsString then
  begin
    sModiContent:=sModiContent+'服务质量：由'+QueryServeLog2.FieldByName('SERVQUALITY').AsString+'改成'+Trim(FlatComboBoxServQuality2.Text)+';';
    //sSQL:=sSQL+', QUALITYCODE='+Trim(FlatComboBoxServQualityT.Text);
    sSQL:=sSQL+', QUALITYCODE='+Fun_GetCodeName(FlatComboBoxServQuality2);
  end;
  if Trim(FlatEditServMoney2.Text)<>QueryServeLog2.FieldByName('SERVMONEY').AsString then
  begin
    sModiContent:=sModiContent+'服务金额：由'+QueryServeLog2.FieldByName('SERVMONEY').AsString+'改成'+Trim(FlatEditServMoney2.Text)+';';
    sSQL:=sSQL+', ServMoney='+Trim(FlatEditServMoney2.Text);
  end;
  if Trim(FlatEditUseMoney2.Text)<>QueryServeLog2.FieldByName('USEMONEY').AsString then
  begin
    sModiContent:=sModiContent+'耗费金额：由'+QueryServeLog2.FieldByName('USEMONEY').AsString+'改成'+Trim(FlatEditUseMoney2.Text)+';';
    sSQL:=sSQL+', USEMONEY='+Trim(FlatEditUseMoney2.Text);
  end;
  if Trim(FlatSpinEditFloat1.Text)<>QueryServeLog2.FieldByName('TOTALMONEY').AsString then
  begin
    sModiContent:=sModiContent+'实际金额：由'+QueryServeLog2.FieldByName('TOTALMONEY').AsString+'改成'+Trim(FlatSpinEditFloat1.Text)+';';
    sSQL:=sSQL+', TOTALMONEY='+FloatToStr(FlatSpinEditFloat1.value);
  end;
  if Trim(FlatMemo1.Text)<>QueryServeLog2.FieldByName('SERVCONT').AsString then
  begin
    sModiContent:=sModiContent+'服务内容：由'+QueryServeLog2.FieldByName('SERVCONT').AsString+'改成'+Trim(FlatMemo1.Text)+';';
    sSQL:=sSQL+', ServCont='''+Trim(FlatMemo1.Text)+'''';
  end;
  if Trim(FlatMemoObjInfo2.Text)<>QueryServeLog2.FieldByName('OBJINFO').AsString then
  begin
    sModiContent:=sModiContent+'获得信息：由'+QueryServeLog2.FieldByName('OBJINFO').AsString+'改成'+Trim(FlatMemoObjInfo2.Text)+';';
    sSQL:=sSQL+', ObjInfo='''+Trim(FlatMemoObjInfo2.Text)+'''';
  end;
  if Trim(FlatMemoObjAdvice2.Text)<>QueryServeLog2.FieldByName('ADVICE').AsString then
  begin
    sModiContent:=sModiContent+'用户意见：由'+QueryServeLog2.FieldByName('ADVICE').AsString+'改成'+Trim(FlatMemoObjAdvice2.Text)+';';
    sSQL:=sSQL+', ObjAdvice='''+Trim(FlatMemoObjAdvice2.Text)+'''';
  end;
  sSQL:=sSQL+' Where SERVICECODE='+LabelServiceCode2.Caption;
  try
    PL_ExecSQL(sSQL);
    Application.MessageBox('成功修改服务日志！', '提示', MB_OK+MB_ICONINFORMATION);
  except
    Application.MessageBox('修改服务日志失败！', '提示', MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  QueryServeLog2.Close;
  QueryServeLog2.Open;
  QueryServeLog2.Locate('ServiceCode',sServiceCode,[]);
  try
    sSQL:='Insert Into T_F_ServiceModify(MODISEQ,SERVICECODE,MODIGH,MODITIME,MODICONTENT) ';
    sSQL:=sSQL+' Values(SEQ_ServceModify.Nextval,'+sServiceCode+','''+GH+''',To_Date(To_Char(sysdate,''YYYY-MM-DD''),''YYYY-MM-DD''),'''+sModiContent+''')';
    PL_ExecSQL(sSQL);
  except
    Application.MessageBox('登记修改服务日志历史记录失败！', '提示', MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  PL_ControlEnabled(False);
  sEditFlag:='';
end;

procedure TFrm_GroupIndiServ.FormShow(Sender: TObject);
begin
  PageControlServerLog.ActivePageIndex :=0;
  sEditFlag:='';
  Pro_GFillInitValue(Self);
end;

procedure TFrm_GroupIndiServ.FlatEditServMoney2Change(Sender: TObject);
begin

  if Trim(FlatEditServMoney2.Text)=''  then
    FlatEditServMoney2.Text:='0';
  if FlatEditUseMoney2.Text='' then
    FlatEditUseMoney2.Text:='0';
  FlatSpinEditFloat1.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney2.Text))+StrToFloat(Trim(FlatEditUseMoney2.Text)));
end;

procedure TFrm_GroupIndiServ.FlatEditUseMoney2Change(Sender: TObject);
begin
  if Trim(FlatEditServMoney2.Text)=''  then
    FlatEditServMoney2.Text:='0';
  if FlatEditUseMoney2.Text='' then
    FlatEditUseMoney2.Text:='0';
  FlatSpinEditFloat1.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney2.Text))+StrToFloat(Trim(FlatEditUseMoney2.Text)));
end;

procedure TFrm_GroupIndiServ.TabSheet3Show(Sender: TObject);
begin
  if LabelServiceCode2.Caption='服务序号' then Exit;
  with QueryServModi do
  begin
    if Active then Close;
    SQL.Clear;
    SQL.Add('Select L.BeginTime,L.EndTime,L.ServObj,L.ObjName,M.ModiTime,M.ModiGH,M.ModiContent ');
    SQL.Add('From T_F_ServiceLog L,T_F_ServiceModify M ');
    SQL.Add('Where L.ServiceCode=M.ServiceCode And M.ServiceCode='+LabelServiceCode2.Caption);
    Open;
  end;
end;

procedure TFrm_GroupIndiServ.DataSourceServModiDataChange(Sender: TObject;
  Field: TField);
begin
  MemoModiContent.Text:=QueryServModi.FieldByName('ModiContent').AsString;
end;

procedure TFrm_GroupIndiServ.FlatButtonAdd2Click(Sender: TObject);
begin
  PL_ClearText4;//清空输入框的值
  FlatEditObjectName22.Enabled:=True;
  FlatEditObjectName22.SetFocus;
  FlatButtonCancel2.Enabled:=True;
  sEditFlag:='I'
end;

procedure TFrm_GroupIndiServ.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN:SelectNext(ActiveControl,true,true);
  end;
{
  case Key of
    VK_RETURN,VK_DOWN:SelectNext(ActiveControl,true,true);
    VK_UP:SelectNext(ActiveControl,false,true);
  end;
}
end;

procedure TFrm_GroupIndiServ.FlatButtonUpdate3Click(Sender: TObject);
begin
  if LabelServiceCode2.Caption='服务序号' then Exit;
  PL_ControlEnabled(True);
  FlatMemoObjAdvice2.Enabled:=True;
  sEditFlag:='U';
end;

procedure TFrm_GroupIndiServ.FlatButtonCancel3Click(Sender: TObject);
begin
  PL_ControlEnabled(False);
  PL_FillServiceLog;
  sEditFlag:='';
end;

procedure TFrm_GroupIndiServ.TabSheet1Show(Sender: TObject);
begin
  Fun_GetCity(FlatComboBoxCityName1, '', 0, ps_cityname);
  Fun_GetCounty(FlatComboBoxJX1, '', ps_cityname);
  //Fun_GetCity(FlatComboBoxCityName1,'',0);//初始化所管辖的地市
  //Fun_GetCounty(FlatComboBoxJX1,'',Trim(FlatComboBoxCityName1.Text),0,PS_HomeName);//初始化所管辖的局向
  Fun_ComponentStatus(Self,0,False);
  //FlatMaskEditBeginDate1.Text:=FormatDateTime('YYYY-MM-DD',Date-1);
  //FlatMaskEditEndDate1.Text:=FormatDateTime('YYYY-MM-DD',Date);
end;

procedure TFrm_GroupIndiServ.DataSourceGroupInfoDataChange(Sender: TObject;
  Field: TField);
begin
  if QueryService.Active then QueryService.Close;
  if QueryGroupInfo.FieldByName('JTYHDM').AsString='' then
    Exit;
  with QueryService do
  begin
    if Active then Close;
    SQL.Clear;
    SQL.Add('Select S.ServTop_Id ServTop_Id,SERV_TOPIC,SERVCONTENT,BEGINDATE,ENDDATE From T_F_Service S,T_D_ServiceTopic T Where ServObj='''+Trim(QueryGroupInfo.FieldByName('JTYHDM').AsString)+''' And ObjType=1 And S.ServTop_Id=T.ServTop_Id(+) And VALIDMARK=0');
    Open;
  end;
  if Trim(QueryService.Fields[0].AsString)='' then
  begin
    Application.MessageBox('该集团没有定制个性化服务。','提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  FlatMaskEditBeginDate1.Enabled:=True;
  FlatMaskEditBeginTime1.Enabled:=True;
  FlatMaskEditBeginDate1.Text:=Copy(Fun_GetDate(0,2),1,10);
  FlatMaskEditBeginTime1.Text:=Copy(Fun_GetDate(0,2),12,5);  
  Fun_ComponentStatus(Self,0,True);
end;

procedure TFrm_GroupIndiServ.FlatButtonClose2Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_GroupIndiServ.TabSheet4Show(Sender: TObject);
begin