Question

在VF中制作一个表单是登陆界面想知道一个确定按钮的代码怎么写。

Answer 1

你先建个表比如说“账号密码表.dbf”内含字段“用户名”和“密码”储存你预设的用户名和密码~将这个表加入Form1 的数据环境中~
假设你登陆后的页面的那个表单是“主页面.scx”~form1 的init事件代码：

public i
i=0

form1 的unload事件:

close all
clear events
quit

接收用户名的文本框Text1的KeyPress事件代码：

LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=13.and.!empty(this.value)
thisform.Text2.enabled=.t.
thisform.Text2.setfocus
endif

确定 按钮的click事件代码是：

IF EMPTY(thisform.text1.Value) .or. EMPTY(thisform.text2.Value)
MESSAGEBOX("Error ")
thisform.text1.SetFocus
ELSE
i =i + 1
IF i > 3
MESSAGEBOX("Error more than 3 times !")
RELEASE thisform
ELSE

USE 账号密码表 EXCLUSIVE IN 0
LOCATE FOR 账号密码表.用户名= ALLTRIM(thisform.text1.Value)
IF FOUND()
IF 账号密码表.密码 = ALLTRIM(thisform.text2.Value)
DO FORM 主页面.scx
USE IN 账号密码表
ELSE
MESSAGEBOX("Password Error !")
USE IN 账号密码表
RETURN
ENDIF
ELSE
MESSAGEBOX("name not Found !")
USE IN 账号密码表
RETURN
ENDIF
ENDIF
ENDIF