用vb设计图书管理系统

1、用vb设计图书管理系统用vb设计图书管理系统VB课程设计报告目录摘要 关键字 一系统规划1.1系统功能描述1.2功能模块划 分1.3 E-R图 二 系统界面的开发 2.1登录界面2.2用户管 理界面 三 系统的详细设计 3.1登录界面代码 3.2各功能代 码四心得体会及认识致谢摘要随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下，书籍就渐渐地成为人们获取并增长知识的 主要途径，而图书馆就自然而然地在人们的生活中占据了一 定的位置。如何科学地管理图书馆不但关系到读者求知的方便程度， 也关系到绘本馆的发展，因此，开发一套完善的图书管理系 统就必不可少了，图书管理系统是典型的信息管理系

2、统 (MIS)，其开发主要包括后台数据库的建立和维护以及前端应 用程序的开发两个方面。经过分析，使用 Microsoft公司的 Visual Basic6.0为开发 工具，利用其提供的各种面向对象的可视化开发平台作为开 发工具，采用面向对象技术，图形化的应用开发环境，尤其 是它有一个功能极其强大的集成环境提供给开发人员，使得 开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌 入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进，直到形成用户满意的可行系统。本文介绍了在Visual Basic6.0环境下采用自上而下地总 体规划，自下而上地应用开发的策略开发本系统的详细过程，提

3、由实现图书信息管理、资源共享的基本目标，从而推 动迈向数字化图书馆的步伐，并阐述系统结构设计和功能设 计，从图书的入库登记、借阅登记到查询浏览，形成了一个 整体自动化管理模式，从软件工程的角度进行了科学而严谨 的阐述。关键词：图书管理系统；借阅；浏览；编辑； Visual Basic 6.0 一系统 规划1.1主要功能 录入、删除、修改及查询 1.2模块结构 划分此功能分为几个模块读者种类信息：读者基本信息书籍信息借书信息还书信息1.3建立如下 E-R图 图书管理系统 基础信息维护 用户信息 用户登录 退由更改密码读者管理读者信息图书管理图书信息 期刊管理 期刊信息 查询 读者查询 用户借阅与

4、借阅信息 统计分析管理 统计管理刷新添加删除修改添加刷新 修改书号书名作者由版社状态二系统界面的开发 2.1用户登录 用户登录界面1、输入账号与密码点击 登录' 直接登录进入管理界面。2、输入账号与密码，点击 注册”，获得新的账号和密码， 然后点击 登录”即可进入管理界面。2.2用户管理界面编辑图书信息界面查询图书信息界 面：三 系统的详细设计 3.1登录界面代码 Private SubCommand1_Click() Dim cn As New ADODB.Connection Dimrs As New ADODB.Recordset Dim flag As Boolean Dim

5、cn_strAs String, sql_str As String cn_str ="DRIVER=SQLSERVER;SERVER=WTOLSDRD7SHRABT;DATABASE=library " cn.Open cn_str sql_str =" select * from userinfo”sql_str, cn While Not rs.EOF If Textl.Text = Trim(rs(0) AndText2.Text = Trim(rs(1) Then flag = True Form2.Show ExitSub Else rs.MoveNe

6、xt flag = False End If Wend If flag = FalseThen MsgBox输入有误，请输入正确的密码和账号！“，vbCritical + vbOKOnly, 错误“rs.Close End If End Sub PrivateSub Command2_Click() Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordset Dim flag As Boolean Dimcn_str As String, sql_str As String cn_str = "DRIVER=SQLSERVE

7、R;SERVER=WTOLSDRD7SHRABT;DATABASE=library " cn.Open cn_str sql_str ="select *from userinfo " rssql_str, cn, adOpenDynamic, adLockOptimistic rs.AddNewrs( "username = ) Trim(Textl.Text) rs( a userpassword = ")Trim(Text2.Text) rs.Update rs.Close MsgBox '注册成功！ “，vbExclamatio

8、n + vbOKOnly, 提示 “End Sub Private SubLabel1_Click() End Sub 11 3.2各功能代码 图书信息的编辑:Private Sub Command1_Click() AdodcI.Recordset.AddNew AdodcI.Refresh MsgBox 录入信息成功！ "v bExclamation + vbOKOnly, 提示 “End Sub Private Sub Command2_Click() Adodc1.Recordset.Delete Adodc1.Refresh MsgBox 删除信息 成功! "vb

9、Exclamation + vbOKOnly, 提示 “End Sub Private Sub Command3_Click() Adodc1.Recordset.Update Adodc1.Refresh MsgBox 修改信息成功！ "v bExclamation + vbOKOnly, 提示 “End Sub Private Sub Command4_Click() Text1.Text = " Text2.Text = " Text3.Text = " Text4.Text = Text5.Text = Text6.Text = Text7.Te

10、xt =书信息的查询:Private Sub Command1_Click() Adodcl.RecordSource = “select * from bookinfo where book_id= "& Trim(Textl) & “ " AdodcI.Refresh End Sub 阅信息的编辑：Private Sub Command1_Click() AdodcI.Recordset.AddNew AdodcI.Refresh MsgBox 录入信息成功！ "v bExclamation + vbOKOnly, 提示 “End Sub Pr

11、ivate Sub Command2_Click() Adodcl.Recordset.Update AdodcI.Refresh MsgBox 修改信息' 成功! "vbExclamation + vbOKOnly, 提示 “End Sub Private Sub Command3_Click() Adodcl.Recordset.Delete AdodcI.Refresh MsgBox 删除信息成功！ "v bExcl amation + vbOKOnly, 提示 “End Sub Private Sub Command4_Click()textl.Text =

12、 " Text2.Text = " Text3.Text = " Text4.Text = Text5.Text = Text6.Text = Text7.Text =“ " End SUb阅信息的查询：Private Sub Command2_Click() Text1.Text =xt 2.TexTe Text3.Text = Text4.Text = Text5.Text =“ Text7.Text = " Text8.Text = "End Sub Private SubCommand1_Click() Adodc1.Reco

13、rdSource = "select * from personinfo where card_number= " & Trim(Text1) & “ " Adodc1.Refresh ESdb还书信息的编辑：Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Refresh MsgBox 登记信息成功！ "v bExclamation + vbOKOnly, 提示 “End Sub Private Sub Command2_Click() Text1.Text = " Text2.Text = " Text3.Text = " Text4.Text =“ " Text5.Text =" " End