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

admin2013-06-10  32

问题 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
0

最新回复(0)