📄 cscjy.prg
字号:
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
if "A" $ c2
CscSeleList = "Guest_name"
else
CscSeleList = "Guest_name,a_zjzh"
endif
select bz,zd,xs from cscset NOCONSOLE;
where market!="B";
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>0;
order by &Csc_Order
go top
do while not eof()
cHtmlTemp0 =tdcenter+"<input type=radio name="+'"SelectWho"'+" value="+ALLT(str(A_ZJZH))+"></td>"+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 = "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>
<FORM ACTION="ModifyGuestInformationA.asp" METHOD=POST>
<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>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=100% align=center>
<TR VALIGN="top" ALIGN="center">
<TD WIDTH=100% align=center >
<INPUT TYPE="submit" NAME="ManagerGuestA" VALUE="修改选定客户的资料" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
</TD></TR></table><br></FORM></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 SearchB(u1 as String, p1 as String, c1 as String, c2 as String) as String
SET TEXTMERGE DELIMITERS TO "##","##" && 新的文本合并分隔符为 ## ##
SET DELETED ON
LOCAL cHtml as String, xm, TheMessage, TheMessage0, Csc_Order, ListTitle, ListText
cHtml1 = ""
ListTitle = "<td><font size=2>选中</font></td><td><font size=2>姓名</font></td>"
ListText = ""
TheMessage0 = "B股网上交易客户资料"
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 + "按【B股资金帐号】排序如下"
Csc_Order = "B_zjzh"
case allt(c1) = "GUEST_NAME"
TheMessage = TheMessage0 + "按【姓名】排序如下"
Csc_Order = "GUEST_NAME"
otherwise
TheMessage = TheMessage0 + "按【B股网上交易开通日】排序如下"
Csc_Order = "B_CSCDATE"
endcase
if "F" $ c2
CscSeleList = "Guest_name"
else
CscSeleList = "Guest_name,b_zjzh"
endif
select bz,zd,xs from cscset NOCONSOLE;
where (market="B" or market="Z");
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 b_zjzh>0;
order by &Csc_Order
go top
do while not eof()
cHtmlTemp0 =tdcenter+"<input type=radio name="+'"SelectWho"'+" value="+ALLT(str(B_ZJZH))+"></td>"+tdleft+ALLT(GUEST_NAME)+tdend
for i = 1 to len(allt(c2))
zddm=subs(allt(c2),i,1)
do case
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>
<FORM ACTION="ModifyGuestInformationB.asp" METHOD=POST>
<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>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=100% align=center>
<TR VALIGN="top" ALIGN="center">
<TD WIDTH=100% align=center >
<INPUT TYPE="submit" NAME="ManagerGuestB" VALUE="修改选定客户的资料" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
</TD></TR></table><br></FORM></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 SearchAll(u1 as String, p1 as String, c1 as String, c2 as String) as String
SET TEXTMERGE DELIMITERS TO "##","##" && 新的文本合并分隔符为 ## ##
SET DELETED ON
LOCAL cHtml as String, xm, TheMessage, TheMessage0, Csc_Order, ListTitle, ListText
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -