📄 cscjy.prg
字号:
<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.Datacw("2",ErrMessage)
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()
cResult = this.dlcw()
endif
use
RETURN cResult
ENDFUNC
**********************************************************************************************************
FUNCTION AddGst(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
Power_NoErr = .F.
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
endif
use
if Power_NoErr
**************************** 以下为宏代换的使用，也可以使用数组实现相同功能
for i = 0 to 12
ttValue = "Txt"+ALLT(STR(i))
&ttValue = "Value="+'""'
endfor
if allt(c1)="A_ZJZH"
TheMessage0 = "可以在下面增加【A股、开放式基金资金帐号】为【"+allt(C2)+"】的客户资料"
Txt1 = "Value="+allt(c2)
Txt4 = "Value="+dtos(date())
TheAspOut = "<FORM ACTION="+'"CscjyAddGstA.asp"'+" METHOD=POST>"
else
TheMessage0 = "可以在下面增加【B股资金帐号】为【"+allt(C2)+"】的客户资料"
Txt6 = "Value="+allt(c2)
Txt9 = "Value="+dtos(date())
TheAspOut = "<FORM ACTION="+'"CscjyAddGstB.asp"'+" METHOD=POST>"
endif
AddDataErr = .F.
if allt(STR(VAL(c2)))=allt(c2) and val(c2)>0
AddDataErr = .T.
else
ErrMessage = "资金帐号必须为大于零的数字，不能为其他字符"
endif
if AddDataErr
IF !USED('cscjy_client')
USE cscjy_client IN 0
ENDIF
sele cscjy_client
set exact on
set order to allt(c1)
go top
seek val(c2)
if found()
use
if allt(c1)="A_ZJZH"
ErrMessage = "【A股、开放式基金资金帐号】为【"+allt(C2)+"】的客户资料已经存在，不能增加"
else
ErrMessage = "【B股资金帐号】为【"+allt(C2)+"】的客户资料已经存在，不能增加"
endif
cResult = this.Datacw("3",ErrMessage)
else
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
endif
else
cResult = this.Datacw("3",ErrMessage)
endif
else
cResult = this.dlcw()
endif
RETURN cResult
ENDFUNC
*************************************************************************************************
FUNCTION AddGstRs(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 !USED('userinfo')
USE userinfo IN 0
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -