unit_custindiserv.pas

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

  begin
    Application.MessageBox('结束时间不能小于开始时间！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate1.SetFocus;
    Exit;
  end;
  }
  sFieldSQL:='Insert Into T_F_ServiceLog(SERVICECODE,ServTop_Id,ObjType,ObjFlag,ServObj,ObjName,CityNo,Off_No_Home,TypeCode,ModeCode,ServKind,QualityCode,';
  sFieldSQL:=SFieldSQL+'Finish,Wk_No,BeginTime,EndTime,ServCont,ObjAdvice,ObjInfo,ServMoney,UseMoney,TotalMoney)';
  sValueSQL:=' Values(SEQ_ServiceCode.Nextval';
  sValueSQL:=sValueSQL+','+QueryService.FieldByName('ServTop_Id').AsString;
  sValueSQL:=sValueSQL+',0';
  //大户标志
  if FlatRadioButtonCust1.Checked then
    sValueSQL:=sValueSQL+',0';
  if FlatRadioButtonRela1.Checked then
    sValueSQL:=sValueSQL+',2';
  sValueSQL:=sValueSQL+','''+Trim(FlatEditObject1Value.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatEditObjectName1.Text);
  sValueSQL:=sValueSQL+''','+PS_CityNo;
  sValueSQL:=sValueSQL+','+IntToStr(JX);
  sValueSQL:=sValueSQL+',5';
  sValueSQL:=sValueSQL+','''+Fun_GetCodeName(FlatComboBoxServMode1);
  //sValueSQL:=sValueSQL+''','''+omboBoxServKiIntToStr(FlatCnd.ItemIndex);
  sValueSQL:=sValueSQL+''','''+IntToStr(FlatComboBoxServKind.ItemIndex);
  sValueSQL:=sValueSQL+''','''+Fun_GetCodeName(FlatComboBoxServQuality1);
  if FlatCheckBoxFinish1.Checked then
    sValueSQL:=sValueSQL+''',1'
  else
    sValueSQL:=sValueSQL+''',0';
  sValueSQL:=sValueSQL+','''+GH;
  sValueSQL:=sValueSQL+''',To_Date('''+FlatMaskEditBeginDate1.Text+' '+FlatMaskEditBeginTime1.Text+''',''YYYY-MM-DD HH24:MI'')';
//sValueSQL:=sValueSQL+',To_Date('''+FlatMaskEditEndDate1.Text+' '+FlatMaskEditEndTime1.Text+''',''YYYY-MM-DD HH24:MI'')';
  if Trim(FlatMaskEditEndDate1.Text)<>'' then
    sValueSQL:=sValueSQL+',To_Date('''+FlatMaskEditEndDate1.Text+' '+FlatMaskEditEndTime1.Text+''',''YYYY-MM-DD HH24:MI'')'
  else
    sValueSQL:=sValueSQL+',To_Date('''',''YYYY-MM-DD HH24:MI'')';

  sValueSQL:=sValueSQL+','''+Trim(FlatMemoServCont2.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjAdvice.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjInfo.Text);
  if Trim(FlatEditServMoney1.Text)='' then
    sServMoney:='0'
  else
    sServMoney:=Trim(FlatEditServMoney1.Text);
  sValueSQL:=sValueSQL+''','+sServMoney;
  if Trim(FlatEditUseMoney1.Text)='' then
    sUseMoney:='0'
  else
    sUseMoney:=Trim(FlatEditUseMoney1.Text);
  sValueSQL:=sValueSQL+','+sUseMoney;
  sTotalMoney:=Trim(FlatSpinEditFloatTotalMoney1.Text);
  sValueSQL:=sValueSQL+','+sTotalMoney+')';
  try
    PL_ExecSQL(sFieldSQL+sValueSQL);
    Application.MessageBox('服务日志登记成功！', '提示', MB_OK+MB_ICONINFORMATION);
  except
    Application.MessageBox('服务日志登记失败！', '提示', MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  PL_ClearText1;//清空输入框的值
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  Fun_ComponentStatus(Self,0,False);
  FlatMaskEditBeginDate1.Enabled:=False;
  FlatMaskEditBeginTime1.Enabled:=False;
  FlatRadioButtonCust1.Enabled:=False;
  FlatRadioButtonRela1.Enabled:=False;
  FlatEditObject1Value.Enabled:=False;
  sEditFlag:='';
end;

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

procedure TFrm_CustIndiServ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=CaFree;
end;

procedure TFrm_CustIndiServ.TabSheet2Show(Sender: TObject);
begin
  FlatMaskEditBeginDate2Q.Text:=FormatDateTime('YYYY-MM-DD',Date-60);
  FlatMaskEditEndDate2Q.Text:=FormatDateTime('YYYY-MM-DD',Date);
  PL_ControlEnabled(False);
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  Fun_GetCity(FlatComboBoxCity,'所有',0,Ps_CityName);
  FlatComboBoxCityChange(Nil);
  Fun_GetManager(FlatComboBox_ManagerNo,'所有',FlatComboBoxCity.Text,FlatComboBoxCounty.Text,GH);
  Fun_GetSERV_TOPIC(FlatComboBoxServiceTopic,PS_CityNo,JX,0,'N');
end;

procedure TFrm_CustIndiServ.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  iRoomID:Integer;
  sWk_No:String;
begin
{
  if TreeView1.Selected.Level=1 then
  begin
    if Trim(TreeView1.Selected.Text)='' then Exit;
    sWk_No:=Copy(Trim(TreeView1.Selected.Text),1,Pos(':',Trim(TreeView1.Selected.Text))-1);
    with QueryServeLog2 do
    begin
      if Active then Close;
      ParamByName('PS_Wk_NO').AsString:=sWk_No;
      Open;
    end;
  end;
}  
end;

procedure TFrm_CustIndiServ.DataSourceServeLog2DataChange(Sender: TObject;
  Field: TField);
begin
  PL_FillServiceLog;
end;

procedure TFrm_CustIndiServ.FlatButtonCancel1Click(Sender: TObject);
begin
  PL_ClearText1;//清空输入框的值
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  Fun_ComponentStatus(Self,0,False);
  FlatMaskEditBeginDate1.Enabled:=False;
  FlatMaskEditBeginTime1.Enabled:=False;
  FlatRadioButtonCust1.Enabled:=False;
  FlatRadioButtonRela1.Enabled:=False;
  FlatEditObject1Value.Enabled:=False;
  sEditFlag:='';
end;

procedure TFrm_CustIndiServ.FlatButton9Click(Sender: TObject);
var
  sWk_No,sQuerySQL:String;
begin
  try
   StrToDate(FlatMaskEditBeginDate2Q.Text);
  except
    Application.MessageBox('输入的开始时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditBeginDate2Q.SetFocus;
    Exit;
  end;
  try
   StrToDate(FlatMaskEditEndDate2Q.Text);
  except
    Application.MessageBox('输入的结束时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate2Q.SetFocus;
    Exit;
  end;
//sWk_No:=Copy(Trim(TreeView1.Selected.Text),1,Pos(':',Trim(TreeView1.Selected.Text))-1);
  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';
  //2002-09-11
  //sQuerySQL:=sQuerySQL+' Where L.TypeCode=T.TYPECODE(+) And L.ModeCode=M.MODECODE(+) And L.QualityCode=Q.QUALITYCODE(+) And L.SERVTOP_ID=P.SERVTOP_ID(+) And L.OBJTYPE=0 And L.TypeCode=4 And wk_no=:PS_Wk_NO';
  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  WK_NO='''+Copy(Trim(FlatComboBox_ManagerNo.Text),1,Pos(':',Trim(FlatComboBox_ManagerNo.Text))-1)+'''';
  if Trim(FlatComboBoxDestine_Type.Text)<>'' then
    sQuerySQL:=sQuerySQL+' And  L.TYPECODE='+IntToStr(FlatComboBoxDestine_Type.ItemIndex+3);
  sQuerySQL:=sQuerySQL+' And L.TypeCode=T.TYPECODE(+) And L.ModeCode=M.MODECODE(+) And L.QualityCode=Q.QUALITYCODE(+) And L.SERVTOP_ID=P.SERVTOP_ID(+) And L.OBJTYPE=0 ';
  //if Trim(FlatComboBoxObj2Q.Text)<>'' then
  //begin
    //sQuerySQL:=sQuerySQL+' And ObjType='+IntToStr(FlatComboBoxObj2Q.ItemIndex-1);
  //end;


  if FlatCheckBoxVIP5Q.Checked then
    sQuerySQL:=sQuerySQL+' And ObjFlag=''0''';
  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 ';
  if Trim(FlatEditServObj.Text)<>'' then
    sQuerySQL:=sQuerySQL+' And SERVOBJ='''+Trim(FlatEditServObj.Text)+'''';
  with QueryServeLog2 do
  begin
    if Active then Close;
    SQl.Clear;
    SQL.Add(sQuerySQL);
    Open;
  end;
end;

procedure TFrm_CustIndiServ.FlatButtonSave2Click(Sender: TObject);
var
  sSQL,sServiceCode,sModiContent:String;
  sServTypeCode: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('输入的开始时间不对！正确格式:YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditBeginDate2.SetFocus;
    Exit;
  end;
{
  try
   StrToDate(FlatMaskEditEndDate2.Text);
  except
    Application.MessageBox('输入的结束时间不对！正确格式:YYYY-MM-DD。','提示',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 Trim(QueryServeLog2.FieldByName('ObjFlag').AsString)='大户' then
  begin
    if FlatCheckBoxVIP2.Checked=False then
    begin
      sModiContent:=sModiContent+'大户标志：由大户改成非大户;';
      sSQL:=sSQL+',ObjFlag=''1''';
    end;
  end;
  if Trim(QueryServeLog2.FieldByName('ObjFlag').AsString)<>'大户' then
  begin
    if FlatCheckBoxVIP2.Checked=True then
    begin
      sModiContent:=sModiContent+'大户标志：由非大户改成大户;';
      sSQL:=sSQL+',ObjFlag=''0''';
    end;
  end;
  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='+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='+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