?? unit_archivescustinfo.pas
字號:
Label38: TLabel;
Label43: TLabel;
Label102: TLabel;
Label103: TLabel;
Label104: TLabel;
Label105: TLabel;
Label44: TLabel;
Label45: TLabel;
Label51: TLabel;
Label53: TLabel;
Label54: TLabel;
Label58: TLabel;
Label61: TLabel;
Label114: TLabel;
Label115: TLabel;
Label116: TLabel;
Label62: TLabel;
Label117: TLabel;
Label118: TLabel;
ed_jtyhmc: TFlatEdit;
edjt_addr: TFlatEdit;
edjt_LXR: TFlatEdit;
edjt_sid: TFlatEdit;
edjt_YHBL: TFlatEdit;
edjt_BGN_YH: TFlatEdit;
edjt_end_YH: TFlatEdit;
edjt_vip_no: TFlatEdit;
ecjt_PASSWORD: TFlatEdit;
cbjt_Off_No_Home: TFlatComboBox;
cbjt_HYDM: TFlatComboBox;
cbjt_JTLB: TFlatComboBox;
memojt_JTQTJJ: TFlatMemo;
edjt_VPNID: TFlatEdit;
edjt_VPNJG: TFlatEdit;
edjt_VPNBEGINDATA: TFlatEdit;
edjt_VPNENDDATA: TFlatEdit;
cbjt_gh: TFlatComboBox;
DBChart2: TDBChart;
BarSeries1: TBarSeries;
BarSeries3: TBarSeries;
Series5: TBarSeries;
DBGrid9: TDBGrid;
Panel12: TPanel;
DBMemo4: TDBMemo;
Label15: TLabel;
Ed_othersid: TFlatEdit;
Panel_King: TPanel;
Label158: TLabel;
FlatEdit3: TFlatEdit;
Label101: TLabel;
Ed_PW: TFlatEdit;
Label145: TLabel;
CO_MOBILE_NO: TFlatComboBox;
Panel_Fun: TPanel;
DBCBSLMY: TDBCheckBox;
chk_fun3: TFlatCheckBox;
chk_fun8: TFlatCheckBox;
chk_fun13: TFlatCheckBox;
chk_fun14: TFlatCheckBox;
chk_fun9: TFlatCheckBox;
chk_fun4: TFlatCheckBox;
chk_fun5: TFlatCheckBox;
chk_fun10: TFlatCheckBox;
chk_fun15: TFlatCheckBox;
chk_fun18: TFlatCheckBox;
chk_fun11: TFlatCheckBox;
chk_fun6: TFlatCheckBox;
chk_fun19: TFlatCheckBox;
chk_fun12: TFlatCheckBox;
chk_fun7: TFlatCheckBox;
PanelMain1: TPanel;
Label2: TLabel;
Ed_Sid: TFlatEdit;
Label1: TLabel;
Ed_NAME: TFlatEdit;
Panel14: TPanel;
Label50: TLabel;
Label159: TLabel;
FlatEditO_SID: TFlatEdit;
FlatEditO_NAME: TFlatEdit;
Panel19: TPanel;
Label160: TLabel;
Label161: TLabel;
FlatEditL_SID: TFlatEdit;
FlatEditL_NAME: TFlatEdit;
Panel20: TPanel;
Label162: TLabel;
Label163: TLabel;
FlatEditG_SID: TFlatEdit;
FlatEditG_NAME: TFlatEdit;
Panel21: TPanel;
Label164: TLabel;
Label165: TLabel;
FlatEditQ_SID: TFlatEdit;
FlatEditQ_NAME: TFlatEdit;
Panel22: TPanel;
Label166: TLabel;
Label167: TLabel;
FlatEditR_SID: TFlatEdit;
FlatEditR_NAME: TFlatEdit;
Panel23: TPanel;
Label168: TLabel;
Label169: TLabel;
FlatEditH_SID: TFlatEdit;
FlatEditH_NAME: TFlatEdit;
Panel24: TPanel;
Label170: TLabel;
Label171: TLabel;
FlatEditi_SID: TFlatEdit;
FlatEditi_name: TFlatEdit;
Label172: TLabel;
FlatEdits_Sid: TFlatEdit;
Label173: TLabel;
FlatEdits_Name: TFlatEdit;
Panel25: TPanel;
Label174: TLabel;
Label175: TLabel;
FlatEdita_sid: TFlatEdit;
FlatEdita_name: TFlatEdit;
Panel26: TPanel;
Label24: TLabel;
cb_fwxz: TFlatComboBox;
FCB_KingSign: TFlatCheckBox;
edacc_sid: TFlatEdit;
edacc_name: TFlatEdit;
TabSheet11: TTabSheet;
Panel27: TPanel;
Label176: TLabel;
Label177: TLabel;
FlatEditd_sid: TFlatEdit;
FlatEditd_name: TFlatEdit;
DBGrid_DESTINE: TDBGrid;
Query_DESTINE: TQuery;
DataSource_DESTINE: TDataSource;
procedure Btn_AddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
// procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Btn_SaveClick(Sender: TObject);
procedure Btn_ModifyClick(Sender: TObject);
procedure Btn_DeleteClick(Sender: TObject);
procedure Btn_ExitClick(Sender: TObject);
procedure Btn_CancelClick(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure Btn_Query_NormalClick(Sender: TObject);
procedure Query_NormalAfterScroll(DataSet: TDataSet);
procedure Co_Query_CITYCODEChange(Sender: TObject);
procedure Ed_Query_SidKeyPress(Sender: TObject; var Key: Char);
procedure Co_CITYNOChange(Sender: TObject);
procedure Chk_CONFClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure selectrecord;
procedure PageControlMainChange(Sender: TObject);
procedure FlatSpeedButton1Click(Sender: TObject);
procedure FlatButton1Click(Sender: TObject);
procedure btn_outvipClick(Sender: TObject);
procedure Query_qsbAfterScroll(DataSet: TDataSet);
procedure QuerygxbAfterScroll(DataSet: TDataSet);
procedure edacc_sidKeyPress(Sender: TObject; var Key: Char);
procedure cbgx_INDISEQChange(Sender: TObject);
procedure Ed_srExit(Sender: TObject);
procedure Ed_srKeyPress(Sender: TObject; var Key: Char);
procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
procedure cb_fwxzChange(Sender: TObject);
procedure PageControl2Change(Sender: TObject);
procedure Query_RObjectAfterScroll(DataSet: TDataSet);
procedure Query_AppealAfterScroll(DataSet: TDataSet);
procedure Query_FeedBackAfterScroll(DataSet: TDataSet);
private
{ Private declarations }
//定義臨時變量，用來判斷修改的時候，修改了哪些東西。
tmp_sid,tmp_name,tmp_xb,tmp_sxdm,tmp_sr,tmp_nlsr,tmp_act_user,
tmp_jtyhdm,tmp_addr,tmp_lxdh,tmp_zjhm,tmp_postcode,
tmp_zy,tmp_zw,tmp_fax,tmp_email,tmp_vip_no,tmp_vip_pw,tmp_VIP_EFFECT,
tmp_fksj,tmp_gh,tmp_ydab,tmp_RLN_NAME,tmp_hometel,tmp_othersid,tmp_kingsign,
tmp_homeaddr,tmp_lxdz,tmp_jtyhmc,tmp_pw,tmp_mobile:string;
sql_result:string; //把修改的結果全部寫到該變量中。
pModiInfo:String; //存儲修改信息
procedure pro_Mtmpsave;//保存客戶檔案的臨時值。
procedure pro_MSAVE_Modify_Result; //保存修改內容
Procedure ButtonStatus(pStatus:Boolean);
Procedure ButtonVisible(pStyle:Integer);
// Procedure AnalyzeSQL(pSQL:String);
public
{ Public declarations }
end;
var
Frm_ArchivesCustInfo: TFrm_ArchivesCustInfo;
KK,ifchk: INTEGER;//kk更新標志 0 為新增 1 為修改 2 為刪除
implementation
uses main,Unit_Public, dmmain,selectviplx;
//按鈕控制
function Fun_ButtonStatus(pFormName:TForm;pStatus:Boolean=False):Boolean;stdcall;external'winfun.dll';
//輸框狀態控制
Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False;pObject:TObject=Nil):Integer;stdCall;external'winfun.dll';
//Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False):Integer;stdCall;external'winfun.dll';
{$R *.DFM}
Procedure TFrm_ArchivesCustInfo.ButtonVisible(pStyle:Integer);
Begin
If pStyle=0 Then
Begin
btn_outvip.Visible:=True; //轉為普通客戶
Btn_Add.Visible:=False; //增加
Btn_Modify.Visible:=True; //修改
Btn_Delete.Visible:=True; //刪除
Btn_Print.Visible:=True; //打印
Btn_Save.Visible:=True; //保存
Btn_Cancel.Visible:=True; //取消
End;
If pStyle=1 Then
Begin
btn_outvip.Visible:=False; //轉為普通客戶
Btn_Add.Visible:=True; //增加
Btn_Modify.Visible:=True; //修改
Btn_Delete.Visible:=True; //刪除
Btn_Print.Visible:=True; //打印
Btn_Save.Visible:=True; //保存
Btn_Cancel.Visible:=True; //取消
End;
If pStyle=2 Then
Begin
btn_outvip.Visible:=False; //轉為普通客戶
Btn_Add.Visible:=False; //增加
Btn_Modify.Visible:=False; //修改
Btn_Delete.Visible:=False; //刪除
Btn_Print.Visible:=False; //打印
Btn_Save.Visible:=False; //保存
Btn_Cancel.Visible:=False; //取消
End;
End;
Procedure TFrm_ArchivesCustInfo.ButtonStatus(pStatus:Boolean);
Begin
btn_outvip.Enabled:=pStatus;
Btn_Add.Enabled:=pStatus;
Btn_Modify.Enabled:=pStatus;
Btn_Delete.Enabled:=pStatus;
Btn_Print.Enabled:=pStatus;
End;
procedure TFrm_ArchivesCustInfo.pro_MSAVE_Modify_Result;
begin //保存修改過的內容
//資料確認標志
//客戶姓名
sql_result:='sid='''+trim(Ed_sid.text)+'''';
pModiInfo:='';
if trim(tmp_name)<>trim(Ed_name.text) then
Begin
sql_result:=sql_result+',name='''+trim(Ed_name.text)+'''';
pModiInfo:=pModiInfo+'姓名:'+Tmp_Name+'->'+Trim(Ed_Name.Text)+',';
End;
//實際使用人
if trim(tmp_act_user)<>trim(Ed_act_user.text) then
Begin
sql_result:=sql_result+',act_user='''+trim(Ed_act_user.text)+'''';
pModiInfo:=pModiInfo+'實際使用人:'+Tmp_Act_User+'->'+Trim(Ed_act_user.Text)+',';
End;
//地址
if trim(tmp_addr)<>trim(Ed_addr.text) then
Begin
sql_result:=sql_result+',addr='''+trim(Ed_addr.text)+'''';
pModiInfo:=pModiInfo+'地址:'+tmp_addr+'->'+Trim(Ed_addr.Text)+',';
End;
//聯系電話
if trim(tmp_lxdh)<>trim(Ed_lxdh.text) then
Begin
sql_result:=sql_result+',lxdh='''+trim(Ed_lxdh.text)+'''';
pModiInfo:=pModiInfo+'聯系電話:'+tmp_lxdh+'->'+Trim(Ed_lxdh.Text)+',';
End;
//身份證
if trim(tmp_zjhm)<>trim(Ed_zjhm.text) then
Begin
sql_result:=sql_result+',zjhm='''+trim(Ed_zjhm.text)+'''';
pModiInfo:=pModiInfo+'身份證:'+tmp_zjhm+'->'+Trim(Ed_zjhm.Text)+',';
End;
//郵政編碼
if trim(tmp_postcode)<>trim(Ed_postcode.text) then
Begin
sql_result:=sql_result+',postcode='''+trim(Ed_postcode.text)+'''';
pModiInfo:=pModiInfo+'郵政編碼:'+tmp_postcode+'->'+Trim(Ed_postcode.Text)+',';
End;
//職業
if trim(tmp_zy)<>trim(Ed_zy.text) then
Begin
sql_result:=sql_result+',zy='''+trim(Ed_zy.text)+'''';
pModiInfo:=pModiInfo+'職業:'+tmp_zy+'->'+Trim(Ed_zy.Text)+',';
End;
//職務
if trim(tmp_zw)<>trim(Ed_zw.text) then
Begin
sql_result:=sql_result+',zw='''+trim(Ed_zw.text)+'''';
pModiInfo:=pModiInfo+'職務:'+tmp_zw+'->'+Trim(Ed_zw.Text)+',';
End;
//傳真
if trim(tmp_fax)<>trim(Ed_fax.text) then
Begin
sql_result:=sql_result+',fax='''+trim(Ed_fax.text)+'''';
pModiInfo:=pModiInfo+'傳真:'+tmp_fax+'->'+Trim(Ed_fax.Text)+',';
End;
//EMAIL
if trim(tmp_email)<>trim(Ed_email.text) then
Begin
sql_result:=sql_result+',email='''+trim(Ed_email.text)+'''';
pModiInfo:=pModiInfo+'電子信箱:'+tmp_email+'->'+Trim(Ed_email.Text)+',';
End;
//VIP卡號
if trim(tmp_vip_no)<>trim(Ed_vip_no.text) then
Begin
sql_result:=sql_result+',vip_no='''+trim(Ed_vip_no.text)+'''';
pModiInfo:=pModiInfo+'貴賓卡號:'+tmp_vip_no+'->'+Trim(Ed_vip_no.Text)+',';
End;
//VIP密碼
if trim(tmp_vip_pw)<>trim(Ed_vip_pw.text) then
Begin
sql_result:=sql_result+',vip_pw='''+trim(Ed_vip_pw.text)+'''';
pModiInfo:=pModiInfo+'貴賓卡號密碼:'+tmp_vip_pw+'->'+Trim(Ed_vip_pw.Text)+',';
End;
//VIP卡有效期
if trim(tmp_vip_effect)<>trim(Ed_vip_effect.text) then
Begin
sql_result:=sql_result+',vip_effect=to_Date('''+trim(Ed_vip_effect.text)+''',''YYYY-MM-DD'')';
pModiInfo:=pModiInfo+'貴賓卡號有效期:'+tmp_vip_effect+'->'+Trim(Ed_vip_effect.Text)+',';
End;
//工號
if trim(tmp_gh)<>trim(Ed_gh.text) then
Begin
sql_result:=sql_result+',gh='''+trim(Ed_gh.text)+'''';
pModiInfo:=pModiInfo+'所屬客戶經理:'+tmp_gh+'->'+Trim(Ed_gh.Text)+',';
End;
//副號號碼
if trim(tmp_ydab)<>trim(Ed_ydab.text) then
Begin
sql_result:=sql_result+',ydab='''+trim(Ed_ydab.text)+'''';
pModiInfo:=pModiInfo+'副號號碼:'+tmp_ydab+'->'+Trim(Ed_ydab.Text)+',';
End;
//聯系人
if trim(tmp_RLN_NAME)<>trim(Ed_RLN_NAME.text) then
Begin
sql_result:=sql_result+',RLN_NAME='''+trim(Ed_RLN_NAME.text)+'''';
pModiInfo:=pModiInfo+'聯系人:'+tmp_RLN_NAME+'->'+Trim(Ed_RLN_NAME.Text)+',';
End;
//家庭電話
if trim(tmp_hometel)<>trim(Ed_hometel.text) then
Begin
sql_result:=sql_result+',hometel='''+trim(Ed_hometel.text)+'''';
pModiInfo:=pModiInfo+'家庭電話:'+tmp_hometel+'->'+Trim(Ed_hometel.Text)+',';
End;
//家庭地址
if trim(tmp_homeaddr)<>trim(Ed_homeaddr.text) then
Begin
sql_result:=sql_result+',homeaddr='''+trim(Ed_homeaddr.text)+'''';
pModiInfo:=pModiInfo+'家庭地址:'+tmp_homeaddr+'->'+Trim(Ed_homeaddr.Text)+',';
End;
//聯系地址
if trim(tmp_lxdz)<>trim(Ed_lxdz.text) then
Begin
sql_result:=sql_result+',lxdz='''+trim(Ed_lxdz.text)+'''';
pModiInfo:=pModiInfo+'聯系地址:'+tmp_lxdz+'->'+Trim(Ed_lxdz.Text)+',';
End;
//集團名稱
If Trim(tmp_jtyhmc)<>Co_jtyhdm.Text Then
Begin
sql_result:=sql_result+',jtyhdm='''+Fun_GetCodeName(Co_jtyhdm)+'''';
pModiInfo:=pModiInfo+'集團名稱:'+tmp_jtyhmc+'->'+Trim(Co_jtyhdm.Text)+',';
End;
if ifchk=1 then
begin
if Chk_CONF.Checked then
sql_result:=sql_result+',conf=1'
else
sql_result:=sql_result+',conf=0';
end;
//白金標識
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -