?? unit_custindiserv.pas

?? 中國移動(dòng)大客戶管理系統(tǒng)
?? PAS
?? 第 1 頁 / 共 5 頁
字號(hào):
上一頁 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('服務(wù)日志登記成功！', '提示', MB_OK+MB_ICONINFORMATION);
  except
    Application.MessageBox('服務(wù)日志登記失敗！', '提示', 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('正在編輯數(shù)據(jù)，請(qǐng)保存或取消后切換。','提示',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('輸入的手機(jī)號(hào)碼不對(duì)！','提示',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('對(duì)不起！無此大戶資料！','提示',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;
     //親屬服務(wù)
     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,''商務(wù)伙伴'',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('對(duì)不起！沒有親屬資料！','提示',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('對(duì)不起！該用戶沒有定制服務(wù)！','提示',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('輸入的手機(jī)號(hào)碼不對(duì)！','提示',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('對(duì)不起！沒有大戶資料的記錄！','提示',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
?? 文件大小 5825 K
?? 上傳用戶 lyyfengyutongzh
?? 所屬分類企業(yè)管理
??? 相關(guān)標(biāo)簽

#中國移動(dòng) #管理系統(tǒng)
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit_custindiserv.pas

?? 快捷鍵說明
