实验五 打印成绩表.doc

实验五 打印成绩表 一、实验目的 1. 设计按不同的需要调用报表的表单 2. 熟悉打印所需中间表的使用 3. 理解通过编程由多表产生一个临时表的方法 4. 掌握使用报表设计器创建和修改报表的方法 二、实验内容 1.设计一个学生成绩打印表单，在表单上通过单选按钮可分别选择按班级、按课程打印学生成绩； 2.设计班级成绩单、课程成绩单两个报表定义文件，可通过运行表单分别调用这两个文件，输出所需报表。 三、实验步骤 （一）设计表单 1.建立表单 打开项目管理器“学生成绩管理系统”，新建一个表单，将其Caption改为 “学生成绩打印”，表单上各控件按图5-1设计。 图5-1 其中“学生成绩表打印”、“班级简称”、“班级编号”、“课程名称”、“课程编号”为标签，“Combo1”、“Combo2”为组合框，“Text1”、“Text2”为文本框，“生成”、“预览”、“打印”、“退出”为命令按钮，“按班级打印”、“按课程打印”为单选按钮组（单选按钮组的设计见本页第2点），可自行设计每一控件的字型、字体、字号、颜色。按Ctrl+ S键保存表单,取名为“成绩打印”。 2.设计单选按钮 单击单选按钮组按钮，在表单上画一组单选按钮组“Optiongroup1”，将其属性作如下修改： BackStyle 0-透明 BorderStyle 0-无 Buttoncount 2 然后，右键单击单选按钮组，在弹出的快捷菜单上选“编辑”，再分别单击其中任一按钮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过程代码： public n n=this.value do case case n=1 sele 班级号名 go top bo1.enabled=.t. bo2.enabled=.f. case n=2 sele 课程 go top bo2.enabled=.t. bo1.enabled=.f. endcase thisform.refresh （2）双击Combo1，为其Click过程输入代码： Thisform.refresh （3）双击Combo2，为其Click过程输入代码： Thisform.refresh （4）双击命令按钮“生成”，为其Click过程输入代码： （注意：这一段程序代码比较长，实验过程中可以先输入调试case n=1程序段，再输入调试case n=2程序段，以减少调试的复杂度。如实验课时不够，也可只输入case n=1所对应的“按班级打印”程序段，且后面也只设计相应的按班级打印报表文件。 ） public n,kc1,kc2,kc3,bjbh,bjjc n存放选择单选按钮的值，kc1--kc3分别存放课程名，后两个变量存放班级编号和班级简称 public kcmc,kcbh,xf,rkjs kcmc存放课程名，kcbh存放课程编号，xf存放学分，rkjs存放任课教师 set safe off clos data n=thisform.optiongroup1.value do case case n=1 按班级打印 store space(20) to kc1,kc2,kc3 赋初值 bjjc=bo1.value bjbh=thisform.text1.value if !file(bjlsb.dbf