数据库课程设计报刊订阅管理系统

PAGE5淮海工学院计算机科学系课程 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 报告设计名称：数据库原理及应用课程设计姓名：李维清学号：110411314专业班级：计算机科学与技术043系（院）：计算机科学系设计时间：2007.1.2~2007.1.12设计地点：机房和教室成绩：指导教师评语：签名：年月日数据库原理及应用课程设计报告数据库原理及应用课程设计一、课程设计的目的《数据库原理及应用》课程设计是计算机科学与技术专业集中实践性环节之一，是学习完《数据库原理及应用》课程后进行的一次全面的综合练习。本课程设计主要在于加深学生对数据库基础理论和基本知识的理解，掌握数据库应用系统设计开发的基本方法，达到进一步使学生综合运用所学知识和增强实际动手能力的目的。二、课程设计的任务与要求要求学生根据自身对 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 目的理解情况，从给定的设计题目中选择一个，以MSSQLServer作为后台数据库平台，以PowerBuilder作为前台开发工具，完成一个小型数据库应用系统的系统的 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 、设计和开发。三、课程设计说明书报刊订阅管理系统1系统需求分析现在随着网络、计算机以及数据库的快速发展，报刊的订阅也不再是传统低效的纸笔记录了，已经转向网络。本系统就是面向一个企业的报刊订阅管理系统。此系统是一种比较智能化的管理系统，它面向所有企业部门的职工用户，但具有比较高的安全性能。它能够实现报刊订阅的基本功能，包括新报刊信息的录入、订阅、查询等操作以及后台数据库的备份和恢复。用户合法注册后必须输入有效密码才能成功进入此系统，可以进行订阅报刊，查询信息，统计信息等操作。对于非法操作，系统有识别和防护 措施 《全国民用建筑工程设计技术措施》规划•建筑•景观全国民用建筑工程设计技术措施》规划•建筑•景观软件质量保证措施下载工地伤害及预防措施下载关于贯彻落实的具体措施 。1.1系统功能需求分析本系统主要面向的用户有系统管理员、读者。下面分角色对该系统的不同操作范围做说明。本系统主要有以下功能模块：（1）登陆功能：登陆系统为身份验证登录。分为管理员登录和一般用户登录。分别通过不同的用户名和密码进入报刊订阅管理界面。（2）录入新信息功能：对于管理员，包括新用户信息和新报刊信息的录入功能，信息一旦提交就存入到后台数据库中；普通用户自行注册进行录入个人信息。SHAPE\*MERGEFORMAT（3）订阅功能：用户可以订阅报刊，系统自动计算所需金额，并显示在界面上；管理员不可订阅报刊，必须以用户身份订阅报刊。（4）查询功能：用户可以查询并显示自己所订阅的信息；管理员可以按人员、报刊、部门分类查询。查询出的信息显示在界面上。（5）统计功能：管理员可以按用户、部门、报刊统计报刊的销售情况，并对一些重要的订阅信息进行统计；普通用户可以统计出自己的订阅情况。（6）系统维护功能：管理员可以对用户、报刊、部门、订阅等信息进行添加、删除、更改等维护工作；管理员还要经常备份数据库，以备出现故障后恢复。用户可以更改自己的注册信息，但用户名不能更改。2系统总体设计2.1系统总体结构设计报刊订阅管理系统主要是由登录、录入、订阅、信息查询、统计、系统维护等主要模块构成。本系统的结构功能图：2.2系统数据模型设计2.2.1E-R图本系统采用E-R图（实体-关系图）的方法进行数据库概念结构设计。系统E-R图如下所示：部门1报刊包含n订阅n用户m各实体E-R图：部门：部门部门号部门名用户：订阅报刊种类数真实姓名用户名家庭地址联系电话用户性别部门号密码管理员：管理员名字姓名报刊：报刊代号报刊名出版社半年订阅价全年订阅价类型报刊出版周期关系 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf E-R图：报刊号用户名金额订阅订阅年限份数2.2.2关系模式部门（部门号，部门名）用户（用户名，密码，真实姓名，性别，部门号，联系电话，联系地址，订阅报刊种类数）管理员（管理员名，密码）报刊（报刊代号，报刊名，类型，出版报社，出版周期，半年订约价，全年订约价）订阅（用户名，报刊代号，订阅年限，订阅数量，所需金额）2.2.3数据表(1).部门表（表department）Dnumber为部门号，Dname为部门名(2).用户表(表consumer)Uname是用户名，Urealname是真实姓名，Upassword是密码，Usex是性别，Dnumber是部门号（与部门表有关系），Uphone是联系电话，Uaddress是联系地址；subscribenum是订阅报刊种类数；(3).管理员表（表administrator）Aname是管理员名，Apassword是密码；(4).报刊表(表magazine)Mnumber是报刊代号,Mname是报刊名,Mkind是类型,Mpress出版报社,Mtime出版周期,Mhalfprice半年订阅价,Mwhole全年订阅价；(5).订阅表（表subscribe）Uname是用户名（与用户表主键有关系）,Mnumber是报刊代号（与报刊表主键有关系）,Syear是订阅年限,Snumber是订阅份数，Ssum是金额；3．系统实施结合PowerBuilder进行数据库应用开发的特点，设计过程可按如下步骤进行：主要开发步骤：（1）打开PowerBuilder，新建一个工作区，取名为magazine；（2）新建一个Application,取名app,连接数据库,并将连接数据库代码复制到app中代码；代码：open(w_welcome)//ProfilemagazineSQLCA.DBMS="MSSMicrosoftSQLServer"SQLCA.Database="magazine"SQLCA.ServerName="3968391D9B384C0"SQLCA.LogId="sa"SQLCA.AutoCommit=FalseSQLCA.DBParm=""connect;ifsqlca.sqlcode<>0thenmessagebox("错误","数据库连接错误，请检查后重试！",stopsign!)returnendifclose(w_welcome)open(w_login)（3）制作等待界面w_welcome；（4）制作登录界面w_login；确定按钮代码：stringid,password,getpasswordid=trim(sle_1.text)getpassword=trim(sle_2.text)ifid=""orid=''thenMessageBox("系统提示","请输入用户名!")returnelseifgetpassword=""orgetpassword=''thenMessageBox("系统提示","请输入密码!")returnendififrb_1.checked=truethenselectAname,Apasswordinto:gs_operator_id,:gs_passwordfromadministratorwhereAname=:id;ifsqlca.sqlcode<>0thenmessagebox("系统提示","无此管理员!")sle_2.text=""sle_1.text=""sle_1.setfocus()returnendififgetpassword<>gs_passwordthenmessagebox("警告","口令错误!")sle_2.text=""sle_2.setfocus()returnendifopen(w_main)close(w_login)elseifrb_2.checked=truethenselectUname,Upasswordinto:gs_operator_id,:gs_passwordfromconsumerwhereUname=:id;ifsqlca.sqlcode<>0thenmessagebox("系统提示","无此用户!")sle_2.text=""sle_1.text=""sle_1.setfocus()returnelseifgetpassword<>gs_passwordthenmessagebox("警告","口令错误!")sle_2.text=""sle_2.setfocus()returnendifgs_operator_id=idopen(w_consumermain)close(w_login)elseifrb_1.checked=falseandrb_2.checked=falsethenmessagebox("系统提示","请选择用户类型!")returnendif（5）制作注册界面w_enroll；代码：注册按钮：stringname,realname,password,copypassword,sex,number,phone,address,number1stringnname=trim(sle_1.text)password=trim(sle_2.text)copypassword=trim(sle_8.text)realname=trim(sle_4.text)ifrb_1.checked=truethensex="男"elseifrb_2.checked=truethensex="女"endifnumber=trim(sle_5.text)phone=trim(sle_6.text)address=trim(sle_7.text)ifname=""orname=''thenMessageBox("系统提示","对不起!请输入用户名！否则无法注册!")sle_1.setfocus()returnendifselectUnameinto:nfromconsumerwhereUname=:name;ifsqlca.sqlcode=0thenMessageBox("系统提示","对不起,此用户名已被注册!请另选一个试试!")sle_1.text=""returnendififpassword=""orpassword=''thenMessageBox("系统提示","对不起!请输入登录密码！否则无法注册!")sle_2.setfocus()returnendififcopypassword=""orcopypassword=''thenMessageBox("系统提示","对不起!请再次输入登录密码！否则无法注册!")sle_8.setfocus()returnendififpassword<>copypasswordthenMessageBox("系统提示","对不起!两次输入密码必须一致！否则无法注册!")sle_8.setfocus()returnendififrealname=""orrealname=''thenMessageBox("系统提示","对不起!请输入真实姓名！否则无法注册!")sle_4.setfocus()returnendififnumber=""ornumber=''thenMessageBox("系统提示","对不起!请输入部门号！否则无法注册!")sle_5.setfocus()returnendifselectDnumberinto:number1fromdepartmentwhereDnumber=:number;ifsqlca.sqlcode<>0thenmessagebox("警告","您输入的部门号无效!无此部门!")sle_5.text=""sle_5.setfocus()returnendifINSERTINTOconsumer(Uname,Upassword,Urealname,Usex,Dnumber,Uphone,Uaddress)VALUES(:name,:password,:realname,:sex,:number,:phone,:address);MessageBox("系统提示","恭喜！注册成功！")取消按钮：close(w_enroll)（6）制作管理员主菜单mainmenu,制作管理员主界面w_main，将mainmenu放入w_main中；菜单：主界面：（7）制作管理员主菜单中录入菜单：制作录入数据窗口d_magazien,d_inputconsumer；制作管理员录入报刊界面w_inputmagazine，录入用户界面w_inputconsumer；将d_magazien,d_inputconsumer分别放入w_inputmagazine，d_inputconsumer中；录入报刊代码及界面：（录入用户代码及界面类似，不再列出）窗口代码：dw_1.settransobject(sqlca)dw_1.retrieve()数据窗框控制框代码：intb_selectstringnum,nameifdwo.name="b_2"thenb_select=messagebox("系统提示","确定删除所选列？",exclamation!,yesno!)ifb_select=1thendw_1.deleterow(0)endifendififdwo.name="b_3"thendw_1.update()ifsqlca.sqlcode<>0thenrollback;messagebox("操作非法！","无法保存！");returnelsecommit;messagebox("系统提示","信息保存成功!")returnendifendififdwo.name="b_4"thenclose(parent)endif数据窗口：界面：（9）制作管理员主菜单中查询菜单：分别制作制作查询数据窗口d_consumer_ruery,d_dept_query,d_magazine_query,分别制作管理员按用户查询界面w_consumer_ruery，按部门查询界面w_dept_query，按报刊查询界面w_magazine_query；将d_consumer_ruery,d_dept_query,d_magazine_query分别放入w_consumer_query，w_dept_query，w_magazine_query中;以下仅列出按报刊查询代码和界面（按用户、部门查询类似，不再列出）;窗口代码：dw_1.settransobject(sqlca)sle_1.setfocus()检索按钮：stringnumber,copynumber,namelongll_rownumber=trim(sle_1.text)ifnumber=""ornumber=''thenmessagebox("系统提示","请输入报刊号!")returnendifselectMnumber,Mnameinto:copynumber,:namefrommagazinewhereMnumber=:number;ifsqlca.sqlcode<>0thenmessagebox("系统提示","无此报刊!")sle_1.text=""returnendifsle_2.text=namedw_1.setfilter("subscribe_mnumber='"+number+"'")dw_1.filter()ll_row=dw_1.retrieve()ifll_row=0thenmessagebox("系统提示","无记录!")returnendif按报刊查询数据窗口：按报刊查询界面：(10)制作管理员主菜单中统计菜单：制作统计数据窗口d_consumer_stat,d_query_dept,d_stat_magazine;制作管理员按用户统计界面w_stat_consumer,按部门统计界面w_stat_department，按报刊统计界面w_stat_magazine;将d_consumer_stat,d_query_dept,d_stat_magazine分别放入w_stat_consumer,w_stat_department，w_stat_magazine中；以下仅列出按出按部门统计的代码和界面抓图(按用户、报刊统计类似，不再列出)；代码：按部门统计代码：窗口代码：longll_rowdw_1.settransobject(sqlca)dw_1.setfilter("")dw_1.filter()ll_row=dw_1.retrieve()ifll_row=0thenmessagebox("系统提示","无记录!")returnendif按部门统计数据窗口：按部门统计界面：（11）制作管理员主菜单中系统维护菜单中的信息维护菜单：制作信息维护数据窗口d_maintenance_consumer，d_maintenance_dept，d_maintenance_magazine，d_maintenance_subscribe;制作管理员用户信息维护界面w_maintenance_consumer，部门信息维护界面w_maintenance_dept，报刊信息维护界面w_maintenance_magazine，订阅信息维护界面w_maintenance_subscribe；将d_maintenance_consumer，d_maintenance_dept，d_maintenance_magazine，d_maintenance_subscribe分别放入w_maintenance_consumer，w_maintenance_dept，w_maintenance_magazine，w_maintenance_subscribe中；以下仅列出订阅信息维护代码和界面抓图（其他信息维护类似，不再列出）订阅信息维护代码：窗口代码：dw_1.settransobject(sqlca)dw_1.retrieve()数据窗口控制框代码：intb_selectifdwo.name="b_3"thenb_select=messagebox("系统提示","确定删除所选列？",exclamation!,yesno!)ifb_select=1thendw_1.deleterow(0)endifendififdwo.name="b_4"thenmessagebox("系统提示","保存成功!")endififdwo.name="b_5"thenclose(parent)endif数据窗口：界面：（12）制作管理员主菜单中更改登录菜单：代码：intb_selectb_select=messagebox("系统提示","确认",exclamation!,yesno!)ifb_select=1thenopen(w_login)close(w_main)endif（13）制作用户主菜单m_consumer_menu；制作用户主界面w_consumermain,将m_consumer_menu放入其中；用户主菜单：用户主界面：（14）制作用户菜单中更改信息菜单：w_modify_consumer;代码：窗口代码：//定义变量，用于存储用户各字段stringname,realname,pass,sex,dept,phone,address//查询登陆者的相关信息selectUname,Upassword,Urealname,Usex,Dnumber,uphone,Uaddressinto:name,:pass,:realname,:sex,:dept,:phone,:addressfromconsumerwhereUname=:gs_operator_id;//无信息ifsqlca.sqlcode<>0thenmessagebox("","")returnendif//在界面上显示信息sle_1.text=namesle_2.text=passsle_3.text=realnamesle_4.text=deptsle_5.text=phonesle_6.text=addressifsex="男"thenrb_1.checked=trueelseifsex="女"thenrb_2.checked=trueendif确定按钮：stringname,realname,pass,sex,dept,phone,addressintb_selectb_select=messagebox("系统提示","确认修改？",exclamation!,yesno!)ifb_select=1thenname=trim(sle_1.text)pass=trim(sle_2.text)realname=trim(sle_3.text)dept=trim(sle_4.text)phone=trim(sle_5.text)address=trim(sle_6.text)ifrb_1.checked=truethensex="男"elseifrb_2.checked=truethensex="女"endififpass=""orpass=''thenMessageBox("系统提示","对不起!密码不能为空!")sle_2.setfocus()returnendififrealname=""orrealname=''thenMessageBox("系统提示","对不起!真实姓名不能为空!")sle_3.setfocus()returnendififsex=""orsex=''thenMessageBox("系统提示","对不起!性别不能为空!")returnendififdept=""ordept=''thenMessageBox("系统提示","对不起!部门号不能为空!")sle_2.setfocus()returnendifupdateconsumersetUpassword=:pass,Urealname=:realname,Usex=:sex,Dnumber=:dept,Uphone=:phone,Uaddress=:addresswhereUname=:name;ifsqlca.sqlcode<>0thenmessagebox("系统提示","更改错误！")returnendifmessagebox("系统提示","更改成功！");endif取消按钮：close(parent)界面：（15）制作用户菜单中订阅菜单：制作数据窗口d_show_magazine,制作订阅报刊界面:w_subscribe,将d_show_magazine加入其中;代码：窗口代码：sle_1.setfocus()dw_1.settransobject(sqlca)dw_1.retrieve()提交按钮代码：stringname,password,magazinenum,num,ctime,number,moneydoubleyearintnumb,kindnumdoublehalfprice,wholeprice,summoneystringnum1,name1name=trim(sle_1.text)password=trim(sle_5.text)magazinenum=trim(sle_2.text)ctime=trim(sle_3.text)number=trim(sle_4.text)ifname=""orname=''thenmessagebox("系统提示","对不起!请您输入用户名!")returnendififpassword=""orpassword=''thenmessagebox("系统提示","对不起!请您输入密码")returnendififmagazinenum=""ormagazinenum=''thenmessagebox("系统提示","对不起!请您输入报刊号!")returnendififctime=""orctime=''thenmessagebox("系统提示","对不起!请您输入订阅年限!")returnendififnumber=""ornumber=''thenmessagebox("系统提示","对不起!请您输入数量!")returnendififctime="0"orctime=""orctime="0.0"orctime="0.00"thenmessagebox("系统提示","请输入有效数字!")sle_3.text=""returnelseifctime="0.5"thenyear=0.5elseifctime="1"orctime="1.0"thenyear=1.0elseifctime="1.5"thenyear=1.5elseifctime="2"orctime="2.0"thenyear=2.0elseifctime="2.5"thenyear=2.5elseifctime="3"orctime="3.0"thenyear=3.0elseifctime="3.5"thenyear=3.5elseifctime="4"orctime="4.0"thenyear=4.0elseifctime="4.5"thenyear=4.5elseifctime="5"orctime="5.0"thenyear=5.0elsemessagebox("系统提示","订阅年限输入不正确!请按照示例方式输入：1或1.0，并不要超过5.0!")endififnumber="0"thenmessagebox("系统提示","请输入有效数字!")sle_4.text=""returnelseifnumber="1"thennumb=1elseifnumber="2"thennumb=2elseifnumber="3"thennumb=3elseifnumber="4"thennumb=4elseifnumber="5"thennumb=5elsemessagebox("系统提示","输入不正确!请按照示例方式输入：1,并不要超过5!")returnendifselectUname,Upasswordinto:gs_operator_id,:gs_passwordfromconsumerwhereUname=:name;ifsqlca.sqlcode<>0thenmessagebox("系统提示","无此用户!")sle_1.text=""sle_5.text=""sle_1.setfocus()returnendififpassword<>gs_passwordthenmessagebox("警告","口令错误!")sle_5.text=""sle_5.setfocus()returnendifselectMnumberinto:numfrommagazinewhereMnumber=:magazinenum;ifsqlca.sqlcode<>0thenmessagebox("系统提示","无此报刊!")sle_2.text=""returnendifselectMhalfprice,Mwholeinto:halfprice,:wholepricefrommagazinewhereMnumber=:magazinenum;ifsqlca.sqlcode<>0thenmessagebox("系统提示","该报刊未输入价格!")returnendififyear=0.5oryear=1.5oryear=2.5oryear=3.5oryear=4.5thensummoney=(-0.5+year)*wholeprice+halfpricesummoney=summoney*numbelseifyear=1oryear=2oryear=3oryear=4oryear=5thensummoney=year*wholepricesummoney=summoney*numbendifselectUname,Mnumberinto:name1,:num1fromsubscribewhereUname=:nameandMnumber=:magazinenum;ifsqlca.sqlcode=0thenMessageBox("系统提示","对不起,您已经订阅过此报！")sle_1.text=""sle_2.text=""sle_3.text=""sle_4.text=""sle_5.text=""returnendifINSERTINTOsubscribe(Uname,Mnumber,Syear,Snumber,Ssum)VALUES(:name,:magazinenum,:ctime,:number,:summoney);selectSsuminto:moneyfromsubscribewhereUname=:nameandMnumber=:magazinenum;MessageBox("系统提示","恭喜！订阅成功！所需金额为"+money)//更新用户订阅报刊种类selectcount(Uname)into:kindnumfromsubscribewhereUname=:name;updateconsumersetsubscribenum=:kindnumwhereUname=:name;清空按钮代码：sle_1.text=""sle_2.text=""sle_3.text=""sle_4.text=""sle_5.text=""数据窗口图：订阅图：（16）制作用户菜单中查询菜单：制作用户查询界面：同管理员按用户查询界面；代码：窗口代码：dw_1.settransobject(sqlca)sle_1.setfocus()检索按钮代码同管理员界面检索按钮基本相同，仅将不同点列出：dw_1.setfilter("subscribe_uname='"+name+"'")dw_1.filter()ll_row=dw_1.retrieve()ifll_row=0thenmessagebox("系统提示","无记录!")returnendif退出按钮代码：close(w_consumer_query)订阅界面：（17）制作用户菜单中统计菜单：制作用户统计界面：w_consumer_stat，将数据窗口d_consumer_stat放入w_consumer_stat中；代码：窗口代码：intll_rowdw_1.settransobject(sqlca)dw_1.setfilter("consumer_uname='"+gs_operator_id+"'")dw_1.filter()ll_row=dw_1.retrieve()ifll_row=0thenmessagebox("系统提示","无记录!")returnendif数据窗口：统计界面：（18）制作用户菜单中登录更菜单：同管理员更改登录做法；4系统评价4.1系统特色本系统是面向企业内部的人员，用于订阅报刊，并计算出相应金额。有比较强的安全性，可以阻止非法操作，所有的企业内部人员都可以进行注册并订阅，用户可以修改除用户名之外的所有信息。订阅很方便，管理员管理很方便，可以对订阅信息进行不同方式的查询，统计，并且方便管理员修改所有信息。比较其他的管理系统，本系统可以比较方便的统计出订阅的所需金额及各报刊的订阅总数。4.2系统不足及改进由于是初次用PowerBuilder做东西，并且时间有限，不足之处不可避免。本系统功能还不够强大，较真正的管理系统还有不足之处。虽然本系统有比较强的安全功能，但安全功能还不够强大，比如用户真实姓名没有纠错，应该把所有部门的职工全都输入到表中，当注册的时候，输入真实姓名，如果相关部门没有此人，则不允许注册，此功能尚未实现，将在以后的时间，继续完善。5课程设计心得这次课程设计的主要目的是掌握数据库应用系统分析设计的基本方法，基本掌握PowerBuilder，进一步提高分析解决问题的综合能力。通过这次课程设计，我基本掌握了以上要求。但只有两周的课程设计时间，时间比较仓促，所以开发的系统不是很完善，有一些功能未实现，但是报刊订阅的基本功能均已实现。以前对数据库的很多知识认识都不深刻，做过这次课程设计之后，我对数据库的知识有了一个比较系统的了解；比如：对表内一些字段的约束，关系等的运用已经比较熟练。这个课程设计使我巩固了数据库的知识。对于PowerBuilder也有了一定的了解，由于是第一次使用，所以运用的不是很熟练。刚开始的时候，对于PowerBuilder的语法，用法等一系列知识都不熟悉。当我基本完成此系统开发的时候，我发现其实也没有那么难，在未做之前我还害怕做不出来。经过对这个系统的开发，在开发过程中遇到但也解决了很多问题，所以说我们不能惧怕有困难而不去接触认识它，我们要知难而上，只有这样我们才能成长，才能有所发展。我会继续学习数据库的知识，学习PowerBuilder的知识，只有通过不断的学习充实自己，才能让自己有所得。只有了知识的积淀，才能为自己的发展铺平道路！