📄 cscjy.prg
字号:
cHtml1 = ""
ListTitle = "<td><font size=2>姓名</font></td>"
ListText = ""
TheMessage0 = "所有网上交易客户资料"
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
do case
case allt(c1) = "帐号"
TheMessage = TheMessage0 + "按【A股、开放式基金资金帐号】排序如下"
Csc_Order = "A_zjzh"
case allt(c1) = "GUEST_NAME"
TheMessage = TheMessage0 + "按【姓名】排序如下"
Csc_Order = "GUEST_NAME"
otherwise
TheMessage = TheMessage0 + "按【A股、开放式基金网上交易开通日】排序如下"
Csc_Order = "A_CSCDATE"
endcase
CscSeleList = "Guest_name"
select bz,zd,xs from cscset NOCONSOLE order by px
go top
do while not eof()
if bz $ allt(c2)
CscSeleList=CscSeleList+","+allt(zd)
ListTitle=ListTitle+"<td><font size=2>"+allt(xs)+"</font></td>"
endif
skip
enddo
use
tdleft = "<td align=left><font size=2 face=arial>"
tdcenter = "<td align=center><font size=2 face=arial>"
tdend = "</font></td>"
select &CscSeleList from cscjy_client NOCONSOLE;
where (a_zjzh + b_zjzh)>0;
order by &Csc_Order
go top
do while not eof()
cHtmlTemp0 =tdleft+ALLT(GUEST_NAME)+tdend
for i = 1 to len(allt(c2))
zddm=subs(allt(c2),i,1)
do case && 可以使用宏代换，以减少行数
case zddm = "A"
cHtmlTemp =tdleft+ALLT(str(A_ZJZH))+tdend
case zddm = "B"
cHtmlTemp =tdcenter+ALLT(HA_GDZH)+tdend
case zddm = "C"
cHtmlTemp =tdcenter+ALLT(SA_GDZH)+tdend
case zddm = "D"
cHtmlTemp =tdcenter+ALLT(A_CSCDATE)+tdend
case zddm = "E"
cHtmlTemp =tdcenter+ALLT(A_CA_DATE)+tdend
case zddm = "F"
cHtmlTemp =tdleft+ALLT(str(B_ZJZH))+tdend
case zddm = "G"
cHtmlTemp =tdcenter+ALLT(HB_GDZH)+tdend
case zddm = "H"
cHtmlTemp =tdcenter+ALLT(SB_GDZH)+tdend
case zddm = "I"
cHtmlTemp =tdcenter+ALLT(B_CSCDATE)+tdend
case zddm = "J"
cHtmlTemp =tdcenter+ALLT(B_CA_DATE)+tdend
case zddm = "K"
cHtmlTemp ="<td align=left><a href=mailto:"+ALLT(EMAILDRESS)+"><font size=2 face=arial>"+ALLT(EMAILDRESS)+"</font></a></td>"
case zddm = "L"
cHtmlTemp =tdleft+ALLT(CONT_MODE)+tdend
otherwise
cHtmlTemp = ""
ENDCASE
cHtmlTemp0 = cHtmlTemp0 + cHtmlTemp
endfor
TEXT TO cHtml0 TEXTMERGE noshow
<tr bgcolor=white>##cHtmlTemp0##</tr>
ENDTEXT
cHtml1 = cHtml1 + cHtml0
skip
enddo
use
TEXT TO cHtml 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">网上交易客户资料管理->查询修改##TheMessage0## [当前用户-##xm##]</FONT></font></td></tr>
<tr bgcolor=white >
<td><a href="index.asp"><font color="#164DA8">返回到登录页面</font></a></td>
<td align=center> <font color="#164DA8" >##TheMessage0##</FONT></td>
<td align=right><a href="javascript:history.back()"><font color="#164DA8">返回上一级网页</font></a></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=100% border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<TR><TD COLSPAN=14 align=center><font color=white>##TheMessage##</font></TD></TR>
<TR VALIGN="center" ALIGN="center" bgcolor=white>##ListTitle##</TR>
ENDTEXT
TEXT TO cHtml2 TEXTMERGE noshow
</TABLE><br></body></html>
ENDTEXT
cHtml = cHtml + cHtml1 + cHtml2
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()
cHtml = this.dlcw()
endif
use
RETURN cHtml
ENDFUNC
*************************************************************************************************
FUNCTION ModGst(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
**************************** 以下为宏代换的使用，也可以使用数组实现相同功能
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)="Mod_A_OF"
cscmodorder = "A_ZJZH"
TheMessage0 = "可以在下面修改【A股、开放式基金资金帐号】为【"+allt(C2)+"】的客户资料<br>注意：【A股、开放式基金资金帐号】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationA.asp"'+" METHOD=POST>"
else
cscmodorder = "B_ZJZH"
TheMessage0 = "可以在下面修改【B股资金帐号】为【"+allt(C2)+"】的客户资料<br>注意：【B股资金帐号】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationB.asp"'+" METHOD=POST>"
endif
IF !USED('cscjy_client')
USE cscjy_client IN 0
ENDIF
sele cscjy_client
set exact on
set order to &cscmodorder
go top
seek val(c2)
if found()
for i = 0 to 12
csctt = "Txt"+allt(str(i)) && "Txt0" --- "Txt12"
csc_tt = &csctt && 左边为"a_zjzh" 等字段名称，对Txt0----Txt12宏代换运算
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
<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 >
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -