?? cscjy.prg
字號:
<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.dlcw()
endif
else
cResult = this.dlcw()
endif
RETURN cResult
ENDFUNC
*************************************************************************************************
FUNCTION ModGstRs(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 allt(cc)="Mod_A_OF" and empty(c1)
CscNoErr = .F.
endif
if allt(cc)="Mod_B" and empty(c6)
CscNoErr = .F.
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()
xm = allt(user_name) && 姓名
if "D" $ allt(User_power)
Power_NoErr = .T.
endif
else
CscNoErr = .F.
endif
use
if Power_NoErr
**************************** 以下為宏代換的使用，也可以使用數組實現相同功能
select zd from cscset NOCONSOLE order by px
go top
do while not eof()
ttValue = "Tt"+ALLTRIM(STR(RECNO()))
&ttValue = ALLTRIM(zd)
skip
enddo
use
Tt0 = "Guest_Name"
if allt(cc)="Mod_A_OF"
cscmodorder = "A_ZJZH"
TheMessage0 = "【A股、開放式基金資金帳號】為【"+allt(C1)+"】的客戶資料更新成功，可以繼續修改<br>注意：【A股、開放式基金資金帳號】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationA.asp"'+" METHOD=POST>"
ccseek = val(c1)
if ccseek > 0
if allt(STR(VAL(c6)))=allt(c6) && 修改的非定位的資金帳號必須是數字
CscDataNoErr = .T.
endif
endif
else
cscmodorder = "B_ZJZH"
TheMessage0 = "【B股資金帳號】為【"+allt(C6)+"】的客戶資料更新成功，可以繼續修改<br>注意：【B股資金帳號】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationB.asp"'+" METHOD=POST>"
ccseek = val(c6)
if ccseek > 0
if allt(STR(VAL(c1)))=allt(c1) and allt(STR(VAL(c6)))=allt(c6)
CscDataNoErr = .T.
endif
endif
endif
ErrMessage = "所有的【資金帳號】只能為大于零的數字，不能包含其他字符"
if CscDataNoErr
IF !USED('cscjy_client')
USE cscjy_client IN 0
ENDIF
sele cscjy_client
set exact on
set order to &cscmodorder
go top
seek ccseek
if CscNoErr and found()
for i = 0 to 12
csctt = "Tt"+allt(str(i)) && "Tt0" --- "Tt12"
cscttzd = &csctt
csc_tt = "Txt"+allt(str(i)) && "Txt0" --- "Txt12"
cc_out = "c"+allt(str(i))
if empty(&cc_out)
&csc_tt="Value="+'""'
if i#1 and i#6
repl &cscttzd with ""
endif
else
if i=1 or i=6
repl &cscttzd with val(&cc_out)
else
repl &cscttzd with allt(&cc_out)
endif
&csc_tt="Value="+allt(&cc_out)
ENDIF
&& ? csc_tt,"=",&csc_tt 調試用
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 >
<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.dlcw()
endif
else
cResult = this.Datacw("1",ErrMessage)
endif
else
cResult = this.dlcw()
endif
RETURN cResult
ENDFUNC
****************************************************************************************************************
FUNCTION SearchOne(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
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
**************************** 以下為宏代換的使用，也可以使用數組實現相同功能
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)="A_ZJZH"
TheMessage0 = "可以在下面修改更新【A股、開放式基金資金帳號】為【"+allt(C2)+"】的客戶資料<br>注意：【A股、開放式基金資金帳號】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationA.asp"'+" METHOD=POST>"
ErrMessage = "找不到【A股、開放式基金資金帳號】為【"+allt(C2)+"】的客戶資料"
else
TheMessage0 = "可以在下面修改更新【B股資金帳號】為【"+allt(C2)+"】的客戶資料<br>注意：【B股資金帳號】本身不能修改"
TheAspOut = "<FORM ACTION="+'"SureModifyGuestInformationB.asp"'+" METHOD=POST>"
ErrMessage = "找不到【B股資金帳號】為【"+allt(C2)+"】的客戶資料"
endif
IF !USED('cscjy_client')
USE cscjy_client IN 0
ENDIF
sele cscjy_client
set exact on
set order to &c1
go top
seek val(c2)
if found() and allt(STR(VAL(c2)))=allt(c2) and val(c2)>0
for i = 0 to 12
csctt = "Txt"+allt(str(i)) && "Txt0" --- "Txt12"
csc_tt = &csctt && 左邊為"a_zjzh" 等字段名稱，對Txt0----Txt24宏代換運算
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -