VB图书管理系统 课程设计报告.doc

VB语言程序设计课程设计报告 系 (部) 专业班级 学生姓名 学号/序号 指导教师 完成时间 图书管理系统 功能描述 使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作（数据库的建立、编辑、查找、删除等），建立了这个简易的图书管理系统，方便图书管理人员对图书的管理。用户可以通过此系统的添加、删除，还回，借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。 概要设计 1、系统功能模块框图设计 首先程序运行，出现一个MDI主窗体，里面分别有登录，书籍信息管理系统，退出三个菜单选项，登录前，管理按钮不可用，当正确输入用户名以及密码以后，点管理按钮，图书管理窗体显示，用户可对图书信息进行管理。 程序流程框图如图所示： 2、数据库设计 创建一个数据库为mydb.mdb，该数据库共包含3张表，分别为“书籍信息表”、“图书归还表”和“图书借出表”，表结构如下： 书籍信息表：图书编号、图书名、作者、出版社、数量、出版日期、价格 图1. 书籍信息表 图书归还表：图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期； 图2. 图书归还表 图书借出表：图书编号、图书名、作者、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。 图3. 图书借出表 详细设计 1、MDI主界面 用户登录模块中登录与取消两按钮，单击登录会进入系统进行下一步的操作，用户名文本框与数据库相连接，当在用户名文本框输入用户名后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该用户名，且该用户名的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该用户名或密码与用户名不相匹配，则会提示“密码错误”，用户名文本框会得到焦点，让重新输入。 （1）窗体截图（如图5.1） 图1 MDI主界面 图2 登录窗体 功能实现 用户登录 Private Sub Command1_Click() Dim msg, style, title, response If Text2.Text = 123 Then MDIForm1.bj.Enabled = True Form3.Hide Else msg = 密码错误，请重新输入。 style = 4 + 16 + 356 title = 提示 response = MsgBox(msg, style, title) If response = 6 Then Form3.Show Else End If End If End Sub 2、图书管理窗体 图3 图书管理窗体 功能实现 对图书信息添加 Private Sub Command1_Click() Select Case Command1.Caption Case 添加 Select Case SSTab1.Tab Case 0 Data1.Recordset.AddNew Case 1 Data2.Recordset.AddNew Case 2 Data3.Recordset.AddNew End Select SSTab1.TabEnabled(0) = False SSTab1.TabEnabled(1) = False SSTab1.TabEnabled(2) = False Command1.Caption = 确定 Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled =