《计算机信息管理基础 信管05》由会员分享，可在线阅读，更多相关《计算机信息管理基础 信管05（17页珍藏版）》请在金锄头文库上搜索。
1、重庆大学计算机基础系列课程实 验 报 告 本课程名称 计算机信息管理基础 实验学期 2011 年至 2012 年 第 1 学期学生所在学院 材料科学与工程学院 年级 2010 专业班级 学生姓名 学号 指导教师 余嘉 实验最终成绩 计算机学院基础系制实验题目 PowerBuilder 开发环境中数据库操作实验时间 2011.12.08 实验地点 DS1408实验成绩 实验性质 验证性 设计性 综合性教师评价：算法正确；程序结构合理；语法、语义正确；实验结果正确；报告规范； 其他： 一、实验目的1理解并掌握 PB 中数据窗口对象、菜单的概念和使用方法；2掌握在 PB 通过数据窗口控件显示数据库表
2、中数据的方法及菜单的基本应用；3掌握 PB 中 SQL Select 及 Quick Select 类型数据源的选取和操作方法；4. 掌握在 PB 中通过数据窗口对数据库数据进行复杂操作的方法；二、实验主要内容及过程（原始记录）1创建登录窗口，可根据不同对象（老师、学生）关联不同的数据窗口对象（选择数据源：SQL Select） ；2创建菜单，完成菜单设计（涵盖级联、下拉、快捷键、加速键等设计） ，菜单版式见后。3主窗口中可根据不同的登录类型，检索出登录人的基本信息数据窗口一(本人的基本信息)：(1)（学生号、学生姓名、所在系名）A.学生登录时，按钮示例不可用（ENABLED）B.菜单中 m_
3、基本应用的按多个条件查询学生不可见（VISIBLE）C菜单基本数据维护不可见（VISIBLE）或 (2)（教师号、教师姓名、所在系名）显示（显示风格：Grid，选择数据源：SQL Select） ；4通过菜单 M_查询课程详情打开子窗口，该子窗口中设计两个数据窗口控件对课程信息进行查询，1.数据窗口对象（上） （显示风格：freeform，选择数据源：Quick Select）,完成前、后行查阅；2. 数据窗口对象(下)（显示风格：Grid，选择数据源：Quick Select）中，完成对课程信息插入、删除、保存、退出功能，并能对课程号精确查询，对课程名称进行模糊查询。3、打开子窗口时，数据窗
4、口控件下中无数据，直到按下按钮_显示课程信息，其中数据才出现。4.完成增加、删除.保存（注意：COMMIT,ROLLBACK 的使用） 、退出各个按钮5.、通过菜单按多个条件查询学生，打开窗口：按学院、性别两个条件查询表(学号 学生姓名 学生性别 年龄 所在系)显示（显示风格：Grid，选择数据源：SQL Select）6、通过菜单按学生所在系查询该系所有学生选课情况，打开子窗口 2，可完成A.数据窗口一：（学生号、学生姓名、学生所在系）B.窗口二:( 学生姓名、课程名称、成绩、学生所在系）显示（显示风格：Grid，选择数据源：SQL Select） ；C.编制脚本（程序）通过数据窗口 1 选
5、中的学生表中的记录，根据该生所在系信息，能够在数据窗口 2 中显示当前学生所在系所有学生成绩信息；菜单版式：三、实验过程及结果（1）界面截图教师登录教师登录后 学生登录学生登录后按多个条件查询学生的应用（3）程序1）应用中的 open 事件/ Profile DatabaseSQLCA.DBMS = ODBCSQLCA.AutoCommit = FalseSQLCA.DBParm = Connectstring=DSN=databaseconnect;if SQLCA.SQLCode 0 thenMessagebox(连接失败,不能连接到数据库的原因为:+SQLCA.SQLErrText)re
6、turn elseopen(w_main)end if2）登录按钮gs_stuno=sle_1.textgs_stucode=sle_2.textgs_style=ddlb_1.textgs_teano=sle_1.textgs_teacode=sle_2.textif ddlb_1.text= thenmessagebox(警告,请选择类型,Stopsign!)elseif gs_style=学生 thendw_1.dataobject=dw_studw_1.settransobject(sqlca)dw_1.retrieve(gs_stuno,gs_stucode)elseif gs_st
7、yle=教师 thendw_1.dataobject=dw_teacherdw_1.settransobject(sqlca)dw_1.retrieve(gs_teano,gs_teacode)end ifif dw_1.rowcount()=0 then messagebox(警告,对不起，认证错误，请确认密码或账号是否正确后重新输入)elseif dw_1.rowcount()=1 thenopen(w_inform)close (parent)end if 3）登录窗口中的退出按钮a=messagebox(退出,真的要退出吗!,Question!,yesno!)if a=1 thencl
8、ose(w_main)end if4）登录后窗口的 open 事件if gs_style=学生 thencb_1.enabled=falsem_inform.m_基本应用.m_按多个条件查询学生.visible=falsem_inform.m_基本数据维护.visible=falsedw_1.Dataobject=dw_stu_informdw_1.settransobject(SQLCA)dw_1.retrieve(gs_teano)elseif gs_style=教师 thendw_1.Dataobject=dw_tea_informdw_1.settransobject(SQLCA)dw
9、_1.retrieve(gs_stuno)end if5）菜单中的查询成绩：open(w_chengcha)查询课程详情：open(w_chake)close(w_inform)按多个条件查询学生：open(w_xiangcha)按某个学生所在系查询该系所有学生选课情况：open(w_chengcha)6）查询课程详情窗口的 open 事件查询课程详情窗口7）查询课程详情窗口中上一条：dw_1.settransobject(sqlca)dw_1.scrollpriorrow()下一条：dw_1.settransobject(sqlca)dw_1.scrollnextrow()查询按钮：dw_2
10、.settransobject(SQLCA)gs_cname=sle_1.textdw_2.dataobject=dw_sc_infromdw_2.retrieve(gs_cname)显示课程详情按钮：dw_2.dataobject=dw_sc_fulldw_2.settransobject(sqlca)dw_2.retrieve()增加按钮：long ll_rowll_row=dw_2.insertrow(0)dw_2.setfocus()dw_2.scrolltorow(ll_row)dw_2.setcolumn(1)dw_2.insertrow(0)删除按钮：deleterow(dw_2
11、,dw_2.getrow()保存按钮：update(dw_2)退出按钮：close(parent)open(w_main)7）按多条件查询学生窗口按所在学院及性别进行查询按钮：gs_stuxi=ddlb_1.textgs_stusex=ddlb_2.textdw_1.settransobject(sqlca)dw_1.retrieve(gs_stuxi,gs_stusex)8）实验中使用的全局变量int aint bint cint dstring gs_stunostring gs_teanostring gs_stucodestring gs_teacodestring gs_stylestring gs_cnamestring gs_stuxistring gs_stusex四实验分析或总结1.通过这次实验我加深了对数据窗口对象、菜单概念的理解，并掌握在 PB 通过数据窗口控件显示数据库表中数据的方法及菜单的基本应用；2.要想完满完成一个复杂的实验，不但需要我们扎实的基础知识，还需要我们细心的态度以及对实验题目的正确理解。3.实验的复杂程度可以在一定程度上决定着我们能够学到知识的多少。
