?? 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 + -