VF高级应用参考答案要点

1、高级应用第一题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个表单myform003,上有两个命令按钮"查询”和"退出”（名称分别为Comma nd和Command）2 。（ 1）单击“查询”命令按钮，查询chengji 数据表中三门课成绩均超过 90 的学生信息，包括学生姓名和学生性别；查询结果按学生姓名升序保存在表NEW_TABLEK进行建立表单，添加按钮，设置属性等基本操作。然后设置"查询”命令按钮Command1的单击事件代码为 ： select 学生姓名 , 学生性别 from chengji where 数学 >90 and

2、语文 >90 and 物理 >90 order by 学生姓名 into table new_table（2）单击“退出”命令按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。第二题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个名为 myform003 的表单，表单的标题为“基本情况浏览表单” 。表单中有四个文本 框（名称为 text1 、text2 、text3 、text4 ）（设置文本框的 controlsource 为对应的字段） ，四个标签按钮（名称为labell、Iabel2、Iabel3 和Iabel4 ），其属性caption 值分别为

3、： 学号、姓名、性别和班级，三个命令按钮“上一条”、“下一条”和“退出”（名称分别为Command1 Command2和 Command3 。运行表单时，单击“上一条”则显示表 xsqk.dbf 当前记录的上一条记录，单击“下一条” 则显示当前记录的下一条。单击“退出”按钮关闭表单。注意：完成表单设计后要运行表单的所有功能。上一条程序代码：skip-1if recno（）=1mand1.enabled=.F.endifmand2.enabled=.T.thisform.refresh下一条程序代码：top_rec=recno（）go bottombottom_rec=recno（）go top

4、_recskipif recno（）=bottom_recmand2.enabled=.F.endifmand1.enabled=.T.thisform.refresh详细参见课本 P197 例 6-6第三题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下： 设计一个名为“ myform003 ”的表单，表单的标题为“学生基本情况查询表”。表单中有一 个列表框（名称为 list1 ）、四个标签（名称为 label1 、 label2 、 label3 、 label4 ，其显示 的值分别为： 姓名、 性别、 学院、 班级） 、四个文本框 （名称为 text1 、text2 、text

5、3 、text4 分别显示数据表 xsxi.dbf 中的选中学生的姓名、性别、学院和班级）。运行表单时， 列表框中双击一个学生学号后， 则在右侧文本框中显示其基本情况单击 “退出” 按钮关闭表单。注意：完成表单设计后要运行表单的所有功能。注意：把 xsxi.dbf 添加到表单的数据环境中， 设置文本框的 controlsource 为对应的字段。 列表框控件的 Dblclick 事件代码： locate for 学号 =this.value if found()thisform.text1.value=xsxi.姓名thisform.text2.value=xsxi.性别thisform.te

6、xt3.value=xsxi.学院thisform.text4.value=xsxi.班级endifthisform.refresh listl 的 rowsourcetype 改为 6-字段，rowsource 改为 xsxi. 学号详细参见课本 P212 例6-14第四题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个名为"myform003”的表单，表单的标题为“职工工资统计”。表单中有一个组 合框（名称为ComboD、一个表格（名称为Gridl ）、一个标签（名称为lablel，内容为“职 称”）、一个命令按钮 “退出”（名称为 Command1 。运行表

7、单时，求出表zggz.DBF和rsda1中各种职称职工的平均实发工资和实发工资的 总和。单击“退出”按钮关闭表单。注意：完成表单设计后要运行表单的所有功能。Combol的 rowsource : Select Distinct职称 Form Rsda1 Into Cursor TmpCombo啲 rowsourcetype : 3-SQL语句Gird1 的 recordsoure : RsgzGrid1 的 recordsouretype : 4-SQl 说明Grid1 的 columncount : 33个header的caption分别改为：职称、平均实发工资、实发工资总和Combol1

8、的 in teractivecha nge事件代码：thisform.grid1.recordsource="select职称，avg（实发工资）as 平均实发工资,;sum（实发工资）as 实发工资总和 form zggz,rsda1;where zggz. 编号 =rsda1. 编号 and 职称 =alltrim（this.value）;into cursor ttl" thisform.refresh 参见课本 P225 示例 6-22 。第五题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个名为 “ myform003 ”的表单， 表单的控件名

9、为 form1 ，表单的标题为 “按职称查询” 。 表单中有一个表格（名称为 Grid1 ）、一个标签（名称为 label1 ，内容为“输入查询内容”） 一个文本框（名称为 text1 ，显示查询的职称），一个复选框（名称为check1 ，内容为“职称”），两个命令按钮"查询”和"退出”（名称分别为Command1和Command2。运行表单时，当选择职称时（textl的controlsource为rsdal.职称），文本框中显示RSDA1.DB F中的职称（添加数据环境），同时在表格中显示该职称的记录的编号、姓名、性 别、职称。单击“退出”按钮关闭表单。注意：完成表单设计

10、后要运行表单的所有功能。参见课本 P226 示例 6-23 。查询的事件代码：IF THISFORM.CHECK1.VALUE=1SELECT编号，姓名，性别，职称 FROMTsdal WHERSR称=THISFORM.TEXT1.VALUENTO CURSORLSBENDIFTHISFORM.GRID1.COLUMNCOUNT=-1THISFORM.GRID1.RECORDSOURCE="LSB"第六题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个名为"myform003”的表单，表单的控件名为 forml，文件名为"myform

11、003"，表 单的标题为"统计”。表单中有一个组合框 （名称为Combol、一个列表框（名称为Gridl）、 一个命令按钮“确定” （名称分别为 Command1 ，一个标签（名称为 label1 ，显示记录相应 值）。一个文本框（名称为 text1 ，输入记录号）运行表单时，组合框中选择数据表 rsda1 后， 在列表框中，显示该表中的字段名， 选择字段 名后，在文本框中输入记录号，单击确定，则在标签中显示该记录号的该字段的值。单击“退出”按钮关闭表单。（注意添加第二个命令按钮 Command2 注意：完成表单设计后，在文本框中输入 6 后，运行表单的所有功能。本题的要求

12、是： 在组合框中选定表为 rsda1.dbf， 则该表的字段显示在列表框中， 选定某个字 段，比如为姓名， 在文本框中指定记录号， 比如为 6，则点击确定后标签中显示显示 rsda1.dbf 中第 6 条记录的姓名字段的值。建立表单，添加组合框（名为Combol）、一个列表框（名为Listl）,一个命令按钮（名为Command1 ，一个标签 （名为 label1 ）， 一个文本框 （名为 text1 ）。依次设置控件属性如下： Combo1 ：RowsourceType 属性值为 7- 文件；List1 ： RowsourceType 属性值为 8- 结构；Command：1 Caption

13、属性值为“确定”；Command：2 Caption 属性值为“退出”；组合框 combo1 的 Interactivechange 事件的程序代码如下：x=bo1.value && 取当前表名存储到变量 Xuse &x && 打开表thisform.List1.rowsource=x && 表的结构字段加入到列表框thisform. List1.refresh && 刷新列表框内容确定按钮Command1的单击事件程序代码如下：jlh=val（thisform.text1.value） &&取文本框中指定

14、的记录号go jlh && 移动到该记录nr=thisform.List1.value && 取该记录对应字段的值到变量 nrthisform.label1.caption=&nr && 变量内容显示在标签的 Caption 中退出按钮Command2的单击事件程序代码如下：Close tables && 系统退出时关闭打开的表Thisform.release第七题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个名为"myform003”的表单，表单的控件名为 forml，文件名为"

15、myform003"，表 单的标题为“统计职工人数” 。表单中有二个复选框框 （名称为 check1 、check2 ，其属性 caption 分别为教授、 副教授） 、一个标签 （名称为 label1 ，内容为 “显示人数” ）、一个文本框 （名 称为rextl ，用于显示结果）、两个命令按钮"统计”和"退出”（名称分别为Comma nd和Command）2 。运行表单时，当选择一个职称时，在文本框中显示 rsda1.Dbf 中该职称的人数。 单击“退出”按钮关闭表单。注意：完成表单设计后要运行表单的所有功能。参见课本 P209 示例 6-13 。Comma n

16、d的click事件代码如下do casecase thisform.check1.value=0 and thisform.check2.value=0thisform.text1.value=""case thisform.check1.value=1 and thisform.check2.value=0count to js for职称 =" 教授 "thisform.text1.value=jscase thisform.check1.value=0 and thisform.check2.value=1count to fjs for 职称 =

17、" 副教授 "thisform.text1.value=fjscase thisform.check1.value=1 and thisform.check2.value=1count to jsfjs for职称="教授" or 职称="副教授 "thisform.text1.value=jsfjscase thisform.check1.value=0 and thisform.check2.value=0count to qt for 职称!="教授" and 职称!="副教授 " thi

18、sform.text1.value=qtcase thisform.check1.value=1 and thisform.check2.value=0 count to jqst for 职称 !=" 副教授 " thisform.text1.value=jsqtcase thisform.check1.value=0 and thisform.check2.value=1 count to fjsqt for 职称 !=" 教授 " thisform.text1.value=fjsqtcase thisform.check1.value=1 and

19、thisform.check2.value=1 count to rsthisform.text1.value=rs endcasethisform.refresh退出按钮Command2的单击事件程序代码如下：Close tables Thisform.release第八题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个名为"myform003”的表单，表单的控件名为 forml，文件名为"myform003"，表 单的标题为“按季度统计”。表单中有一个选项按钮组（名称为 optiongroup1 ）、二个标签（名称为labell 和Iabe

20、l2，内容为"订单数”和"总金额”）、两个文本框（名称为 textl 和text2，在此显示订单数和总金额），一个命令按钮"退出"（名称为Command1。运行表单时， 当单击某个选项按钮， 相应季度内签订的订单数量和总金额就会显示在对应的 文本框中，使用的数据表为 ddsj.dbf 。单击“退出”按钮关闭表单。注意：完成表单设计后要运行表单的所有功能。添加ddsj.dbf到表单的数据环境。添加按钮组，设置其按钮数目buttoncount 为4,分别设置每个按钮项的标题为第 1、 2、 3、 4 季度。其他控件按要求设置。Optiongroup1 的单击

21、代码如下：select count（*） as 订单数 ,sum（ 金额 ） as 总金额 from ddsj where 签订季度 =str（thisform.optiongroup1.value,1） group by签订季度 into cursor tmpthisform.text1.value=str（订单数 ）thisform.text2.value=str（总金额 ）退出按钮Comma nd的单击事件程序代码如下：Close tablesThisform.release第九题根据以下要求,完成综合应用操作,所有文件保存在指定文件夹下：设计一个名为"myform003”的表

22、单，表单的控件名为 forml，文件名为"myform003"，表 单的标题为“订单查询”。表单中有一个标签（名称为 label1 ，内容为“选择职员”）、一 个表格（名称为 Grid1 ）、一个命令按钮“退出” （名称分别为 Command）1 ，一个组合框（名 称为 combo1）。运行表单时， 当从组合框中选择某个职员时， 会在表格内显示该职员所签订的订单信息 （订 单号、客户号、签订季度、金额），使用的数据表为 ddsj.DBF 。 单击“退出”按钮关闭表单。注意：完成表单设计后要运行表单的所有功能。把ddsj.DBF添加到表单的数据环境；表格控件Gridl的rec

23、ordsourcetype属性设置为4-sql 说明；组合框控件 combo1 的 rowsourcetype 设置为 6- 字段， rowsource 设置为“职 口 ”员”。组合框控件 combo1 的 interactivechange 事件程序代码：注意以下命令格式中标点符号一 个也不能错，不能省略，否则 SQL 语句执行可能会出问题。thisform.grid1.recordsource="select订单号,客户号 ,签订季度 ,金额 from ddsj;where 职员="+""+this.value+"' into cu

24、rsor tmp' thisform.refresh退出按钮Comma nd的单击事件程序代码如下：Close tablesThisform.release第十题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个名为“ form_book ”的表单，表单的控件名为 form1 ，文件名为“ form_book ”，表 单的标题为"图书情况统计”。表单中有一个组合框（名称为Combo）、一个表格（名称为Grid1 ）、两个命令按钮"统计”和"退出”（名称分别为Command1和Command2。运行表单时，组合框中显示出显示出“清华大学出版

25、社”、“经济科学出版社”和“高等教育出版”三条项目（只有出版社名称，不能输入新的）可供选择，在组合框中选择一个出版 社名称后，如果单击“统计”命令按钮，则表格控件中显示出“BOOK”S 表中该出版社的图书的信息（包括作者姓名，图书名称，出版单位）。单击“退出”按钮关闭表单。注意：完成表单设计后要运行表单的所有功能。把books.DBF添加到表单的数据环境；表格控件Gridl的recordsourcetype属性设置为4-sql 说明；组合框控件 combo1 的 rowsourcetype 设置为 1- 值， rowsource 设置为“清华 大学出版社 , 经济科学出版社 ,高等教育出版社”

26、。Comma nd的单击事件程序代码：注意以下命令格式中标点符号一个也不能错，不能省略，否则SQL语句执行可能会出问题。thisform.grid1.recordsource="select * from books where出版单位="+'"'+bo1.value+'" into cursor tmp'thisform.grid1.refresh第十一题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个名为"myform003”的表单，表单的控件名为 forml，文件名为"myfo

