unit_serverlog.pas

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

      begin
        Application.MessageBox('对不起，没有符合条件的集团！','提示',MB_OK+MB_ICONINFORMATION);
        Exit;
      end
      else
      begin
        sJTYHDM:=QueryGroupInfoT.FieldByName('JTYHDM').AsString;
        sQuerySQL:=sQuerySQL+' And SERVOBJ='''+sJTYHDM+'''';
      end;
    end;
  end;

  sQuerySQL:=sQuerySQL+' And L.TypeCode=T.TYPECODE(+) And L.ModeCode=M.MODECODE(+) And L.QualityCode=Q.QUALITYCODE(+) And L.TYPECODE>5 ';
  if Trim(FlatComboBoxObj2Q.Text)<>'' then
  begin
    sQuerySQL:=sQuerySQL+' And ObjType='+IntToStr(FlatComboBoxObj2Q.ItemIndex-1);
  end;
  if FlatCheckBoxVIP1Q.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'')';
  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_ServerLog.FlatButtonSave2Click(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('输入的开始时间不对！正确格式：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(FlatComboBoxServType2.Text)<>QueryServeLog2.FieldByName('SERVTYPE').AsString then
  begin
    sModiContent:=sModiContent+'服务类型：由'+QueryServeLog2.FieldByName('SERVTYPE').AsString+'改成'+Trim(FlatComboBoxServType2.Text)+';';
    sSQL:=sSQL+', TypeCode='+Fun_GetCodeName(FlatComboBoxServType2);
  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
  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+''')';
    sSQL:=sSQL+' Values(SEQ_ServceModify.Nextval,'+sServiceCode+','''+GH+''',To_Date('''+Fun_GetDate(0,2)+''',''YYYY-MM-DD hh24:mi:ss''),'''+sModiContent+''')';
    PL_ExecSQL(sSQL);
  except
    Application.MessageBox('登记修改服务日志历史记录失败！', '提示', MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  PL_ControlEnabled(False);
  sEditFlag:='';
end;

procedure TFrm_ServerLog.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_ServerLog.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_ServerLog.TabSheet3Show(Sender: TObject);
begin
  FlatMaskEditModiBgnDate.Text:=FormatDateTime('YYYY-MM-DD',Date-30);
  FlatMaskEditModiEndDate.Text:=FormatDateTime('YYYY-MM-DD',Date);
  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_ServerLog.DataSourceServModiDataChange(Sender: TObject;
  Field: TField);
begin
  MemoModiContent.Text:=QueryServModi.FieldByName('ModiContent').AsString;
end;

procedure TFrm_ServerLog.FlatButton1Click(Sender: TObject);
var
  sSQL:String;
begin
  sSQL:='Select L.BeginTime,L.EndTime,L.ServObj,L.ObjName,M.ModiTime,M.ModiGH,M.ModiContent ';
  sSQL:=sSQL+' From T_F_ServiceLog L,T_F_ServiceModify M';
  sSQL:=sSQL+' Where L.TypeCode>5 And L.ServiceCode=M.ServiceCode ';
  if FlatMaskEditModiBgnDate.Text<>'    -  -  ' then
  begin
    try
      StrToDate(Trim(FlatMaskEditModiBgnDate.Text));
    except
      Application.MessageBox('修改起止日期格式不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
      FlatMaskEditModiBgnDate.Text:='    -  -  ';
      Exit;
    end;
    sSQL:=sSQL+' And M.MODITIME>=To_Date('''+Trim(FlatMaskEditModiBgnDate.Text)+''',''YYYY-MM-DD'')';
  end;
  if FlatMaskEditModiEndDate.Text<>'    -  -  ' then
  begin
    try
      StrToDate(Trim(FlatMaskEditModiEndDate.Text));
    except
      Application.MessageBox('修改起止日期格式不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
      FlatMaskEditModiEndDate.Text:='    -  -  ';
      Exit;
    end;
    sSQL:=sSQL+' And M.MODITIME<To_Date('''+Trim(FlatMaskEditModiEndDate.Text)+''',''YYYY-MM-DD'')+1';
  end;
  if JBDM=4 then
    sSQL:=sSQL+' And MODIGH='''+GH+'''';
  with QueryServModi do
  begin
    if Active then Close;
    SQL.Clear;
    SQL.Add(sSQL);
    Open;
  end;
end;

procedure TFrm_ServerLog.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN:SelectNext(ActiveControl,true,true);
  end;
end;

procedure TFrm_ServerLog.FlatButtonUpdate2Click(Sender: TObject);
begin
  Fun_ButtonStatus(Self,True); //按钮有效性控制
  PL_ControlEnabled(True);
  FlatMemoObjAdvice2.Enabled:=True;
  sEditFlag:='U';
end;

procedure TFrm_ServerLog.FlatButtonCancel2Click(Sender: TObject);
begin
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  PL_ControlEnabled(False);
  PL_FillServiceLog;//debug
  sEditFlag:='';
end;

procedure TFrm_ServerLog.TabSheet1Show(Sender: TObject);
begin
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  Fun_ComponentStatus(Self,0,False);
  //FlatMaskEditBeginDate1.Text:=FormatDateTime('YYYY-MM-DD',Date-1);
end;

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

procedure TFrm_ServerLog.FlatCheckBoxVIP1Click(Sender: TObject);
begin
{
  if FlatCheckBoxVIP1.Checked then
  begin
    LabelObject1.Font.Color:=clTeal;
    FlatButtonSave1.Enabled:=False;
  end
  else
  begin
    LabelObject1.Font.Color:=clNavy;
    FlatButtonSave1.Enabled:=True;
  end;
}
end;

procedure TFrm_ServerLog.FlatCheckBoxFinish1Click(Sender: TObject);
var
  sNow:String;
begin
  sNow:=Fun_GetDate(0,2);
  if FlatCheckBoxFinish1.Checked then
    begin
      FlatMaskEditEndDate1.Text:=Copy(sNow,1,10);
      FlatMaskEditEndTime1.Text:=Copy(sNow,12,5);
    end
  else
    begin
      FlatMaskEditEndDate1.Text:='';
      FlatMaskEditEndTime1.Text:='';
    end;
end;

procedure TFrm_ServerLog.FlatCheckBoxFinish2Click(Sender: TObject);
var
  sNow:String;
begin
  sNow:=Fun_GetDate(0,2);
  if FlatCheckBoxFinish2.Checked then
    begin
      FlatMaskEditEndDate2.Text:='';
      FlatMaskEditEndTime2.Text:='';
    end
  else
    begin
      FlatMaskEditEndDate2.Text:=Copy(sNow,1,10);
      FlatMaskEditEndTime2.Text:=Copy(sNow,12,5);
    end;
end;

procedure TFrm_ServerLog.PageControlServerLogChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
  if sEditFlag<>'' then
  begin
    Application.MessageBox('正在编辑数据，请保存或取消后切换。','提示',MB_OK+MB_ICONINFORMATION);
    AllowChange:=False;
  end;
end;

procedure TFrm_ServerLog.FlatComboBoxCityChange(Sender: TObject);
begin
  Fun_GetCounty(FlatComboBoxCounty,'所有',FlatComboBoxCity.Text,0,PS_HomeName);
end;

end.