Ⅰ 求VF登錄表單代碼,急用!!!!!!!!!!!!!!拜託了!Thanks!!!
use renshi\database\checker
cname=alltrim(thisform.text1.value)
ppassword=alltrim(thisform.text2.value)
set order to name
seek cname
if alltrim(checker.name)!=cname
cn=cn+1
cMessageTitle='設備管理系統'
cMessageText='用戶名錯誤，請重新輸入'
nDialogType=4+32
nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
thisform.text1.value=''
thisform.text1.setfocus
case nAnswer=7
cMessageTitle='人事管理系統'
cMessageText='不要亂來'
messagebox(cMessageText,nDialogType,cMessageTitle)
thisform.release
endcase
if cn=3
thisform.release
endif
nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
thisform.text2.value=''
thisform.text2.setfocus
case nAnswer=7
cMessageTitle='人事管理系統'
cMessageText='不要亂來'
messagebox(cMessageText,nDialogType,cMessageTitle)
thisform.release
endcase
if cn=3
thisform.release
endif