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