📄 cscjy.prg
字号:
<INPUT TYPE="submit" NAME="CscModButton" VALUE="确认客户资料的修改更新" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
</TD></TD></TR></table><br></FORM></body></html>
ENDTEXT
else
use
cResult = this.dlcw()
endif
else
cResult = this.dlcw()
endif
RETURN cResult
ENDFUNC
*************************************************************************************************
FUNCTION ModGstRs(upcc as string,c0 as String,c1 as String,c2 as String,c3 as String,c4 as String,c5 as String,c6 as String,c7 as String,c8 as String,c9 as String,c10 as String,c11 as String,c12 as String,c13 as String,c14 as String,c15 as String,c16 as String,c17 as String,c18 as String,c19 as String,c20 as String,c21 as String,c22 as String,c23 as String,c24 as String) as String
SET TEXTMERGE DELIMITERS TO "##","##" && 新的文本合并分隔符为 ## ##
SET DELETED ON
LOCAL cResult as String, xm, CscNoErr
Power_NoErr = .F.
CscNoErr = .T.
CscDataNoErr = .F.
lcTempt = allt(upcc)
lcPlace = at("|",lcTempt)
u1 = left(lcTempt,lcPlace-1)
lcTempt = right(lcTempt,len(lcTempt)-lcPlace)
lcPlace = at("|",lcTempt)
p1 = left(lcTempt,lcPlace-1)
cc = right(lcTempt,len(lcTempt)-lcPlace)
if allt(cc)="Mod_A_OF" and empty(c1)
CscNoErr = .F.
endif
if allt(cc)="Mod_B" and empty(c6)
CscNoErr = .F.
endif
IF !USED('userinfo')
USE userinfo IN 0
ENDIF
sele userinfo
go top
LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1) && 查询登录人员
if found()
xm = allt(user_name) && 姓名
if "D" $ allt(User_power)
Power_NoErr = .T.
endif
else
CscNoErr = .F.
endif
use
if Power_NoErr
**************************** 以下为宏代换的使用，也可以使用数组实现相同功能
select zd from cscset NOCONSOLE order by px
go top
do while not eof()
ttValue = "Tt"+ALLTRIM(STR(RECNO()))
&ttValue = ALLTRIM(zd)
skip
enddo
use
Tt0 = "Guest_Name"
if allt(cc)="Mod_A_OF"
cscmodorder = "A_ZJZH"
TheMessage0 = "【A股、开放式基金资金帐号】为【"+allt(C1)+"】的客户资料更新成功，可以继续修改<br>注意：【A股、开放式基金资金帐号】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationA.asp"'+" METHOD=POST>"
ccseek = val(c1)
if ccseek > 0
if allt(STR(VAL(c6)))=allt(c6) && 修改的非定位的资金帐号必须是数字
CscDataNoErr = .T.
endif
endif
else
cscmodorder = "B_ZJZH"
TheMessage0 = "【B股资金帐号】为【"+allt(C6)+"】的客户资料更新成功，可以继续修改<br>注意：【B股资金帐号】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationB.asp"'+" METHOD=POST>"
ccseek = val(c6)
if ccseek > 0
if allt(STR(VAL(c1)))=allt(c1) and allt(STR(VAL(c6)))=allt(c6)
CscDataNoErr = .T.
endif
endif
endif
ErrMessage = "所有的【资金帐号】只能为大于零的数字，不能包含其他字符"
if CscDataNoErr
IF !USED('cscjy_client')
USE cscjy_client IN 0
ENDIF
sele cscjy_client
set exact on
set order to &cscmodorder
go top
seek ccseek
if CscNoErr and found()
for i = 0 to 12
csctt = "Tt"+allt(str(i)) && "Tt0" --- "Tt12"
cscttzd = &csctt
csc_tt = "Txt"+allt(str(i)) && "Txt0" --- "Txt12"
cc_out = "c"+allt(str(i))
if empty(&cc_out)
&csc_tt="Value="+'""'
if i#1 and i#6
repl &cscttzd with ""
endif
else
if i=1 or i=6
repl &cscttzd with val(&cc_out)
else
repl &cscttzd with allt(&cc_out)
endif
&csc_tt="Value="+allt(&cc_out)
ENDIF
&& ? csc_tt,"=",&csc_tt 调试用
endfor
use
**********************************************
TEXT TO cResult TEXTMERGE noshow
<HTML><HEAD><TITLE>修改客户的资料</TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows"></HEAD>
<BODY BGCOLOR="">
<table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="IMAGE\ASPLogo3.jpg" width=730 height=56></td></tr>
</table>
<table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src="IMAGE\banner2.jpg" width="758" height="12"></td></tr>
</table><br>
<table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white>
<P ALIGN="CENTER">VFP 狐狸办公信息管理系统(测试版)->网上交易客户资料管理 [当前用户-##xm##]
</font></td></tr>
<tr bgcolor=white >
<td><a href="index.asp"><font color="#104DAD">返回到登录网页</font></a></td>
<td align=center> <font color="#104DAD">修改网上交易客户资料</FONT></td>
<td align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一级网页</font></a></td>
</tr></table>
<table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" colspan="4" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" height="13" cellspacing="0" cellpadding="0" mm_noconvert="TRUE">
<tr><td height="13"><img src="IMAGE\banner2.jpg" width="760" height="12"></td></tr></table></td></tr>
</table><br>
##TheAspOut##
<TABLE WIDTH=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<TR><TD align=center><font color=white>##TheMessage0##</font></TD></TR>
<TR VALIGN="center" ALIGN="center" bgcolor=white>
</TR>
<TABLE WIDTH=760 border=1 bgcolor=white cellspacing=1 cellpadding=0 align=center>
<tr><td width="97">【姓名】</font></td><td width="166">
<INPUT TYPE="text" NAME="text00" ##Txt0## MAXLENGTH=5 size="22"></td>
<td width="97">【电子邮箱】</font></td><td width="370">
<INPUT TYPE="text" NAME="text11" ##Txt11## MAXLENGTH=30 size="51"></td></tr>
</TABLE>
<TABLE WIDTH=760 border=1 bgcolor=white cellspacing=1 cellpadding=0 align=center>
<tr><td width="97">【联系方式】</font></td><td width="654">
<INPUT TYPE="text" NAME="text12" ##Txt12## MAXLENGTH=80 size="91"></td></tr>
</TABLE>
<br>
<TABLE WIDTH=760 border=1 bgcolor=white cellspacing=1 cellpadding=0 align=center>
<tr><td width="240">【A股(开放式基金)资金帐号】</font></td><td width="132">
<INPUT TYPE="text" NAME="text01" ##Txt1## MAXLENGTH=5 size="20"></td>
<td width="240">【B股资金帐号】</font></td><td width="133">
<INPUT TYPE="text" NAME="text06" ##Txt6## MAXLENGTH=5 size="20"></td></tr>
<tr><td width="240">沪A股东帐号</font></td><td width="132">
<INPUT TYPE="text" NAME="text02" ##Txt2## MAXLENGTH=10 size="20"></td>
<td width="240">沪B股东帐号</font></td><td width="133">
<INPUT TYPE="text" NAME="text07" ##Txt7## MAXLENGTH=10 size="20"></td></tr>
<tr><td width="240">深A股东帐号</font></td><td width="132">
<INPUT TYPE="text" NAME="text03" ##Txt3## MAXLENGTH=10 size="20"></td>
<td width="240">深B股东帐号</font></td><td width="133">
<INPUT TYPE="text" NAME="text08" ##Txt8## MAXLENGTH=10 size="20"></td></tr>
<tr><td width="240">A股网上交易开通日</font></td><td width="132">
<INPUT TYPE="text" NAME="text04" ##Txt4## MAXLENGTH=8 size="20"></td>
<td width="240">B股网上交易开通日</font></td><td width="133">
<INPUT TYPE="text" NAME="text09" ##Txt9## MAXLENGTH=8 size="20"></td></tr>
<tr><td width="240">A股网上交易CA证书办理日</font></td><td width="132">
<INPUT TYPE="text" NAME="text05" ##Txt5## MAXLENGTH=8 size="20"></td>
<td width="240">B股网上交易CA证书办理日</font></td><td width="133">
<INPUT TYPE="text" NAME="text10" ##Txt10## MAXLENGTH=8 size="20"></td></tr>
</TABLE>
</TABLE>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=760 align=center>
<TR VALIGN="top" ALIGN="center">
<TD WIDTH=760 align=center >
<INPUT TYPE="submit" NAME="CscModButton" VALUE="确认客户资料的修改更新" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
</TD></TD></TR></table><br></FORM></body></html>
ENDTEXT
else
use
cResult = this.dlcw()
endif
else
cResult = this.Datacw("1",ErrMessage)
endif
else
cResult = this.dlcw()
endif
RETURN cResult
ENDFUNC
****************************************************************************************************************
FUNCTION SearchOne(u1 as string, p1 as string, c1 as String, c2 as String) as String
SET TEXTMERGE DELIMITERS TO "##","##" && 新的文本合并分隔符为 ## ##
SET DELETED ON
LOCAL cResult as String, xm
IF !USED('userinfo')
USE userinfo IN 0
ENDIF
sele userinfo
go top
LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1) && 查询登录人员
xm = allt(user_name) && 姓名
use
**************************** 以下为宏代换的使用，也可以使用数组实现相同功能
select zd from cscset NOCONSOLE order by px
go top
do while not eof()
ttValue = "Txt"+ALLTRIM(STR(RECNO()))
&ttValue = ALLTRIM(zd)
skip
enddo
use
Txt0 = "Guest_Name"
if allt(c1)="A_ZJZH"
TheMessage0 = "可以在下面修改更新【A股、开放式基金资金帐号】为【"+allt(C2)+"】的客户资料<br>注意：【A股、开放式基金资金帐号】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationA.asp"'+" METHOD=POST>"
ErrMessage = "找不到【A股、开放式基金资金帐号】为【"+allt(C2)+"】的客户资料"
else
TheMessage0 = "可以在下面修改更新【B股资金帐号】为【"+allt(C2)+"】的客户资料<br>注意：【B股资金帐号】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationB.asp"'+" METHOD=POST>"
ErrMessage = "找不到【B股资金帐号】为【"+allt(C2)+"】的客户资料"
endif
IF !USED('cscjy_client')
USE cscjy_client IN 0
ENDIF
sele cscjy_client
set exact on
set order to &c1
go top
seek val(c2)
if found() and allt(STR(VAL(c2)))=allt(c2) and val(c2)>0
for i = 0 to 12
csctt = "Txt"+allt(str(i)) && "Txt0" --- "Txt12"
csc_tt = &csctt && 左边为"a_zjzh" 等字段名称，对Txt0----Txt24宏代换运算
if empty(&csc_tt)
&csctt="Value="+'""'
else
if upper(csc_tt)="A_ZJZH" or upper(csc_tt)="B_ZJZH"
&csctt="Value="+allt(str(&csc_tt))
else
&csctt="Value="+allt(&csc_tt)
endif
endif
endfor
use
************************************************************
TEXT TO cResult TEXTMERGE noshow
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -