VFP表单问题..
根据考试平台上的考试用表(STDA.DBF),建立一张查询记录的表单,表单名称为CX.SCX。表单功能要求:(1)设置表单标题为“查询记录”(2)将表中所有的字段按下图所...
根据考试平台上的考试用表(STDA.DBF),建立一张查询记录的表单,表单名称为CX.SCX。
表单功能要求:
(1) 设置表单标题为“查询记录”
(2)将表中所有的字段按下图所示添加到表单中.
(3)添加一个命令组控件,其中包括二个命令按钮:”确定”,”取消”.当输入查询学号后,点击”确定”按钮,则显示查询结果;点击”取消”按钮,则表示重新输入查询学号.
(4)表中再添加一个命令按钮”查询结果”,当点击”查询结束”按钮时,表单的运行结束.
(5)运行表单时,若没有输入查询的学号,则表单中不显示任何记录
我已经将基本界面和数据环境设置好了,但不知道接下来怎么编写咯... 请高手帮帮忙哈.. 展开
表单功能要求:
(1) 设置表单标题为“查询记录”
(2)将表中所有的字段按下图所示添加到表单中.
(3)添加一个命令组控件,其中包括二个命令按钮:”确定”,”取消”.当输入查询学号后,点击”确定”按钮,则显示查询结果;点击”取消”按钮,则表示重新输入查询学号.
(4)表中再添加一个命令按钮”查询结果”,当点击”查询结束”按钮时,表单的运行结束.
(5)运行表单时,若没有输入查询的学号,则表单中不显示任何记录
我已经将基本界面和数据环境设置好了,但不知道接下来怎么编写咯... 请高手帮帮忙哈.. 展开
1个回答
展开全部
只需要2个按钮:确定 关闭
确定.Click()
Select 学号,姓名,性别,出生日期,籍贯,入学分 From STDA Where 学号 = alltrim(ThisFOrm.Txt学号.Value) Into Cursor Lsb
IF EOf('Lsb')
MessageBox("学号不存在!")
Else
Select Lsb
THisForm.Txt学号.value = Lsb.学号
ThisForm.Txt姓名.Value = Lsb.姓名
ThisForm.Chk性别.Value = Lsb.性别
......
Use In Lsb
EndIf
关闭.Click()
ThisFOrm.Release()
确定.Click()
Select 学号,姓名,性别,出生日期,籍贯,入学分 From STDA Where 学号 = alltrim(ThisFOrm.Txt学号.Value) Into Cursor Lsb
IF EOf('Lsb')
MessageBox("学号不存在!")
Else
Select Lsb
THisForm.Txt学号.value = Lsb.学号
ThisForm.Txt姓名.Value = Lsb.姓名
ThisForm.Chk性别.Value = Lsb.性别
......
Use In Lsb
EndIf
关闭.Click()
ThisFOrm.Release()
追问
请问下这个是不是不需要设置数据环境啊?我把每个TXET的数据环境都设置成了表中的字段的,是不是不需要啊?
追答
你可以在LOAD()中打开表 STDA
当然也可以放到数据环境里
文本框不要绑定字段,用代码赋值就可以了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询