📄 unit_archivescustinfo.pas
字号:
tmp_hometel:=trim(Ed_hometel.text);
//家庭地址
tmp_homeaddr:=trim(Ed_homeaddr.text);
//联系地址
tmp_lxdz:=trim(Ed_lxdz.text);
//生日
tmp_sr:=trim(Ed_sr.text);
//农历生日
tmp_nlsr:=trim(Ed_nlsr.text);
//发卡日期
tmp_fksj:=trim(Ed_fksj.text);
//集团名称
tmp_jtyhmc:=Co_jtyhdm.Text;
//客户属性代码
tmp_sxdm:=Fun_GetCodeName(Co_SXDM);
//性别
tmp_xb:=Fun_GetCodeName(Co_XB);
//其他手机
tmp_othersid:=Trim(Ed_OtherSid.Text);
//业务密码
tmp_pw:=Trim(Ed_PW.TEXT);
//手机品牌
tmp_mobile:=CO_MOBILE_NO.Text;
end;
procedure TFrm_ArchivesCustInfo.Btn_ModifyClick(Sender: TObject);
begin
//左边的gird没有客户信息
if Query_Normal.bof and Query_Normal.eof then
begin
Application.MessageBox('请选择将要修改的客户！','提示',MB_ICONINFORMATION);
Exit;
end;
Case PageControl1.ActivePageIndex of
0,1:
Begin
Fun_ComponentStatus(self,0,true); //输框状态控制(可输入)
co_CityNo.Enabled:=False; //地市
Co_Off_No_Home.Enabled:=False; //局向
Co_DJDM.Enabled:=False; //等级
Co_FDJDM.Enabled:=False; //最高等级
Co_user_zjbs.Enabled:=False; //租机标识
Ed_SDATE.Enabled:=False; //开户日期
Co_stat.Enabled:=False; //手机状态
cb_DJSJBZ.Enabled:=False; //当前等级升降状态
Ed_JFD.Enabled:=False; //积分点
Ed_GXSJ.Enabled:=False; //更新时间
pro_Mtmpsave;//保存初始资料
End;
2: //联系方式
Begin
If Query_RObject.IsEmpty Then
Begin
Application.MessageBox('请选择将要修改的客户联系方式资料！','提示',MB_ICONINFORMATION);
Exit;
End;
Fun_ComponentStatus(self,0,true,Panel_RObject); //输框状态控制(可输入)
DBGrid_RObject.Enabled:=False;
FEDR_LINKMAN.SetFocus;
End;
4: //亲属资料
Begin
If Query_QSB.IsEmpty Then
Begin
Application.MessageBox('请选择将要修改的客户亲属资料！','提示',MB_ICONINFORMATION);
Exit;
End;
Fun_ComponentStatus(self,0,true,Panel_qsb); //输框状态控制(可输入)
DbGrid4.Enabled:=False;
End;
7: //客户喜好
Begin
If QueryGXB.IsEmpty Then
Begin
Application.MessageBox('请选择将要修改的客户喜好资料！','提示',MB_ICONINFORMATION);
Exit;
End;
Fun_ComponentStatus(self,0,true,Panel_GXB); //输框状态控制(可输入)
DbGrid2.Enabled:=False;
End;
End;
ifchk:=0;//初始资料确认标志
kk:=2;//修改
Fun_ButtonStatus(self,true); //按钮有效性控制
PanelLeft.Enabled:=False;
end;
procedure TFrm_ArchivesCustInfo.Btn_DeleteClick(Sender: TObject);
Var
SQL:String;
begin
Try
Begin
Case PageControl1.ActivePageIndex of
0,1: //客户信息
Begin
If Query_Normal.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户资料！','提示',MB_ICONINFORMATION);
Exit;
End;
If Application.MessageBox('是否确定删除该记录.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='insert into T_H_CustInfo (viph,sid,cityno,off_no_home,Modi_type,ModiContent,ManagerNo,Modi_Desc,Modi_Date,Modi_ManagerNo) ';
SQL:=SQL+' select viph,sid,cityno,off_no_home,3,'''+'删除客户'+trim(Ed_sid.text)+''',gh,''删除'',sysdate,'''+gh+'''';
SQL:=SQL+' from T_F_CustInfo where sid='''+trim(Ed_sid.text)+'''';
AnalyzeSQL(SQL); //执行SQL语句
SQL:='Delete From T_F_CustInfo Where Sid='''+Query_Normal.FieldByName('SID').AsString+'''';
AnalyzeSQL(SQL); //删除客户资料
Query_Normal.Close;
Query_Normal.Open;
End;
2: //联系方式
Begin
If Query_RObject.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户联系方式资料！','提示',MB_ICONINFORMATION);
Exit;
End;
If Application.MessageBox('是否确定删除该记录.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='Delete From T_F_CustLink Where ID='+Query_RObject.FieldByName('id').AsString;
AnalyzeSQL(SQL);
Query_RObject.Close;
Query_RObject.Open;
End;
3:; //集团信息
4: //亲属资料
Begin
If Query_QSB.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户资料！','提示',MB_ICONINFORMATION);
Exit;
End;
If Application.MessageBox('是否确定删除该记录.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='Delete From T_F_Relation Where VID='+Query_qsb.FieldByName('Vid').AsString;
AnalyzeSQL(SQL);
Query_QSB.Close;
Query_QSB.Open;
End;
5:; //客户账单
6:; //历史资料
7: //客户喜好
Begin
If QueryGXB.IsEmpty Then
Begin
Application.MessageBox('请选择将要删除的客户喜好资料！','提示',MB_ICONINFORMATION);
Exit;
End;
If Application.MessageBox('是否确定删除该记录.','提示',MB_YesNO)=IDno then
Exit;
SQL:='Delete From T_F_CustIndi Where INDIID='+QueryGXB.FieldByName('INDIID').AsString;
AnalyzeSQL(SQL);
QueryGXB.Close;
QueryGXB.Open;
End;
8:; //服务记录
9:; //营业档案
End;
End;
Except
Begin
Application.MessageBox('系统在执行过程中发生错误！','提示',MB_ICONINFORMATION);
End;
End;
end;
procedure TFrm_ArchivesCustInfo.Btn_ExitClick(Sender: TObject);
begin
close;//关闭窗体.
end;
procedure TFrm_ArchivesCustInfo.Btn_CancelClick(Sender: TObject);
begin
Fun_ButtonStatus(self,false); //按钮有效性控制
Fun_ComponentStatus(self,0,false);
Co_Query_GRADE_ID.Enabled := True;
Co_Query_Property.Enabled := True;
PanelLeft.Enabled:=True;
Case PageControl1.ActivePageIndex Of
0,1:
Begin
ShowRecord(Query_Normal,Panel_Cust_Info);
ShowRecord(Query_Normal,Panel_Fun);
ShowRecord(Query_Normal,Panel_Other);
ShowRecord(Query_Normal,Panel_fkzl);
End;
2:
Begin
ShowRecord(Query_RObject,Panel_RObject);
DBGrid_RObject.Enabled:=True;
End;
4:
Begin
ShowRecord(Query_qsb, Panel_qsb); //显示所选择用户资料
DbGrid4.Enabled:=True;
End;
7:
Begin
QuerygxbAfterScroll(Nil); //显示所选择用户资料
DbGrid2.Enabled:=True;
End;
End;
kk:=0;
end;
procedure TFrm_ArchivesCustInfo.PageControl1Change(Sender: TObject);
begin
If (Not Query_Normal.Active) Then
Exit;
Case PageControl1.ActivePageIndex Of
0,1: //基本资料 其他资料
Begin
ButtonVisible(0);
ShowRecord(Query_Normal,PanelMain1);
ShowRecord(Query_Normal,Panel14);
ShowRecord(Query_Normal,Panel_Cust_Info);
ShowRecord(Query_Normal,Panel_Fun);
ShowRecord(Query_Normal,Panel_Other);
ShowRecord(Query_Normal,Panel_fkzl);
ShowRecord(Query_Normal,Panel_King);
End;
2: //联系方式
Begin
If Not Query_Normal.IsEmpty Then
ButtonVisible(1)
Else
ButtonVisible(2);
ShowRecord(Query_Normal,Panel19);
Query_RObject.Close;
Query_RObject.ParamByName('SID').AsString:=Query_Normal.FieldByName('SID').AsString;
Query_RObject.Open;
If Query_RObject.IsEmpty Then
ShowRecord(Query_RObject,Panel_RObject);
End;
3: //集团资料
Begin
ShowRecord(Query_Normal,Panel20);
ButtonVisible(2);
Fun_ButtonStatus(self,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;
//查询大客户的集团 信息
if (Query_Normal.FieldByName('JTYHDM').AsString='') then
Exit;
Query_Jtyh.Close;
Query_Jtyh.SQL.Clear;
Query_Jtyh.SQL.Add('Select * From T_F_GroupInfo Where JTYHDM='+Trim(Query_Normal.FieldByName('JTYHDM').AsString));
Query_Jtyh.Open;
ShowRecord(Query_jtyh, Panel_jtyh); //显示资料
End;
4: //亲属资料
Begin
If Not Query_Normal.IsEmpty Then
ButtonVisible(1)
Else
ButtonVisible(2);
ShowRecord(Query_Normal,Panel21);
Fun_ButtonStatus(self,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;
If (Query_Normal.Fieldbyname('viph').AsString='') Then
Exit;
Query_QSB.Close;
Query_QSB.ParamByName('VIPH').AsString:=Query_Normal.Fieldbyname('viph').AsString;
Query_QSB.Open;
ShowRecord(Query_qsb, Panel_qsb); //显示所选择用户资料
End;
5: //客户账单
Begin
ButtonVisible(2);
ShowRecord(Query_Normal,Panel22);
PageControl2Change(Nil);
End;
6: //修改历史
Begin
ShowRecord(Query_Normal,Panel23);
PageControl2.ActivePageIndex:=0;
ButtonVisible(2);
Fun_ButtonStatus(self,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;
QueryHis.Close;
QueryHis.SQL.Clear;
QueryHis.SQL.Add('Select * From T_H_CustInfo Where Sid='''+Trim(Query_Normal.FieldByName('Sid').AsString)+''' Order By MODI_DATE Desc');
QueryHis.Open;
End;
7: //客户喜好
Begin
If Not Query_Normal.IsEmpty Then
ButtonVisible(1)
Else
ButtonVisible(2);
ShowRecord(Query_Normal,Panel24);
If Not Query_Normal.IsEmpty Then
Fun_ButtonStatus(self,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;
QueryGxb.Close;
QueryGxb.ParamByName('VIPH').AsString:=Query_Normal.Fieldbyname('viph').AsString;
QueryGxb.Open;
End;
8: //服务记录
Begin
ButtonVisible(2);
ShowRecord(Query_Normal,Panel46);
Queryserv.close;
Queryserv.sql.clear;
Queryserv.sql.add('select m.SERVMODE,t.SERVTYPE,s.SERVOBJ,s.Wk_No,s.BEGINTIME,s.endtime,s.objinfo,s.SERVCONT,s.OBJADVICE,s.SERVMONEY,');
Queryserv.sql.add('s.USEMONEY,s.TOTALMONEY,decode(s.SERVKIND,''0'',''主动服务'',''被叫服务'') SERVKIND,decode(s.finish,''0'',''未完成'',''完成'') finish');
Queryserv.sql.add(',q.SERVQUALITY from T_F_ServiceLog s,T_d_ServType t ,T_d_ServMode m ,T_d_ServQuality q');
Queryserv.sql.add(' where s.TYPECODE=t.TYPECODE(+) and s.MODECODE=m.MODECODE(+) and q.QUALITYCODE(+)=s.QUALITYCODE');
Queryserv.sql.add('and OBJTYPE=''0'' and servobj='''+Trim(Ed_Sid.text)+'''');
If cb_fwxz.itemindex=1 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -