实验五打印成绩表.doc
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《实验五打印成绩表.doc》由会员分享,可在线阅读,更多相关《实验五打印成绩表.doc(11页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、【精品文档】如有侵权,请联系网站删除,仅供学习与交流实验五打印成绩表.精品文档.实验五 打印成绩表一、实验目的1. 设计按不同的需要调用报表的表单2. 熟悉打印所需中间表的使用 3. 理解通过编程由多表产生一个临时表的方法4. 掌握使用报表设计器创建和修改报表的方法二、实验内容1.设计一个学生成绩打印表单,在表单上通过单选按钮可分别选择按班级、按课程打印学生成绩;2.设计班级成绩单、课程成绩单两个报表定义文件,可通过运行表单分别调用这两个文件,输出所需报表。三、实验步骤(一)设计表单1.建立表单打开项目管理器“学生成绩管理系统”,新建一个表单,将其Caption改为 “学生成绩打印”,表单上各
2、控件按图5-1设计。 图5-1其中“学生成绩表打印”、“班级简称”、“班级编号”、“课程名称”、“课程编号”为标签,“Combo1”、“Combo2”为组合框,“Text1”、“Text2”为文本框,“生成”、“预览”、“打印”、“退出”为命令按钮,“按班级打印”、“按课程打印”为单选按钮组(单选按钮组的设计见本页第2点),可自行设计每一控件的字型、字体、字号、颜色。按Ctrl+ S键保存表单,取名为“成绩打印”。2.设计单选按钮 单击单选按钮组按钮,在表单上画一组单选按钮组“Optiongroup1”,将其属性作如下修改:BackStyle 0-透明BorderStyle 0-无Button
3、count 2然后,右键单击单选按钮组,在弹出的快捷菜单上选“编辑”,再分别单击其中任一按钮Option1或Option2,就可进行编辑,将Option1的Caption改为“按班级打印”,Option2的Caption改为“按课程打印”,其余如字型、字体、字号、颜色可自行设计。3.设置数据环境在数据环境中添加“班级号名”、“课程”。4.设置各控件主要属性Combo1主要属性为:ControlSource 选“班级号名.班级简称”ColumnCount 输入1RowSourceType 选6字段RowSource 选“班级号名.班级简称”Style 选2下拉列表框Combo2主要属性为:Con
4、trolSource 选“课程.课程名称”ColumnCount 输入1RowSourceType 选6字段RowSource 选“课程.课程名称” Style 选2下拉列表框Text1主要属性: ControlSource 选“班级号名.班级编号” Enabled .F.-假Text2主要属性: ControlSource 选“课程.课程编号” Enabled .F.-假5.事件代码 (1)单选按钮组Optiongroup1的Click过程代码: public nn=this.valuedo case case n=1 sele 班级号名 go top bo1.enabled=.t. bo2
5、.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所对应的“按班
6、级打印”程序段,且后面也只设计相应的按班级打印报表文件。 )public n,kc1,kc2,kc3,bjbh,bjjc & n存放选择单选按钮的值,kc1-kc3分别存放课程名,后两个变量存放班级编号和班级简称public kcmc,kcbh,xf,rkjs &kcmc存放课程名,kcbh存放课程编号,xf存放学分,rkjs存放任课教师set safe offclos datan=thisform.optiongroup1.valuedo case case n=1 &按班级打印 store space(20) to kc1,kc2,kc3 &赋初值 bjjc=bo1.value bjbh=
7、thisform.text1.value if !file(bjlsb.dbf) & bjlsb.dbf为按班级打印所需中间表,是一个由多个表产生的临时表 create table bjlsb(姓名 c(6),班级编号 c(9),班级简称 c(9),kc1 n(3), kc2 n(3),kc3 n(3) else sele F use bjlsb endif sele bjlsb zap appe from 学生 dele all for 班级编号#班级号名.班级编号 pack sele I use 学生 sele G use 学生选课 sele 课程 i=1 scan *内存变量kci(i=
8、1,2,3)中存放第i门课程的名称 m=kc+trim(str(i,1) &m=课程名称 *第i门课程的成绩写入bjlsb.dbf sele bjlsb go top scan sele 学生 loca for 姓名=bjlsb.姓名 sele 学生选课 loca for 学号=学生.学号 and 课程编号=课程.课程编号 sele bjlsb repl &m with 学生选课.成绩 endscan i=i+1 sele 课程 endscan case n=2 &按课程打印 store space(16) to kcmc,kcbh,rkjs &赋初值 xf=space(5) &赋初值 kcm
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 打印 成绩表
![提示](https://www.deliwenku.com/images/bang_tan.gif)
限制150内