资源描述：
《实验五打印成绩表》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、实验五打印成绩表一、实验目的1.设计按不同的需要调用报表的表单2.熟悉打印所需中间表的使用3.理解通过编程由多表产生一个临时表的方法4.掌握使用报表设计器创建和修改报表的方法二、实验内容1.设计一个学生成绩打印表单，在表单上通过单选按钮可分别选择按班级、按课程打印学生成绩；2.设计班级成绩单、课程成绩单两个报表定义文件，可通过运行表单分别调用这两个文件，输出所需报表。三、实验步骤（一）设计表单1.建立表单打开项目管理器“学生成绩管理系统”，新建一个表单，将其Caption改为“学生成绩打印”，表
2、单上各控件按图5-1设计。图5-1其中“学生成绩表打印”、“班级简称”、“班级编号”、“课程名称”、“课程编号”为标签，“Combo1”、“Combo2”为组合框，“Text1”、“Text2”为文本框，“生成”、“预览”、“打印”、“退出”为命令按钮，“按班级打印”、“按课程打印”为单选按钮组（单选按钮组的设计见本页第2点），可自行设计每一控件的字型、字体、字号、颜色。按Ctrl+S键保存表单,取名为“成绩打印”。2.设计单选按钮单击单选按钮组按钮，在表单上画一组单选按钮组“Optiongro
3、up1”，将其属性作如下修改：BackStyle0-透明BorderStyle0-无Buttoncount2然后，右键单击单选按钮组，在弹出的快捷菜单上选“编辑”，再分别单击其中任一按钮Option1或Option2，就可进行编辑，将Option1的Caption改为“按班级打印”，Option2的Caption改为“按课程打印”，其余如字型、字体、字号、颜色可自行设计。3.设置数据环境在数据环境中添加“班级号名”、“课程”。4.设置各控件主要属性·Combo1主要属性为：ControlSour
4、ce选“班级号名.班级简称”ColumnCount输入1RowSourceType选6－字段RowSource选“班级号名.班级简称”Style选2－下拉列表框·Combo2主要属性为：ControlSource选“课程.课程名称”ColumnCount输入1RowSourceType选6－字段RowSource选“课程.课程名称”Style选2－下拉列表框·Text1主要属性：ControlSource选“班级号名.班级编号”Enabled.F.-假·Text2主要属性：ControlSour
5、ce选“课程.课程编号”Enabled.F.-假5.事件代码（1）单选按钮组Optiongroup1的Click过程代码：publicnn=this.valuedocasecasen=1sele班级号名gotopthisform.combo1.enabled=.t.thisform.combo2.enabled=.f.casen=2sele课程gotopthisform.combo2.enabled=.t.thisform.combo1.enabled=.f.endcasethisform.re
6、fresh（2）双击Combo1，为其Click过程输入代码：Thisform.refresh（3）双击Combo2，为其Click过程输入代码：Thisform.refresh（4）双击命令按钮“生成”，为其Click过程输入代码：（注意：这一段程序代码比较长，实验过程中可以先输入调试casen=1程序段，再输入调试casen=2程序段，以减少调试的复杂度。如实验课时不够，也可只输入casen=1所对应的“按班级打印”程序段，且后面也只设计相应的按班级打印报表文件。）publicn,kc1,k
7、c2,kc3,bjbh,bjjc&&n存放选择单选按钮的值，kc1--kc3分别存放课程名，后两个变量存放班级编号和班级简称publickcmc,kcbh,xf,rkjs&&kcmc存放课程名，kcbh存放课程编号，xf存放学分，rkjs存放任课教师setsafeoffclosdatan=thisform.optiongroup1.valuedocasecasen=1&&按班级打印storespace(20)tokc1,kc2,kc3&&赋初值bjjc=thisform.combo1.value
8、bjbh=thisform.text1.valueif!file("bjlsb.dbf")&&bjlsb.dbf为按班级打印所需中间表，是一个由多个表产生的临时表createtablebjlsb(姓名c(6),班级编号c(9),班级简称c(9),kc1n(3),kc2n(3),kc3n(3))elseseleFusebjlsbendifselebjlsbzapappefrom学生deleallfor班级编号#班级号名.班级编号packseleIuse学生seleGuse学生选课sele课程i=1
