网站导航网学 原创论文 原创专题 网站设计 最新系统 原创论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 交易代码 > 课程设计 > 正文

可视化程序设计图书管理系统

论文降重修改服务、格式排版等 获取论文 论文降重及排版 论文发表 相关服务
可视化程序设计图书管理系统
1.  设计的原始资料及依据
通过课程设计使学生进一步加深对课程内容的理解,利用程序设计的基本思想进行程序的开发,进一步掌握编程方法和技巧,提高学生用程序的思想来解决实际问题的能力。
2.设计的主要内容及要求
设计题目:图书管理系统
需要完成的功能:
□⑴ 数据库的创建、登陆界面、图书统计子系统
□⑵ 库存图书查询子系统
□⑶ 新书入库子系统
□⑷ 还书管理子系统、借书管理子系统
3.对设计说明书撰写内容、格式、字数的要求
⑴ 学生应撰写的内容为:中文摘要和关键词、目录、正文、参考文献等。课程设计说明书(论文)的结构及各部分内容要求可参照《沈阳工程学院毕业设计(论文)撰写规范》执行。应做到文理通顺,内容正确完整,书写工整,装订整齐。
⑵ 装订格式
封面、任务书、成绩评审意见表、摘要和关键词、目录、正文、结论、致谢、参考文献。
⑶ 课程设计说明书(论文)是体现和总结课程设计成果的载体,一般不应少于3000字。
4. 设计完成后应提交成果的种类、数量、质量等方面的要求
⑴ 课程设计任务书
⑵ 课程设计报告
⑶ 设计成品(光盘)
5.时间进度安排




顺序

阶段日期

计 划 完 成 内 容

备注


1

7.2

查阅资料,充分解读题目内容,小组分工,确定每个人的具体任务。

 


2

7.3

数据库设计及登陆界面的实现。

 


3

7.4-10

程序编制。

 


4

7.11

程序整合。

 


5

7.12

答辩。

 


6

7.13

撰写课程设计报告。

 
6.主要参考资料(文献)
【1】(美) Simon B row n 等著; 王 军, 刘 芳等译. JSP 编程指南(第二版) [M ]. 北京: 电子工业出版社, 2002.
【2】(美)Damon Hougland 等著; 马朝晖等译. JSP 核心技术[J ]. 北京: 机械工业出版社, 2001.
【3】(美)A rno ld 等著; 虞万荣等译. Java 编程语言(第三版) [J ]. 北京: 中国电力出版社, 2004.
【4】(美)Don V ilen 编著; 周立柱等译. SQL Server 数据库原理设计与实现[J ]. 北京: 清华大学出版社,2004.
【5】孙卫琴, 李洪成编著. Tomcat 与JavaW eb 开发技术详解[J ]. 北京: 电子工业出版社, 2004                       
【6】田捷. 数字图书馆技术与应用[ 讲稿]. 北京: 科学出版社, 77
 
可视化程序设计图书管理系统
图书管理系统主要是以高校的系部或院部作为使用对象而开发的,之所以对该系统定位如此小,主要是考虑作为学生的设计题目不宜过大,但考虑系统的完整性,仍然把它作为一个典型的信息管理系统而设计。其系统开发的任务主要包括数据库的设计与维护、客户端应用程序的开发两个方面。对于前者要求建立起的数据库具有完整性和一致性,且具有一定的数据安全性如用户需要密码才能使用等等,而对于后者则要求程序界面友好、功能完整等特点。根据分析本次设计是基于JSP的来设计与实现图书馆管理系统的。该系统基于图书文献网上管理的需要, 具有登录、查询、借阅、错误处理等功能, 对于实现图书文献的安全管理, 扩展图书馆的资源利用和服务方式, 具有良好的效果。达到对榆树管理资料的目的。设计时首先建立系统应用原型,然后对原型系统进行需求迭代,不断修正和改进,知道形成用户满意的实际可行系统。
关键词
图书资料,管理,设计,实现, JSP,数据库目录
摘要 I第一章 引言 1第二章 设计内容 22.1小组总体框架 22.2数据库设计 32.2.1数据库的逻辑设计 32.2.2 数据库的物理设计 32.3借书模块的功能 42.4修改密码模块的功能 4第三章 功能实现 53.1登录模块 53.2主界面模块 83.3借书模块 103.4.修改密码模块 17结论 20致谢 21参考文献 22
 
可视化程序设计图书管理系统
第一章 引言
图书资料的管理是高校内每一个系部或院部都必须切实面对的工作,但一直以来人们使用传统的人工方式管理图书资料。折中管理方式存在许多的缺点,如效率低、保密性差且较为繁琐。另外,随着图书资料数量的增加,其工作量也大大增加,这必然增加图书管理资料者的工作量和劳动强度,这将给图书资料信息的查找、更新和维护带来很多的困难。
经过详细的调查,目前我国各类高校中有相当一部分单位图书资料管理还停留在人工管理的基础上,尤其是中、小学的图书资料的管理更始如此,这样的管理机制已经不能适应时代的发展,其管理方法将浪费许多人力和物力。随着科学技术的不断提高,这种传统的手工管理方法必然被计算机为基础的信息管理方法所取代。
图书资料管理作为计算机应用的一个分支,有着手工管理所无法比拟的优点,如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够及大地提高图书资料管理的效率。因此,开发一套能够为用户提供充足的信息和快捷的查询手段的图书资料管理,将是非常必要的,也是十分及时的。因此可以把图书资料管理作为课程设计的题目为以后的毕业设计做基础,正好可以充分的利用几年来在校所学的各种专业知识开发一个图书管理系统来帮助相关部门进行有效的资料管理。
一个现代化的图书馆在正常运营中总是面对大量的读者信息、书籍信息以及两者相互作用产生的借书信息、还书信息。传统的管理方法既浪费人力物力财力, 又容易导致各种错误的发生。因此, 实现一个智能化、系统化、信息化的图书管理系统是十分必要的。该软件有很好的界面和可扩充性。它运用SQL Server数据库及JSP技术作为开发工具, 在Windows环境下开发。
第二章 设计内容
2.1小组总体框架若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn
 
图2.1总体框架图
 
2.2数据库设计
2.2.1系统模块设计
随着图书馆藏书的数量以及读者的增多,如何对读者以及读者信息、读者阅读信息进行管理成为一个难题。本系统设计了一个简单的数据库结构,存储图书、读者信息以及读者的借阅信息,能够满足图书管理的基本要求。本系统主要分为4个模块:
 
(1)    图书管理模块
(2)    读者管理模块
(3)    借阅管理模块
(4)    查询模块
一、系统总体设计如图2.2所示
 
                                                                                          
 
 
 






图书管理模块 
 
 






图书管理系统
(BookManage.vbproj) 
 






借阅管理模块





查询模块





书籍借阅管理
(borrowmanage.vb)





图书查询(booksearch.vb)





读者查询
(readersearch.vb)





读者管理模块





添加读者信息
(readeradd.vb)





删除读者信息
(readerdelete.vb) 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                               图2.2 系统设计结构图
二、数据库概念模型设计。图书管理系统的E-R 实体模型如图2-3 
图2.3 E-R 实体模型图
 
2.2.2数据库的逻辑设计
该系统采用access数据库,根据系统需要,共设计了4个表,如下:
(1)用户表: 用户名 密码 权限
(2)图书表: 图书编号 书名 现存数量 借出次数
(3)读者表: 读者编号 姓名 性别 未还书数
(4)借出图书表: 书号 读者号 借书日期 还书日期 在馆
2.2.3数据库的物理设计
图书表的设计视图如表2.1所示:
表2.1 图书表






图书编号


书  名


现存数量


借出次数



0001


VB.NET


2


3



0002


微机原理


5


1



0003


操作系统


6


4



0004


英 语


4


2
 
“图书编号”字段作为关键字,用来唯一标志一本图书,“现存数量”字段控制能否借出该图书,当该字段的值为0时,说明该书已经全部借出了;“借出次数”字段用来统计借出排名。
读者表的设计视图如表2.2所示:
 
可视化程序设计图书管理系统
“读者编号”字段作为关键字用来惟一标志一个读者,“未还书数”字段确定该读者是否还可以继续借书,如果未还书数等于可借书数,则不允许继续借书,“借书日期”和“还书日期”字段与借出图书表中的该读者最近借书日期和还书日期是相同的,这里为了方便查找,设计了一些冗余的字段。
用户表的设计视图如表2.3所示:
 
表2.3 用户表





用户


密码


权限



李艳东


04


系统管理员



董晓飞


05


普通管理员



吴建平


06


普通管理员



于文源


07


普通管理员
 
借出图书表的设计视图如表2.4所示:
表2.4 借出图书表





书号


读者号


借书日期


还书日期


在馆



0001


200501


2007-2-5


2007-3-1






0002


200502


2007-6-2


2007-6-9






0003


200503


2007-6-6


2007-7-1






0004


200504


2007-6-1


2007-7-9



 
 
这张表是图书表和读者表的关联表,“在馆”字段值为“是”,表明读者已经还了所借的图书,“在馆”字段值为“否”,表明读者读者还未归还所借的图书。
 
2.3借书模块的功能
借书模块管理读者的借书操作,首先在“读者编号”文本框输入读者编号,按下回车键,调出读者资料和该读者已经借过的图书信息,然后“图书编号”文本框获得焦点,接着在“图书编号”文本框输入图书编号,按下回车键,这将使“还书”按钮变为有效,单击“还书”按钮,需要修改读者表、图书表和借出图书表的一些字段,因此设置了3个表的数据集和3个表的查询字串。还书日期固定为系统的当前日期。
 
2.4修改密码模块的功能在修改密码模块中,用户可以修改登录系统的密码,用户单击“修改”按钮,首先检查旧密码是否正确,然后检查两次输入的密码是否一致,如果一致,则更新数据库中用户表中对应该用户的密码值为输入的新密码。
第三章 功能实现
3.1登录模块
登录模块首先从当前路径找到数据库文件,然后从“管理员”表中检测输入的用户名和密码是否存在。如果登录成功,显示主窗体模块,否则,关闭系统。登录模块的设计界面如图3.1所示。
单击“登录”按钮,首先获得应用程序当前所在目录,找到数据库文件,连接数据库,用输入的用户名作为条件进行查询,如果找到记录,验证输入的密码和管理员表的logpwd字段是否一致,如果一致,则登录成功,若为其他情况,则登录失败。运行界面
如图3.2所示:

图3.2 登录失败界面
 
登陆模块代码如下:
 
Imports System.Data.OleDb
Public Class frmLogin
Inherits System.Windows.Forms.Form
Dim DataReader As System.Data.OleDb.OleDbDataReader
 
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
   Me.Close()
End Sub
 
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click 
若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn

        If OleConn.AccessConnection(filename, "", "") Then  '连接数据库成功
            str = "select logpwd from 管理员 where logname='" & txtUserName.Text & "'" '构造查询字串
          If OleConn.SelectQuery(str, DataReader) Then    '执行查询成功
              If DataReader.HasRows Then  '如果找到
                While DataReader.Read
               If DataReader.Item(0) = txtPassword.Text Then   '如果密码正确
                    UserName = txtUserName.Text
                    Password = txtPassword.Text
                    btnOK.PerformClick()                        '回到主界面
                Else                                            '密码不正确
                      MsgBox("密码不正确,请检查密码")
                            End If
                        End While
                    Else                    '没有找到记录
                        MsgBox("找不到此用户,请检查用户名")
                    End If
                Else        '执行查询失败
                    MsgBox("查询数据库失败")
                End If
            Else            '连接数据库失败
                MsgBox("连接数据库失败")
            End If
     Catch ex As Exception
            OleConn.DisplayError(ex)
     Finally
            DataReader.Close()
     End Try
End Sub
 
Private Sub txtUserName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUserName.TextChanged
 
End Sub
End Class
 
可视化程序设计图书管理系统
3.2主界面模块
主界面的菜单项和工具栏中的按钮较多,模块调用也较多。首先,在启动的时候隐藏主界面,弹出登录对话框,如果登录失败,则关闭系统,否则显示界面,并用默认查询字串查询“图书”表和“读者”表,填充公用模块中的两个数据集对象,并设置datagrid对象的数据关联。主界面模块的运行界面如图3.3所示:
                                                                                               

图3.3 主窗体设计界面
 
主界面模块代码如下:
在代码窗口定义两个变量,分别保存对图书表的查询字串和对读者表的查询字串
Dim bookstr As String
Dim readerstr As String
 
窗体的load事件中,先隐藏自己,弹出登录对话框,如果登录成功,查询图书表和读者表,并设置datagrid对象的数据关联。
代码如下:
 
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Me.Hide()
     Dim frm As New frmLogin
 
     If frm.ShowDialog() = DialogResult.OK Then  '弹出登录对话框
          frm.Close()
  若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn

              Else
                    MsgBox("查询图书表失败")
              End If
 
              readerstr = "select * from 读者"
              If OleConn.SelectQuery(readerstr, readerDataSet) Then
                  grdReader.SetDataBinding(readerDataSet, "Table")
              Else
                  MsgBox("查询读者表失败")
              End If
          Catch ex As Exception
              OleConn.DisplayError(ex)
          End Try
 
          cmbQueryBookType.SelectedIndex = 1
          cmbQueryReaderType.SelectedIndex = 0
      Else                                        '登录失败,关闭系统
          Me.Close()
      End If
End Sub
 
单击“查询“按钮,检查输入内容,如果为空,则设置输入框的焦点,并显示提示信息;如果不为空,生成查询字串,清空图书表数据集bookdataset,重新查询,并设置datagrid对象的数据关联。
代码如下:
Private Sub btnQueryBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryBook.Click
      If txtQueryBookContent.Text = "" Then
          txtQueryBookContent.Focus()
          MsgBox("请输入查询内容")
      ElseIf cmbQueryBookType.SelectedIndex < 0 Then
          cmbQueryBookType.Focus()
          MsgBox("请选择查询类型")
      Else
          Try
              bookstr = "select * from 图书 where " & cmbQueryBookType.SelectedItem & _
                  "='" & Trim(txtQueryBookContent.Text) & "'"
              bookDataSet.Clear()
              If OleConn.SelectQuery(bookstr, bookDataSet) Then
                  grdBook.SetDataBinding(bookDataSet, "Table")
              Else
                  MsgBox("查询图书表失败")
              End If
          Catch ex As Exception
              OleConn.DisplayError(ex)
          End Try
      End If
End Sub
 
3.3借书模块
借书模块管理读者的借书书操作,首先在“读者编号”文本框输入读者编号,按下回车键,调出读者资料和该读者已经借过的图书信息,然后“读者编号”文本框获得焦点,接着在“图书编号”文本框输入图书编号,按下回车键,这将使“借书”按钮变为有效,单击“借书”按钮,需要修改读者表、图书表和借出图书表的一些字段,因此设置了3个表的数据集和3个表的查询字串。还书固定为系统的当前日期。借书模块的运行界面如图3.4所示:
 
可视化程序设计图书管理系统
图3.4借书模块运行界面
 
借书模块代码如下:
首先在代码窗口声明如下一些变量:
Private bookds As New DataSet      ‘图书数据集
Private readerds As New DataSet    ‘读者数据集
Private borrowds As New DataSet    ‘借出图书数据集
Private bookstr As String          ‘查询图书表字串
Private readerstr As String        ‘查询读者表字串
Private borrowstr As String        ‘查询借出图书表字串
窗体的load事件设置借书时间为系统的当前日期:
txtBorrowTime.Text = Date.Now.ToShortDateString
在“读者编号”文本框按下回车键,如果输入的读者编号不为空,则从读者表中查询读者编号为输入的编号的读者资料,如果找到,显示该读者的信息,然后从借出图书表查询该读者的已借书信息,“图书编号”文本框有效并获得焦点。代码如下:
Private Sub txtReaderId_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtReaderId.KeyDown
If e.KeyCode = Keys.Return Then
            If txtReaderId.Text <> "" Then
                readerstr = "select * from 读者 where 编号='" & txtReaderId.Text & "'"
                Try
                    readerds.Clear()
                    OleConn.SelectQuery(readerstr, readerds)
                    If readerds.Tables.Count < 1 Or readerds.Tables(0).Rows.Count < 1 Then
                        MsgBox("找不到此读者")
                    Else
                        Dim dr As DataRow = readerds.Tables(0).Rows(0)
                        If Not dr.IsNull("姓名") Then
                            txtReaderName.Text = dr("姓名")
                        End If
                        If Not dr.IsNull("性别") Then
                            txtReaderSex.Text = dr("性别")
                        End If
                        If Not dr.IsNull("类别") Then
                            txtReaderType.Text = dr("类别")
                        End If
                       
                        If Not dr.IsNull("联系电话") Then
                            txtReaderTelephone.Text = dr("联系电话")
                        End If
                        If Not dr.IsNull("住址") Then
                            txtReaderAddress.Text = dr("住址")
                        End If
                        If Not dr.IsNull("登记日期") Then
                            txtReaderAddTime.Text = dr("登记日期")
                        End If
                        If Not dr.IsNull("借书次数") Then
                            txtLendCount.Text = dr("借书次数")
                        End If
                        If Not dr.IsNull("可借书数") Then
                            txtCanBorrowCount.Text = dr("可借书数")
                        End If
                        If Not dr.IsNull("未还书数") Then
                            txtUnReturnedCount.Text = dr("未还书数")
                        End If
                       
                        txtReturnTime.Text = CDate(txtBorrowTime.Text).AddDays(CInt(dr.Item("借书期限")))
                        borrowstr = "select * from 借出图书 where 借书者编号='" & txtReaderId.Text & "' and 在馆='否'"
                        borrowds.Clear()
                        OleConn.SelectQuery(borrowstr, borrowds)
                        grdLendBook.SetDataBinding(borrowds, "Table")
                        txtBookId.Enabled = True
                        btnLend.Enabled = False
                        txtBookId.Focus()
                    End If
                Catch ex As Exception
                    OleConn.DisplayError(ex)
                End Try
            End If
   End If
End Sub   
在“图书编号”文本框按下回车键,查询借出图书表,查询字串如下:
Private Sub txtBookId_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBookId.KeyDown
        If e.KeyCode = Keys.Return Then
            If txtBookId.Text <> "" Then
                Try
                    If rdoBookId.Checked Then
                        bookstr = "select * from 图书 where 图书编号='" & txtBookId.Text & "'"
                    Else
                        bookstr = "select * from 图书 where 条形码='" & txtBookId.Text & "'"
                    End If
                    bookds.Clear()
                    OleConn.SelectQuery(bookstr, bookds)
                    If bookds.Tables.Count < 1 Or bookds.Tables(0).Rows.Count < 1 Then
                        MsgBox("找不到此书")
                    Else
                        Dim dr As DataRow = bookds.Tables(0).Rows(0)
                        If Not dr.IsNull("书名") Then
                            txtBookName.Text = dr.Item("书名")
                        End If
                        If Not dr.IsNull("类别") Then
                            txtBookType.Text = dr("类别")
                        End If
                        If Not dr.IsNull("作者") Then
             若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn

                    OleConn.DisplayError(ex)
                End Try
            End If
        End If
End Sub
单击“借书”按钮,修改借出图书表的还书日期字段值为系统的当前日期,“在馆”字段值为“否”,将读者表的已借书数字的段值加1,借书日期字段值为系统的当前日期,图书表的现存数量字段值减1,“借书”按钮失效,提示借书成功如图3.5所示:

