SCORE_MANAGER数据库中有3个数据库表,它们分别是STUDENT、SCORE1和COURSE。 设计一个下图所示的表单Myform1(控件名为form1,表单文件名Myform1.scx),以便对SCORE_MANAGER数据库中的数据进

admin2013-11-12  34

问题 SCORE_MANAGER数据库中有3个数据库表,它们分别是STUDENT、SCORE1和COURSE。
    设计一个下图所示的表单Myform1(控件名为form1,表单文件名Myform1.scx),以便对SCORE_MANAGER数据库中的数据进行查询。表单的标题为“成绩查询”。表单左侧有文本“输入学号标签(名称为Label1)、用于输入学号的文本框(名称为Textl)、“查询”(名称为Command1)和“退出”(名称为Command2)两个命令按钮,表单中同时包含1个表格控件(名称为Grid1)。
    表单运行时,首先在文本框中输入学号,然后单击“查询”按钮,如果输入学号正确,在表单右侧以表格形式显示该生所选课程名和成绩,否则提示“学号不存在,请重新输入学号”。
  单击“退出”按钮,则关闭表单。

选项

答案步骤1:在命令窗口输入“CREATE FORM myform1”,新建一个表单。按题目的要求添加一个标签控件、一个文本框控件、两个命令按钮和一个表格控件。设置表单的Caption属性为“成绩查询”,标签控件的Caption属性为“输入学号”,ComImangd1的Caption属性为“查询”,Command2的Caption属性为“巡出”;设置表格的ColumnCount属性为“2”,RecordSourceType属性为“0-表”,第1列的Caption属性为“课程名”,第2列的Caption属性为“成绩”。 步骤2:右击表单空白处,选择“数据环境”命令,将表course和score1添加到数据环境中。 步骤3:双击命令按钮,编写命令按钮的Click事件代码。 ******“查询”按钮的Click事件代码****** SELECT course课程名,score1.成绩; FROM course,score1: WHERE course.课程号=score1.课程号AND score1.学号=ThisForm1.Text1.text: INTO TABLE coruse_cursor IF RECC() =0 MESSAGEBOX(“学号不存在,请重新输入学号”) ELSE ThisFom.Grid1.RecordSource=“coruse_cursor” ThisForm.Grid1.refresh ENDIF ************************************ ******“退出”按钮的Click事件代码******* ThisForm.Release ********************************** 步骤4:保存并运行表单。

解析
转载请注明原文地址:https://jikaoti.com/ti/JQT0FFFM
0

最新回复(0)