实验五 打印成绩表.docVIP

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