图书馆管理系统详细设计4

1、实 验 报 告课程名称 软 件 工 程 实验项目名称 图书管理系统详细设计2 实验学生班级 05计算机科学与技术（控制技术） 实验学生姓名 何 南 学生所属院部 信息技术学院 同组学生姓名 肖静、鞠久勤、候芬、陈青、朱纪超 实验时间 2008年12月8日、2008年12月15日 实验地点 B407 实验成绩评定 指导教师签字 年 月 日 一、实验目的和要求 对系统进行详细的设计,严格按照规格说明书的要求,其中我主要完成的是主界面的设计、读者管理、图书借阅管理三个部分，其中读者管理又分为读者类别管理、读者信息管理，可对图书的类别和图书的信息进行添加、修改、删除、查询操作。图书借阅管理分为借书管理

2、和还书管理，可对图书进行借书还书和查询操作。二、实验主要仪器和设备 PC机，Microsoft Visual Basic 6.0三、实验原理在本次的系统开发中我主要完成以下三个部分的详细设计，其主要内容如下：1. 系统主界面进入系统后所运行的主要平台,其主要采用了菜单的方式来完成整个系统的运行。2、读者管理（1）、读者类别管理单击“读者管理”菜单下的“读者类别管理”，进入读者类别管理，再单击该菜单的子菜单，可以添加、修改、删除读者类别。（2）、读者信息管理单击“读者管理”菜单下的“读者信息管理”，再单击该菜单的子菜单，可以添加、修改、删除、查询读者信息。 3、图书借阅管理（1）、借书管理 单击

3、“图书借阅管理”菜单下的“借书管理”，再单击该菜单下的子菜单，可以添加、查询借书信息。（2）、还书管理单击“图书借阅管理”菜单下的“还书管理”，再单击该菜单下的子菜单，可以添加还书信息。四、实验方法与步骤1.系统主界面（如图1） 图1其主要实现方法是采用菜单编辑器来完成下拉菜单的设计,主界面的程序比较简单,主要完成的功能是对各自功能窗体的调用,这边就不具体描述了。2、读者管理（1）、读者类别管理添加读者类别 单击“添加读者类别”子菜单进入图2界面： 图2系统操作者根据读者具体情况填写相关信息,添加读者类别窗体中的确定按键其主要程序如下：sql = "select * from 读者类

4、别 where 种类名称='" & Text1.Text & "'"rs_readerstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_readerstyle.EOF Then rs_readerstyle.AddNew rs_readerstyle.Fields(0) = Trim(Text1.Text) rs_readerstyle.Fields(1) = CInt(Text2.Text) rs_readerstyle.Fields(2) = CInt(Text

5、3.Text) rs_readerstyle.Fields(3) = CInt(Text4.Text) rs_readerstyle.Update MsgBox "添加读者类别成功！", vbOKOnly, "" rs_readerstyle.CloseElse MsgBox "读者类别重复！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_readerstyle.Close Exit SubEnd If系统已有的

6、读者类别如图3所示： 图3修改读者类别单击“修改读者类别”子菜单进入图4界面： 图4系统操作者可以进行“修改类别”的操作。读者类别窗体的修改类别按键中程序如下：Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = Falsecmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = Truecmdmodify:If Err.Number <> 0 Then MsgBox Err.Des

7、criptionEnd If读者类别窗体的更新按键中程序如下：If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "修改成功！", vbOKOnly + vbExclamation, ""删除读者类别系统操作者可以进

