📄 unit_archivescustinfo.pas
字号:
Queryserv.sql.add('and s.servkind=''0''');
If cb_fwxz.itemindex=2 then
Queryserv.sql.add('and s.servkind=''1''');
Queryserv.open;
End;
9:
Begin //客户投诉
ButtonVisible(2);
ShowRecord(Query_Normal,Panel25);
Query_Appeal.Close;
Query_Appeal.ParamByName('SID').AsString:=Query_Normal.FieldByName('SID').AsString;
Query_Appeal.Open;
If Query_Appeal.IsEmpty Then
Query_AppealAfterScroll(Nil);
End;
10: //服务定制
Begin
ButtonVisible(2);
ShowRecord(Query_Normal,Panel27);
Query_DESTINE.Close;
Query_DESTINE.ParamByName('SID').AsString:=Query_Normal.FieldByName('SID').AsString;
Query_DESTINE.Open;
End;
11: //营业档案
Begin
if trim(Ed_Query_Sid.Text)<>'' then //传送查询的手机号码
begin
Edacc_sid.Text :=trim(Ed_Query_Sid.Text);
//************去查询客户姓名****************
QueryGxb.Close;
QueryGxb.ParamByName('VIPH').AsString:=Query_Normal.Fieldbyname('viph').AsString;
QueryGxb.Open;
//
Quy_temp.close;
Quy_temp.sql.text :=
'select RLN_NAME from T_F_CustInfo where SID='+#39+trim(Ed_Query_Sid.Text)+#39;
Quy_temp.open;
// edacc_name.text :=Quy_temp.fields[0].asstring;
//******************************************
Selectrecord ; //查询档案
End
Else
begin
edacc_sid.Text :='';
edacc_sid.SetFocus;
End;
ButtonVisible(2);
PageControlMain.ActivePageIndex:=0;
Fun_GetCounty(cbacc_off_no_home,' ',Co_Query_CITYCODE.text);//初始下拉框值
// Fun_ComponentStatus(self,1,False); // 清空输入框数值
Fun_ComponentStatus(self,0,False); // 使输入框无效,用户不可以输入数值
//zqs
Co_Query_CITYCODE.Enabled :=true;
Co_Query_OFF_NO_HOME.Enabled :=true;
Co_Query_GRADE_ID.Enabled:=True;
Co_Query_Property.Enabled:=True;
edacc_sid.ReadOnly:=False;
End;
End;
end;
procedure TFrm_ArchivesCustInfo.Btn_Query_NormalClick(Sender: TObject);
var
SQL : String; //存储查询语句
ValueString:String; //存储控件值中的返回代码
begin
PageControl1.ActivePageIndex:=0; //将客户资料中切换到第一页中
SQL := 'Select * from T_F_CustInfo where fybz<>''0'' ';
//等级
If Co_Query_GRADE_ID.ItemIndex >0 then
SQL := SQL + ' And DJDM='+Fun_GetCodeName(Co_Query_GRADE_ID);
//工号
If Trim(Ed_Wk_No.Text) <> '' then
SQL := SQL + ' and GH= '''+Ed_Wk_No.Text+'''';
//手机号码
If Trim(Ed_Query_Sid.Text) <> '' then
SQL := SQL + ' and Sid='''+ Ed_Query_Sid.text+'''';
//客户属性
If trim(Co_Query_Property.text)<>'' then
SQL := SQL + ' and SXDM=' + Fun_GetCodeName(Co_Query_Property);
//地市
ValueString:=Fun_GetCity(Co_Query_CITYCODE,'',1);
If ValueString<>'' Then
SQL := SQL + ' and CityNo='+ValueString ;
//局向
ValueString:=Fun_GetCounty(Co_Query_OFF_NO_HOME,'','',1);
if ValueString<>'' then
SQL := SQL + ' and OFF_NO_HOME='+ValueString;
//卡号
If Trim(FlatEdit1.Text)<>'' Then
SQL := SQL + ' And VIP_NO='''+Trim(FlatEdit1.Text)+'''';
//姓名
If Trim(FlatEdit3.Text)<>'' Then
SQL := SQL + ' And ACT_USER Like ''%'+Trim(FlatEdit3.Text)+'%''';
Query_Normal.Close;
Query_Normal.DisableControls;
Query_Normal.Sql.Clear;
Query_Normal.Sql.Add(SQL);
Query_Normal.Open;
Query_Normal.EnableControls;
If Query_Normal.IsEmpty Then
Begin
ButtonStatus(False);
If (Trim(Ed_Query_Sid.Text)='') Or (Length(Trim(Ed_Query_Sid.Text))<>11) Then
Begin
Exit;
End;
If Application.MessageBox('对不起，查无此记录。是否继续查询其营业档案资料','提示',MB_YesNO)=Idno then
Exit;
PageControl1.ActivePageIndex:=7;
PageControl1Change(Nil);
End
Else
ButtonStatus(True);
// if Query_Normal.RecordCount>0 then
// begin
// DBGrid_NormalCellClick(nil);
// Query_Normal.first;//多条记录时指向第一条
// Query_Normal.AfterScroll(nil); //显示资料
// end
// else // 查无记录则提示查询营业系统
{
If Query_Normal.Eof And Query_Normal.Bof Then
if Ed_Query_Sid.text<>'' then
begin
if Application.MessageBox('对不起，查无此记录。是否继续查询其营业档案资料','系统提示',MB_YesNO)=Idno then
Exit;
Btn_Query_AdvClick(nil);
end
else
begin
if Application.MessageBox('对不起，查无此记录.','系统提示',MB_YesNO)=IDno then
Exit;
end;
}
end;
procedure TFrm_ArchivesCustInfo.Query_NormalAfterScroll(DataSet: TDataSet);
begin
PageControl1Change(Nil);
end;
procedure TFrm_ArchivesCustInfo.Co_Query_CITYCODEChange(Sender: TObject);
begin
Fun_GetCounty(Co_Query_OFF_NO_HOME,'所有',Co_Query_CITYCODE.text,0,PS_HomeName);//返回所管辖的局向
Fun_GetCounty(Co_OFF_NO_HOME,'',Co_Query_CITYCODE.text,0,PS_HomeName); //返回所管辖的局向
Fun_GetCounty(cbacc_off_no_home,'',Co_Query_CITYCODE.text,0,PS_HomeName);//返回所管辖的局向
end;
procedure TFrm_ArchivesCustInfo.Ed_Query_SidKeyPress(Sender: TObject;
var Key: Char);
begin
if not (key in ['0'..'9', #8, #13]) then
key := #0;
If Key=#13 Then
Btn_Query_NormalClick(Nil);
end;
procedure TFrm_ArchivesCustInfo.Co_CITYNOChange(Sender: TObject);
begin
Fun_GetCounty(Co_OFF_NO_HOME,'',Co_CityNo.text,0,PS_HomeName);
end;
procedure TFrm_ArchivesCustInfo.Chk_CONFClick(Sender: TObject);
begin
ifchk:=1;
end;
procedure TFrm_ArchivesCustInfo.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := CaFree;
end;
procedure TFrm_ArchivesCustInfo.SelectRecord;
Var
SQL:String;
ValueString:String;
LinkString:String;
begin //查询档案
//注意：以下代码为临时使用，到三期BOSS启用时，可能要进一步完善
ValueString:=Fun_GetCity(Co_Query_CITYCODE,'',1);
If ValueString='' Then
Begin
Application.MessageBox('请选择将要查找的地市！','提示',MB_ICONINFORMATION);
Co_Query_CITYCODE.SetFocus;
Exit;
End;
Case StrToInt(ValueString) Of
591:LinkString:='Link_FZ';
592:LinkString:='Link_XM';
593:LinkString:='Link_ND';
594:LinkString:='Link_PT';
595:LinkString:='Link_QZ';
596:LinkString:='Link_ZZ';
597:LinkString:='Link_LY';
598:LinkString:='Link_SM';
599:LinkString:='Link_NP';
End;
//临时代码结束
QueryAccGsm.Close;
QueryAccGsm.SQL.Clear;
//注意:该代码为漳州个性化代码,在将客户档案模块移植至省公司版本时,应添加ACC_GSM的数据链
QueryAccGsm.SQL.Add('Select * From Acc_Gsm@'+LinkString+' Where Sid='+Trim(Edacc_sid.Text));
// QueryAccGsm.SQL.Add('Select * From Acc_Gsm Where Sid='+Trim(Edacc_sid.Text));
//注意:个性化代码结束
QueryAccGsm.Open;
If QueryAccGsm.IsEmpty Then
Application.MessageBox('未查找到该客户的信息！','提示',MB_ICONINFORMATION);
PageControlMainChange(Nil);
end;
procedure TFrm_ArchivesCustInfo.PageControlMainChange(Sender: TObject);
Var
SQL:String;
ValueString:String;
LinkString:String;
ZJE,ZXZJE,ZQFJE:Real;
begin
if Trim(edacc_sid.Text) = '' then Exit ;
Case PageControlMain.ActivePageIndex Of
0:
Begin
ShowRecord(QueryAccGsm,Panel5);
ShowRecord(QueryAccGsm,Panel_acc);
ShowRecord(QueryAccGsm,Panelacc_fun);
End;
1:
Begin
ShowRecord(QueryAccGsm,Panel_qtzl);
End;
2:
Begin
ShowRecord(QueryAccGsm,Panelacc_fkzl);
End;
3:
Begin
If Length(Trim(edacc_sid.Text))<>11 Then
Begin
Application.MessageBox('请正确填写将要查找的客户手机号码！','提示',MB_ICONINFORMATION);
PageControlMain.ActivePageIndex:=0;
Exit;
End;
//注意：以下代码为临时使用，到三期BOSS启用时，可能要进一步完善
ValueString:=Fun_GetCity(Co_Query_CITYCODE,'',1);
If ValueString='' Then
Begin
Application.MessageBox('请选择将要查找的地市！','提示',MB_ICONINFORMATION);
Co_Query_CITYCODE.SetFocus;
Exit;
End;
Case StrToInt(ValueString) Of
591:LinkString:='Link_FZ';
592:LinkString:='Link_XM';
593:LinkString:='Link_ND';
594:LinkString:='Link_PT';
595:LinkString:='Link_QZ';
596:LinkString:='Link_ZZ';
597:LinkString:='Link_LY';
598:LinkString:='Link_SM';
599:LinkString:='Link_NP';
End;
//临时代码结束
SQL:='select SID,CZ_DATE,'+
'gk_je/1000 gk_je,'+
'gkznj_je/1000 gkznj_je,'+
'ZZD_JE/1000 ZZD_JE,'+
'(XZ_JE+GK_JE)/1000 XZ_JE,'+
'ZNJ_JE/1000 ZNJ_JE,'+
'XZ_DATE,XZ_BZ,'+
'BA_JE/1000 BA_JE ,'+
'FJGN_JE/1000 FJGN_JE,'+
'WW_JE/1000 WW_JE,'+
'SH_JE/1000 SH_JE,'+
'NH_JE/1000 NH_JE,'+
'CH_JE/1000 CH_JE,'+
'FJ_JE/1000 FJ_JE,'+
'GJ_JE/1000 GJ_JE,'+
'SNSH_JE/1000 SNSH_JE,'+
'SNNH_JE/1000 SNNH_JE,'+
'SNCH_JE/1000 SNCH_JE,'+
'SNFJ_JE/1000 SNFJ_JE,'+
'SNGJ_JE/1000 SNGJ_JE,'+
'SJSH_JE/1000 SJSH_JE,'+
'SJCH_JE/1000 SJCH_JE,'+
'SJFJ_JE/1000 SJFJ_JE,'+
'SJNH_JE/1000 SJNH_JE,'+
'SJGJ_JE/1000 SJGJ_JE,'+
'GMTH_JE/1000 GMTH_JE,'+
'GMCH_JE/1000 GMCH_JE,'+
'YW_JE/1000 YW_JE,'+
'DK_JE/1000 DK_JE,'+
'ZD_JE/1000 ZD_JE,'+
'ZYH_JE/1000 ZYH_JE,'+
'XZ_ERRO,USER_ZJBS'+
' from cw_gsm_izd '+ //@'+LinkString+漳州用的
' where sid='+Trim(edacc_sid.Text);
QueryCW_GSM_izd.Close;
QueryCW_GSM_izd.SQL.Clear;
QueryCW_GSM_izd.SQL.Add(SQL);
QueryCW_GSM_izd.Open;
while not QueryCW_GSM_izd.Eof do
begin
ZJE := ZJE + QueryCW_GSM_izd.FieldByName('zzd_je').AsFloat;
ZXZJE := ZXZJE + QueryCW_GSM_izd.FieldByName('xz_je').AsFloat;
QueryCW_GSM_izd.Next;
end;
QueryCW_GSM_izd.First;
QueryCW_GSM_izd.EnableControls;
ZQFJE := ZJE - ZXZJE;
LabelZJE.Caption := FormatFloat('￥###,###,##0.00',ZJE);
LabelZXZJE.Caption := FormatFloat('￥###,###,##0.00',ZXZJE);
LabelZQFJE.Caption := FormatFloat('￥###,###,##0.00',ZQFJE);
End;
End;
Label21.Caption:='客户号码：'+Trim(edacc_sid.Text);
Label30.Caption:='客户号码：'+Trim(edacc_sid.Text);
Label41.Caption:='客户号码：'+Trim(edacc_sid.Text);
{
if PageControlMain.ActivePageIndex <> 3 then Exit;
FormMain.StatusBarMain.Panels[1].Text:='正在查询该用户的话单数据...';
ZQFJE:=0;
zje := 0;
zxzje := 0;
znj := 0;
if edacc_sid.Text = '' then
begin
Application.MessageBox('请输入电话号码!','嗨',MB_OK);
Exit;
end;
with QueryCW_GSM_izd do
begin
Close;
Par⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -