Question

在VF中制作一个如图的登陆界面 确定按钮的代码是什么？

Answer 1

下面的例子是假设用户名密码是固定到程序中的
IF EMPTY(thisform.text1.Value)
MESSAGEBOX("请输入用户名",16,"系统提示")
thisform.text1.SetFocus
RETURN
ELSE
IF EMPTY(thisform.text2.Value)
MESSAGEBOX("请输入口令",16,"系统提示")
thisform.text2.SetFocus
RETURN
ELSE
IF ALLTRIM(thisform.text1.Value) == "用户1" .and. ALLTRIM(thisform.text2.Value ) == "用户1的密码"
DO FORM 用户1的表单
ELSE
IF ALLTRIM(thisform.text1.Value) == "用户2" .and. ALLTRIM(thisform.text2.Value ) == "用户2的密码"
DO FORM 用户2的表单
ELSE
MESSAGEBOX("用户名或口令错误",16,"系统提示")
thisform.text2.Value = ''
thisform.text1.SelStart = 0
thisform.text1.SelLength = LEN(thisform.text1.Value)
thisform.text1.SetFocus
ENDIF
ENDIF
ENDIF
ENDIF