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

1、VB图书管理系统课程设计报告VB语言程序设计课程设计报告系 (部)专业班级学生姓名学号/序号指导教师完成时间 图书管理系统一、 功能描述 使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作（数据库的建立、编辑、查找、删除等），建立了这个简易的图书管理系统，方便图书管理人员对图书的管理。用户可以通过此系统的添加、删除，还回，借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。二、 概要设计1、系统功能模块框图设计首先程序运行，出现一个MDI主窗体，里面分别有登录，书籍信息管理系统，退出三个菜单选项，登录前，管理

2、按钮不可用，当正确输入用户名以及密码以后，点管理按钮，图书管理窗体显示，用户可对图书信息进行管理。程序流程框图如图所示：2、数据库设计创建一个数据库为mydb.mdb，该数据库共包含3表，分别为“书籍信息表”、“图书归还表”和“图书借出表”，表结构如下：书籍信息表：图书编号、图书名、作者、出版社、数量、出版日期、价格 图1. 书籍信息表图书归还表：图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期； 图2. 图书归还表图书借出表：图书编号、图书名、作者、出版社、借出数量、借出时间、联系、借出期限、借出者姓名。 图3. 图书借出表三、 详细设计1、MDI主界面用户登录模块中登

3、录与取消两按钮，单击登录会进入系统进行下一步的操作，用户名文本框与数据库相连接，当在用户名文本框输入用户名后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该用户名，且该用户名的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该用户名或密码与用户名不相匹配，则会提示“密码错误”，用户名文本框会得到焦点，让重新输入。（1）窗体截图（如图5.1）图1 MDI主界面 图2 登录窗体1. 功能实现 用户登录Private Sub Command1_Click()Dim msg, style, title, responseIf Text2.Text = 123 Then MDIFor

4、m1.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 IfEnd Sub2、图书管理窗体 图3 图书管理窗体2. 功能实现 对图书信息添加 Private Sub Command1_Click()Select Case Command1.Caption Case 添加 Select Case SSTab1.T

5、ab 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.Ena

6、bled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = FalseCase 确定 Select Case SSTab1.Tab Case 0 Data1.UpdateRecord Case 1 Data2.UpdateRecord Case 2 Data3.UpdateRecord End Select SSTab1.TabEnabled(0) = True SSTab1.TabEnabled(1) = True SSTab1.TabEnabled(2) = True Command1.

7、Caption = 添加 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = TrueEnd SelectEnd Sub 四、 调试中存在的问题及解决方法1、程序运行顺序出现的错误程序运行时没有按照预想的窗体顺序运行，导致程序无法顺利进行下去。解决方法：在工程属性窗口中，将启动对象改为指定窗体即可。2、无确查询指定书籍信息的

8、错误点击查询按钮，出现错误提示，程序中的索引不是指定表格中的索引。解决方法：将表格中的索引信息删除后重新设定，使其与程序中的一致。3、无法成功添加书籍信息添加程序运行到保存信息时，跳过了中间部分，直接运行“添加数据到数据库时出错，注意检查图书编号是否重复，及其他各项数据是否正确。”语句，导致无法成功添加书籍信息。五、 心得体会在本次VB课程设计中，我进一步熟悉VB6.0开发环境，了解了用VB6.0实现一个完整应用程序的设计过程，有关代码编写、调试和整合程序的方法和技巧。进一步掌握了VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作（数据库的建立、编辑、查找、删除等）。在我

9、所设计图书管理系统的过程中，并不是一帆风顺的，我遇到了这样或那样的问题，首先在数据库的时候，我按照书上的步骤将属性改好，但当我第二天再次访问数据库的时候，提示文件找不到，由于第一次我数据库的地址在桌面，没有将数据库放在我的工程文件夹里，所以导致了文件找不到。然后，当我在设置DATA控件的属性时，又不小心在窗体加载中用代码写入了DATA的属性，导致数据不上，后面也出现了几次由于我的疏忽，导致程序出错。这让我意识到，在软件开发的过程中，一点小小的错误，都不能完成，可谓是“失之毫厘谬以千里”。因此，我们需要很细心才能完成这个过程。虽然，我所制作的简易图书管理系统可以进行对书籍信息的添加，删除，修改等

10、功能，但是也存在很多不足。在登录设计中，我没有建立用户数据库，用代码只编写了一个用户。在查询的时候，由于我用DATA控件数据库，虽然添加了两个索引，但还是只能用图书编号一个索引进行查询，我没能找到解决的方法。还有在图书归还以及借出的环节，考虑的不太完善。最后，我很感谢在程序设计的过程中，老师细心地讲解与建议，给了我很大的帮助，在此次课程设计中，我受益匪浅。六、 参考文献【1】 罗朝盛. Visual Basic 6.0程序设计教程(第3版)M.人民邮电出版社，2009.02 【2】 邵 洁. Visual Basic 6.0程序设计教程(第4版) M. 东南大学出版社，2008.02 【3】

11、邵 洁. Visual Basic 6.0实验与测试(第4版) M. 东南大学出版社，2008.02 七、 附录MDI主界面Private Sub dl_Click()Form3.ShowEnd SubPrivate Sub gl_Click()Form2.ShowEnd SubPrivate Sub MDIForm_Load()gl.Enabled = False 在登录之前，管理按钮不可用End SubPrivate Sub tc_Click()EndEnd Sub登录窗体Private Sub Command1_Click()Dim msg, style, title, response

12、If Text2.Text = 123 Then 密码为123时，管理可用 MDIForm1.gl.Enabled = True Form3.Hide Else msg = 密码错误，请重新输入。 密码输入错误时，提示重新输入 style = 4 + 16 + 356 title = 提示 response = MsgBox(msg, style, title) If response = 6 Then Form3.Show gl.Enabled = False Else End If End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPri

13、vate Sub Timer1_Timer() 时间控件，控制字体的移动If Label3.Left + Label3.Width = 0 Then Label3.Left = Label3.Left - 10Else Label3.Left = Form3.Width End IfEnd Sub管理窗体Private Sub Command1_Click()根据当前按钮的标题进行不同的操作Select Case Command1.Caption Case 添加 向当前选项卡所对应表中添加记录 Select Case SSTab1.Tab Case 0 Data1.Recordset.AddN

14、ew 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

15、Command6.Enabled = False Command7.Enabled = False Command8.Enabled = FalseCase 确定 Select Case SSTab1.Tab Case 0 Data1.UpdateRecord Case 1 Data2.UpdateRecord Case 2 Data3.UpdateRecord End Select 在添加操作完成后允许进行其他操作 SSTab1.TabEnabled(0) = True SSTab1.TabEnabled(1) = True SSTab1.TabEnabled(2) = True Comma

16、nd1.Caption = 添加 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = TrueEnd SelectEnd SubPrivate Sub Command10_Click() If Text16.Text = Text1.Text Then Text7.Text = Int(Text7.Text) - Int(T

17、ext20.Text) End IfEnd SubPrivate Sub Command2_Click() 修改按钮的单机过程 根据当前按钮的标题进行不同的操作Select Case Command2.Caption Case 修改 Select Case SSTab1.Tab Case 0 Data1.Recordset.Edit Case 1 Data2.Recordset.Edit Case 2 Data3.Recordset.Edit End Select 在修改操作完成前禁止进行其他操作 SSTab1.TabEnabled(0) = False SSTab1.TabEnabled(1

18、) = False SSTab1.TabEnabled(2) = False Command2.Caption = 确定 Command1.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = FalseCase 确定 Select Case SSTab1.Tab Case 0 Data1.UpdateRecord Case 1 D

19、ata2.UpdateRecord Case 2 Data3.UpdateRecord End Select 在修改操作完成后允许进行其他操作 SSTab1.TabEnabled(0) = True SSTab1.TabEnabled(1) = True SSTab1.TabEnabled(2) = True Command2.Caption = 修改 Command1.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Co

20、mmand7.Enabled = True Command8.Enabled = True End SelectEnd SubPrivate Sub Command3_Click() “删除”按钮的单击事件过程 Dim i As Integer i = MsgBox(确定要删除此记录？, vbYesNo + vbExclamation + vbDefaultButton1, 编辑) If i + vbYes Then Select Case SSTab1.Tab 删除后数据更新 Case 0 Data1.Recordset.Delete Data1.Refresh Case 1 Data2.R

21、ecordset.Delete Data2.Refresh Case 2 Data3.Recordset.Delete Data3.Refresh End Select End IfEnd SubPrivate Sub Command4_Click() “首记录”按钮的单击事件过程 Select Case SSTab1.Tab Case 0 Data1.Recordset.MoveFirst Case 1 Data2.Recordset.MoveFirst Case 2 Data3.Recordset.MoveFirst End Select Command4.Enabled = False

22、Command5.Enabled = False Command6.Enabled = True Command7.Enabled = TrueEnd SubPrivate Sub Command5_Click() “上一条”按钮的单击事件过程 Select Case SSTab1.Tab Case 0 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst Command4.Enabled = False Command5.Enabled = False Command6.Enabled =

23、 True Command7.Enabled = True End If Case 1 Data2.Recordset.MoveNext If Data2.Recordset.EOF Then Data2.Recordset.MoveFirst Command4.Enabled = False Command5.Enabled = False Command6.Enabled = True Command7.Enabled = True End If Case 2 Data3.Recordset.MoveNext If Data3.Recordset.EOF Then Data3.Record

24、set.MoveFirst Command4.Enabled = False Command5.Enabled = False Command6.Enabled = True Command7.Enabled = True End If End SelectEnd SubPrivate Sub Command6_Click() “下一条”按钮的单击事件过程 Select Case SSTab1.Tab Case 0 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast Command4.Ena

25、bled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = False End If Case 1 Data2.Recordset.MoveNext If Data2.Recordset.EOF Then Data2.Recordset.MoveLast Command4.Enabled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = False End If Case 2 Data3.Reco

26、rdset.MoveNext If Data3.Recordset.EOF Then Data3.Recordset.MoveLast Command4.Enabled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = False End If End Select End SubPrivate Sub Command7_Click() “尾记录”按钮的单击事件过程 Select Case SSTab1.Tab Case 0 Data1.Recordset.MoveLast Case 1 Dat

27、a2.Recordset.MoveLast Case 2 Data3.Recordset.MoveLast End Select Command4.Enabled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = FalseEnd SubPrivate Sub Command8_Click() “查询”按钮的单击事件过程Dim n As Stringn = InputBox(请输入待查图编号：, 查找)Data1.Recordset.Index = idx_图书Data1.Recordset.Seek =, nEnd SubPrivate Sub Command9_Click() “还回”按钮的单击事件过程If Text8.Text = Text1.Text Then Text7.Text = Int(Text7.Text) + Int(Text12.Text) End IfEnd SubPrivate Sub Form_Load() 窗体加载过程，书籍信息表首先显示SSTab1.Tab = 0End Sub