?? 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 + -