VF背答案题.docVIP

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