?? unit_custindiserv.pas

?? 中國移動大客戶管理系統(tǒng)
?? PAS
?? 第 1 頁 / 共 5 頁
字號:
  FlatEditObject2Value.Enabled:=pfFlag;
  FlatEditObjectName2.Enabled:=pfFlag;
  FlatComboBoxServQuality2.Enabled:=pfFlag;
  FlatEditServMoney2.Enabled:=pfFlag;
  FlatEditUseMoney2.Enabled:=pfFlag;
  FlatMemo1.Enabled:=pfFlag;
  FlatMemoObjInfo2.Enabled:=pfFlag;
  FlatMemoObjAdvice2.Enabled:=pfFlag;
end;

procedure TFrm_CustIndiServ.PL_ExecSQL(psSQL:String);
var
  QueryTmp:TQuery;
begin
  Application.CreateForm(TQuery,QueryTmp);
  QueryTmp.DatabaseName:=DM_Main.Databasedh.DatabaseName;
  if DM_Main.Databasedh.InTransaction=True then
    DM_Main.Databasedh.Rollback;
  DM_Main.Databasedh.StartTransaction;
  try
    with QueryTmp do
    begin
      if Active then Close;
      SQL.Clear;
      SQL.Add(psSQL);
      ExecSQL;
    end;
    DM_Main.Databasedh.Commit;
  except
    DM_Main.Databasedh.Rollback;
    Application.MessageBox('命令執(zhí)行失??！請重試。', '提示', MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  QueryTmp.Free;
end;

//填充編輯框
procedure TFrm_CustIndiServ.PL_FillServiceLog;
var
  sWk_No:String;
begin
  if QueryServeLog2.Eof then
  begin
    PL_ClearText2; //清空修改編輯框
    LabelServiceCode2.Caption:='服務(wù)序號';
    Exit;
  end;
  with QueryServeLog2 do
  begin
    LabelServiceCode2.Caption:=FieldByName('SERVICECODE').AsString;
    if FieldByName('ObjFlag').AsString='大戶' then
      FlatCheckBoxVIP2.Checked:=True
    else
      FlatCheckBoxVIP2.Checked:=False;
    if FieldByName('FINISH').AsString='完成' then
      FlatCheckBoxFinish2.checked:=False
    else
      FlatCheckBoxFinish2.checked:=True;
   //FlatComboBoxServMode2.Text:=FieldByName('SERVMODE').AsString;
   FlatComboBoxServMode2.ItemIndex:=FlatComboBoxServMode2.Items.IndexOf(FieldByName('SERVMODE').AsString);
   //
   FlatComboBoxServiceTopic.ItemIndex:=FlatComboBoxServiceTopic.Items.IndexOf(FieldByName('SERV_TOPIC').AsString);
   FlatEditObject2Value.Text:=FieldByName('SERVOBJ').AsString;
   FlatEditObjectName2.Text:=FieldByName('OBJNAME').AsString;
   //FlatComboBoxServQuality2.Text:=FieldByName('SERVQUALITY').AsString;
   FlatComboBoxServQuality2.ItemIndex:=FlatComboBoxServQuality2.Items.IndexOf(FieldByName('SERVQUALITY').AsString);
   //FlatComboBoxServKind2.Text:=FieldByName('SERVKIND').AsString;
   if FieldByName('SERVKIND').AsString='主動服務(wù)' then
     FlatComboBoxServKind2.ItemIndex:=0
   else
     FlatComboBoxServKind2.ItemIndex:=1;
   FlatComboBoxServKind2.Text:=FieldByName('SERVKIND').AsString;
   FlatMaskEditBeginDate2.Text:=FieldByName('BEG_DATE').AsString;
   FlatMaskEditBeginTime2.Text:=FieldByName('BEG_TIME').AsString;
   FlatMaskEditEndDate2.Text:=FieldByName('END_DATE').AsString;
   FlatMaskEditEndTime2.Text:=FieldByName('END_TIME').AsString;
   FlatEditServMoney2.Text:=FieldByName('SERVMONEY').AsString;
   FlatEditUseMoney2.Text:=FieldByName('USEMONEY').AsString;
   FlatSpinEditFloat1.value:=StrToFloat(FieldByName('TOTALMONEY').AsString);
   FlatMemo1.Text:=FieldByName('SERVCONT').AsString;
   FlatMemoObjInfo2.Text:=FieldByName('OBJINFO').AsString;
   FlatMemoObjAdvice2.Text:=FieldByName('Advice').AsString;
  end;

{
  if TreeView1.Selected=Nil 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;
  if QueryServeLog2.Eof then Exit;
    Showmessage(sWk_No);
    Showmessage(QueryServeLog2.FieldByName('Advice').AsString+'<>'+QueryServeLog2.FieldByName('Wk_NO').AsString);
    FlatMemoObjAdvice2.Text:=QueryServeLog2.FieldByName('Advice').AsString;
}

end;

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

procedure TFrm_CustIndiServ.FlatRadioButtonCust1Click(Sender: TObject);
begin
  if FlatRadioButtonCust1.Checked then
  begin
    LabelObject1.Caption:='手機號碼';
    LabelObjectName1.Caption:='用戶姓名';
  end;

end;

procedure TFrm_CustIndiServ.FlatEditObject1ValueKeyPress(Sender: TObject;
  var Key: Char);
begin
  if QueryService.Active then QueryService.Close;
  if QueryRela.Active then QueryRela.Close;
  //FlatButtonCancel1.Enabled:=True;
  if not (key In ['0'..'9', #13, #8]) Then
    Key := #0;
  if Key=#13 then
  begin
    FlatButtonQuery1Click(Nil);
  end;
{
  if QueryService.Active then QueryService.Close;
  if QueryRela.Active then QueryRela.Close;
  //FlatButtonCancel1.Enabled:=True;
  if not (key In ['0'..'9', #13, #8]) Then
    Key := #0;
  if Key=#13 then
  begin
    if Length(Trim(FlatEditObject1Value.Text))<>11 then
    begin
      Application.MessageBox('輸入的手機號碼不對！','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditObjectName1.Text:='';
      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;
     //親屬服務(wù)
     if QueryRela.Active then QueryRela.Close;
     if FlatRadioButtonRela1.Checked then
     begin
       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;
       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 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 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('對不起！該用戶沒有定制服務(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.Enabled:=True;
    FlatMaskEditBeginTime1.Enabled:=True;
  end;
}
end;

procedure TFrm_CustIndiServ.FlatEditServMoney1KeyPress(Sender: TObject;
  var Key: Char);
begin
  If not (key In ['0'..'9', '.', #13, #8]) Then
      key := #0;
end;

procedure TFrm_CustIndiServ.FlatEditUseMoney1KeyPress(Sender: TObject;
  var Key: Char);
begin
  If not (key In ['0'..'9', '.', #13, #8]) Then
      key := #0;
end;

procedure TFrm_CustIndiServ.FlatEditServMoney1Change(Sender: TObject);
begin
  if Trim(FlatEditServMoney1.Text)=''  then
    FlatEditServMoney1.Text:='0';
  if FlatEditUseMoney1.Text='' then
    FlatEditUseMoney1.Text:='0';
  FlatSpinEditFloatTotalMoney1.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney1.Text))+StrToFloat(Trim(FlatEditUseMoney1.Text)));
end;

procedure TFrm_CustIndiServ.FlatEditUseMoney1Change(Sender: TObject);
begin
  if Trim(FlatEditServMoney1.Text)=''  then
    FlatEditServMoney1.Text:='0';
  if FlatEditUseMoney1.Text='' then
    FlatEditUseMoney1.Text:='0';
  FlatSpinEditFloatTotalMoney1.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney1.Text))+StrToFloat(Trim(FlatEditUseMoney1.Text)));
end;

procedure TFrm_CustIndiServ.FlatMaskEditEndDate1Exit(
  Sender: TObject);
begin
{
  if Trim(FlatMaskEditEndDate1.Text)<>'' then
  begin
    try
     StrToDate(FlatMaskEditEndDate1.Text);
    except
      Application.MessageBox('輸入的日期格式不對！,正確格式:YYYY-MM-DD','提示',MB_OK+MB_ICONINFORMATION);
      FlatMaskEditEndDate1.SetFocus;
      Exit;
    end;
  end;
}
end;

procedure TFrm_CustIndiServ.FlatMaskEditBeginDate1Exit(Sender: TObject);
begin
{
  if Trim(FlatMaskEditBeginDate1.Text)<>'' then
  begin
    try
     StrToDate(FlatMaskEditBeginDate1.Text);
    except
      Application.MessageBox('輸入的日期格式不對！,正確格式:YYYY-MM-DD','提示',MB_OK+MB_ICONINFORMATION);
      FlatMaskEditBeginDate1.SetFocus;
      Exit;
    end;
  end;
}  
end;

procedure TFrm_CustIndiServ.FlatButtonAdd1Click(Sender: TObject);
var
  sNow:String;
begin
  PL_ClearText1;//清空輸入框的值
  //Fun_ButtonStatus(Self,True); //按鈕有效性控制
{
  Fun_ComponentStatus(Self,0,True);
  PL_ControlEnabled(True);
  FlatMaskEditBeginDate1.Enabled:=True;
  FlatMaskEditBeginTime1.Enabled:=True;
}  
  FlatRadioButtonCust1.Enabled:=True;
  FlatRadioButtonRela1.Enabled:=True;
  FlatButtonCancel1.Enabled:=True;
  FlatEditObject1Value.Enabled:=True;
  FlatEditObject1Value.SetFocus;
  FlatMaskEditBeginDate1.Text:=Copy(sNow,1,10);
  FlatMaskEditBeginTime1.Text:=Copy(sNow,12,5);
  sEditFlag:='I';
  if QueryService.Active then QueryService.Close;
  if QueryRela.Active then QueryRela.Close;
end;

procedure TFrm_CustIndiServ.FlatButtonSave1Click(Sender: TObject);
var
  sFieldSQL,sValueSQL:String;
  sServMoney,sUseMoney,sTotalMoney:String;
begin
  if Trim(FlatEditObject1Value.Text)='' then
  Begin
    Application.MessageBox('服務(wù)對象不能為空！','提示',MB_OK+MB_ICONINFORMATION);
    FlatEditObject1Value.SetFocus;
    Exit;
  end;
  try
   StrToDate(FlatMaskEditBeginDate1.Text);
  except
    Application.MessageBox('輸入的開始時間不對！正確格式:YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditBeginDate1.SetFocus;
    Exit;
  end;
  {
  try
   StrToDate(FlatMaskEditEndDate1.Text);
  except
    Application.MessageBox('輸入的結(jié)束時間不對！正確格式:YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate1.SetFocus;
    Exit;
  end;
  if FlatMaskEditBeginDate1.Text+FlatMaskEditBeginTime1.Text>=FlatMaskEditEndDate1.Text+FlatMaskEditEndTime1.Text then
?? 文件大小 5825 K
?? 上傳用戶 lyyfengyutongzh
?? 所屬分類企業(yè)管理
??? 相關(guān)標簽

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

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

?? unit_custindiserv.pas

?? 快捷鍵說明
