1、新闻管理系统设计新闻管理系统设计东 北 石 油 大 学课 程 设 计 2015年 12月 4日 数据库课程设计 题 目： 院 系： 专业班级： 学生姓名： 学生学号： 指导教师: 一、主要内容 开发一个新闻管理系统。设计并实现这样一个系统主要是锻炼学生采用面向对象方法、灵活使用数据库开发软件的能力。 二、基本要求 系统主要有以下功能 首页、新闻基本信息管理模块、新闻类别管理模块、退出模块。新闻基本信息管理模块包含新闻标题、新闻内容、发布新闻的日期，新闻类别管理模块包含类别编号、类别名称。除了实现上述功能以外，新闻管理系统还要具有界面友好、简洁，安全性高，稳定性强的特点. 三、主要参考资料 1
2、丁贵广 闫允一 孟繁杰。ASP及ASP.NET编程基础与实例。第二版.北京 机械工业出版社 2004 14-79。 2 张景峰.ASP程序设计及应用。第一版.北京 中国水利水电出版社 2005 36-147。 3 杨志姝 冯小飞等。ASP+SQL Server基础练习+典型案例M。北京 清华大学出版社 2006。8. 完成期限 1920周 指导教师 专业负责人 第1章 系统分析 .。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 1 1。1 开发背景。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。
3、.。.。.。.。.。.。.。.。. 1 1。2 系统需求分析.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 1 1。3 开发环境。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 2 第2章 系统设计 .。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 3 2。1 系统架构.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。 3 2.2 系统功能模块.。.。.
4、。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 3 2。3 系统数据库设计。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。 5 第3章 系统实现 .。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 7 3。1 新闻管理系统登录页面.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 7 3.2 新闻管理主界面。.。.。.。.。.。.。.。.。.。.。.。.。.。.
5、。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 8 3。3 添加新闻界面 。.。.。.。.。.。.。.。.。.。.。.。.。.。.。 9 3.4 分类管理界面.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。 10 3.4 会员管理界面。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 12 第4章 系统测试 .。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 14 第5章 结束语 .。.。.。.。.。.。
6、.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 15 参考文献 。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。.。. 16 1 第1章 系统分析 1.1 开发背景 21世纪是信息的时代 是网络的时代 进入信息社会高速发展的时代 数字化革命给所有领域带来新的改变。随着Internet的普及 无论人们相隔多么遥远 都有天涯若比邻的感觉。足不出户 便可知天下新近之大事 便可与大洋彼岸的朋友畅谈无阻。网页逐渐融入人们的生活 快速及时地浏览新闻 获取五彩缤纷 的网上信息 已成为人们日常
7、生活的一部分 与此同时越来越多的企业建立了自己的Web网站 企业通过网站可以展示产品 发布最新动态 与用户进行交流和沟通 与合作伙伴建立联系 以及开展电子商务等。互联网的世界里蕴藏着无限生机 这里只有想不到的、没有做不到的.网络发展前景无限 及早与网络结合 与信息时代同步 与高科技汇合 定会给社会各行各业的发展注入新鲜的活力。在网络技术的领域里 传统的商务网站的管理方式有两种 一是静态HTML页面 更新信息时需要重新制作页面然后上传页面并修改相应链接 然而随着Internet的进一步发展，这种静态Web站点的开发与维护变得越来越困难 而且不能与浏览者进行有效交互 从而使得这种方法已不多用。二是
8、基于ASP、PHP1或者JSP和脚本语言 将动态网页和数据库结合 通过应用程序来处理信息 这是目前较为流行的做法。本文论述的就是采用Asp。net +Visual Studio 2005 + SqlServer开发环境开发动态的Web网络新闻发布系统。 1。2 系统需求分析 随着信息化产业逐渐进入各行各业 并成为整个国民经济的基础 对实行信息化必须有一个明确的方向 这也是客不容缓的事。新闻信息作为当前信息化的重要组成部分 而新闻管理作为新闻信息中的一个重要环节 必须同信息化同步 以促使整个国民经济和新闻事业的发展。 本系统功能模块包括 新闻管理 新闻分类管理 会员管理 添加新闻模块。数据的操作
9、主要是 数据添加、数据修改、数据查询。 我做的“后台管理”窗体实现的功能如下 一、“新闻管理”窗体是对新闻添加、修改、删除 通过数据库绑定控件实现对息直接的增、删、改. 二、“分类管理”窗体实现的功能是对新闻的分类进行管理。 三、“会员管理是对后台的用户进行管理 用户信息的修改、添加、删除。 东北石油大学本科生课程设计 四、“添加新闻”窗体实现的功能是添加新闻。 1。3 开发环境 数据库是数据管理的最新技术 是计算机科学的重要分支.十年来 数据库管理系统已从专用的应用程序包发展成为通用系统软件。由于数据库具有数据的结构化、可控冗余度、较高的程序与数据独立性、易于扩充、易于编制应用程序 等优点
10、较大的信息系统都是建立在数据库设计之上的。 由于用到的数据表格多 另外考虑到实际情况 如学生基本信息的变动 我们选用SQL Server作为数据库开发 而不用Access，主要是因为Access存放的记录 在实际运用中不适合此系统 而SQL Server是一种常用的关系数据库 能存 放和读取大量的数据 管理众多并发的用户 故选用SQL Server数据库。 用VB语言进行编码。VB 编程语言是微软在.NET计划中重要的开发语言 它具有语法简单 功能强大 快速应用 语言自由 强大的Web服务器控件 支持跨平台 与XML相融合等。因此选择VB编程语言。 ASP。NET是Active Server
11、Page.NET Framework的缩写 意为“基于动态WEB应用程序的技术服务器网页”2。ASP. NET是微软公司开发的代替ASP的一种应用,它可以与数据库和其它程序进行交互 是一种方便功能强大的编程工具。ASP. NET的网页文件的格式是.aspx 现在常用于各种动态网站中. ASP。net是一服务器端脚本编写环境 可以用来创建和运行动态网页或Web应用程序。ASP。net网页可以包含HTML标记、普通文本、脚本命令、.css、以及COM组件等。利用ASP。NET可以向网页中添加交互式内容 如在线表单 也可以创建使用HTML网页作为用户界面的Web应用程序。 与HTML相比 ASP。N
12、ET网页具有以下特点 1 利用ASP。NET可以实现突破静态网页的一些功能限制 实现动态网页技术 2 ASP文件是包含在HTML代码所组成的文件中的 易于修改和测试 3 服务器上的ASP。NET解释程序会在服务器端制定ASP程序 并将结果以HTML格式传送到客户端浏览器上 因此使用各种浏览器都可以正常浏览ASP所产生的网页3 4 ASP。NET提供了一些内置对象 使用这些对象可以使服务器端脚本功能更强。例如可以从Web浏览器中获取用户通过HTML表单提交的信息 并在脚本中对这些信息进行处理 然后向Web浏览器发送信息 5 ASP可以使用服务器端ActiveX组建来执行各种各样的任务 例如存取数
13、据库、发现那个Email或访问文件系统等。 东北石油大学本科生课程设计 3 第2章 系统设计 2。1 系统架构 整个系统分为两个部分 管理员和主界面。管理员进入管理系统后 应该能根据自己的需要进行新闻的管理。 本系统是以Windows XP系统为操作平台 在。NET环境下编程实现。 2。2 系统功能模块 架构分析与设计 系统采用B/S模式5。功能模块如下 2-1 系统E-R图 管理 添加新闻 会员管理 分类管理 管理员 姓名 性别 密码 ID 修改资料 新闻 4 图2-2 系统功能模块图 各模块介绍如下 管理员模块主要包括新闻管理 新闻分类管理 会员管理 添加新闻模块 修改管理员资料等。 新闻
14、管理。包括发布新闻信息、编辑新闻信息、对过期信息删除等。 新闻类型管理。包括添加新闻类型、编辑新闻类型以及删除新闻类型. 添加新闻。包括添加最新的新闻的操作。 用户管理。包括更改用户的密码以及删除用户的所有信息。 新闻管理用例图 图 2-3管理员用例图 分类管理添加新闻 新闻管理 管理员 后台管理 新闻管理 分类管理 会员管理 添加新闻 修改资料 东北石油大学本科生课程设计 5 2。3 系统数据库设计 综合以上分析 要实现上面的所有功能模块 需要建立以下的表4 1 管理员表admin 用于存储管理员的信息. 2 会员表users 用于存储会员的信息 名称 密码等信息. 3 新闻信息表news
15、用于存储新闻编号、类别 标题等信息. 4 新闻类别classes 用于存储新闻编号 名称信息. 5 新闻评论表review 存储访问者的对相关新闻的评论信息。 表21会员信息表 字段名 字段类型 字段长度 字段说明 id 自动编号 长整型 会员编号 name 文本 50 会员名称 pwd 文本 50 会员密码 email 文本 50 会员邮箱 type 数字 长整型 会员级别 表2-2管理员信息表 字段名 字段类型 字段长度 字段说明 id 自动编号 长整型 管理员自动编号 username 文本 50 管理员姓名 password 文本 50 管理员密码 email 文本 50 管理员邮箱
16、表23 新闻信息表 字段名 字段类型 字段长度 字段说明 NewsId 自动编号 长整型 新闻编号 ClassId 数字 长整型 新闻类别 Title 文本 50 新闻标题 Author 文本 50 新闻作者 Original 文本 50 新闻出处 UpdateTime 日期/时间 新闻更新时间 Content 备注 新闻内容 6 表24 新闻栏目表 字段名 字段类型 字段长度 字段说明 Classesid 自动编号 长整型 新闻类别编号 classesname text 50 新闻类别名称 表2-5 新闻评论表 字段名 字段类型 字段长度 字段说明 ReViewID 自动编号 长整型 新闻评
17、论自动编号 NewsID 数字 长整型 新闻编号 ReViewTitle 文本 50 评论标题 Content 备注 评论内容 Author 文本 50 评论会员 Email 文本 50 评论会员邮箱 东北石油大学本科生课程设计 7 第3章 系统实现 3.1 新闻管理系统登录页面 当以管理员身份登录时 出现如下界面。输入用户名和密码 当与数据库中的内容相匹配时既可登录。 图 31 登录界面 代码如下 Dim i As Integer For i = 0 To ds。Tables(login)。Rows。Count 1 If username.Text = ds.Tables(”login）。R
18、ows(i）（0).ToString(）.Trim(） And password.Text = ds.Tables（”login”）.Rows(i）（1）。ToString（）。Trim（） Then Response。Redirect（”news.aspx”) Else Response.Write（”scriptalert(该用户名或密码错误）) End If Next 东北石油大学本科生课程设计 8 3.2 新闻管理主界面 图32 新闻管理主页面 主要代码如下 Sub bind（） Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;I
19、ntegrated Security=SSPI;Persist Security Info=False；Initial Catalog=shun；Data Source=.） Dim cmd As New OleDbCommand(select * from newsinfo”, conn） Dim ds As New DataSet Dim adp As New OleDbDataAdapter（cmd） adp.Fill（ds, ”newsinfo”) addgridview.DataSource = ds.Tables(newsinfo”）.DefaultView addgridview
20、.DataBind（） End Sub Protected Sub addgridview_PageIndexChanging（ByVal sender As Object, ByVal e As System。Web.UI.WebControls。GridViewPageEventArgs) Handles addgridview.PageIndexChanging addgridview。PageIndex = e。NewPageIndex 东北石油大学本科生课程设计 9 bind() End Sub 3.3 添加新闻界面 单击添加新闻按钮既可进入添加新闻界面 在文本框中输入相应内容 单击
21、添加按钮既可添加一条新闻. 图33 添加新闻界面图 主要代码如下 Dim strsql As String strsql = ”insert into newsinfo（title，author,original,class,content，updatatime） values(” & title。Text ”,” & author.Text & ,” & original.Text & , & class11。SelectedValue & ”,” content。Text & ,” & DateTime。Now（） ） ” Dim conn As New OleDbConnection(”
22、Provider=SQLOLEDB.1；Integrated Security=SSPI；Persist Security Info=False；Initial Catalog=shun；Data Source=。) Dim cmd As New OleDbCommand（strsql， conn) conn.Open() If cmd。ExecuteNonQuery（） Then Label1.Text = ”添加成功 End If conn。Close() 东北石油大学本科生课程设计 10 3。4 分类管理界面 单击分类管理按钮既可进入分类管理界面 在分类添加中输入相应内容 单击添加按钮既
23、可添加一种分类。 图 34 分类管理界面图 主要代码如下 Sub bind() Dim conn As New OleDbConnection(”Provider=SQLOLEDB。1;Integrated Security=SSPI；Persist Security Info=False；Initial Catalog=shun；Data Source=。”） Dim cmd As New OleDbCommand（select from class”， conn) Dim ds As New DataSet Dim adp As New OleDbDataAdapter（cmd) adp.
24、Fill(ds, ”class”) classgridview。DataSource = ds。Tables(class”).DefaultView classgridview.DataBind() End Sub Protected Sub classgridview_RowDeleting（ByVal sender As Object, ByVal e As System。Web.UI。WebControls。GridViewDeleteEventArgs） Handles classgridview。RowDeleting Dim strsql As String strsql = de
25、lete from class where classid =” + classgridview.DataKeys(e.RowIndex）.Value。ToString.Trim 东北石油大学本科生课程设计 11 Dim conn As New OleDbConnection(”Provider=SQLOLEDB.1;Integrated Security=SSPI；Persist Security Info=False；Initial Catalog=shun；Data Source=.”) Dim cmd As New OleDbCommand（strsql, conn） conn。Ope
26、n（） cmd。ExecuteNonQuery（) conn.Close（） classgridview.EditIndex = -1 bind() End Sub Protected Sub classgridview_RowUpdating（ByVal sender As Object， ByVal e As System。Web。UI。WebControls。GridViewUpdateEventArgs) Handles classgridview.RowUpdating Dim strclassname， strsql1 As String strclassname = CType（
27、classgridview.Rows(e。RowIndex）。Cells(1).Controls(0）， TextBox）。Text。ToString（）。Trim(） strsql1 = ”update class set classname = ” & strclassname & ” where classid = CInt（classgridview.DataKeys（e。RowIndex)。Value.ToString) Dim conn As OleDbConnection = New OleDbConnection(”Provider=SQLOLEDB。1;Integrated
28、Security=SSPI;Persist Security Info=False;Initial Catalog=shun;Data Source=。) Dim cmd As OleDbCommand = New OleDbCommand(strsql1, conn） conn。Open（） cmd。ExecuteNonQuery(） conn。Close(） classgridview。EditIndex = 1 bind（) End Sub Protected Sub classgridview_RowCancelingEdit（ByVal sender As Object， ByVal e As System。Web.UI。WebControls.GridViewCancel