8、行“删除类别”的操作。读者类别窗体中的删除类别按键其程序如下：Dim answer As StringOn Error GoTo delerroranswer = MsgBox("确定要删除吗？", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update DataGrid1.Refresh MsgBox "成功删除！", vbOKOnly + vbExclamation, ""

9、 DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd If（2）读者信息管理添加读者信息单击“添加读者信息”子菜单进入图5界面： 图5其中，“读者类别”可以从图6类别中选择 图6系统操作者根据读者具体情况填写相关信息,添加读者信息窗体中的确定按键其主要程序如下：sql = "select * from 读者信息 where 读者编号='" & Text2.Text & "

10、;'"rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addreader.EOF Then rs_addreader.AddNew rs_addreader.Fields(0) = Trim(Text1.Text) rs_addreader.Fields(1) = Trim(Text2.Text) rs_addreader.Fields(2) = Trim(Combo2.Text) rs_addreader.Fields(3) = Trim(Combo1.Text) rs_addreader.

11、Fields(4) = Trim(Text3.Text) rs_addreader.Fields(5) = Trim(Text4.Text) rs_addreader.Fields(6) = Trim(Text5.Text) rs_addreader.Fields(7) = CDate(Text6.Text) rs_addreader.Update MsgBox "添加读者信息成功！", vbOKOnly, "" rs_addreader.CloseElse MsgBox "读者编号重复！", vbOKOnly + vbExclama

12、tion, "" Text1.SetFocus Text1.Text = "" rs_addreader.Close Exit SubEnd If修改读者信息单击“修改读者类别”子菜单进入图7界面： 图7系统操作员可以进行“修改信息”，读者信息管理窗体中的修改信息按键其主要程序如下：Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = Falsecmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = True

13、DataGrid1.AllowUpdate = Truecmdmodify:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd If读者信息管理窗体中的更新按键其主要程序如下：If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate

14、 = False MsgBox "修改成功！", vbOKOnly + vbExclamation, ""删除信息系统操作员可以进行“删除信息”， 读者信息管理窗体中的修改信息按键其主要程序如下：Dim answer As StringOn Error GoTo delerroranswer = MsgBox("确定要删除吗？", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Up

15、date DataGrid1.Refresh MsgBox "成功删除！", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd If查询读者信息单击“修改读者类别”子菜单进入图8界面： 图8查询读者信息窗体中的确定按键其主要程序如下：Dim rs_findreader As New ADODB.RecordsetDim sq

16、l As StringIf Check1.Value = vbChecked Then sql = "读者编号='" & Trim(Text1.Text & " ") & "'"End IfIf Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "读者姓名='" & Trim(Text2.Text & " ") & "'

17、" Else sql = sql & "and 读者姓名='" & Trim(Text2.Text & " ") & "'" End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = "" Then sql = "读者类别='" & Trim(Combo1.Text & " ") & "'" Els

18、e sql = sql & "and 读者类别='" & Trim(Combo1.Text & " ") & "'" End IfEnd Ifsql = "select * from 读者信息 where " & sqlrs_findreader.CursorLocation = adUseClientrs_findreader.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddN

19、ew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findreader'rs_findreader.Close然后可以选择“读者姓名”并输入相应信息后点击“确定”按钮，即可出现该读者的相关信息。如图9所示： 图93、图书借阅管理（1）、借书管理。添加借书信息在“借书管理”菜单中单击“添加借书信息”后进入图10界面：图10添加借书信息窗体中的确定按键中的程序如下：Dim rs_findbook As New ADODB.RecordsetDim

20、 sql As StringIf Check1.Value = vbChecked Then sql = "书名='" & Trim(Text1.Text & " ") & "'"End IfIf Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "类别='" & Trim(Combo1.Text & " ") & "'

21、" Else sql = sql & "and 书名='" & Trim(Combo1.Text & " ") & "'" End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = "" Then sql = "作者='" & Trim(Text2.Text & " ") & "'" Else sq

22、l = sql & "and 作者='" & Trim(Text2.Text & " ") & "'" End IfEnd IfIf Check4.Value = vbChecked Then If Trim(sql) = "" Then sql = "出版社='" & Trim(Text3.Text & " ") & "'" Else sql = sql &

23、"and 出版社='" & Trim(Text3.Text & " ") & "'" End IfEnd IfIf Check5.Value = vbChecked Then If Trim(sql) = "" Then sql = "书籍编号='" & Trim(Text4.Text & " ") & "'" Else sql = sql & "and 书籍

24、编号='" & Trim(Text4.Text & " ") & "'" End IfEnd IfIf Trim(sql) = "" Then MsgBox "请选择查询方式！", vbOKOnly + vbExclamation Exit SubEnd Ifsql = "select * from 书籍信息 where " & sqlrs_findbook.CursorLocation = adUseClientrs_findbook.

25、Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findbook'rs_findbook.Close查询借书信息在“借书管理”菜单中单击“查询借书信息”后进入图11界面： 图11可以选中“查询已借出信息”然后点击“开始查询”，可以查看已经借出图书的信息。如下图12所示： 图12查询借书信息窗体中的开始查询按键中

26、的程序如下：Dim sql As StringDim rs_find As New ADODB.RecordsetIf Option1.Value = True Then sql = "select * from 书籍信息 where 是否被借出='是'"End IfIf Option2.Value = True Then sql = "select * from 书籍信息 where 是否被借出='否'"End IfIf Option3.Value = True Then sql = "select * fro

27、m 借阅信息 where 读者姓名='" & Text1.Text & "'"End If rs_find.CursorLocation = adUseClient rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_find（2）、还书

28、管理添加还书信息单击“添加还书信息”即可进入图13界面： 图13选择相应的信息即可查询相关的还书信息, 还书窗体中的两个查询按键程序大同小异,其按键中的程序如下：Dim rs_reader As New ADODB.RecordsetDim sql As Stringfindform = Truesql = "select * from 借阅信息 where 读者姓名='" & Combo2.Text & "'"rs_reader.CursorLocation = adUseClientrs_reader.Open sql

29、, conn, adOpenKeyset, adLockPessimisticSet DataGrid1.DataSource = rs_readerDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = False还书窗体中的还书按键中的程序如下：Dim book_num As StringDim reader_num As StringDim answer As StringDim rs_back As New ADODB.RecordsetDim sql As StringOn E

30、rror GoTo delerrorbook_num = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark)reader_num = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)answer = MsgBox("确定要还这本书吗？", vbYesNo, "")If answer = vbYes Then sql = "select * from 借阅信息 where 书籍编号='" & book_num &

31、 "'" rs_back.CursorLocation = adUseClient rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic rs_back.Delete rs_back.Update rs_back.Close sql = "select * from 书籍信息 where 书籍编号='" & book_num & "'" rs_back.CursorLocation = adUseClient rs_back.Open s

32、ql, conn, adOpenKeyset, adLockPessimistic rs_back.Fields(7) = "否" rs_back.Update rs_back.Close sql = "select * from 读者信息 where 读者编号='" & reader_num & "'" rs_back.CursorLocation = adUseClient rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic rs_back.Fields(8) = rs_back.Fields(8) - 1 rs_back.Update rs_back.Close If findform = True Then Command1_Click Else Command2_Click End If MsgBox "成功删除！", vbOKOnly + vbExcl