在考生文件夹下有学生管理数据库books,数据库中有score表(学号、物理、高数、英语和学分查询表结构),其中前4项已有数据。 请编写符合下列要求的程序并运行程序: 设计一个名为myform的表单,表单中有两个命令按钮,按钮的名称分别为cmd

admin2013-03-18  28

问题 在考生文件夹下有学生管理数据库books,数据库中有score表(学号、物理、高数、英语和学分查询表结构),其中前4项已有数据。
   请编写符合下列要求的程序并运行程序:
   设计一个名为myform的表单,表单中有两个命令按钮,按钮的名称分别为cmdyes和cmdno,标题分别为“计算”和“关闭”。程序运行时,单击“计算”按钮应完成下列操作:
   ①计算每一个学生的总学分并存入对应的学分字段。学分的计算方法是:物理60分以上(包括60分) 2学分,否则0分;高数60分以上(包括60分)3学分,否则0分;英语60分以上(包括60分)4学分,否则0分。
   ②根据上面的计算结果,生成一个新的表xf(要求表结构的字段类型与score表对应字段的类型一致),并且按“学分”升序排序,如果“学分”相等,则按“学号”降序排序。单击“退出”按钮,程序终止运行。

选项

答案在命令窗口输入命令:CREATE FORM myform,打开表单设计器:单击表单控件工具栏上的“命令按钮”控件图标,向表单添加两个命令按钮,选中第一个命令按钮(commarldl),在属性对话框中将命令按钮的Name属性值修改为cmdyes,将Capdon属性值修改为“计算”,如图所示。以同样的方法,将第二个命令按钮(command2)的Name属性值修改为cmdno,将Caption属性值修改为“关闭”。 [*] 双击命令按钮cmdyes(计算),在Click事件代码中编写如下程序段: **********命令按钮Commandl(计算)的Click事件代码********* SET TALK OFF USE score REPLACE ALL 学分 WITH 0 GO TOP DO WHILE.NOT.EOF() IF 物理>=60 THEN REPIACE 学分 WITH 学分+2 ENDIF IF 高数>=60 THEN MPLACE 学分 WITH学分+3 ENDIF IF 英语>=60 THEN REPLACE 学分 WITH 学分+4 ENDIF SKIP ENDDO SORT ON学分,学号/d TO xf SET tALK ON ********************************************** 双击命令按钮cmdno(关闭),在Chck事件代码中编写如下程序段: *********命令按钮Command2(关闭)的Click事件代码******** Thisform.Release ********************************************** 保存表单,在命令窗口输入命令:DO FORM myform。在运行的表单界面中单击“计算”命令按钮,系统将计算结果自动保存到新表xf中。

解析
转载请注明原文地址:https://kaotiyun.com/show/PVsp777K
0

最新回复(0)