计算机科学系资料室管理系统的设计与实现--毕业论文

计算机科学系资料室管理系统的设计与实现--毕业论文内容摘要：

(1)支持资料室实现规范化的管理。 (2)支持资料室高效率完成资料管理和借阅的基本处理，包括资料、用户、记录、操作员的添加、修改、删除以及归还提示等信息。 (3)尽量采用资料室现有软硬件环境，及先进的管理系统开发方案，从而达到充分利用学校现有资源，提高 系统开发水平和应用的目的。 (4)系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护。 系统功能模块设计 对上述各项功能进行集中、分块、按照结构化程序设计的要求，得到如下图所示的系统功能模块图： 图 功能模块 本系统主要有系统登陆模块、用户模块、一般管理员模块、超级管理员模块四个功能模块。 系统登陆 在登陆这个模块中共包括用户登陆、管理员登陆、注册、用户须知、找回密码等页面。 这些页面之间的联系并不大，只是它们实现的主 要是注册登陆的功能，故将其划分在一个模块中。 其中的管理员登陆和用户须知比较简单，此处略。 (1).登陆实现过程 启动系统后，首先进入登陆页面： 图 登陆页面 用户根据自己的用户名和密码点击 进行登录。 将用户输入的用户名和密码与数据库中相匹配，正确即登入，错误即退出。 其主要实现代码如下： If = Or = Then ( ) End If Dim conn As New SqlConnection(Server=(local)。 Database=cd_lib。 Uid=sa。 pwd=chen) Dim m As New SqlCommand(select * from userinfo where username=39。 + + 39。 and upwd=39。 + + 39。 ) Dim dr As SqlDataReader () = conn = dr = If = False Then ( ) Else Session(username) = dr(username) Session(uid) = dr(uid) () End If () () (2).找回密码实现过程 已注册用户不可避免的会出现忘记密码的情况，此系统充分考虑到这个情况，在一定信息验证通过后，将用户的密码从数据库中读出： password = (upwd) 39。 取出密码，准备发送到邮箱中 发 送到用户的注册邮箱中，为用户提供方便： Dim objmail As New MailMessage = = = 返回密码 —— 来自计算机科学系资料室 = 尊敬的用户： BR / 你好。 BR / 你索取的密码为： amp。 password amp。 ，请妥善保管。 = = = 39。 设置发信服务器为本机 (objmail) 当用户名、认证号码、注册邮箱都填写正确，则弹出 ，可 去查看邮件，取回密码。 (3).注册实现过程 本系统的注册，必须是长江师范学院计算机科学系的教师和学生，拥有指定的认证号码（教师为教师编号、学生为学号）。 主要是将数据库中已有 ID 的用户部分信息更新到数据库。 图 注册页面 其主要实现代码如下： Dim conn As New SqlConnection(Server=(local)。 Database=cd_lib。 Uid=sa。 pwd=chen) Dim str As String Dim m As SqlCommand str = update userinfo set username=39。 + + 39。 ,upwd=39。 + + 39。 ,u= 39。 + + 39。 where uid = amp。 Trim() () m = New SqlCommand(str, conn) Dim b As Boolean Try () Catch ( ) b = True Finally () () End Try If Not b Then ( ) End If 此处在读取数据库的时候可能发生错误，比如输入的认证号码不存在等等，一致用 “ 数据库错误 ” 进行提示。 用户模块 用户登陆后，就进入页面 ，此页显示用户即将超期的资料和最受欢迎的资料。 归还提示显示用户在近三天内要归还的书籍，最受欢迎显示的是借阅次数最大的前十项资料，为用户提供人性化的服务，效果如图： 图 主页面 归还提示的数据查询语句： Dim time As String = Dim time1 As String time1 = (time).AddDays(2).ToString 39。 必须限定天数，归还日期少于 3 的才显示 Dim backstr As String = select distinct ,beditor,bconcern,borrowtime,returntime from book,borwrecord where = and =39。 amp。 Session(uid) amp。 39。 and returntime between 39。 amp。 time amp。 39。 and 39。 amp。 time1 amp。 39。 order by borrowtime asc 最受欢迎 —— TOP10 的数据查询语句： Dim liststr As String = select distinct top 10 ,bname,beditor,bconcern,bprinttime,borwtimes from book,popular where = order by borwtimes desc 在页面上方一共有借阅排行、资料查询、用户信息、借阅记录、师资简介、学生一览共 6个页面，点击链接进入后，可进行相关操作。 点击资料，可弹出页面，显示资料的详细信息： 图 资料详细信息页面 (1).借阅排行实现过程 该页面 显示的是所有资料按照借阅次数的排列次序。 数据查询语句是： Dim str As String = select distinct ,bname,beditor,bconcern,bprinttime,bborwstatus,borwtimes from book,popular where = order by borwtimes desc (2).资料查询实现过程 用户可以在这里查询资料，选择下拉列表中的 “ 索书号、书名、作者、出版社 ” ，并输入关键字进行查询。 此处使用了模糊查询（所谓 “ 模糊查询 ” ，就是利用部分 参数查找到相关数据的方式），能方便的查出与关键字匹配的记录。 关键技术是数据库查询中的字符匹配，使用通配符 “%” 代表任意长度的字符串，从而搜索出相关记录。 图 资料查询页面 其主要实现代码如下： 39。 搜索按钮 Private Sub btnsearch_Click(ByVal sender As , ByVal e As ) Handles Dim str As String = select distinct ,bname,beditor,bconcern,bprinttime,bborwstatu。