发布时间 : 星期三 文章新闻管理系统设计更新完毕开始阅读b89e5c9431126edb6e1a1039
新闻管理。包括发布新闻信息、编辑新闻信息、对过期信息删除等。
新闻类型管理。包括添加新闻类型、编辑新闻类型以及删除新闻类型。
添加新闻。包括添加最新的新闻的操作。
用户管理。包括更改用户的密码以及删除用户的所有信息。 新闻管理用例图 图 2-3管理员用例图
分类管理
添加新闻
新闻管理
管理员 后台
管理
新闻管 理
分类管 理
会员管 理
添加新 闻
修改资
料 东北石油大学本科生课程设计
5 2.3 系统数据库设计 综合以上分析要实现上面的所有功能模块需要建立以下的表[4]
1管理员表admin用于存储管理员的信息。
2会员表users用于存储会员的信息名称密码等信息。
3新闻信息表news用于存储新闻编号、类别标题等信息。
4新闻类别classes用于存储新闻编号名称信息。
5新闻评论表review存储访问者的对相关新闻的评论信息。员信息表
字段名 字段类型 字段长度 字段说明
id 自动编号 长整型 会员编号
name 文本 50 会员名称
pwd 文本 50 会员密码
email 文本 50 会员邮箱
type 数字 长整型 会员级别 表2-2管理员信息表
字段名 字段类型 字段长度 字段说明
id 自动编号 长整型 管理员自动编号
username 文本 50 管理员姓名
password 文本 50 管理员密码
email 文本 50 管理员邮箱 表2-3 新闻信息表
字段名 字段类型 字段长度 字段说明
NewsId 自动编号 长整型 新闻编号
ClassId 数字 长整型 新闻类别
Title 文本 50 新闻标题
表2-1会
Author 文本 50 新闻作者
Original 文本 50 新闻出处
UpdateTime 日期/时间 新闻更新时间
Content 备注 新闻内容
6 表2-4 新闻栏目表
字段名 字段类型 字段长度 字段说明
Classesid 自动编号 长整型 新闻类别编号
classesname text 50 新闻类别名称 表2-5 新闻评论表
字段名 字段类型 字段长度 字段说明
ReViewID 自动编号 长整型 新闻评论自动编号
NewsID 数字 长整型 新闻编号
ReViewTitle 文本 50 评论标题
Content 备注 评论内容
Author 文本 50 评论会员
Email 文本 50 评论会员邮箱 东北石油大学本科生课程设计
7 第3章 系统实现 3.1 新闻管理系统登录页面 当以管理员身份登录时出现如下界面。输入用户名和密码当与数据库中
的内容相匹配时既可登录。
图 3-1 登录界面
代码如下 Dim i As Integer
For i = 0 To ds.Tables(\
If username.Text = ds.Tables(\
password.Text = ds.Tables(\
Response.Redirect(\
Else
Response.Write(\该用户名或密码错误')\
End If
Next 东北石油大学本科生课程设计
8 3.2 新闻管理主界面
图3-2 新闻管理主页面
主要代码如下
Sub bind()
Dim conn As New OleDbConnection(\