表单习题

210.29.175.60/webclass

一、表单forma（10分）（VFP01）

TEST项目中已经存在表单FORMA，该表单可以完成类似于Windows中的记事本功能。其实现的基本思想为：打开一个文本文件时将该文件的内容放入临时表中，保存时将临时表中内容写入文本文件中。已知在表单的LOAD事件中已经定义了一个临时表textfile。根据下列要求对表单进行修改，完成以后运行

1．设置表单的ControlBox属性，使表单

运行时左上角的窗口菜单图标不显

示，如图2所示。

2．设置表单的有关属性，使表单运行时

边框样式为“固定对话框”。

3．为“打开”按钮设置访问键“ALT+O”。

4．设置表单的标题为“记事本”。

5．完善“新建”按钮的Click事件代码，

当运行表单并点击该按钮时编辑框清

空且得到焦点。

图2

6．完善“打开”按钮的Click事件代码，

当运行表单并点击该按钮时将选定的文本文件的内容放入临时表中。

完成修改以后，运行表单，画面显示如图2所示。此时点击“打开”按钮，会弹出“打开”对话框，选择一个已存在的文本文件（如当前目录下没有，也可以到其它目录下选择），单击“确定”按钮以后被选择的文本文件就会显示在编辑框中，此时可对该文本文件进行编辑，编辑以后可以按“保存”，也可以按“另存为”按钮。如果要新建一个文本文件，可点击“新建”按钮。

答案：

1．Controlbox属性值为.F. （2）

2．Borderstype属值为.F. （1）

3．Command1.caption="打开\

4．表单的Caption属性为“记事本”（1）

5．This.Parent.edit1.value="" （2）

This.Parent.edit1.SetFocus

6．IF Empty(lsfilename) （3）

Update textfile Set filename = lsfilename

二、设计表单formh （10分）（VFP08）

TEST 项目中已经存在表单FORMH ，该表单可以完成类似于Windows 记事本的功能。其实现的基本思想为：打开时将文本文件的内容放入临时表中，保存时将临时表中内容放入文本文件中。已知在表单的Load 事件中已经定义了一个临时表TEXTFILE ，根据下列要求对表单进行修改，完成以后运行表单，

效果如图2所示。

1. 表单在运行时不可以最大化。

2. 将编辑框的字体属性设为“楷体”。

3. 为“保存”按钮设置访问键

“ALT+S ”。

4. 添加一个名为cmdSaveAs 命令按

钮，其标题为“另存为”，位置如图

2所示。

5. 完善“打开”按钮的Click 事件代

码，要求当打开一个文本文件时，

将文本文件的名字用括号括起来以

后加在表单的标题后面，如图2所

示。

6. 表单中已经定义了一个新方法ue_SaveAs ，为“另存为”按钮编写Click 事件代码，当

点击该按钮时调用该方法。

完成修改以后，运行表单，画面显示如图2所示，单击“打开”按钮，会弹出一个对话框，选择一个已存在的文本文件（如当前目录下没有，也可以到其它目录下选择），确定以后，被选择的文本文件就会显示在编辑框中，编辑以后可以按“保存”按钮，也可以按“另存为”按钮保存为其他文本文件。

答案：

表单（10分）

1. 表单的MaxButton 属性值为.F. （1）

2. FontName 的属性值为“宋体” （1）

3. （1）

4. （2）

5. ThisForm.Caption='记事本'+'('+lsfilename+')' （3）

6. Thisform.ue_saveas （2）

图2

三、表单formb （10分）

TEST 项目中已经存在表单FORMB ，该表单用来查询学生成绩。选项按钮组提供了两种查询方式：按学号查该学生的各门课的成绩，或者按课程查该课程有多少学生选修及各个学生的成绩情况。根据下列要求对表单进行修改， 完成以后运行表单，效果如图2和图3所示。

1． 将表格中的各列标头改为如图2所示的标题。

2． 将表格的删除标志列去掉。

3． 设置表单的有关属性，使表单运行时不可随意移动。

4． 完善选项按钮组op1的Click 事件代码，使得当选择“按学号”查时标签label1标题为

“总成绩”，当选择“按课程”查时标签label1标题为“总人数”。

5． 完善列表框的InterActiveChange 事件代码：使得当“按学号”查询并在列表框中选择学

号时文本框中统计该学生的总成绩，当“按课程代号”查询并在列表框中选择课程代号时文本框中统计该课程的学生选修人数。

答案：

1. 将表格中的各列标头改为如下图所示

（2分） 2. 将表格的删除标志去掉

（1分） 3. 表单的Moveable 属性为.F.

（1） 4. bel1.caption='总成绩'

（1） bel1.caption='总人数'

（1） 5. ThisForm.text1.Value=czcj(1)

（2） Thisform.text1.value=czrs(1) （2）

图2

图3

三、表单formc （10分）

TEST 项目中已经存在表单FORMC ，该表单用

来进行系统登录。已知A 盘根目录下存在表文件

USER ，该表用来存放登录用户的工号（no ）、姓名

（name ）、职务（title ）和口令（password ）。根据下

列要求对表单进行修改，完成以后运行表单，效果

如图2所示。

1． 设置窗口的标题为“系统登录”。

2． 使姓名和年月下拉列表框只可选择，不可输入。

3． 将“职务”文本框置为废止状态。

4． 姓名下拉列表框显示的内容为用户姓名，其RowSouceType 为“3-SQL 语句”，请设置

RowSource 属性。

5． 假如USER 表中姓名（name ）字段的值不重复，且已经按姓名建立了一个普通索引

name ，索引表达式为name ，当用户点击“确定”按钮时，要验证用户输入的口令

的合法性：若口令输入正确则关闭该登录窗口；若口令输入不正确，则提示用户重

新输入，并将口令文本框中的内容置空，然后将光标停留在口令文本框中。根据上

述要求完善“确定”按钮的Click 事件代码。

答案：

1．表单的Caption 属性为“系统登录” （1）

2．下拉框的Style 属性为2 （2）

3．职务文本框的Enabled 属性为.F. （1）

4．SELECT name FROM user INTO CURS cNameTmp （2）

5．SEEK lc_name ORDER name IN USER （2）

This.Parent.Txt_Password.SetFocus() （2）

图

2