📄 unit_custindiserv.pas

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 PAS
📖 第 1 页 / 共 5 页
字号:
  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;
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  PL_ControlEnabled(False);
  sEditFlag:='';
end;

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

procedure TFrm_CustIndiServ.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_CustIndiServ.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_CustIndiServ.TabSheet3Show(Sender: TObject);
begin
{
  if not QueryServeLog2.Active then Exit;
  sSERVICECODE:=QueryServeLog2.FieldByName('SERVICECODE').AsString;
  if sSERVICECODE='' then Exit;
}
  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_CustIndiServ.DataSourceServModiDataChange(Sender: TObject;
  Field: TField);
begin
  MemoModiContent.Text:=QueryServModi.FieldByName('ModiContent').AsString;
end;

procedure TFrm_CustIndiServ.FlatButton1Click(Sender: TObject);

begin
  //PL_ClearText4;//清空输入框的值
  //Fun_ButtonStatus(Self,True); //按钮有效性控制
  //Fun_ComponentStatus(Self,0,True);
  FlatButton4.Enabled:=True;
  if QueryRela.Active then QueryRela.Close;
  FlatRadioButtonCust4.Enabled:=True;
  FlatRadioButtonRela4.Enabled:=True;
  FlatButton4.Enabled:=True;
  FlatEditObject4Value.Enabled:=True;
  //FlatEditObject4Value.Text:='';
  FlatEditObject4Value.SetFocus;
  sEditFlag:='I';
end;

procedure TFrm_CustIndiServ.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_CustIndiServ.FlatButtonUpdate2Click(Sender: TObject);
begin
  if LabelServiceCode2.Caption='服务序号' then Exit;
  Fun_ButtonStatus(Self,True); //按钮有效性控制
  PL_ControlEnabled(True);
  FlatMemoObjAdvice2.Enabled:=True;
  sEditFlag:='U';
end;

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

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

procedure TFrm_CustIndiServ.DataSourceRelaDataChange(Sender: TObject;
  Field: TField);
begin
  if QueryRela.Fields[0].AsString='' then Exit;
  if FlatRadioButtonRela1.Checked then
  begin
    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(FlatEditObject1Value.Text)+''' And VID='+QueryRela.FieldByName('VID').AsString+' And Serv_Flag=0 And S.ServTop_Id=T.ServTop_Id And VALIDMARK=0');
      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(FlatEditObject1Value.Text)+''' And VID='+QueryRela.FieldByName('VID').AsString+' And Serv_Flag=0 And ObjFlag=''2'' And Destine_Type=''1'' And S.ServTop_Id=T.ServTop_Id And VALIDMARK=0');
      Open;
    end;
  end;
  if QueryService.Fields[0].AsString<>'' then
  begin
    Fun_ButtonStatus(Self,True); //按钮有效性控制
    Fun_ComponentStatus(Self,0,True);
    PL_ControlEnabled(True);
    FlatMaskEditBeginDate1.Enabled:=True;
    FlatMaskEditBeginTime1.Enabled:=True;

    FlatMaskEditBeginDate4.Enabled:=True;
    FlatMaskEditBeginTime4.Enabled:=True;
    FlatMaskEditBeginDate1.Text:=Copy(Fun_GetDate(0,2),1,10);
    FlatMaskEditBeginTime1.Text:=Copy(Fun_GetDate(0,2),12,5);
  end
  else
  begin
    Fun_ButtonStatus(Self,False); //按钮有效性控制
    Fun_ComponentStatus(Self,0,False);
    PL_ControlEnabled(False);
    FlatMaskEditBeginDate1.Enabled:=False;
    FlatMaskEditBeginTime1.Enabled:=False;
    FlatButtonCancel1.Enabled:=True;

    FlatMaskEditBeginDate4.Enabled:=False;
    FlatMaskEditBeginTime4.Enabled:=False;
  end;
end;

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

procedure TFrm_CustIndiServ.FlatEditObject4ValueKeyPress(Sender: TObject;
  var Key: Char);
var
  sNow:String;
begin
  if not (key In ['0'..'9', #13, #8]) Then
    Key := #0;
  Fun_ComponentStatus(Self,0,False);
  FlatButton3.Enabled:=False;
  FlatButton4.Enabled:=True;
  FlatButton1.Enabled:=True;
  FlatMaskEditBeginDate4.Enabled:=False;
  FlatMaskEditBeginTime4.Enabled:=False;
  if Key=#13 then
  begin
    FlatButtonQuery2Click(Nil);
  end;
{
  if not (key In ['0'..'9', #13, #8]) Then
    Key := #0;
  Fun_ComponentStatus(Self,0,False);
  FlatButton3.Enabled:=False;
  FlatButton4.Enabled:=True;
  FlatButton1.Enabled:=True;
  FlatMaskEditBeginDate4.Enabled:=False;
  FlatMaskEditBeginTime4.Enabled:=False;
  if Key=#13 then
  begin
    if Length(Trim(FlatEditObject4Value.Text))<>11 then
    begin
      Application.MessageBox('输入的手机号码不对！','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditObject4Value.SetFocus;
      Fun_ButtonStatus(Self,False); //按钮有效性控制
      FlatButton4.Enabled:=True;
      FlatEditObjectName4.Text:='';
      Exit;
    end;
    with QueryTemp do
    begin
     if Active then Close;
     SQL.Clear;
     SQL.Add('Select Act_User,VIPH From T_F_CustInfo Where SID='''+Trim(FlatEditObject4Value.Text)+''' And FYBZ=''1'' ');
     Open;
     if Fields[1].AsString='' then
     begin
       Application.MessageBox('对不起！没有大户资料的记录！','提示',MB_OK+MB_ICONINFORMATION);
       Fun_ButtonStatus(Self,False); //按钮有效性控制
       FlatButton4.Enabled:=True;
       //Fun_ComponentStatus(Self,0,False);
       FlatEditObjectName4.Clear;
       FlatEditObject4Value.SetFocus;

       FlatEditObjectName4.Text:='';

       Exit;
     end;
     //亲属服务
     if QueryRela.Active then QueryRela.Close;
     if FlatRadioButtonRela4.Checked then
     begin
       with QueryRela do
       begin
         if Active then Close;
         SQL.Clear;
         SQL.Add('Select VID,VIPH,Decode(Rel_Type,0,''亲属'',1,''商务伙伴'',2,''朋友'') Rel_Type,Name,Decode(Sex,''M'',''男'',''F'',''女'') Sex,Tel,Addr,Job,Intro From T_F_Relation Where VIPH='+Trim(QueryTemp.FieldByName('VIPH').AsString));
         Open;
       end;
       if QueryRela.Fields[0].AsString='' then
       begin
         Application.MessageBox('对不起！没有亲属资料！','提示',MB_OK+MB_ICONINFORMATION);
         FlatEditObject4Value.SetFocus;
         Fun_ButtonStatus(Self,False); //按钮有效性控制
         FlatButton4.Enabled:=True;
         Exit;
       end;
     end;
     FlatEditObjectName4.Text:=QueryTemp.Fields[0].AsString;
     Fun_ButtonStatus(Self,True); //按钮有效性控制
    end;
    Fun_ComponentStatus(Self,0,True);
    PL_ControlEnabled(True);
    FlatMaskEditBeginDate4.Enabled:=True;
    sNow:=Fun_GetDate(0,2);
    FlatMaskEditBeginTime4.Enabled:=True;
    FlatMaskEditBeginDate4.Text:=Copy(sNow,1,10);
    FlatMaskEditBeginTime4.Text:=Copy(sNow,12,5);
    if FlatCheckBoxFinish4.Checked then
      FlatCheckBoxFinish4.Checked:=False;
  end;
}
end;

procedure TFrm_CustIndiServ.FlatButton3Click(Sender: TObject);
var
  sFieldSQL,sValueSQL:String;
  sServMoney,sUseMoney,sTotalMoney:String;
begin
  if QueryService.FieldByName('ServTop_Id').AsString='' then
  begin
    Application.MessageBox('对不起，该用户没有定性个性化服务！','提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  if Trim(FlatEditObject4Value.Text)='' then
  Begin
    Application.MessageBox('服务对象不能为空！','提示',MB_OK+MB_ICONINFORMATION);
    FlatEditObject4Value.SetFocus;
    Exit;
  end;
  try
   StrToDate(FlatMaskEditBeginDate4.Text);
  except
    Application.MessageBox('输入的开始时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditBeginDate4.SetFocus;
    Exit;
  end;
{
  try
   StrToDate(FlatMaskEditEndDate4.Text);
  except
    Application.MessageBox('输入的结束时间不对！正确格式:YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate4.SetFocus;
    Exit;
  end;
  if FlatMaskEditBeginDate4.Text+FlatMaskEditBeginTime4.Text>=FlatMaskEditEndDate4.Text+FlatMaskEditEndTime4.Text then
  begin
    Application.MessageBox('结束时间不能小于开始时间！正确格式:YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate4.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 FlatRadioButtonCust4.Checked then
    sValueSQL:=sValueSQL+',0';
  if FlatRadioButtonRela4.Checked then
    sValueSQL:=sValueSQL+',2';
  sValueSQL:=sValueSQL+','''+Trim(FlatEditObject4Value.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatEditObjectName4.Text);
  sValueSQL:=sValueSQL+''','+PS_CityNo;
  sValueSQL:=sValueSQL+','+IntToStr(JX);
  //sValueSQL:=sValueSQL+','''+sServTypeCode;
  sValueSQL:=sValueSQL+',4';
  sValueSQL:=sValueSQL+','''+Fun_GetCodeName(FlatComboBoxServMode4);
  //sValueSQL:=sValueSQL+''','''+sServTypeCode;
  sValueSQL:=sValueSQL+''','''+IntToStr(FlatComboBoxServKind4.ItemIndex);
  sValueSQL:=sValueSQL+''','''+Fun_GetCodeName(FlatComboBoxServQuality4);
  if FlatCheckBoxFinish4.Checked then
    sValueSQL:=sValueSQL+''',1'
  else
    sValueSQL:=sValueSQL+''',0';
  sValueSQL:=sValueSQL+','''+GH;
  sValueSQL:=sValueSQL+''',To_Date('''+FlatMaskEditBeginDate4.Text+' '+FlatMaskEditBeginTime4.Text+''',''YYYY-MM-DD HH24:MI'')';
//sValueSQL:=sValueSQL+',To_Date('''+FlatMaskEditEndDate4.Text+' '+FlatMaskEditEndTime4.Text+''',''YYYY-MM-DD HH24:MI'')';
  if Trim(FlatMaskEditEndDate4.Text)<>'' then
💿 文件大小 5793 K
👤 上传用户 jjkk778
📂 所属分类邮电通讯系统
🏷️ 相关标签

#delphi #oracle #中国移动 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -