工学b结课论文

1、结课设计任务书题目图书管理系统目录摘要2一概论21.1 管理信息系统的发展历史2二系统开发简述22.1 编程环境的选择22.2关系型数据库的实现2三系统需求分析23.1 系统概述23.2 可行性分析3技术可行性3易使用性3经济可行性3管理可行性3四系统的总体设计3五系统实现41、登陆模块：4登录模块代码52、系统管理模块6增加用户代码7修改密码代码93、图书管理模块9修改图书类别代码104、添加图书信息模块12添加图书信息代码125、添加读者类别14添加类别代码156、添加读者信息模块16添加读者信息模块代码167、查询图书信息模块19查询图书代码208、查询借书信息模块22查询借书信息代码2

2、39、还书信息模块24还书代码24结束语28参考文献29摘 要图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。经过分析,使用 Microsoft公司的 Visual Basic6.0为开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供级开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进,直到形成用户满意的可行系统。一 概 论1.1 管理信息系统的发展历史科学

3、技术的进步和生产的发展使人类知识总量的增长不断加快，生产社会化趋势的扩大和社会对产品需求的多样性使得组织在营运活动中所涉及的内部和外部信息量迅速地膨胀起来。面对激烈的市场竞争，人们对这些信息进行收集、加工、传递等过程的时间性和准确性提出了更高的要求。这一切使得传统的手工作业为基础的信息系统陷入了机构日益庞大，效率日益降低的困境。电子计算机的出现为摆脱这种困境找到了出路。计算机用于管理信息处理的突出优点是迅速、准确、可靠、具有很大的存储能力，适应于管理信息量大、面宽的特点，适合于管理信息处理及时、准确的要求。二 系统开发简述2.1 编程环境的选择Microsoft公司的Visual Basic6

4、.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic 6.0提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB6.0是一个相对较好的选择。2.2关系型数据库的实现Microsoft Office Access 是由微软发布的关联式数据库管理系统。它结合了Microsoft Jet Database Engine 和图形用户界面两项特点，是Microsoft Office的成员之一。熟练的软件设计师和资料分析师利用它来开发应

5、用软件，而一些不熟练的程序员和非程序员“进阶用户”则能使用它来开发简单的应用软件。三 系统需求分析3.1 系统概述图书馆作为一种信息资源的集散地，图书资料和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是开始使用，甚至尚未使用计算机进行信息管理。根据调查显示，他们以前对作息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅的天数等用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统，规范的信息

6、管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没以发挥它的效力，资源闲置比较突出，这就是管理信息系统的开发的基本环境。基于这些问题，我认为有必要建立一个图书管理系统，使图书馆管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改图书馆情况。3.2 可行性分析技术可行性采用进入功能的口令权限检查，对就不同的用户拥有不同操作权限。这些口令又可以方便地进行修改，系统并对设置的口令自行加密处理。（对于口令修改是由图书馆理员来完成的）对数据进行分类，以便区分各种功能对数据的读或写访问，分别授以不同的功能访问权限，特别是只能对自己有权修

7、改的数据执行写操作。易使用性通过专门的查询设计，可进行高效率检索查询。系统不仅可以进行单备件查询还可以进行多条件的组全查询。经济可行性系统利用一台电脑即可，节省了购买多余设备的费用；系统自行设计自行开发，具有很高的性价比；新系统投入使用后，可节省人力，减轻劳动强度，从而降低了古本，节省了开支。管理可行性旧的图书馆理模式完全是手工操作，从新书的购买、编码、入库、上架，到借阅、续借、归还、查询，无一不是人工处理，需要大量的劳动力与工作里，而且由于人为的原因造成一些错误。新的图书馆管理系统充分发挥了计算机技术、网络技术的强大功能，从整体上改善了图书馆的管理工作，提高了图书馆服务的功能和质量，实现了图

8、书馆理的信息化、网络化、自动化。通过经济、技术、管理可行性的充分研究，确定了图书馆理系统的开发是必要的，可行的。四 系统的总体设计从图书馆理系统的整体出发，根据系统的目标将其分解成一系列子系统，根据需求分析得到如下图的结构图。登录模块系统管理模块图书管理模块读者管理模块图书借阅管理关于增加用户修改密码退出系统添加图书类别图书类别管理修改图书类别添加图书信息添加读者类别读者类别管理添加读者信息借书还书查询图书信息查询借书信息五 系统实现1、登陆模块：登陆模块是图书管理员进入管理系统的钥匙。具体界面如下图所示：如果输入密码错误系统会提示：密码无效，还可有几次输入机会，请重新输入，如下图所示：如果输

9、入正确系统会提示成功登陆，如下图所示：登录模块代码Private Sub Combo1_Click()Dim sql As String Set rsUser = New ADODB.Recordset If rsUser.State = 1 Then rsUser.Close sql = "SELECT 密码 FROM 登录 WHERE 用户名='" & Combo1.Text & "'" rsUser.Open sql, conn, adOpenStatic, adLockPessimistic Text1.SetFo

10、cus pwd = Trim(rsUser.Fields("密码")End SubPrivate Sub Command1_Click()If Combo1.Text = "" Then MsgBox "请选择用户名!", , "登录" Combo1.SetFocus Exit Sub End If If Text1.Text = "" Then MsgBox "请输入密码!", , "登录" Text1.SetFocus Exit Sub End If

11、If Text1.Text = pwd Then userID = Combo1.Text Me.Hide MsgBox "登陆成功！" 主页面.ShowElse MsgBox "密码无效，请重试!您还有" & 2 - cnt & "次机会", , "登录" Text1.SetFocus cnt = cnt + 1 If 3 - cnt = 0 Then Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub

12、Private Sub Form_Load()Dim cnnstr As StringDim sql As String Set rsUser = New ADODB.Recordset cnnstr = "provider=Microsoft.Jet.oledb.4.0;" & "data source=登录.mdb" conn.Open cnnstr sql = "select 用户名 from 登录" rsUser.Open sql, conn, adOpenStatic, adLockPessimistic Combo

13、1.Clear Do Until rsUser.EOF Combo1.AddItem rsUser.Fields("用户名") rsUser.MoveNextLoop cnt = 0End Sub2、系统管理模块系统管理模块的功能是增加管理员、修改管理员密码增加管理员模块如图所示：如果添加管理员与库中重复则系统给出提示，如下图所示增加用户代码Option ExplicitDim rs_add As New ADODB.RecordsetPrivate Sub Command1_Click(Index As Integer) Dim sql As String Set rs_

14、add = New ADODB.Recordset If Trim(Text1.Text) = "" Then MsgBox "请输入用户名", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = "" Then MsgBox "密码不能为空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit Sub End If

15、If Trim(Text3.Text) = "" Then MsgBox "请确认密码", vbOKOnly + vbExclamation, "" Text3.SetFocus Exit Sub End If sql = "select * from 登录 where 用户名 ='" & Text1.Text & "'" rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_add.EOF Th

16、en rs_add.AddNew rs_add.Fields(1) = Trim(Text1.Text) rs_add.Fields(2) = Trim(Text2.Text) rs_add.Update MsgBox "添加用户成功！", vbOKOnly, "" rs_add.Close Me.Hide 主页面.ShowElse MsgBox "用户信息重复！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_a

17、dd.Close Exit Sub End IfEnd SubPrivate Sub Command2_Click(Index As Integer)Unload MeEnd SubPrivate Sub Form_Load() Dim cnnstr As String Dim sql As String Set conn = New ADODB.Connection cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.mdb;Persist Security Info=False" conn.Open cnn

18、strEnd Sub修改管理员密码如图所示：如果二次输入密码不一致，系统提示出错，如下图所示：如果二次输入密码一致，系统提示修改成功，如下图所示：修改密码代码Private Sub Command1_Click() Dim rs_chang As New ADODB.Recordset Dim sql As String If Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox "密码不一致！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.

19、Text = "" Text2.Text = "" Else sql = "select * from 登录 where 用户名='" & userID & "'" rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(2) = Text1.Text rs_chang.Update rs_chang.Close MsgBox "密码修改成功", vbOKOnly + vbE

20、xclamation, "" Unload Me End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim cnnstr As String Dim sql As String Set conn = New ADODB.Connection cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.mdb;Persist Security Info=False" conn.Open cnn

21、strEnd Sub3、图书管理模块图书管理模块的功能是对图书类别的添加和管理修改图书类别模块如下图所示：修改成功如图所示：如果要删除图书系统将给出提示，如下图所示：修改图书类别代码Private Sub Form_Load() Dim cnnstr As String Dim sql As String Set conn = New ADODB.Connection cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.mdb;Persist Security Info=False" conn.Open cnn

22、strsql = "select * from 图书类别"rsReader.CursorLocation = adUseClientrsReader.Open sql, conn, adOpenKeyset, adLockPessimisticuserupdate = FalseDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rsReaderEnd SubPrivate Sub Form_Unlo

23、ad(Cancel As Integer)Set DataGrid1.DataSource = NothingrsReader.CloseEnd SubPrivate Sub usercancel_Click()rsReader.CancelUpdateDataGrid1.RefreshDataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = Falseusermodify.Enabled = Trueuserdel.Enabled = Trueusercancel.Enabled = Falseuserupdate.Enabled = Fals

24、Unload MeEnd SubPrivate Sub userdel_Click()Dim answer As Stringanswer = MsgBox("确定要删除该图书吗?", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rsReader.Delete rsReader.Update DataGrid1.Refresh MsgBox "删除成功!", vbOKOnly + vbExclamation, "" DataGrid

25、1.AllowDelete = FalseElse Exit SubEnd IfEnd SubPrivate Sub usermodify_Click()userdel.Enabled = Falseusermodify.Enabled = Falseuserupdate.Enabled = Trueusercancel.Enabled = TrueDataGrid1.AllowUpdate = TrueEnd SubPrivate Sub userupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rsReader.UpdateEnd I

26、f usermodify.Enabled = True userdel.Enabled = True usercancel.Enabled = False userupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "修改成功!", vbOKOnly + vbExclamation, ""End Sub4、添加图书信息模块添加图书信息模块功能是向图书信息库添加新的图书信息，如下图所示：添加图书信息代码Private Sub Command1_Click()Dim rsaddBook As

27、 New ADODB.RecordsetDim sql As String Set conn = New ADODB.Connection cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.mdb;Persist Security Info=False" conn.Open cnnstrIf Trim(Combo1.Text) = "" Then MsgBox "请选择图书种类", vbOKOnly + vbExclamation, "" Combo

28、1.SetFocus Exit Sub End If If Trim(Text1.Text) = "" Then MsgBox "图书编号不能为空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = "" Then MsgBox "书名不能为空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit Sub End

29、If sql = "select * from 书籍信息 where 书籍编号 ='" & Text1.Text & "'" rsaddBook.Open sql, conn, adOpenKeyset, adLockPessimistic If rsaddBook.EOF Then rsaddBook.AddNew rsaddBook.Fields(0) = Trim(Text1.Text) rsaddBook.Fields(1) = Trim(Text2.Text) rsaddBook.Fields(2) = Trim

30、(Combo1.Text) rsaddBook.Fields(3) = Trim(Text3.Text) rsaddBook.Fields(4) = Trim(Text4.Text) rsaddBook.Fields(5) = Trim(DTPicker1.value) rsaddBook.Fields(6) = Trim(DTPicker2.value) rsaddBook.Fields(7) = "否" rsaddBook.Fields(8) = Trim(Text5.Text) rsaddBook.Fields(9) = Trim(Text7.Text) rsaddB

31、ook.Fields(10) = Trim(Text6.Text) rsaddBook.Fields(11) = Trim(Combo2.Text) rsaddBook.Update MsgBox "添加书籍信息成功！", vbOKOnly, "" rsaddBook.Close Else MsgBox "图书编号重复！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rsaddBook.Close Exit Sub E

32、nd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rsType As New ADODB.RecordsetDim rsOpr As New ADODB.RecordsetDim sql As StringDim sql1 As StringDim cnnstr As StringSet conn = New ADODB.Connection cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.mdb;Pe

33、rsist Security Info=False" conn.Open cnnstrsql = "select * from 图书类别"sql1 = "select * from 登录"rsType.Open sql, conn, adOpenKeyset, adLockPessimisticrsType.MoveFirstDo While Not rsType.EOF Combo1.AddItem rsType.Fields(1) rsType.MoveNextLooprsType.ClosersOpr.Open sql1, conn, a

34、dOpenKeyset, adLockPessimisticrsOpr.MoveFirstDo While Not rsOpr.EOF Combo2.AddItem rsOpr.Fields(1) rsOpr.MoveNextLooprsOpr.CloseEnd SubPrivate Sub Text5_Change()Text7.Text = Trim(Text5.Text)End Sub5、添加读者类别添加读者类别功能是向库里边添加可向图书馆借书的人员类别添加类别代码Private Sub Command1_Click()Dim rs_bookstyle As New ADODB.Reco

35、rdsetDim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "读者类别不能为空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "限借数量不能为空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd Ifsql

36、= "select * from 读者类别 where 种类名称='" & Text1.Text & "'"rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_bookstyle.EOF Then rs_bookstyle.AddNew rs_bookstyle.Fields(0) = Trim(Text1.Text) rs_bookstyle.Fields(1) = Trim(Text2.Text) rs_bookstyle.Fields(2

37、) = Trim(Text3.Text) rs_bookstyle.Fields(3) = Trim(Text4.Text) rs_bookstyle.Update MsgBox "添加图书类别成功！", vbOKOnly, "" rs_bookstyle.CloseElse MsgBox "读者类别重复！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_bookstyle.Close Exit SubEnd If

38、End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() Dim cnnstr As String Dim sql As String Set conn = New ADODB.Connection cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.mdb;Persist Security Info=False" conn.Open cnnstrEnd Sub6、添加读者信息模块添加读者信息模块代码Private Su

39、b Command1_Click()Dim rsaddReader As New ADODB.RecordsetDim sql As String Set conn = New ADODB.Connection cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.mdb;Persist Security Info=False" conn.Open cnnstrIf Trim(Combo1.Text) = "" Then MsgBox "请选择性别", vbOKOnly +

40、 vbExclamation, "" Combo1.SetFocus Exit Sub End If If Trim(Text1.Text) = "" Then MsgBox "读者编号不能为空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = "" Then MsgBox "读者姓名不能为空", vbOKOnly + vbExclamation, "

41、;" Text2.SetFocus Exit Sub End If If Trim(Text6.Text) = "" Then MsgBox "已借书数量不能为空", vbOKOnly + vbExclamation, "" Text6.SetFocus Exit Sub End If If Trim(Text7.Text) = "" Then MsgBox "借书证号不能为空", vbOKOnly + vbExclamation, "" Text7.SetFocu

42、s Exit Sub End If If Trim(Text8.Text) = "" Then MsgBox "身份证号不能为空", vbOKOnly + vbExclamation, "" Text8.SetFocus Exit Sub End If If Trim(Text11.Text) = "" Then MsgBox "限借数量不能为空", vbOKOnly + vbExclamation, "" Text11.SetFocus Exit Sub End If If

43、 Trim(Text12.Text) = "" Then MsgBox "借书期限不能为空", vbOKOnly + vbExclamation, "" Text12.SetFocus Exit Sub End If sql = "select * from 读者信息 where 读者编号 ='" & Text1.Text & "'" rsaddReader.Open sql, conn, adOpenKeyset, adLockPessimistic If rs

44、addReader.EOF Then rsaddReader.AddNew rsaddReader.Fields(0) = Trim(Text1.Text) rsaddReader.Fields(1) = Trim(Text2.Text) rsaddReader.Fields(2) = Trim(Combo1.Text) rsaddReader.Fields(3) = Trim(Combo2.Text) rsaddReader.Fields(4) = Trim(Text3.Text) rsaddReader.Fields(5) = Trim(Text4.Text) rsaddReader.Fi

45、elds(6) = Trim(Text5.Text) rsaddReader.Fields(7) = Trim(DTPicker1.value) rsaddReader.Fields(8) = Trim(Text6.Text) rsaddReader.Fields(9) = Trim(Text7.Text) rsaddReader.Fields(10) = Trim(Text8.Text) rsaddReader.Fields(11) = Trim(Text9.Text) rsaddReader.Fields(12) = Trim(Text10.Text) rsaddReader.Fields

46、(13) = Trim(Text11.Text) rsaddReader.Fields(15) = Trim(Text12.Text) rsaddReader.Fields(14) = Trim(Combo3.Text) rsaddReader.Update MsgBox "添加读者信息成功！", vbOKOnly, "" rsaddReader.Close Else MsgBox "读者编号重复！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text =

47、 "" rsaddReader.Close Exit Sub End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rsType As New ADODB.RecordsetDim rsSet As New ADODB.RecordsetDim rsSexy As New ADODB.RecordsetDim sql As StringDim sql1 As StringDim sql2 As StringDim cnnstr As StringSet conn

48、 = New ADODB.Connection cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.mdb;Persist Security Info=False" conn.Open cnnstrsql = "select * from 性别"sql1 = "select * from 读者类别"sql2 = "select * from 登录"rsSexy.Open sql, conn, adOpenKeyset, adLockPessimisti

49、crsSexy.MoveFirstDo While Not rsSexy.EOF Combo1.AddItem rsSexy.Fields(1) rsSexy.MoveNextLooprsSexy.ClosersType.Open sql1, conn, adOpenKeyset, adLockPessimisticrsType.MoveFirstDo While Not rsType.EOF Combo2.AddItem rsType.Fields(0) rsType.MoveNextLooprsType.ClosersSet.Open sql2, conn, adOpenKeyset, a

50、dLockPessimisticrsSet.MoveFirstDo While Not rsSet.EOF Combo3.AddItem rsSet.Fields(1) rsSet.MoveNextLooprsSet.CloseEnd Sub7、查询图书信息模块查询图书信息功能可以通过查询图书馆的书名、编号、图书类别、作者或出版社来查询需要的图书，具体窗口如下图所示：输入要查询的图书书名、编号、出版社、类别或作者，点击“查询”按钮，如果图书馆有这本书的信息，则会在窗口下方显示出来，如下图所示：如果想借查询出来的书，则点击主窗口的“借书”按钮，如下图所示：点击“借这本书”按钮后弹出借书窗口，如下

51、图所示：然后借书人员就可以把自己的编号，借书证号，读者姓名正确输入，点击“确定”借阅成功，如下图所示：如果借书人员有超期未归的书，系统将会给出提示，提示如下图所示：查询图书代码Dim kc As IntegerDim rsUser As ADODB.RecordsetDim cnt As IntegerPrivate Sub Command1_Click()Dim rsFindBook As New ADODB.Recordset Dim sql As String If Check1.value = vbChecked Then sql = "书名='" &

52、; Trim(Text1.Text & " ") & "'" End If If Check2.value = vbChecked Then sql = "编号='" & Trim(Text2.Text & " ") & "'" End If If Check3.value = vbChecked Then sql = "类别='" & Trim(Combo1.Text & "

53、") & "'" End If If Check4.value = vbChecked Then sql = "作者='" & Trim(Text4.Text & " ") & "'" End If If Check5.value = vbChecked Then sql = "出版社='" & Trim(Text3.Text & " ") & "'"

54、 End If If Trim(sql) = "" Then MsgBox "请选择查询方式！", vbOKOnly + vbExclamation Exit Sub End If sql = "select * from 书籍信息 where " & sql rsFindBook.CursorLocation = adUseClient rsFindBook.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGr

55、id1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rsFindBookEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)End SubPrivate Sub Command2_Click() DataGrid1.AllowAddNew =

56、False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False DataGrid1.Refresh kc = DataGrid1.Columns(9).CellValue(DataGrid1.Bookmark) If Trim(book_num) = "" Then MsgBox "请选择要借阅的图书！", vbOKOnly + vbExclamation Exit Sub End If If kc < 1 Then MsgBox "警告：此书已被借完！", v

57、bOKOnly + vbExclamation Exit Sub End If 借书.Show Unload MeEnd SubPrivate Sub Command3_Click()主页面.ShowMe.HideEnd SubPrivate Sub Form_Load()Dim cnnstr As StringDim sql As StringSet conn = New ADODB.ConnectionSet rsUser = New ADODB.Recordsetcnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=登录.

58、mdb;Persist Security Info=False" conn.Open cnnstr sql = "select 类别名称 from 图书类别" rsUser.Open sql, conn, adOpenStatic, adLockPessimistic Combo1.Clear Do Until rsUser.EOF Combo1.AddItem rsUser.Fields("类别名称") & "" rsUser.MoveNextLoop cnt = 0sql = "select * from 登录"userupdate = FalseDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rsReaderEnd Sub8、查询借书信息模选择要查询的方式，点击“查询”按钮，则会显示出查询的结果，如下图所示：查询借书信息代码Option ExplicitDi