27、rm003"，表 单的标题为 “记录插入更新” 。表单中有四个标签 （名称为 label1 、 label2 、 label3 、 label4 ， 内容分别为 “学号” 、“姓名” 、“性别” 、“班级” ），四个文本框 （名称为 text1 、text2 、 text3 、 text4 ，分别用于输入学号、姓名、性别、班级），一个表格（名称为 Grid1 ）、三 个命令按钮“插入”、 “更新”和“退出” （名称分别为 Command、1 command2，command3）。 运行表单时，利用SQL语句实现记录的插入和更新（输入textl中学号与表中学号相同，完 成更新班级操作）

28、，使用的数据表为 xsxi.DBF 。单击“退出”按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。参见课本 P227 示例 6-24 。Grid1 的 columncount 属性为 4， recordsource 属性为 xsxiComma nd 的 click 代码insert into xsxi（ 学号,姓名,性别,班级）;values（thisform.text1.value,thisform.text2.value,thisform.text3.value,thisform.text4.value）Comma nd 的 click 代码 bj=val（alltrim（thi

29、sform.text4.value） update xsxi set 班级=bj where 学号=thisform.text1.value 退出按钮Comma nd的单击事件程序代码如下：Close tablesThisform.release第十二题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：设计一个如下图所示的表单 Myform1（ 控件名为 form1 ，表单文件名 Myform1.scx） ，用于对 SCORE_MANAGER据库中的数据进行查询。表单的标题为”成绩查询”。表单左侧有文本"输入学号（名称为Label1的标签）"、用于输入学号的文本框

30、（名称为Text1）、"查询"（名称为Command1和"退出"（名称为Command2两个命令按钮以及1个表格控件（名称为Grid1）。 表单运行时，首先在文本框中输入学号， 然后单击 "查询"按钮，如果输入学号正确， 在表单 右侧以表格形式显示该生所选课程名和成绩。单击 "退出 "按钮，关闭表单。参见课本 P218 示例 6-17 。步骤1:在命令窗口中输入"CREATEzORMnyform1"，新建一个表单。按题目的要求添加一个 标签控件、一个文本框控件、两个命令按钮和一个表格控件。设置表

31、单的Caption 属性为 "成绩查询"，标签控件的Cap ti on属性为"输入学号"，Comma nd的Caption属性为"查询"， Comma nd 的 Capti on 属性为”退出"；设置表格的 Colu mn Cou nt 属性为"2"， RecordSourceType 属性为"0-表”，第1列的Caption属性为”课程名”，第2列的Caption属性为”成绩”。步骤 2：右击表单空白处，选择 "数据环境 " 命令，将表 course 和 score1 添加

32、到数据环境中。 步骤 3：双击命令按钮，编写命令按钮的Click 事件代码。*" 查询 " 按钮的 Click 事件代码 *SELECT course. 课程名 , score1. 成绩 ;FROM course ,score1;WHERE course. 课程号 =score1. 课程号 AND score1. 学号 = ThisForm.Text1.text;INTO TABLE coruse_cursorIF RECC（） = 0MESSAGEBOX（学号不存在，请重新输入学号"）ELSEThisForm.Grid1.RecordSource="c

33、oruse_cursor"ThisForm.Grid1.refreshENDIF退出按钮Comma nd的单击事件程序代码如下：Close tablesThisform.release第十三题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：利用菜单设计器建立一个条形菜单TJ_MENU3菜单项有”统计"和"退出”两项。要求如下：(1) “统计”菜单下只有一个“平均”菜单项，该菜单项用来统计各门课程的平均成绩，统 计结果包含“课程名”和“平均成绩”两个字段，并将统计结果按课程名升序保存在表NEW_TABL中。(2) “退出”菜单项的功能是返回 Visual

34、FoxPro 系统菜单 ( 只能在命令框中填写相应命令 ) 。【操作步骤】步骤1：通过菜单设计器新建一个菜单，输入菜单项"统计"和"退出"。步骤2：为"统计"菜单项建立子菜单，并输入菜单项"平均"。步骤3：在"平均"菜单的 "结果"中选择 "过程"，单击"编辑"按钮，在弹出的程序编辑窗口中 输入下列代码：*" 平均 " 菜单项中的过程代码 *SET TALK OFFOPEN DATABASE SCORE_MANAGE

35、RSELECT Course.课程名,AVG(Score1.成绩)as 平均成绩；FROM course,score1 ;WHERE Course课程号=Score1.课程号；GROUP BY Course.课程名；ORDER BY Course.课程名；INTO TABLE NEW_TABLE32CLOSE ALLSET TALK ON步骤4:在”退出”菜单的结果中选择”命令”，输入语句：SET SYSMENU TO DEFAULT步骤 5：保存菜单为 TJ_MENU，3 生成菜单的可执行程序。步骤6：运行菜单并执行菜单中的各菜单项。第十四题根据以下要求，完成综合应用操作，所有文件保存在指定

36、文件夹下：1建立一个文件名和表单名均为 oneform 的表单文件，表单中包括两个标签控件(Label1 和Label2)、一个选项组控件(Optiongroup1)、一个组合框控件(Combo1)和两个命 令按钮控件(Command1和Command2)Label1 和Label2 的标题分别为”系名”和"计算内容”, 选项组中有两个选项按钮 option1 和option2，标题分别为”平均工资”和"总工资”，Command1 和Command2的标题分别为”生成”和"退出”。如下图所示。2 将" 学院表" 添加到表单的数据环境中， 然后手

37、工设置组合框 (Combo1) 的 RowSourceType 属性为 6、RowSource 属性为 "学院表系名 "，程序开始运行时，组合框中 可供选择的是 "学院表"中的所有 "系名"。3为"生成"命令按钮编写程序代码。程序的功能是：表单运行时，根据组合框和选项 组中选定的 "系名"和"计算内容 "，将相应 "系"的"平均工资 "或"总工资"存入自由表 salary 中，表中包括 "系名"、

38、"系号"以及"平均工资 "或"总工资"3 个字段。4为 " 退出 " 命令按钮编写程序代码，程序的功能是关闭并释放表单。 组合框的属性设置参照前面的例子。生成按钮Command1的程序代码sql语句如下：(do case语句是根据选择的统计方式决 定结果表中字段的名字及计算方式)do casecase thisform.optiongroup1.value=1统计 =" 平均工资 "统计方式="AVG傲师表.工资)"otherwise统计 =" 总工资 "

39、统计方式="sum(教师表.工资)"endcaseSELECT学院表.系名，&统计方式as &统计FROM学院表LEFT OUTERJOIN教师表 ON学院 表.系号=教师表.系号 GROUP BY 学院表.系名 ORDER BY 学院表.系名 into table salary 退出按钮Comma nd的单击事件程序代码如下：Close tablesThisform.release 选项按钮组的使用方式参见参见课本 P206 示例6-11。第十五题 根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下： 在指定文件夹下，先打开 " 宾馆&q

40、uot;数据库，然后创建一个名为 test 的表单文件，如下图 所示。该表单完成如下综合应用： 向表单中添加一个标签 (Label1) 、一个文本框 (Text1) 和两个命令按钮。 标签的标题为 "退房 日期大于或等于 " ，文本框用于输入退房日期。两个命令按钮的功能如下：(1) "查询"按钮(Command1)的SELECT命令查询退房日期大于或等于输入日期的客户的客户 号、身份证、姓名、工作单位和该客户入住的客房号、类型名、价格信息，查询结果按价格降序排列，并将查询结果输出到表TABD中。表TABD的字段为客户号、身份证、姓名、工作单位、客房号、类

41、型名和价格。(2) "退出"按钮(Command2)的功能是关闭并释放表单。表单设计完成后，运行该表单，查询退房日期大于或等于20050401 的顾客信息。按要求建立表单，添加各个控件并设置其相应属性。把相关表添加到表单的数据环境。查询按钮的命令代码为：SELECT客户.客户号，客户.身份证,客户.姓名，客户.工作单位，入住客房号,;房价.类型名 , 房价.价格;FROM宾馆!客户left JOIN 宾馆!入住； left JOIN 宾馆!客房;right OUTER JOIN 宾馆 ! 房价 ；ON 客房. 类型号 = 房价. 类型号 ；ON 入住. 客房号 = 客房.

42、客房号 ；ON 客户 .客户号 = 入住.客户号；WHERE入住.入住日期 >=ctod（thisform.text1.value）;ORDER BY房价 .价格 DESC;into table tabd退出按钮Comma nd的单击事件程序代码如下：Close tablesThisform.release第十六题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：1编写程序文件 two.prg 并执行。计算 "01" 组（歌手编号的前 2 位）歌手的得分，并将结果 存入自由表FINAL中。FINAL包含"歌手姓名”和"得分"两个

43、字段，”得分"取各评委所分数的 平均值。 FINAL 中的结果按得分降序排列，若得分相同则按歌手姓名降序排列。执行 modi comm. Two.prg 命令，在程序窗口中输入代码：select 歌手姓名 ,avg（ 分数 ） as 平均分 from 歌手表 right outer join评分表right outer join 评委表 on 评委表 . 评委编号 =评分表 . 评委编号 on 歌手表 . 歌手编号 = 评分表 . 歌手编号 where 组号 ='01' group by 歌手姓名 into table final 保存后执行一下程序，生成结果表，否则

44、可能影响得分。2新建一个文件名和表单名均为score_form 的表单文件，向表单添加一个命令按钮Command，1 标题为 "计算"，为该命令按钮的 Click 事件增加命令，以调用并执行 two.prg 程序。最后运行该表单，并单击 "计算"按钮执行 two 程序。建立表单并添加要求的控件，设计相关属性。计算按钮的 Click 程序代码如下：Do two.prg第十七题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下： 设计一个表单，所有控件的属性必须在表单设计器的属性窗口中设置，表单文件名为"外汇浏览 "，表单界面如下

45、图所示：其中：1）"输入姓名 "为标签控件 Label1；2）表单标题为 " 外汇浏览 " ；3）文本框的名称为 Text1 ，用于输入需要查询的姓名，如张三丰；4 ）表格控件的名称为 Grid1 ，用于显示所查询人持有的外币名称和持有数量，RecordSourceType 的属性为 4（SQL 说明）;5）"查询"命令按钮的名称为 Command1，单击该按钮时在表格控件Grid1中按持有数量升序显示所查询的人所持有的外币名称和数量（如上图所示 ），并将结果存储在以姓名命名的DBF表文件中，如张三丰.dbf ；6）"退出&

46、quot;命令按钮的名称为 Command2，单击该按钮时关闭表单。 完成以上表单设计后运行该表单，并分别查询"林诗因"、"张三丰 "和"李寻欢 "所持有的外币名称和持有数量。建立表单，添加控件，并按题目要求设置各控件的属性，然后添加“查询”按钮Command1的单击事件代码如下：thisform.grid1.recordsource="SELECT Rate_exchange. 外币名称 , Currency_sl. 持有数量 FROMcurrency_sl INNERJOIN rate_exchange ONCurren

47、cy_sl. 外币代码 =Rate_exchange. 外币代码 WHERE Currency_sl. 姓名 ="+'"'+thisform.text1.value+'"'+"ORDER BY Currency_sl. 持有数量 into table "+thisform.text1.value退出按钮Comma nd的单击事件程序代码如下：Close tablesThisform.release第十八题根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下：1. 指定文件夹下的 SCORE_MANAGeR库

48、中含有三个数据库表 STUDENTSCORE和 COURSE对SCOREMANAGE据库数据进行查询，设计一个如图所示的表单Myform1（控件名为forml,表单文件名 Myform1.scx） 。表单的标题为 "成绩查询 "。表单左侧有文本 "输入学号 （ 名称为 Label1的标签）"和用于输入学号的文本框 （名称为Text1）以及”查询"（名称为才ommand1和" 退出"（名称为Command2两个命令按钮以及1个表格控件。2. 表单运行时，用户首先在文本框中输入学号, 然后单击 "查询"按钮，

49、如果输入学号正确 ,在表单右侧以表格 （名称为 Grid1） 形式显示该生所选课程名和成绩，否则提示 "学号不存在， 请重新输入学号 "。单击"退出"按钮，关闭表单。建立表单，添加控件，并按题目要求设置各控件的属性 , 注意设置表格控件 Grid1 的RecordSourceType的属性为4-SQL说明，然后添加"查询”按钮Comma nd的单击事件代码如下：GO TOPLOCATE FOR Student. 学号 =ALLTRIM（THISFORM.TEXT1.VALUE）IF Student. 学号 =ALLTRIM（THISFORM.T

50、EXT1.VALUE） THISFORM.GRID1.RECORDSOURCE="SELECT Col课程名,Score1.成绩； FROM course INNER JOIN score1;INNER JOIN student ；ON Student. 学号 = Score1. 学号 ；ON Course. 课程号 = Score1. 课程号 ；WHERE Stude nt.学号=ALLTRIM（THISFORM.TEXTI.VALUE）;INTO CURSOR TEMP"ELSEMESSAGEBOX学号不存在，请重新输入学号"）THISFORM.GRID1.R