PowerBuilder实训总结报告书.doc

重庆航天职业技术学院

重庆航天职业技术学院
继续教育学院

《PowerBuilder实用教程和实训》
课程设计任务汇报书

班级：10计算机网络
学号：*******
姓名：**
指导老师：***
完成日期：/12/23

数据库技术课程设计任务书
班级：10计算机网络
一、 课程设计名称：`
学生成绩管理系统设计和实现
二、 课程设计目标：
经过此次课程设计，学会PB使用方法。
三、 任务要求：
1． 画出系统设计图。
2． 给出关键模块设计和实现步骤。
3． 给出实现代码。
四、 课程设计汇报书要求：
1． 要求有课程设计汇报书封面，封面上写清楚标题、班级、姓名、指导老师、完成日期，格式自己设计。
2． 将本任务书装订在汇报书第二页。
3． 第三页为老师评语。
4． 第四页为目录。
5． 汇报书具体内容以下：
1） 系统结构图。
2） 数据库建立步骤及截图。
3） 系统模块实现步骤及截图。
4） 具体代码。
6． 汇报书最终是此次课程设计小节和参考文件。
五、 作业周期：
.11.15——.1.5

计算机工程系
***

重庆航天职业技术学院

老师评语
重庆航天职业技术学院

目录
1 课程设计目标……………………………5
2 数据库设计………………………………5
2.1 需求分析……………………….........5
2.2 数据库设计内容…………………….6
2.3 概念设计……………………….........6
2.4 创建数据库…………………….........7
3 模块及窗口设计……………………......11
3.1 设计系统管理模块…………….......11
3.2 设计主窗口和菜单………………...13
3.3 设计输入班级信息数据窗口…...17
3.4 设计访问学生基础信息数据窗口...19
3.5 设计查询班级开设课程窗口…...20
3.6 设计访问成绩信息窗口………...23
3实训心得…………………………………27
4 参考文件………………………………..27

重庆航天职业技术学院
引言
数据库技术，已经成为优异信息技术关键组成部分，是现代计算机信息系统和计算机应用系统基础和关键。数据库从诞生到现在，在不到半个世纪时间里，形成了坚实理论基础、成熟商业产品和广泛应用领域，吸引越来越多研究者加入。
计算机技术不停地应用到各行各业，大量企业把数据存放在数据库中，而且经过T相关代码语句来进行快速查询，获取比传统方法更高效率。
为了深入加深和巩固我们所学《PowerBuilder实用教程和实训》基础理论知识，使我们所学理论能够愈加好和实际专业连接起来。是学生得到搜集、处理、应用资料信息实践训练，同时全方面考评学生所掌握基础理论知识及其实际专业能力，从而达成提升学生素质最终目标。学校安排了实训课程，在这段时间里，期望阩能够利用所学到只是穿件一个图书管理数据系统，来达成图书管理需要。
.12.20

重庆航天职业技术学院
1 课程设计目标
经过此次课程设计，学会PB使用方法。
2 数据库设计
熟悉《PowerBuilder实用教程和实训》实训环境，熟练掌握数据库、表、窗口界面设计、图形按钮添加、数据库链接及函数创建和应用，确立数据库创建方向，对图书管理系统进行分析并设计系统实现需要哪几张表和各表结构，确立数据库创建要求，优化数据库界面设计。
2.1 需求分析
书籍是人类进步阶梯，人类进步精神粮食。所以，读书显得格外关键。所以学生成绩系统应该是能够为阅读者提供充足信息和快捷查询手段一个方法。
学生成绩管理工作繁琐，查阅繁琐，包含大量信息数据，所以就需要一个完善学生成绩管理系统来实现对这些数据有效管理。从而达成领导、老师对查询学生成绩信息进行统一管理，满足用户需要。
重庆航天职业技术学院
伴随计算机信息技术发展，数据库作为信息技术一部分也在飞速发展着。使用数据库对图书资源尽心管理工含有着手工管理无法比拟有点，它检索快速、查找方便、可靠性高、存放量大、成本低，所以数据库成为了图书管理最关键选择。
2.2数据库设计内容
利用PowerBuilder开发一个小型图书管理系统改图书管理系统关键有一下多个功效：图书类型信息查询和编辑，图书信息查询和编辑，用户查询和编辑，借阅还书统计生成和查询。
2.3 概念设计
概念设计是在需求分析基础上，用概念数据模型来表述数据和数据之间相互联络，从上述分析中得到图书管理系统E-R图。

重庆航天职业技术学院
性别
姓名
修课
班级编号
班级
老师
学期
家庭住址
开设
系统E-R图
出生日期
学号

班级班号
学生

学期

所属

成绩
班级名称

课时
专业

课程

学制

人数
课程名称

入课时间

2.4 创建数据库
数据库是一个数据库系统关键，一切数据全部存放在数据库中，我们所进行数据查找，删除，更改等行为全部是要进入数据库中。要创建数据库管理系统，那么我们首先要创建一个数据库。

重庆航天职业技术学院
在D盘新建xscj文件夹，再新建data文件夹。打开powerBuilder，新建一个工作空间和应用。在应用open中输入代码：
//连接数据库
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=xscj;UID=dba;PWD=sql'"
CONNECT;
if SQLCA.sqlcode<>0 then
messagebox("提醒","数据库连接失败！")
else
open(w_login) //打开登录窗口
end if
在工具栏上点击Database图标(或Tools-Database painter{快捷键Shift+F7})，弹出数据库创建对话框。打开ODBC下拉菜单，单击[Utilities]，然后双击[Create ASA Database]。Database name键入xscj，保留在在D盘下xscj文件夹data文件夹下，图.

重庆航天职业技术学院

图2-1 新建xscj数据库 图 2-2 数据库树状图
在数据库中创建表banji、jiben、bjkc、xscj、 user同时为表创建主键，外键。
在数据库xscj中选中Tables，右键选择NewTable，
弹出表创建窗口，输入表名，类型，宽度，和是否为空。完成后点击图标或使用快捷键[Ctrl+S] 保留。

图 2-3 在数据库中创建表banji
创建完成后，打开xscjTables下拉菜单，选中刚
刚创建表。右键New—primaryKey为表设置主键bjbh。
使用一样方法建立表jiben，bjkc，xscj，user图所表示：

重庆航天职业技术学院

图 2-4 在数据库中创建表jiben

图2-5 在数据库中创建表 xscj

图 2-6 在数据库中创建表users
分别为其设置主键xh，<bjbh,xq,kcmc>，<xh,xqkcmc>，xm
表关联关系：bjkc-foreignkey关联banji-primarykey
Jiben-primarykey关联jiben-foreignkey
Jinben-primarykey关联xscj-foreignkey
重庆航天职业技术学院

图 2-7 表关联关系
3.1系统模块设计
点击工具栏新建图标，或[File-new]，选择PB Object中Windows。使用CommondButton，创建一个用户登陆窗口。在属性页面Title框内输入登陆，使用两个Create static text control，在其一加入图片，另一text属性文本框内输入学生成绩管理系统。在窗口中添加GroupBox，text属性中输入请输入。在其内添加两个static text control，text。在static text controltext属性
输入用户名，密码。
本窗口实现用户登录控制

重庆航天职业技术学院

图 3-1 登陆窗口
在确定按钮下添加代码，以下：
string ls_username, ls_password
ls_username=trim(sle_1.text) //输入用户名和密码
ls_password=trim(sle_2.text)
if ls_username="" or ls_password="" then
messagebox("提醒","用户名和密码不能为空")
else
SELECT "users"."name", "users"."password", "users"."admin"
INTO :gs_username, :gs_password, :gs_admin
FROM "users"
WHERE ( "users"."name" = :ls_username ) AND
( "users"."password" = :ls_password );
if sqlca.sqlcode=0 then
open(w_main) //密码正确，打开主窗口
close(w_login)
else
li_n=li_n - 1
if li_n<>0 then
重庆航天职业技术学院

messagebox("提醒","用户名或密码错误")
else
messagebox("提醒","错误超出3次，自动退出")
halt //错误超出3次，退出程序
end if
end if
end if
放弃按钮下输入代码：
halt //退出程序
3.2 设计主窗口和菜单
主窗口和菜单是系统工作主界面，本例窗口为带帮助多文档框架窗口。
[File|New] 在PB Object下选定Menu单击OK，或使用new小图标弹出new选择窗口对话框。打开Menu窗口。选定Untitled0右键Insert Submenu Item，输入-系统(&S)回车，选定系统(&S)右键Insert Submenu Item，输入-密码修改，再选定系统(&S)右键选择Insert Submenu Item输入用户管理….使用一样方法创建
Menu菜单结构。图所表示：

重庆航天职业技术学院

图3-2 系统树形菜单结构窗口
【系统】菜单下【密码修改】菜单项Clicked事件脚本以下。
Open(w_mmxg)
【系统】菜单下【用户管理】菜单项Clicked事件脚本以下。
Open(w_yhgl)
【系统】菜单下【退出系统】菜单项Clicked事件脚本以下。
Close(parentwindow)
【班级管理】菜单下【录入班级信息】菜单项Clicked
重庆航天职业技术学院
事件脚本以下。
Open(w_banji_shuru,w_main,6,Original!)
【班级管理】菜单下【修改班级信息】菜单项Clicked事件脚本以下。
Open(w_banji_xiugai,w_main,6,original)
【班级管理】菜单下【浏览班级信息】菜单项Clicked事件脚本以下。
Opensheet(w_banji_xiugai,w_main,6,original!)
【学生管理】菜单下【录入学生信息】菜单项Clicked事件脚本以下。
Opensheet(w_jiben_shuru,w_main,6,original!)
【学生管理】菜单下【修改学生信息】菜单项Clicked事件脚本以下。
Opensheet(w_jiben_xiugai,w_main,6,original!)
【学生管理】菜单下【查询学生信息】菜单项Clicked事件脚本以下。
Opensheet(w_jiben_chaxun,w_main,6,original!)
【课程管理】菜单下【录入/修改开设课程】菜单项
重庆航天职业技术学院
Clicked事件脚本以下。
Opensheet(w_bjkc_shuruxiugai,w_main,6,original!)
【课程管理】菜单下【查询开设课程信息】菜单项Clicked事件脚本以下。
Opensheet(w_bjkc_chaxun,w_main,6,original!)
【成绩管理】菜单下【录入修改成绩】菜单项Clicked事件脚本以下。
Opensheet(w_xscj_shuru,w_main,6,original!)
【成绩管理】菜单下【查询个人成绩】菜单项Clicked事件脚本以下。
Opensheet(w_xscj_grcx,w_main,6,original!)
【成绩管理】菜单下【查询班级成绩】菜单项Clicked事件脚本以下。
Opensheet(w_xscj_bjkc,w_main,6,original!)
【成绩管理】菜单下【查询课程成绩】菜单项Clicked事件脚本以下。
Opensheet(w_xscj_kccx,w_main,6,original!)
【窗口】菜单下【层叠窗口】菜单项Clicked事件
重庆航天职业技术学院
脚本以下。
W_main.arrangesheets(cascade！)
功效是将主窗口打开子窗口以层叠方法排列。
【帮助】菜单下【相关】菜单项Clicked事件脚本以下。
Open(w_about)
【帮助】菜单下【相关】菜单项Clicked事件脚本以下。
ShowHelp(“d:\xscj\help\xscjhelp.chm”,index!)
3.3 设计输入班级信息数据窗口
菜单栏中选择【File】-【new】或点击new小图标选择Datawindows窗口，选中Freedom单击ok。选择【Quick Select】类型数据库，选中预览时检索数据复选框，单击【Next】命令按钮，弹出【Quick Selct】数据窗口对话框。在途中左边【Tables】列表框中列出目前数据库中全部表名，单击某一个表名，会在【Columns】列表框中列出该表全部字段。单击某个
字段名，单击右边【Add All】命令按钮。完成字段选
重庆航天职业技术学院
择后单击【ok】按钮，接着弹出【Selcet Color and Border Seting】严责和边框设置对话框。

图 3-3 表选择 图 3-4 颜色边框对话框

点击【Next】-【Finish】完成选择弹出以下对话框

图 3-5 数据窗口
单击【Save】图标，或【File】-【Save】弹出保留对
重庆航天职业技术学院
话框，输入创建
图 3-5 保留对话框
数据窗口d_banjishuru生成SQL Selct语句为：
SELCET
“banji”.”bjbh”.”banji”.”bjmc” “banji”.”zymc”.”banji”.”xz”.”banji”.”rxsj”.”banji”.”rs”
FROM”banji”
3.4 设计访问学生基础信息数据窗口
创建数据窗口d_jiben_shuru，显示风格为“Freefrom”，数据源类型为“Quick Selcet”。
数据窗口d_jiben_shuru生成SQL selcet语句为：
SELCET

重庆航天职业技术学院
“jiben”.”xh”、”jiben”.”xm”.”jiben”.”xb”.
”jiben”.”csrq”、”jiben”.”jtzz”、”jiben”.””bjbh.
FROM ”jiben”

图 3-4 学生基础信息窗口
3.5 设计查询班级开设课程窗口
首先创建一个窗口对象w_bjkc_chaxun，调整期大小，在窗口中放置2个静态文本控件(st_1，st_2)、2个下拉列表框控件(ddlb_1，ddlb_2)、1个命令按钮(cb_1)1个数据窗口控件(dw_1)，调整各个控件位置和大小。位置窗口及其控件属性见一下表。
图 3-5 查询班级开设课程窗口

重庆航天职业技术学院

对象
属性
取值
W_bjkc_chaxun
Title
查询班级开设课程
Window Type
Main!
Resizable
False
Center
False
Maxbox
False
Minbox
False
Dw_1
VScrolloBar
Ture
DataObject
D_bjkc_chaxun
St_1
Text
选择学期：
St_2
Text
选择班级
Cb_1
text
查询
窗口w_bjkc_chaxunopen事件脚本以下。
重庆航天职业技术学院
dw_1.settransobject( sqlca)
int li_xq, li_bjmc, n
string ls_xq, ls_bjmc
SELECT count(distinct xq) INTO :li_xq
FROM bjkc;
DECLARE xqcursor CURSOR FOR
SELECT xq FROM bjkc GROUP BY xq;
OPEN xqcursor ;
FOR n=1 TO li_xq
FETCH NEXT xqcursor INTO :ls_xq;
ddlb_1.additem( ls_xq)
NEXT
CLOSE xqcursor ;
SELECT count(distinct bjmc) INTO :li_bjmc
FROM banji;
DECLARE bjmccursor CURSOR FOR
SELECT banji.bjmc
FROM bjkc, banji
WHERE bjkc.bjbh = banji.bjbh GROUP BY banji.bjmc;
OPEN bjmccursor ;
FOR n=1 TO li_bjmc
FETCH NEXT bjmccursor INTO :ls_bjmc;
ddlb_2.additem( ls_bjmc)
NEXT
CLOSE bjmccursor ;
【查询】按钮clicked事件脚本以下
Dw_1.retrieve(ddlb_1.text、ddlb_2.text)
重庆航天职业技术学院
3.6 设计访问成绩信息窗口
首先新建窗口对象w_xscj_shuru，在窗口上放置1个分组框控件、3个静态文本控件、3个下拉列表框控件、3个命令窗口按钮控件和1个数据窗口控件

其中，，【保留】按钮enabled属性设成False；数据窗口控件调整到只显示学号、姓名和成绩3列，VScrollBar属性设置为Ture，数据窗口对象为d_xscj_shuru;3个下拉菜单列表框控件列表项为空，由代码动态生成。

图 3-6 班级学生成绩查询
【确定】按钮代码以下。
int li_xh, n
string ls_kcmc, ls_xq, ls_bjmc, ls_xh
ls_xq=ddlb_1.text
重庆航天职业技术学院
ls_bjmc=ddlb_2.text
ls_kcmc=ddlb_3.text

if ls_xq="" or ls_bjmc="" or ls_kcmc="" then
messagebox("提醒", "选择项不能空！")
else
SELECT count(distinct xh) INTO :li_xh
FROM xsbj
WHERE xsbj.bjmc=:ls_bjmc;

DECLARE xhcursor CURSOR FOR
SELECT xh
FROM xsbj
WHERE xsbj.bjmc=:ls_bjmc;

OPEN xhcursor ;
FOR n=1 TO li_xh
FETCH NEXT xhcursor INTO :ls_xh;
INSERT INTO "xscj" ( "xh","xq","kcmc","cj" )
VALUES ( :ls_xh, :ls_xq, :ls_kcmc, null );
NEXT
CLOSE xhcursor ;
dw_1.retrieve(ls_xq,ls_kcmc )
end if
【保留】按钮代码以下。
if dw_1.update(true,false )=1 then
dw_1.resetupdate( )
commit;
cb_2.enabled=false
重庆航天职业技术学院
else
rollback;
messagebox("错误","保留数据失败！")
end if
【退出】按钮代码以下。
close(parent)
课程下拉列表框Getfocus事件脚本以下。
int li_kcmc,n
string ls_kcmc, ls_xq, ls_bjmc
ls_xq=ddlb_1.text
ls_bjmc=ddlb_2.text

if not(ls_xq="" or ls_bjmc="") then

SELECT count(distinct bjkc.kcmc) INTO :li_kcmc
FROM bjkc,banji
WHERE (bjkc.bjbh = banji.bjbh) and(banji.bjmc=:ls_bjmc) and (bjkc.xq=:ls_xq);

DECLARE kcmccursor CURSOR FOR
SELECT bjkc.kcmc
FROM bjkc, banji
WHERE (bjkc.bjbh = banji.bjbh) and (banji.bjmc=:ls_bjmc) and (bjkc.xq=:ls_xq)
GROUP BY bjkc.kcmc;

ddlb_3.reset( )
重庆航天职业技术学院
OPEN kcmccursor ;
FOR n=1 TO li_kcmc
FETCH NEXT kcmccursor INTO :ls_kcmc;
ddlb_3.additem( ls_kcmc)
NEXT
CLOSE kcmccursor ;
end if
窗口Closequery事件脚本以下。
integer rt
dw_1.accepttext( )
if dw_1.modifiedcount( ) =0 then
return 0
else
rt=messagebox("提醒","添加修改内容未保留，确实退出吗？", Question!, YesNo!)
if rt=1 then
return 0
end if
end if
return 1
dw_1事件代码以下。
cb_2.enabled=true
数据窗口Itemchanged事件脚本以下。
Cb_2.enablde=ture

重庆航天职业技术学院
3 实训心得
这个星期是我们《PowerBuilder使实用教程和实训》实训，经过这一段时间实训，让我领悟到了很多课堂上没有注意关键知识。怎样使用PowerBuilder快速创建一个通用接口ODBC数据库，用window来创建我们常常使用软件界面。而且将每个创建窗口关联到主窗口，使整个学生管理系统使用愈加方便。
抱着学习和探索精神，我们投入到实训过程去。一段时间以来，我学到了很多知识，也发觉了自己在课堂学习中学习不住和未能注意到知识点。实训过程中，也碰到了很多问题，在老师和同学帮助下全部得以处理，对PowerBuilder认识也更深刻。
4 参考文件
1 《PowerBuilder实用教程和实训》
2 网络资料