(1)新建一个表单FORM1,在FORM1中添加6个标签和6个文本框。在FORM1的INIT过程中输入
CLOSE ALL
IF FILE("职工.DBF")
USE 职工.DBF
ELSE
CREATE TABLE 职工 (员工号 C(6),部门号 C(6),姓名 C(8),性别 C(2),工作职务 C(10),年龄 N(2))
ENDIF
THISFORM.REFRESH
*注意,我将你的有些属性修改了。
(2)在FORM1的REFRESH过程中输入
THISFORM.TEXT1.VALUE=员工号
THISFORM.TEXT2.VALUE=部门号
THISFORM.TEXT3.VALUE=姓名
THISFORM.TEXT4.VALUE=性别
THISFORM.TEXT5.VALUE=工作职务
THISFORM.TEXT6.VALUE=年龄
(3)在TEXT4的VALID过程中输入
IF THIS.VALUE="男" OR THIS.VALUE="女"
RETURN .T.
ELSE
MESSAGEBOX("性别应为男或女")
THIS.VALUE="男"
RETURN .F.
ENDIF
*注意,这里性别的宽度为2,不像你所设计的宽度为10
(4)在TEXT6的VALID过程中输入
IF THIS.VALUE>=18 AND THIS.VALUE<=60
RETURN .T.
ELSE
MESSAGEBOX("年龄应大于等于18岁且小于等于60岁")
THIS.VALUE=18
RETURN .F.
ENDIF
*注意,这里的年龄是数值型数据,不像你所设计的字符型数据