VF背答案的题.doc
文本预览下载声明
19
二、简单应用
2. 打开考生文件夹下的表单six（如图所示），登录命令按钮Click事件中的程序功能是：当用户输入用户名和口令以后，单击登录按钮时，程序根据自由表用户表的内容进行操作，若在用户表中找不到相应的用户名，则提示用户名错误，若用户名输入正确，而口令输入错误，则提示口令错误。在登录命令按钮Click事件中空行处填加适当的语句，使其能够正确运行。注意：不得做其他修改。
USE 用户表
GO TOP
flag=0
添加一条语句 答案为：do while not eof()
IF Alltrim(用户名)==Alltrim(Thisform.Text1.Value)
IF Alltrim(口令)==Alltrim(Thisform.Text2.Value)
WAIT 欢迎使用 WINDOW TIMEOUT 2
ELSE
WAIT 口令错误 WINDOW TIMEOUT 2
添加一条语句 答案为：endif
flag=1
EXIT
ENDIF
添加一条语句 答案为：skip
ENDDO
添加一条语句 答案为：if flag=0
WAIT 用户名错误 WINDOW TIMEOUT 2
ENDIF
31
二、简单应用（2小题，每题20分，计40分）
在考生文件夹下，完成如下简单应用：
1.在考生文件夹下已有表单文件formone.scx，如下图所示，其中包含一个列表框、一个表格和一个命令按钮。
请按下面要求完成相应的操作：
1) 在表单的数据环境中添加orders表。
2) 将列表框List1设置成多选，另外将其的RowSourceType属性值设置为8-结构、RowSource设置为orders。
3) 将表格Grid1的RecordSourceType的属性值设置为4-SQL说明。
4) 修改显示按钮的Click事件代码。当单击该按钮时，表格Grid1内将显示在列表框中所选orders表中指定字段的内容。
解题思路：
打开表单，在表单任意位置，右击—数据环境，选择orders表，添加到数据环境中
设置list1的multiselect 为 .t.(真值)；RowSourceType属性值设置为8-结构、RowSource设置为orders。
设置表格Grid1的RecordSourceType的属性值设置为4-SQL说明
修改“显示”按钮的click事件下的代码：
s=
f=.T.
*** FOUND ***
FOR i=1 TO thisform.List1.ColumnCount 第一个错误应改为：for i=1 to thisform.list1.listcount
IF thisform.List1.Selected(i)
IF f
*** FOUND ***
s=thisform.List1.value 第二个错误应改为：thisform.list1.?list(i)
f=.F.
ELSE
*** FOUND ***
s=s+thisform.List1.value 第三个错误应改为：s=s+”,”+thisform.list1.list(i)
ENDIF
ENDIF
ENDFOR
st=select s from orders into cursor tmp
thisform.Grid1.RecordSource=st
66
二、简单应用（2小题，每题20分，计40分）
在考生文件夹下完成如下简单应用：
1. 打开程序文件cylinder.prg，请按要求修改程序并运行程序。
*本程序的功能为输入圆柱体的半径和高，计算圆柱体表面积。
*请将程序修改为函数调用方式(注意不得增删语句行)。
SET TALK OFF
C
显示全部