新闻管理系统课程设计论文.docx
《新闻管理系统课程设计论文.docx》由会员分享，可在线阅读，更多相关《新闻管理系统课程设计论文.docx（19页珍藏版）》请在冰点文库上搜索。
新闻管理系统课程设计论文
东北石油大学
课程设计
课程数据库课程设计
题目新闻管理系统
院系计算机与信息技术学院
专业班级计科
学生姓名
学生学号
指导教师
目录
第1章系统分析1
1.1开发背景1
1.2系统需求分析1
1.3开发环境2
第2章系统设计3
2.1系统架构3
2.2系统功能模块3
2.3系统数据库设计5
第3章系统实现7
3.1新闻管理系统登录页面7
3.2新闻管理主界面8
3.3添加新闻界面9
3.4分类管理界面10
3.4会员管理界面12
第4章系统测试14
第5章结束语15
参考文献16
第1章系统分析
1.1开发背景
21世纪是信息的时代，是网络的时代，进入信息社会高速发展的时代，数字化革命给所有领域带来新的改变。
随着Internet的普及，无论人们相隔多么遥远，都有天涯若比邻的感觉。
足不出户，便可知天下新近之大事，便可与大洋彼岸的朋友畅谈无阻。
网页逐渐融入人们的生活，快速及时地浏览新闻，获取五彩缤纷的网上信息，已成为人们日常生活的一部分，与此同时越来越多的企业建立了自己的Web网站，企业通过网站可以展示产品，发布最新动态，与用户进行交流和沟通，与合作伙伴建立联系，以及开展电子商务等。
互联网的世界里蕴藏着无限生机，这里只有想不到的、没有做不到的。
网络发展前景无限，及早与网络结合，与信息时代同步，与高科技汇合，定会给社会各行各业的发展注入新鲜的活力。
在网络技术的领域里，传统的商务网站的管理方式有两种，一是静态HTML页面，更新信息时需要重新制作页面然后上传页面并修改相应链接，然而随着Internet的进一步发展,这种静态Web站点的开发与维护变得越来越困难，而且不能与浏览者进行有效交互，从而使得这种方法已不多用。
二是基于ASP、PHP[1]或者JSP和脚本语言，将动态网页和数据库结合，通过应用程序来处理信息，这是目前较为流行的做法。
本文论述的就是采用A+VisualStudio2005+SqlServer开发环境开发动态的Web网络新闻发布系统。
1.2系统需求分析
随着信息化产业逐渐进入各行各业，并成为整个国民经济的基础，对实行信息化必须有一个明确的方向，这也是客不容缓的事。
新闻信息作为当前信息化的重要组成部分，而新闻管理作为新闻信息中的一个重要环节，必须同信息化同步，以促使整个国民经济和新闻事业的发展。
本系统功能模块包括：
新闻管理，新闻分类管理，会员管理，添加新闻模块。
数据的操作主要是：
数据添加、数据修改、数据查询。
我做的“后台管理”窗体实现的功能如下：
一、“新闻管理”窗体是对新闻添加、修改、删除，通过数据库绑定控件实现对息直接的增、删、改。
二、“分类管理”窗体实现的功能是对新闻的分类进行管理。
三、“会员管理”是对后台的用户进行管理，用户信息的修改、添加、删除。
四、“添加新闻”窗体实现的功能是添加新闻。
1.3开发环境
数据库是数据管理的最新技术，是计算机科学的重要分支。
十年来，数据库管理系统已从专用的应用程序包发展成为通用系统软件。
由于数据库具有数据的结构化、可控冗余度、较高的程序与数据独立性、易于扩充、易于编制应用程序
等优点，较大的信息系统都是建立在数据库设计之上的。
由于用到的数据表格多，另外考虑到实际情况，如学生基本信息的变动，我们选用SQLServer作为数据库开发，而不用Access,主要是因为Access存放的记录，在实际运用中不适合此系统；而SQLServer是一种常用的关系数据库，能存
放和读取大量的数据，管理众多并发的用户，故选用SQLServer数据库。
用VB语言进行编码。
VB编程语言是微软在.NET计划中重要的开发语言，它具有语法简单，功能强大，快速应用，语言自由，强大的Web服务器控件，支持跨平台，与XML相融合等。
因此选择VB编程语言。
ASP.NET是ActiveServerPage.NETFramework的缩写，意为“基于动态WEB应用程序的技术服务器网页”[2]。
ASP.NET是微软公司开发的代替ASP的一种应用,它可以与数据库和其它程序进行交互，是一种方便功能强大的编程工具。
ASP.NET的网页文件的格式是.aspx，现在常用于各种动态网站中。
ASP.net是一服务器端脚本编写环境，可以用来创建和运行动态网页或Web应用程序。
ASP.net网页可以包含HTML标记、普通文本、脚本命令、.css、以及COM组件等。
利用ASP.NET可以向网页中添加交互式内容（如在线表单），也可以创建使用HTML网页作为用户界面的Web应用程序。
与HTML相比，ASP.NET网页具有以下特点：
（1）利用ASP.NET可以实现突破静态网页的一些功能限制，实现动态网页技术；
（2）ASP文件是包含在HTML代码所组成的文件中的，易于修改和测试；
（3）服务器上的ASP.NET解释程序会在服务器端制定ASP程序，并将结果以HTML格式传送到客户端浏览器上，因此使用各种浏览器都可以正常浏览ASP所产生的网页[3]；
（4）ASP.NET提供了一些内置对象，使用这些对象可以使服务器端脚本功能更强。
例如可以从Web浏览器中获取用户通过HTML表单提交的信息，并在脚本中对这些信息进行处理，然后向Web浏览器发送信息；
（5）ASP可以使用服务器端ActiveX组建来执行各种各样的任务，例如存取数据库、发现那个Email或访问文件系统等。
第2章系统设计
2.1系统架构
整个系统分为两个部分，管理员和主界面。
管理员进入管理系统后，应该能根据自己的需要进行新闻的管理。
本系统是以WindowsXP系统为操作平台，在.NET环境下编程实现。
系统ER图：
2.2系统功能模块
架构分析与设计：
系统采用B/S模式[5]。
功能模块如下：
图2-2系统功能模块图
各模块介绍如下：
管理员模块主要包括新闻管理，新闻分类管理，会员管理，添加新闻模块，修改管理员资料等。
新闻管理。
包括发布新闻信息、编辑新闻信息、对过期信息删除等。
新闻类型管理。
包括添加新闻类型、编辑新闻类型以及删除新闻类型。
添加新闻。
包括添加最新的新闻的操作。
用户管理。
包括更改用户的密码以及删除用户的所有信息。
新闻管理用例图：
图2-3管理员用例图
2.3系统数据库设计
综合以上分析，要实现上面的所有功能模块，需要建立以下的表[4]：
（1）管理员表admin：
用于存储管理员的信息。
（2）会员表users：
用于存储会员的信息，名称，密码等信息。
（3）新闻信息表news：
用于存储新闻编号、类别，标题等信息。
（4）新闻类别classes：
用于存储新闻编号，名称信息。
（5）新闻评论表review：
存储访问者的对相关新闻的评论信息。
表2-1会员信息表
字段名
字段类型
字段长度
字段说明
id
自动编号
长整型
会员编号
name
文本
50
会员名称
pwd
文本
50
会员密码
email
文本
50
会员邮箱
type
数字
长整型
会员级别
表2-2管理员信息表
字段名
字段类型
字段长度
字段说明
id
自动编号
长整型
管理员自动编号
username
文本
50
管理员姓名
password
文本
50
管理员密码
email
文本
50
管理员邮箱
表2-3新闻信息表
字段名
字段类型
字段长度
字段说明
NewsId
自动编号
长整型
新闻编号
ClassId
数字
长整型
新闻类别
Title
文本
50
新闻标题
Author
文本
50
新闻作者
Original
文本
50
新闻出处
UpdateTime
日期/时间
新闻更新时间
Content
备注
新闻内容
表2-4新闻栏目表
字段名
字段类型
字段长度
字段说明
Classesid
自动编号
长整型
新闻类别编号
classesname
text
50
新闻类别名称
表2-5新闻评论表
字段名
字段类型
字段长度
字段说明
ReViewID
自动编号
长整型
新闻评论自动编号
NewsID
数字
长整型
新闻编号
ReViewTitle
文本
50
评论标题
Content
备注
评论内容
Author
文本
50
评论会员
Email
文本
50
评论会员邮箱
第3章系统实现
3.1新闻管理系统登录页面
当以管理员身份登录时，出现如下界面。
输入用户名和密码，当与数据库中的内容相匹配时既可登录。
图3-1登录界面
代码如下：
DimiAsInteger
Fori=0Tods.Tables（"login"）.Rows.Count-1
Ifusername.Text=ds.Tables（"login"）.Rows（i）（0）.ToString（）.Trim（）Andpassword.Text=ds.Tables（"login"）.Rows（i）
（1）.ToString（）.Trim（）Then
Response.Redirect（"news.aspx"）
Else
Response.Write（""）
EndIf
Next
3.2新闻管理主界面
图3-2新闻管理主页面
主要代码如下：
Subbind（）
DimconnAsNewOleDbConnection（"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=shun;DataSource=."）
DimcmdAsNewOleDbCommand（"select*fromnewsinfo",conn）
DimdsAsNewDataSet
DimadpAsNewOleDbDataAdapter（cmd）
adp.Fill（ds,"newsinfo"）
addgridview.DataSource=ds.Tables（"newsinfo"）.DefaultView
addgridview.DataBind（）
EndSub
ProtectedSubaddgridview_PageIndexChanging（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewPageEventArgs）Handlesaddgridview.PageIndexChanging
addgridview.PageIndex=e.NewPageIndex
bind（）
EndSub
3.3添加新闻界面
单击添加新闻按钮既可进入添加新闻界面，在文本框中输入相应内容，单击添加按钮既可添加一条新闻。
图3-3添加新闻界面图
主要代码如下：
DimstrsqlAsString
strsql="insertintonewsinfo（title,author,original,class,content,updatatime）values（'"&title.Text&"','"&author.Text&"','"&original.Text&"','"&class11.SelectedValue&"','"&content.Text&"','"&DateTime.Now（）&"'）"
DimconnAsNewOleDbConnection（"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=shun;DataSource=."）
DimcmdAsNewOleDbCommand（strsql,conn）
conn.Open（）
Ifcmd.ExecuteNonQuery（）Then
Label1.Text="添加成功"
EndIf
conn.Close（）
3.4分类管理界面
单击分类管理按钮既可进入分类管理界面，在分类添加中输入相应内容，单击添加按钮既可添加一种分类。
图3-4分类管理界面图
主要代码如下：
Subbind（）
DimconnAsNewOleDbConnection（"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=shun;DataSource=."）
DimcmdAsNewOleDbCommand（"select*fromclass",conn）
DimdsAsNewDataSet
DimadpAsNewOleDbDataAdapter（cmd）
adp.Fill（ds,"class"）
classgridview.DataSource=ds.Tables（"class"）.DefaultView
classgridview.DataBind（）
EndSub
ProtectedSubclassgridview_RowDeleting（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewDeleteEventArgs）Handlesclassgridview.RowDeleting
DimstrsqlAsString
strsql="deletefromclasswhereclassid="+classgridview.DataKeys（e.RowIndex）.Value.ToString.Trim
DimconnAsNewOleDbConnection（"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=shun;DataSource=."）
DimcmdAsNewOleDbCommand（strsql,conn）
conn.Open（）
cmd.ExecuteNonQuery（）
conn.Close（）
classgridview.EditIndex=-1
bind（）
EndSub
ProtectedSubclassgridview_RowUpdating（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewUpdateEventArgs）Handlesclassgridview.RowUpdating
Dimstrclassname,strsql1AsString
strclassname=CType（classgridview.Rows（e.RowIndex）.Cells
（1）.Controls（0）,TextBox）.Text.ToString（）.Trim（）
strsql1="updateclasssetclassname='"&strclassname&"'whereclassid="&CInt（classgridview.DataKeys（e.RowIndex）.Value.ToString）
DimconnAsOleDbConnection=NewOleDbConnection（"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=shun;DataSource=."）
DimcmdAsOleDbCommand=NewOleDbCommand（strsql1,conn）
conn.Open（）
cmd.ExecuteNonQuery（）
conn.Close（）
classgridview.EditIndex=-1
bind（）
EndSub
ProtectedSubclassgridview_RowCancelingEdit（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewCancelEditEventArgs）Handlesclassgridview.RowCancelingEdit
classgridview.EditIndex=-1
bind（）
EndSub
ProtectedSubclassgridview_PageIndexChanging（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewPageEventArgs）Handlesclassgridview.PageIndexChanging
classgridview.PageIndex=e.NewPageIndex
bind（）
EndSub
ProtectedSubButton2_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton2.Click
DimstrsqlAsString
strsql="insertintoclass（classname）values（'"&TextBox1.Text&"'）"
DimconnAsNewOleDbConnection（"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=shun;DataSource=."）
DimcmdAsNewOleDbCommand（strsql,conn）
conn.Open（）
cmd.ExecuteNonQuery（）
conn.Close（）
bind（）
EndSub
3.4会员管理界面
单击会员管理按钮既可进入会员管理界面，在此页面可以对会员的相应信息进行管理。
图3-4会员管理界面图
主要代码如下：
ProtectedSubGridView1_RowUpdating（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewUpdateEventArgs）HandlesGridView1.RowUpdating
Dimstrname,strpwd,stremail,strtype,strsql1AsString
strname=CType（GridView1.Rows（e.RowIndex）.Cells
（1）.Controls（0）,TextBox）.Text.ToString（）.Trim（）
strpwd=CType（GridView1.Rows（e.RowIndex）.Cells
（2）.Controls（0）,TextBox）.Text.ToString（）.Trim（）
stremail=CType（GridView1.Rows（e.RowIndex）.Cells（3）.Controls（0）,TextBox）.Text.ToString（）.Trim（）
strtype=CType（GridView1.Rows（e.RowIndex）.Cells（4）.Controls（0）,TextBox）.Text.ToString（）.Trim（）
strsql1="updateuserssetname='"&strname&"',pwd='"&strpwd&"',email='"&stremail&"',type='"&strtype&"'whereid="+GridView1.DataKeys（e.RowIndex）.Value.ToString（）
DimconnAsOleDbConnection=NewOleDbConnection（"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=shun;DataSource=."）
DimcmdAsOleDbCommand=NewOleDbCommand（strsql1,conn）
conn.Open（）
cmd.ExecuteNonQuery（）
conn.Close（）
GridView1.EditIndex=-1
bind（）
EndSub
Subbind（）
DimconnAsNewOleDbConnection（"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=shun;DataSource=."）
DimcmdAsNewOleDbCommand（"select*fromusers",conn）
DimdsAsNewDataSet
DimadpAsNewOleDbDataAdapter（cmd）
adp.Fill（ds,"users"）
GridView1.DataSource=ds.Tables（"users"）.DefaultView
GridView1.DataBind（）
EndSub
第4章系统测试
登录测试：
打开该系统网站，输入用户名密码进入管理员界面，作为系统管理员，其有新闻后台管理区内的所有权限，有添加和管理新闻分类、添加和管理设置。
添加新闻测试：
在添加新闻时，可以添加新闻标题
升级会员 