📄 unit_archivescustinfo.pas
字号:
If fcb_kingsign.Checked Then
sql_result:=sql_result+',kingsign=''1'''
Else
sql_result:=sql_result+',kingsign=''0''';
//转为日期
//生日
if trim(tmp_sr)<>trim(Ed_sr.text) then
Begin
sql_result:=sql_result+',sr=to_date('''+trim(Ed_sr.text)+''',''yyyy-mm-dd'')';
pModiInfo:=pModiInfo+'出生年月:'+tmp_sr+'->'+Trim(Ed_sr.Text)+',';
End;
//农历生日
if trim(tmp_nlsr)<>trim(Ed_nlsr.text) then
Begin
sql_result:=sql_result+',nlsr=to_date('''+trim(Ed_nlsr.text)+''',''yyyy-mm-dd'')';
pModiInfo:=pModiInfo+'农历生日:'+tmp_nlsr+'->'+Trim(Ed_nlsr.Text)+',';
End;
//发卡日期
if trim(tmp_fksj)<>trim(Ed_fksj.text) then
Begin
sql_result:=sql_result+',fksj=to_date('''+trim(Ed_fksj.text)+''',''yyyy-mm-dd'')';
pModiInfo:=pModiInfo+'发卡日期:'+tmp_fksj+'->'+Trim(Ed_fksj.Text)+',';
End;
if trim(tmp_sxdm)<>Fun_GetCodeName(Co_SXDM) then
Begin
sql_result:=sql_result+',SXDM='+Fun_GetCodeName(Co_SXDM);
pModiInfo:=pModiInfo+'客户属性:'+tmp_sxdm+'->'+Co_SXDM.Text+',';
End;
//性别
if trim(tmp_xb)<>Fun_GetCodeName(Co_XB) then
Begin
sql_result:=sql_result+',xb='''+Fun_GetCodeName(Co_XB)+'''';
pModiInfo:=pModiInfo+'客户性别:'+tmp_xb+'->'+Co_XB.Text+',';
End;
//相关手机
If trim(tmp_othersid)<>Trim(ed_othersid.Text) Then
Begin
sql_result:=sql_result+',othersid='''+Trim(Ed_otherSid.Text)+'''';
pModiInfo:=pModiInfo+'相关手机:'+tmp_othersid+'->'+ed_othersid.Text+',';
End;
//业务密码
If trim(tmp_PW)<>Trim(ed_PW.Text) Then
Begin
sql_result:=sql_result+',PW='''+Trim(ed_PW.Text)+'''';
pModiInfo:=pModiInfo+'业务密码:'+tmp_PW+'->'+ed_PW.Text+',';
End;
//手机品牌
If trim(tmp_mobile)<>Trim(co_mobile_no.Text) Then
Begin
sql_result:=sql_result+',mobile_no='''+Fun_GetCodeName(CO_MOBILE_NO)+'''';
pModiInfo:=pModiInfo+'手机品牌:'+tmp_mobile+'->'+co_mobile_no.Text+',';
End;
If pModiInfo<>'' Then
pModiInfo:=Copy(pModiInfo,1,Length(pModiInfo)-1);
end;
procedure TFrm_ArchivesCustInfo.Btn_AddClick(Sender: TObject);
begin
kk:=1;//新增
Fun_ButtonStatus(self,true); //按钮有效性控制
Fun_ComponentStatus(self,0,True); // 使输入框有效,用户可以输入数值
Case PageControl1.ActivePageIndex Of
0,1:; //基本资料/其他资料
2: //联系方式
Begin
Fun_ComponentStatus(self,1,False,Panel_RObject); // 清空,用户可以输入数值
FEDR_Sid.Text:=Query_Normal.FieldByName('Sid').AsString;
FEDR_LinkMan.Text:=Query_Normal.FieldByName('ACT_USER').AsString;
DBGrid_RObject.Enabled:=False;
FEDR_LINKMAN.SetFocus;
End;
3:; //集团信息
4: //客户亲属
Begin
Fun_ComponentStatus(self,1,False,Panel_qsb); // 清空,用户可以输入数值
cbqs_sex.ItemIndex:=cbqs_sex.Items.Count-1;
cbqs_Rel_Type.ItemIndex:=cbqs_Rel_Type.Items.Count-1;
DbGrid4.Enabled:=False;
ecqs_name.SetFocus;
End;
5:; //客户账单
6:; //历史资料
7: //客户喜好
Begin
Fun_ComponentStatus(self,1,False,panel_gxb); // 清空,用户可以输入数值
DbGrid2.Enabled:=False;
End;
8:; //服务日志
9:; //客户投诉
10:; //营业档案
End;
PanelLeft.Enabled:=False;
end;
procedure TFrm_ArchivesCustInfo.FormShow(Sender: TObject);
begin
if PanelLeft.Width <= 100 then //小于一个随意大于1的值
begin
PanelLeft.Width := 193 ; //防止由其他的窗口调用档案
Self.Width := Self.Width + 193 ;
//把窗口的大小恢复到原来的大小，modify by zengzc 2002 08 24
//注意本语句一定要使用否则会出现错误。
// 恢复原来的窗体大小
end;
PageControl1.ActivePageIndex:=0;
Pro_GFillInitValue(Self,' '); //初始化下拉框值
Fun_ButtonStatus(self,false); //按钮有效性控制
Fun_ComponentStatus(self,0,false); //输框状态控制(不可输入)
Ed_Wk_No.ReadOnly:=False;
Co_Query_GRADE_ID.Enabled := True; //激活查询中的等级控件
Co_Query_Property.Enabled := True; //激活查询中的属性控件
Fun_GetIndiTop(cbgx_INDISEQ,' '); //初始化大类兴趣喜好
cbgx_INDISEQChange(Nil); //初始化小类兴趣喜好
Fun_GetCity(Co_CITYNO,'所有',0,PS_CityName); //初始化所管辖的地市
Fun_GetCity(Co_Query_CITYCODE,'所有',0,PS_CityName); //初始化所管辖的地市
Co_Query_CITYCODEChange(Nil); //根据地市初始化局向
Ed_Query_Sid.SetFocus; //将光标指向查询中的手机号码中
ButtonStatus(False);
Fun_Purview(Self,JBDM);
end;
procedure TFrm_ArchivesCustInfo.Btn_SaveClick(Sender: TObject);
var
SQL:String;
Place:TBookmark;
pDate:String;
begin
Case PageControl1.ActivePageIndex of
0,1: //基本资料
Begin
If KK<>2 Then
Exit;
If Application.MessageBox('是否确定修改.','系统提示',MB_YesNO)=IDno then
Exit;
pro_MSAVE_Modify_Result;//获得更新资料
If sql_result='sid='''+trim(Ed_sid.text)+'''' then
Exit; //无资料更新则退出
SQL:='Update T_F_CustInfo Set '+SQL_Result+' Where SID='''+Query_Normal.FieldByName('SID').AsString+'''';
AnalyzeSQL(SQL);
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,1,'''+pModiInfo+''',gh,''修改'',sysdate,'''+gh+'''';
SQL:=SQL+' from T_F_CustInfo where sid='''+trim(Ed_sid.text)+'''';
AnalyzeSQL(SQL);
Place:=Query_Normal.GetBookmark;
Query_Normal.Close;
Query_Normal.Open;
Query_Normal.GotoBookmark(Place);
End;
2: //联系方式
Begin
If FCBR_LINKTYPE.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择对象类型！','提示',MB_ICONINFORMATION);
Exit;
End;
If kk=1 then
Begin
If Application.MessageBox('是否确定增加该记录.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='Insert Into T_F_CustLink (ID,SID,LINKMAN,LINKSID,LINKTEL,LINKADDR,POSTCODE,LINKTYPE) Values (seq_custlink_id.nextval,'''+
Trim(FEDR_Sid.Text)+''','''+Trim(FEDR_LinkMan.Text)+''','''+Trim(FEDR_LinkSID.Text)+''','''+Trim(FEDR_LinkTel.Text)+''','''+
Trim(FEDR_LinkAddr.Text)+''','''+Trim(FEDR_PostCode.Text)+''','+Fun_GetCodeName(FCBR_LINKTYPE)+')';
AnalyzeSQL(SQL);
Query_RObject.Close;
Query_RObject.Open;
DBGrid_RObject.Enabled:=True;
End;
///修改
If kk=2 then
begin
if Application.MessageBox('是否确定修改该记录.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='Update T_F_CustLink Set LinkMan='''+Trim(FEDR_LinkMan.Text)+''','+
'LINKSID='''+Trim(FEDR_LinkSID.Text)+''','+
'LINKTEL='''+Trim(FEDR_LinkTel.Text)+''','+
'LINKADDR='''+Trim(FEDR_LinkAddr.Text)+''','+
'POSTCODE='''+Trim(FEDR_PostCode.Text)+''','+
'LINKTYPE='+Fun_GetCodeName(FCBR_LINKTYPE)+
'Where ID='+Query_RObject.FieldByName('ID').AsString;
AnalyzeSQL(SQL);
Query_RObject.Close;
Query_RObject.Open;
End;
DBGrid_RObject.Enabled:=True;
End;
3:; //集团信息
4: //亲属资料
Begin
If cbqs_sex.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择客户性别！','提示',MB_ICONINFORMATION);
Exit;
End;
If cbqs_Rel_Type.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择客户关系类型！','提示',MB_ICONINFORMATION);
Exit;
End;
If DateTimePicker_BIRTHDAY.Checked Then
pDate:='To_Date('''+FormatDateTime('YYYY-MM-DD',DateTimePicker_BIRTHDAY.DateTime)+''',''YYYY-MM-DD'')'
Else
pDate:='''''';
If kk=1 then
Begin
If Application.MessageBox('是否确定增加该记录.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='Insert Into T_F_Relation (CITYNO,OFF_NO_HOME,VID,VIPH,REL_TYPE,RELATION,NAME,SEX,BIRTHDAY,TEL,ADDR,JOB,INTRO) Values ('''+
Query_Normal.FieldByName('CityNo').AsString+''','+Query_Normal.FieldByName('Off_No_Home').AsString+',SEQ_VID.Nextval,'+
Query_Normal.Fieldbyname('viph').AsString+','+Fun_GetCodeName(cbqs_Rel_Type)+','''','''+Trim(ecqs_name.Text)+''','''+
Fun_GetCodeName(cbqs_sex)+''','+pDate+','''+Trim(edqs_tel.Text)+''','''+
Trim(edqs_Addr.Text)+''','''+Trim(edqs_Job.Text)+''','''+Trim(meqs_Intro.Text)+''')';
End;
///修改
If kk=2 then
begin
if Application.MessageBox('是否确定修改该记录.','系统提示',MB_YesNO)=IDno then
Exit;
SQL:='Update T_F_Relation Set REL_TYPE='+Fun_GetCodeName(cbqs_Rel_Type)+','+
'NAME='''+Trim(ecqs_name.Text)+''','+
'SEX='''+Fun_GetCodeName(cbqs_sex)+''','+
'BIRTHDAY='+pDate+','+
'TEL='''+Trim(edqs_tel.Text)+''','+
'ADDR='''+Trim(edqs_Addr.Text)+''','+
'Job='''+Trim(edqs_Job.Text)+''','+
'INTRO='''+Trim(meqs_Intro.Text)+''''+
'Where VID='+Query_QSB.FieldByName('VID').AsString;
End;
AnalyzeSQL(SQL);
Query_qsb.Close;
Query_qsb.Open;
DbGrid4.Enabled:=True;
End;
5:; //客户账单
6:; //历史资料
7: //客户喜好
Begin
If cbgx_INDISEQ.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择兴趣大类！','提示',MB_ICONINFORMATION);
Exit;
End;
If cbgx_INDICODE.ItemIndex<=0 Then
Begin
Application.MessageBox('请选择兴趣小类！','提示',MB_ICONINFORMATION);
Exit;
End;
If KK=1 Then
Begin
SQL:='Insert Into T_F_CustIndi(INDIID,VIPH,LR,BZ,INDISEQ,INDICODE,REGI_DATE,WK_NO,SIGN) Values(seq_indiid.nextval,'+
Query_Normal.FieldByName('VIPH').AsString+','''+
Trim(megx_LR.Text)+''','''+Trim(megx_BZ.Text)+''','+Fun_GetIndiTop(cbgx_INDISEQ,'',1)+','+
Fun_GetIndiTitle(cbgx_INDICODE,'',cbgx_IndiSeq.Text,1)+',Sysdate,'''+Trim(GH)+''',0)';
End;
If KK=2 Then
Begin
SQL:='Update T_F_CustIndi Set INDISEQ='+Fun_GetIndiTop(cbgx_INDISEQ,'',1)+','+
'INDICODE='+Fun_GetIndiTitle(cbgx_INDICODE,'',cbgx_IndiSeq.Text,1)+','+
'LR='''+Trim(megx_LR.Text)+''','+
'BZ='''+Trim(megx_BZ.Text)+''''+
'Where INDIID='+QueryGXB.FieldByName('INDIID').AsString;
End;
AnalyzeSQL(SQL);
QueryGxb.Close;
QueryGxb.Open;
DbGrid2.Enabled:=True;
End;
8:; //服务记录
9:; //客户投诉
10:; //定制服务
11:; //营业档案
End;
Fun_ButtonStatus(self,false); //按钮有效性控制
Fun_ComponentStatus(self,0,false);
Co_Query_GRADE_ID.Enabled := True;
Co_Query_Property.Enabled := True;
PanelLeft.Enabled:=True;
kk:=0;
end;
procedure TFrm_ArchivesCustInfo.pro_Mtmpsave;
begin
//将客户资料的各个值保存到相应的临时变量中
//客户姓名
tmp_name:=trim(Ed_name.text);
//实际使用人
tmp_act_user:=trim(Ed_act_user.text);
//地址
tmp_addr:=trim(Ed_addr.text);
//联系电话
tmp_lxdh:=trim(Ed_lxdh.text);
//证件号码
tmp_zjhm:=trim(Ed_zjhm.text);
//邮政编码
tmp_postcode:=trim(Ed_postcode.text);
//职业
tmp_zy:=trim(Ed_zy.text);
//职务
tmp_zw:=trim(Ed_zw.text);
//传真
tmp_fax:=trim(Ed_fax.text);
//EMAIL
tmp_email:=trim(Ed_email.text);
//VIP卡号
tmp_vip_no:=trim(Ed_vip_no.text);
//VIP密码
tmp_vip_pw:=trim(Ed_vip_pw.text);
//VIP卡有效期
tmp_vip_effect:=trim(Ed_vip_effect.text);
//工号
tmp_gh:=trim(Ed_gh.text);
//副号号码
tmp_ydab:=trim(Ed_ydab.text);
//联系人
tmp_RLN_NAME:=trim(Ed_RLN_NAME.text);
//家庭电话
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -