表单练习2

表单练习2（电子工业课本例题）

[例题讲解]

1．使用表单向导创建一个基于“学籍.dbf”表中全部字段的表单。

2．使用向导创建“读者.dbf”表和“图书借阅.dbf”表之间一对多表单。

3．使用表单设计器为“学籍.dbf”表和“成绩.dbf”表设计一个表单并运行，表单中含有两

个表中的部分字段（学号，姓名，性别，专业，团员，总分，简历），如下图所示：

4．在空白表单上设置一个标题为“学生学籍管理”和与学生信息有关的标签：学生学号，学生姓名，入学成绩，个人简历。如下图所示：（右边为部分属性设置）

标签label1:

autosize: .t.

caption: 学生学籍管理 name: label1 fontname: 隶书 fontsize: 18

标签label2: autosize: .t.

caption: 学生学号 name: label1 fontname: 宋体 fontsize: 9

5．在上题创建的表单中，添加相应的文本框和编辑框控件。如下图所示：（右边为属性设置）

文本框text1:

name: text1

controlsource: 学籍.学号

编辑框edit1:

name: edit1

controlsource: 学籍.简历

6．在学籍.dbf表中添加一个“毕业学校”字段，利用组合框从“学校.dbf”表中读取数据，

并填充到学籍.dbf表的“毕业学校”字段中。如下图所示：（右边为属性设置）

组合框combo1:

rowsource: 学校.毕业学校 rowsourcetype: 字段 controlsource: 学籍.毕业学校 displaycount: 3

style: 下拉组合框

7．在上题表单中添加一个表格控件，表格是“单科成绩.dbf”表中字段内容，使之与学籍.dbf

表之间建立一对多的关系。如下图所示：（右边为属性设置）

表格Grid1:

recordsourcetype: 表 recordsource: 单科成绩 columncount: 4 linkmaster: 学籍 childorder: 学号 relationexpr: 学号

8．在上题表单中添加一个复选框，用于显示是否是团员。

复选框check1:

Caption: 团员

Controlsource: 学籍.团员

9．在上题表单中添加一个选项按钮组，在编辑或追加记录时，确定“性别”字段。

10．在上题表单中添加一个命令按钮组，包括“”上一记录、“下一记录”、“退出”按钮，并分别实现相应的功能。如下图所示：

*command1向上移动一条记录 skip -1 if bof() go top

endif

thisform.refresh

*command2向下移动一条记录 skip if eof() go bottom endif

thisform.refresh

*command3退出表单 thisform.release

11．在上题表单中添加一个activex绑定控件，使它与“学籍.照片”字段相关联。

12．创建一个如下图所示的表单，通过输入圆的半径计算圆的面积。

*command1计算

R=thisform.text1.value

Thisform.text2.value=3.14*r*r Thisform.refresh *command2 关闭 Thisform.release

13．设计一个微调器，允许输入身高的值上限为3，下限为0.5，微调按钮递增（或递减）幅

度为0.01，初始状态的默认值为1.50。

[学生练习]

1．使用表单向导创建一个基于“成绩.dbf”表的表单，表单样式选取标准式。

2．使用表单向导创建一个基于“学籍.dbf”表的表单，只选取其中的姓名，出生日期，照片

和简历字段，定位按钮选取图片按钮。 3．使用表单向导创建一个表单，“成绩.dbf”为父表，“学籍.dbf”为子表，其中只选取学籍.dbf

表的专业和照片字段。

4．使用向导创建一个表单，父表包括“学籍.dbf”表中的学号，姓名，专业字段和“成绩.dbf”

表中平均分字段，子表包括“图书借阅.dbf”表的全部字段。

5．利用快速创建表单功能，创建一个基于“图书借阅”表的表单，表单样式为凹陷式。 6．利用“成绩”表创建一个表单，表单中包含有标签，文本框和编辑框控件，要求为数值型

字段添加编辑框控件。

7．修改第二题创建的表单，在表单中添加一个命令按钮，调用第一题所创建的表单。 8．创建一个浏览图书情况的表单，如下图所示：

9．在表单中添加一个标签和文本框，运行表单时，在文本框中单击鼠标左键将显示当前系统

日期，单击鼠标右键将显示当前系统时间，如下图所示：

（提示：设置文本框click事件代码为this.value=date( ), rightclick的事件代码为this.value=time( ) ）

*单击鼠标左键返回系统日期： this.value=date() 或

Thisform.text1.value=date() *单击鼠标右键返回系统时间： this.value=time() 或

Thisform.text1.value=time ()