求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