📄 cscjy.prg
字号:
* 网上交易客户资料管理 tart create date: 2003.10.29 Last edit date: 2003.11.28
DEFINE CLASS cscjy As Session OLEPUBLIC && 指定为com类型
DataSession=2 && 使用私有工作期
**************************************************************************************************
FUNCTION CscMod(u1 as string, p1 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) && 姓名
if empty(csclist)
repl csclist with ""
endif
For i=1 to 12
chktemp = allt("chk"+allt(str(i)))
if chr(i+64) $ csclist
&chktemp = "checked"
else
&chktemp = ""
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>
<FORM ACTION="CscjyClientInfoHome.asp" METHOD=POST>
<TABLE WIDTH=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<TR><TD align=center><font color=white>请在下面选择设置查询结果需要显示的内容</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="371"><input type=checkbox name="check01" value="A" ##chk1##> <font color="#164DA8">A股、开放式基金资金帐号</font></td>
<td width="372"><input type=checkbox name="check06" value="F" ##chk6##> <font color="#164DA8">B股资金帐号</font></td></tr>
<tr><td width="371"><input type=checkbox name="check02" value="B" ##chk2##> <font color="#164DA8">沪A股东帐号</font></td>
<td width="372"><input type=checkbox name="check07" value="G" ##chk7##> <font color="#164DA8">沪B股东帐号</font></td></tr>
<tr><td width="371"><input type=checkbox name="check03" value="C" ##chk3##> <font color="#164DA8">深A股东帐号</font></td>
<td width="372"><input type=checkbox name="check08" value="H" ##chk8##> <font color="#164DA8">深B股东帐号</font></td></tr>
<tr><td width="371"><input type=checkbox name="check04" value="D" ##chk4##> <font color="#164DA8">A股网上交易开通日</font></td>
<td width="372"><input type=checkbox name="check09" value="I" ##chk9##> <font color="#164DA8">B股网上交易开通日</font></td></tr>
<tr><td width="371"><input type=checkbox name="check05" value="E" ##chk5##> <font color="#164DA8">A股网上交易CA证书办理日</font></td>
<td width="372"><input type=checkbox name="check10" value="J" ##chk10##><font color="#164DA8"> B股网上交易CA证书办理日</font></td></tr>
<tr><td width="371"><input type=checkbox name="check11" value="K" ##chk11##><font color="#164DA8"> 电子邮箱</font></td>
<td width="372"><input type=checkbox name="check12" value="L" ##chk12##><font color="#164DA8"> 联系方式</font></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">
<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
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 cschome(u1 as string, p1 as string, Pm1 as String, Pm2 as String) as String && 生成登录后asp页面函数，外部不可见
SET TEXTMERGE DELIMITERS TO "##","##" && 新的文本合并分隔符为 ## ##
SET DELETED ON
LOCAL cHtml 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) && 姓名
if allt(Pm1)="应用并且保存当前设置"
if len(allt(Pm2))>0
repl csclist with allt(Pm2)
else
repl csclist with ""
endif
endif
TEXT TO cHtml TEXTMERGE noshow
<html><head><title>网上交易客户资料管理</title></head>
<body>
<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="13"><img src="image\banner2.jpg" width="758" height="12"></td></tr></table>
<table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="3" cellspacing="0">
<tr><td><br>
<form action="CscjyClientInfoResult.asp" method=post>
<table cellpadding=1 cellspacing=2 border=1 bordercolor="#164DA8" width=760 align=center>
<tr valign="center" align="center">
<td width=35% bgcolor=#B5C7EF><img src="image\cscjy.jpg"></td>
<td>
<table cellpadding=1 cellspacing=1 border=1 align=center width=100%>
<tr>
<td width=36%><input type="radio" checked name="SendTo" value="SearchModAll" >
<font color="#164DA8">查询修改全部资料</font>
</td><td>
<table width=100% border=1>
<tr><td>
<font color="#164DA8"> 市场分类</font>
</td><td>
<select name="MarketName" >
<option value="A基金">A股、开放式基金</option>
<option value="B股"> B股市场</option>
<option value="全部">所有市场</option>
</select>
</td></tr>
<tr><td>
<font color="#164DA8"> 排序方式</font>
</td>
<td>
<select name="SearchOrder" >
<option value="帐号">相应市场资金帐号</option>
<option value="GUEST_NAME">网上交易客户姓名</option>
<option value="开通">网上交易开通日</option>
</select>
</td></tr></table>
</td></tr>
<tr><td width=36%><input type="radio" name="SendTo" value="SearchModPart">
<font color="#164DA8">查询修改指定资料</font></td><td>
<table width=100% border=1>
<tr><td>
<select name="SearchText" >
<option value="A_ZJZH">A股、开放式基金资金帐号</option>
<option value="B_ZJZH">B股资金帐号</option>
</select> =
<input type="text" name="TypeText" value="" SIZE=10 MAXLENGTH=5>
</td></tr></table>
</td></tr>
<td width=36%><input type="radio" name="SendTo" value="AddGuest" >
<font color="#164DA8">新增客户资料登记</font>
</td><td>
<table width=100% border=1>
<tr><td>
<select name="AddText" >
<option value="A_ZJZH">A股、开放式基金资金帐号</option>
<option value="B_ZJZH">B股资金帐号</option>
</select> =
<input type="text" name="ZjzhText" value="" SIZE=10 MAXLENGTH=5>
</td></tr></table>
</td></tr>
<tr><td width=36%><input type="radio" name="SendTo" value="TjGuest">
<font color="#164DA8">网上交易户数统计</font></td><td> </td></tr>
</table>
</td></tr></table>
<table cellpadding=0 cellspacing=0 BORDER=1 width=760 align=center>
<tr VALIGN="top" ALIGN="center"><td width=100% align=center >
<input type="submit" name="Send" value="进入选项" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
<input type="reset" name="Reset" value="取消选择" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
</td></tr></table><br></td></tr></table></form></body></html>
ENDTEXT
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 CscRs(u1 as String,p1 as String,szlist as String,c1 as String,c2 as String,c3 as String,c4 as String,c5 as String,c6 as String,c7 as String) as String
do case
case allt(c1)="SearchModAll"
do case
case allt(c2) = "A基金"
cHtml = this.Search_A(u1,p1,c3,szlist)
case allt(c2) = "B股"
cHtml = this.SearchB(u1,p1,c3,szlist)
otherwise
cHtml = this.SearchAll(u1,p1,c3,szlist)
endcase
case allt(c1)="SearchModPart"
cHtml=this.SearchOne(u1,p1,c4,c5)
case allt(c1)="AddGuest"
cHtml=this.AddGst(u1,p1,c6,c7)
otherwise
cHtml=this.TjData(u1,p1)
endcase
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 Search_A(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 = "A股、开放式基金网上交易客户资料"
IF !USED('userinfo')
USE userinfo IN 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -