📄 unit_custindiserv.pas

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
    sValueSQL:=sValueSQL+',To_Date('''+FlatMaskEditEndDate4.Text+' '+FlatMaskEditEndTime4.Text+''',''YYYY-MM-DD HH24:MI'')'
  else
    sValueSQL:=sValueSQL+',To_Date('''',''YYYY-MM-DD HH24:MI'')';
  sValueSQL:=sValueSQL+','''+Trim(FlatMemoServCont4.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjAdvice4.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjInfo4.Text);
  if Trim(FlatEditServMoney4.Text)='' then
    sServMoney:='0'
  else
    sServMoney:=Trim(FlatEditServMoney4.Text);
  sValueSQL:=sValueSQL+''','+sServMoney;
  if Trim(FlatEditUseMoney4.Text)='' then
    sUseMoney:='0'
  else
    sUseMoney:=Trim(FlatEditUseMoney4.Text);
  sValueSQL:=sValueSQL+','+sUseMoney;
  sTotalMoney:=Trim(FlatSpinEditFloatTotalMoney4.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_ClearText4;//清空输入框的值
  //Fun_ButtonStatus(Self,False); //按钮有效性控制
  //Fun_ComponentStatus(Self,0,False);
  sEditFlag:='';



  PL_ClearText4;//清空输入框的值
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  Fun_ComponentStatus(Self,0,False);
  FlatMaskEditBeginDate4.Enabled:=False;
  FlatMaskEditBeginTime4.Enabled:=False;
  FlatRadioButtonCust4.Enabled:=False;
  FlatRadioButtonRela4.Enabled:=False;
  FlatEditObject4Value.Enabled:=False;
  sEditFlag:='';
end;

procedure TFrm_CustIndiServ.FlatComboBoxServMode4Change(Sender: TObject);
begin
  if PageControlServerLog.ActivePageIndex=0 then
    FlatComboBoxServModeT.ItemIndex:=FlatComboBoxServMode1.ItemIndex;
  if PageControlServerLog.ActivePageIndex=3 then
    FlatComboBoxServModeT.ItemIndex:=FlatComboBoxServMode4.ItemIndex;
end;

procedure TFrm_CustIndiServ.FlatComboBoxServQuality4Change(
  Sender: TObject);
begin
  if PageControlServerLog.ActivePageIndex=0 then
    FlatComboBoxServQualityT.ItemIndex:=FlatComboBoxServQuality1.ItemIndex;
  if PageControlServerLog.ActivePageIndex=3 then
    FlatComboBoxServQualityT.ItemIndex:=FlatComboBoxServQuality4.ItemIndex;
end;

procedure TFrm_CustIndiServ.FlatButton4Click(Sender: TObject);
begin
  PL_ClearText4;//清空输入框的值
  Fun_ButtonStatus(Self,False); //按钮有效性控制
  Fun_ComponentStatus(Self,0,False);
  sEditFlag:='';
  FlatMaskEditBeginDate4.Enabled:=False;
  FlatMaskEditBeginTime4.Enabled:=False;
  FlatRadioButtonCust4.Enabled:=False;
  FlatRadioButtonRela4.Enabled:=False;
  FlatEditObject4Value.Enabled:=False;
end;

procedure TFrm_CustIndiServ.FlatComboBoxServMode2Change(Sender: TObject);
begin
  if PageControlServerLog.ActivePageIndex=0 then
    FlatComboBoxServModeT.ItemIndex:=FlatComboBoxServMode1.ItemIndex;
  if PageControlServerLog.ActivePageIndex=2 then
    FlatComboBoxServModeT.ItemIndex:=FlatComboBoxServMode2.ItemIndex;
end;

procedure TFrm_CustIndiServ.FlatComboBoxServQuality2Change(
  Sender: TObject);
begin
  if PageControlServerLog.ActivePageIndex=0 then
    FlatComboBoxServQualityT.ItemIndex:=FlatComboBoxServQuality1.ItemIndex;
  if PageControlServerLog.ActivePageIndex=2 then
    FlatComboBoxServQualityT.ItemIndex:=FlatComboBoxServQuality2.ItemIndex;
{
  if PageControlServerLog.ActivePageIndex=0 then
    FlatComboBoxServQualityT.ItemIndex:=FlatComboBoxServQuality1.ItemIndex;
  if PageControlServerLog.ActivePageIndex=2 then
    FlatComboBoxServQualityT.ItemIndex:=FlatComboBoxServQuality2.ItemIndex;
}    
end;

procedure TFrm_CustIndiServ.FlatEditServMoney4Change(Sender: TObject);
begin
  if Trim(FlatEditServMoney4.Text)=''  then
    FlatEditServMoney4.Text:='0';
  if FlatEditUseMoney4.Text='' then
    FlatEditUseMoney4.Text:='0';
  FlatSpinEditFloatTotalMoney4.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney4.Text))+StrToFloat(Trim(FlatEditUseMoney4.Text)));
end;

procedure TFrm_CustIndiServ.FlatEditUseMoney4Change(Sender: TObject);
begin
  if Trim(FlatEditServMoney4.Text)=''  then
    FlatEditServMoney4.Text:='0';
  if FlatEditUseMoney4.Text='' then
    FlatEditUseMoney4.Text:='0';
  FlatSpinEditFloatTotalMoney4.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney4.Text))+StrToFloat(Trim(FlatEditUseMoney4.Text)));
end;

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

procedure TFrm_CustIndiServ.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_CustIndiServ.FlatCheckBoxFinish4Click(Sender: TObject);
var
  sNow:String;
begin
  sNow:=Fun_GetDate(0,2);
  if FlatCheckBoxFinish4.Checked then
    begin
      FlatMaskEditEndDate4.Text:=Copy(sNow,1,10);
      FlatMaskEditEndTime4.Text:=Copy(sNow,12,5);
    end
  else
    begin
      FlatMaskEditEndDate4.Text:='';
      FlatMaskEditEndTime4.Text:='';
    end;
end;

procedure TFrm_CustIndiServ.PageControlServerLogChange(Sender: TObject);
begin
  if QueryService.Active then QueryService.Close;
  if QueryRela.Active then QueryRela.Close;
  {
  if PageControlServerLog.ActivePageIndex=1 then
  begin
    with QueryService do
    begin
      if Active then Close;
      SQL.Clear;
      //SQL.Add('Select * From T_D_ServiceTopic Where VALIDMARK=0');
      SQL.Add('Select * From T_D_ServiceTopic Where CITYNO='''+PS_CityNo+''' And OFF_NO_HOME='+IntToStr(JX)+' And VALIDMARK=0 ');
      Open;
    end;
  end;
  }
end;

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

procedure TFrm_CustIndiServ.FlatButtonQuery1Click(Sender: TObject);
var
  sRelationSQL:String;
begin
    if Length(Trim(FlatEditObject1Value.Text))<>11 then
    begin
      Application.MessageBox('输入的手机号码不对！','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditObjectName1.Text:='';
      FlatEditObject1Value.Enabled:=True;
      FlatEditObject1Value.SetFocus;
      Fun_ButtonStatus(Self,False); //按钮有效性控制
      Fun_ComponentStatus(Self,0,False);
      FlatButtonCancel1.Enabled:=True;
      FlatMaskEditBeginDate1.Enabled:=False;
      FlatMaskEditBeginTime1.Enabled:=False;
      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(FlatEditObject1Value.Text)+''' And FYBZ=''1'' ');
     Open;
     if Fields[1].AsString='' then
     begin
       Application.MessageBox('对不起！无此大户资料！','提示',MB_OK+MB_ICONINFORMATION);
       FlatEditObjectName1.Text:='';
       Fun_ButtonStatus(Self,False); //按钮有效性控制
       Fun_ComponentStatus(Self,0,False);
       FlatButtonCancel1.Enabled:=True;
       FlatMaskEditBeginDate1.Enabled:=False;
       FlatMaskEditBeginTime1.Enabled:=False;
       FlatEditObject1Value.SetFocus;

       Exit;
     end;
     //亲属服务
     if QueryRela.Active then QueryRela.Close;
     if FlatRadioButtonRela1.Checked then
     begin
      sRelationSQL:='Select VID,VIPH,D2.Par_Desc Rel_Type,Name,D1.Par_Desc Sex,Tel,Addr,Job,Intro ';
      sRelationSQL:=sRelationSQL+' From T_F_Relation R,';
      sRelationSQL:=sRelationSQL+' (Select * From T_D_Config Where Upper(PAR_NAME)=''SEX'') D1,';
      sRelationSQL:=sRelationSQL+' (Select * From T_D_Config Where Upper(PAR_NAME)=''CUSTCONNTYPE'') D2 ';
      sRelationSQL:=sRelationSQL+' Where R.Sex=D1.PAR_VALUES And R.Rel_Type=D2.PAR_VALUES ';
      sRelationSQL:=sRelationSQL+' And R.VIPH='+Trim(QueryTemp.FieldByName('VIPH').AsString);
       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;
}
         if Active then Close;
         SQL.Clear;
         SQL.Add(sRelationSQL);
         Open;
       end;
       if QueryRela.Fields[0].AsString='' then
       begin
         Application.MessageBox('对不起！没有亲属资料！','提示',MB_OK+MB_ICONINFORMATION);
         FlatEditObject1Value.SetFocus;
         Fun_ButtonStatus(Self,False); //按钮有效性控制
         Fun_ComponentStatus(Self,0,False);
         FlatButtonCancel1.Enabled:=True;
         FlatMaskEditBeginDate1.Enabled:=False;
         FlatMaskEditBeginTime1.Enabled:=False;
         Exit;
       end;
     end;
     FlatEditObjectName1.Text:=QueryTemp.Fields[0].AsString;
     with QueryService do
     begin
       if Active then Close;
       SQL.Clear;
       if FlatRadioButtonCust1.Checked then
         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 Serv_Flag=0 And ObjFlag=''0'' And Destine_Type=''1'' And S.ServTop_Id=T.ServTop_Id(+) And VALIDMARK=0');
       if FlatRadioButtonRela1.Checked then
         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 Destine_Type=''1'' And ObjFlag=''2'' And S.ServTop_Id=T.ServTop_Id(+) And VALIDMARK=0');
       Open;
     end;
     if QueryService.Fields[0].AsString<>'' then
       Fun_ButtonStatus(Self,True) //按钮有效性控制
     else
       begin
         Application.MessageBox('对不起！该用户没有定制服务！','提示',MB_OK+MB_ICONINFORMATION);
         Fun_ButtonStatus(Self,False); //按钮有效性控制
         Fun_ComponentStatus(Self,0,False);
         FlatEditObject1Value.SetFocus;
         FlatButtonCancel1.Enabled:=True;
         FlatMaskEditBeginDate1.Enabled:=False;
         FlatMaskEditBeginTime1.Enabled:=False;
         Exit
       end;
    end;
    Fun_ComponentStatus(Self,0,True);
    PL_ControlEnabled(True);
    FlatMaskEditBeginDate1.Text:=Copy(Fun_GetDate(0,2),1,10);
    FlatMaskEditBeginTime1.Text:=Copy(Fun_GetDate(0,2),12,5);
    FlatMaskEditBeginDate1.Enabled:=True;
    FlatMaskEditBeginTime1.Enabled:=True;
end;

procedure TFrm_CustIndiServ.FlatButtonQuery2Click(Sender: TObject);
var
  sNow,sRelationSQL:String;
begin
  Fun_ComponentStatus(Self,0,False);
  //FlatButton3.Enabled:=False;
  FlatButton4.Enabled:=True;
  FlatButton1.Enabled:=True;
  FlatMaskEditBeginDate4.Enabled:=False;
  FlatMaskEditBeginTime4.Enabled:=False;
    if Length(Trim(FlatEditObject4Value.Text))<>11 then
    begin
      Application.MessageBox('输入的手机号码不对！','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditObject4Value.Enabled:=True;
      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.T
上一页 1 2 3 45
💿 文件大小 5793 K
👤 上传用户 jjkk778
📂 所属分类邮电通讯系统
🏷️ 相关标签

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

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