图3.5借书成功
代码如下:
Private Sub btnLend_Click(ByVal sender As Object, ByVal e As
 

可视化程序设计图书管理系统
System.EventArgs) Handles btnLend.Click
        Try
            Dim readerdr As DataRow = readerds.Tables(0).Rows(0)
            If readerdr.Item("未还书数") >= readerdr.Item("可借书数") Then
                MsgBox("读者的可借书数已经达到上限")
            Else
                Dim bookdr As DataRow = bookds.Tables(0).Rows(0)
                If bookdr.Item("现存数量") < 1 Then
                    MsgBox("此书已全部借出")
                Else
                    Dim str As String = "图书编号='" & txtBookId.Text & "'"
                    Dim dr As DataRow() = borrowds.Tables(0).Select(str)
                    If dr.GetLength(0) > 1 Then
                        MsgBox("读者已经借了此书,并且还未还")
                    Else
                        Dim borrowdr As DataRow = borrowds.Tables(0).NewRow
                        borrowdr.Item("图书编号") = txtBookId.Text
                        borrowdr.Item("书名") = bookdr.Item("书名")
                        borrowdr.Item("借书者编号") = readerdr.Item("编号")
                        borrowdr.Item("借书者") = readerdr.Item("姓名")
                        borrowdr.Item("借书日期") = txtBorrowTime.Text
                        borrowdr.Item("应还日期") = txtReturnTime.Text
                        borrowdr.Item("在馆") = "否"
                        borrowdr.Item("条形码") = bookdr.Item("条形码")
                        borrowdr.Item("出版社") = bookdr.Item("出版社")
                        borrowdr.Item("出版时间") = bookdr.Item("出版时间")
                        borrowdr.Item("类别") = bookdr.Item("类别")
                        borrowdr.Item("图书价格") = bookdr.Item("图书价格")
                        borrowds.Tables(0).Rows.Add(borrowdr)
                        OleConn.Adapter.SelectCommand.CommandText =borrowstr
                        OleConn.UpDate(borrowds.Tables(0))
                        borrowds.AcceptChanges()
 
                        readerdr.BeginEdit()
                            readerdr.Item("未还书数") = readerdr.Item("未还书数") + 1
                            readerdr.Item("借书次数") = readerdr.Item("借书次数") + 1
                        readerdr.Item("借书日期") = txtBorrowTime.Text
                        readerdr.EndEdit()
                        OleConn.Adapter.SelectCommand.CommandText =readerstr
                        OleConn.UpDate(readerds.Tables(0))
                        readerds.AcceptChanges()
                        txtUnReturnedCount.Text = readerdr.Item("未
                        OleConn.UpDate(bookds.Tables(0))
                        bookds.AcceptChanges()
                        txtExistCount.Text = bookdr.Item("现存数量")
                         btnLend.Enabled = False
                        MsgBox("借书成功")
                    End If
                End If
            End If
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
End Sub
 “清空”和“退出”按钮的实现代码如下:
Private Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click
        borrowds.Clear()
        txtReaderId.Text = ""
        txtReaderName.Text = ""
        txtReaderSex.Text = ""
        txtReaderTelephone.Text = ""
        txtReaderAddress.Text = ""
        txtReaderAddTime.Text = ""
        txtLendCount.Text = ""
        txtCanBorrowCount.Text = ""
        txtUnReturnedCount.Text = ""
        txtBookId.Text = ""
        txtBookName.Text = ""
        txtBookType.Text = ""
        txtBookAuthor.Text = ""
        txtPublisher.Text = ""
        txtPublishTime.Text = ""
        txtExistCount.Text = ""
        txtBorrowTime.Text = ""
        btnReturn.Enabled = False
        txtReaderId.Focus()
End Sub
Private Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
End Sub
3.4 修改密码模块
修改密码模块用来修改用户登录系统的密码,其运行界面如图3.6所示:
 

可视化程序设计图书管理系统
单击“修改”按钮,首先检查旧密码是否一致,然后检查两次输入的密码是否一致,如果一致,则更新管理员的logpwd值为输入的新密码。修改密码成功后提示如图3.7所示:修改密码错误后提示如图3.8所示:
图3.7密码修改成功提示     图3.8密码修改失败提示
 
修改密码模块代码如下:
 
Private Sub btnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModify.Click
        If txtOldPass.Text <> Password Then
            MsgBox("密码错误")
            txtOldPass.Text = ""
            txtNewPass.Text = ""
            txtConfirmPass.Text = ""
            txtOldPass.Focus()
        ElseIf txtNewPass.Text <> txtConfirmPass.Text Then
若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn

                    MsgBox("修改密码成功")
                    Password = txtNewPass.Text
                    txtOldPass.Text = ""
                    txtNewPass.Text = ""
                    txtConfirmPass.Text = ""
                    txtOldPass.Focus()
                Else
                    MsgBox("修改密码失败")
                End If
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try
        End If
End Sub
结论
三周的综合课程设计结束了,在老师的帮助以及我们辛勤的努力之下,我们小组顺利完成了本次设计内容。通过这两个星期的不懈努力和组员门的互相帮助,按照图书管理的需求分析所提出来的实现功能要求,我们编写该系统的实现代码,而且系统主要功能已经基本实现。通过这次的实训,自己对数据库和JSP开发技术有了更深一步的掌握,例如,函数的定义、调用、以及参数的传递等。更重要的是如何创建数据库,如何使用SQL语言(如select、insert、update、delete语句)。如何连接数据库及对数据库的查询,更改、删除等操作。
在课程设计中,要实现图书管理就要求我们熟练地掌握JSP的基本语句及对MyEclipse软件正确操作,特别是数据库部分。在编写代码之前要确定该系统的功能。首先进行系统分析,包括用户需求分析、系统总体框架分析及数据库分析。做好了需求分析后就可以进行详细设计了。我们小组的组员经常聚在一起,一起研究怎么设计界面,怎样建立SOL Server数据库,怎样将JSP与数据库相连接等问题。在具体模块设计中,对窗体的设计要根据模块的功能来布置窗体。这就要求我们掌握窗体及各种控件的属性及响应的事件,还有对数据类型、运算符与表达式、顺序程序设计、选择结构程序设计、循环控制结构、数组和函数、过程、类等熟练掌握。应用在此基础上还要会使用JSP来访问系统的数据库的各种操作等。还有要熟练的调试程序,设置断点、通过逐语句按钮寻找错误语句、查看错误原因、调试正确为止。该期间通过对JSP设计的系统训练,我们团结合作和共同的努力,我们小组基本达到了这周的实训目的,并且懂得了想要学以致用,除了学好课本上基础知识的功底深厚外,还要有的动手上机实践操作的能力。
在这三周的时间内,我们小组严格遵照老师下发的任务书进行实验,按时上机,抓紧时间设计代码,因此每一天都有很多的收获。对于本人来说,在这期间,是受益非浅。在设计过中发现了自己的不足,自己对某些知识掌握不是那么准确,在老师的指导和同学的帮助下我都克服种种的困难,完善自己设计内容。像经常遇到的问题是连不上数据库,查了很长时间也找不出问题所在,向老师请教后,老师指出了所存在的问题,当时就感到自己学得还是不扎实。在课程设计中,吸取到了许多的经验,这让我觉得很开心,自己有学到很多有用的知识!在实践过程中不仅是在知识地扩充,而且在与人合作、增强团队精神方面也得到了锻炼。在这次课设的心得是不怕编程麻烦,不要走捷径,因为有时会适得其反。要扎扎实实地编好每个语句。在编程之前先规划统筹好程序整体,以便以后编代码。界面应该简洁大方,有利于观看。这些心得本人会牢牢地记住,把它运用到日后的学习和工作中去,更好的学习和运用所学的知识。课设中所的宝贵的上机经验将会影响以后的生活工作,我会珍惜每次所学到的知识和经验。
致谢
三周的综合课程设计已经结束,在我们组所有成员的共同努力下,我们终于顺利地完成了这次课设的全部任务。在整个课程设计过程中,我们遇到了很多很多的困难。但我们小组所有成员并没有因此而气馁,并没有因为困难不好解决就放弃,而是积极的去查询,去请教老师。在整个过程中我们查阅了大量的资料,也向老师和一些同学进行了虚心的请教,也上网搜索了一些我们遇到的问题。在此,一并向这些帮助过我们的老师和同学表示感谢。感谢你们不惜浪费自己的时间来帮助我们解决难题,正是因为你们的帮助才能使我们如此顺利的完成此次课设的全部任务。
在此我感谢我们小组所有成员的积极努力和全力配合,通过这次实训我真正体会到了集体的力量,正是因为有了我们小组所有成员的齐心协力,才能使任务完成的这样顺利。
同时我还要感谢学校老师为我们提供了这么好的实习环境,让我们能在一个舒适的环境中顺利完成此次课设内容。
最后,我感谢在课程设计过程中给予我们帮助的所有老师和同学们,他们的帮助不仅使我们开阔了视野,拓宽了思路,增长了学识,为我们今后的工作和学习打下了牢固的基础。正是导师百忙中不辞劳苦的帮助,才使我能够顺利完课设任务,老师们的无私教导我们,指出我们的不足,使我们增长了许多的编程经验,为我们以后的工作和学习打下了基础,在这里,我再次对你们表示衷心的感谢。在大学中我也拥有一群共同学习和生活的同学,以及对我们有着深远影响的老师,这些都是我们在今后的学习或工作中的宝贵财富。在此里再一次表示最衷心的感谢你们。
设为首页 | 加入收藏 | 网学首页 | 原创论文 | 计算机原创
版权所有 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师