📄 unit_custindiserv.pas

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 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('命令执行失败！请重试。', '提示', 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:='服务序号';
    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='主动服务' 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;
     //亲属服务
     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,''商务伙伴'',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('对不起！该用户没有定制服务！','提示',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('服务对象不能为空！','提示',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('输入的结束时间不对！正确格式:YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate1.SetFocus;
    Exit;
  end;
  if FlatMaskEditBeginDate1.Text+FlatMaskEditBeginTime1.Text>=FlatMaskEditEndDate1.Text+FlatMaskEditEndTime1.Text then
💿 文件大小 5793 K
👤 上传用户 jjkk778
📂 所属分类邮电通讯系统
🏷️ 相关标签

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

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