?? cscjy.prg
字號:
* 網(wǎng)上交易客戶資料管理 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>選擇設(shè)置查詢結(jié)果顯示的內(nèi)容</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 狐貍辦公信息管理系統(tǒng)(測試版)->網(wǎng)上交易客戶資料管理 [當(dāng)前用戶-##xm##]
</font></td></tr>
<tr bgcolor=white >
<td><a href="index.asp"><font color="#104DAD">返回到登錄網(wǎng)頁</font></a></td>
<td align=center> <font color="#104DAD">查詢內(nèi)容顯示設(shè)置</FONT></td>
<td align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一級網(wǎng)頁</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>請在下面選擇設(shè)置查詢結(jié)果需要顯示的內(nèi)容</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(yù)股東帳號</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股網(wǎng)上交易開通日</font></td>
<td width="372"><input type=checkbox name="check09" value="I" ##chk9##> <font color="#164DA8">B股網(wǎng)上交易開通日</font></td></tr>
<tr><td width="371"><input type=checkbox name="check05" value="E" ##chk5##> <font color="#164DA8">A股網(wǎng)上交易CA證書辦理日</font></td>
<td width="372"><input type=checkbox name="check10" value="J" ##chk10##><font color="#164DA8"> B股網(wǎng)上交易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"> 聯(lián)系方式</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="應(yīng)用并且保存當(dāng)前設(shè)置" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
<INPUT TYPE="submit" NAME="CscModButton" VALUE="應(yīng)用但不保存設(shè)置修改" 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頁面函數(shù)，外部不可見
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)="應(yīng)用并且保存當(dāng)前設(shè)置"
if len(allt(Pm2))>0
repl csclist with allt(Pm2)
else
repl csclist with ""
endif
endif
TEXT TO cHtml TEXTMERGE noshow
<html><head><title>網(wǎng)上交易客戶資料管理</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 狐貍辦公信息管理系統(tǒng)(測試版)->網(wǎng)上交易客戶資料管理 [當(dāng)前用戶-##xm##]
</font></td></tr>
<tr bgcolor=white>
<td><a href="index.asp"><font color="#104DAD">返回到登錄網(wǎng)頁</font></a></td>
<td align=center> <font color="#104DAD" >請在下面選擇操作選項</FONT></td>
<td align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一級網(wǎng)頁</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="帳號">相應(yīng)市場資金帳號</option>
<option value="GUEST_NAME">網(wǎng)上交易客戶姓名</option>
<option value="開通">網(wǎng)上交易開通日</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">網(wǎng)上交易戶數(shù)統(tǒng)計</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股、開放式基金網(wǎng)上交易客戶資料"
IF !USED('userinfo')
USE userinfo IN 0
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -