2. 计算机
  3. score_manger数据库中含有三个数据库表student、scorcl和course。为了对score manager数据库数据进行查询，设计一个如图1-17所示的表单myform1(控件名为form1，表单文件名myform1．scx)。表单的标题

score_manger数据库中含有三个数据库表student、scorcl和course。为了对score manager数据库数据进行查询，设计一个如图1-17所示的表单myform1(控件名为form1，表单文件名myform1．scx)。表单的标题

admin2013-06-10  24
问题 score_manger数据库中含有三个数据库表student、scorcl和course。为了对score manager数据库数据进行查询，设计一个如图1-17所示的表单myform1(控件名为form1，表单文件名myform1．scx)。表单的标题为“成绩查询”。

    表单中有文本“输入学号(名称为Label1的标签)”和用于输入学号的文本框(名称为Text1)以及“查询”(名称为Command1)和“退出”(名称为Command2)两个命令按钮以及一个表格控件。
    表单运行时，用户首先在文本框中输入学号，然后单击“查询”按钮，如果输入学号正确，在表单右侧以表格(名称为Grid1)形式显示该生所选课程名和成绩，否则提示“学号不存在，请重新输入学号”。
    单击“退出”按钮，关闭表单。
选项
答案步骤1：在命令窗口执行命令：CREATE FORM myform1，打开表单设计器新建表单。 步骤2：从“表单控件”工具栏中依次向表单添加一个标签、一个文本框、两个命令按钮和一个表格控件。在“属性”面板的下拉框中选择表单对象，在“全部”选项卡中修改对象属性值，见表2-20。 [*] 步骤3：双击命令按钮，编写各个命令按钮的Click事件代码。各按钮代码如下： *****查询(Command1)的click事件代码***** GO TOP LOCATE FOR student．学号==ALLTRIM (THISFORM．TEXT1．VALUE) IF student．学号==ALLTRIM(THISFORM． TEXT1．VALUE) THISFORM．GRID1．RECORDSOURCE="SELECT Course．课程名，Score1．成绩， FROM COUrse INNER JOIN scorel； INNER JOIN student； ON student．学号=Scorel．学号； ON Course．课程号=Score1．课程号； WHERE Student．学号=ALLTRIM(THISFORM． TEXT1．VALUE)； INTO CURSOR TEMP" ELSE MESSAGEBOX("学号不存在，请重新输入学号") THISFORM．GRID1．RECORDSOURCE=" ENDIF *****“退出”按钮的Click事件代码***** THISFORM．RELEASE 步骤4：单击“常用”工具栏中的“运行”按钮查看结果，将表单文件保存到考生文件夹下。
解析 表单文件的创建、控件的属性的修改、SOL
语句运用、表单的退出等知识点。
    对本题操作时，首先根据题意新建表单、添加控件并修
改相关属性。本题的重点是“查询”按钮Click事件的编写，文本框中的内容用value属性表示；在表中查找输入的学号用locate for命令，如果找到，则记录指针指向该记录，如果没找到，则指向文件尾；事件代码中用IF...ELSE...ENDIF选择结构实现“找到学号”和“没找到学号”两种情况。
转载请注明原文地址:https://kaotiyun.com/show/MTop777K
本试题收录于： 二级VF题库NCRE全国计算机二级分类
0

二级VF

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)