VB语言程序设计课程设计报告系 (部)专业班级学生姓名学号/序号指导教师完成时间图书管理系统一、功能描述使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作(数据库的建立、编辑、查找、删除等),建立了这个简易的图书管理系统,方便图书管理人员对图书的管理。
用户可以通过此系统的添加、删除,还回,借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。
二、概要设计1、系统功能模块框图设计首先程序运行,出现一个MDI主窗体,里面分别有登录,书籍信息管理系统,退出三个菜单选项,登录前,管理按钮不可用,当正确输入用户名以及密码以后,点管理按钮,图书管理窗体显示,用户可对图书信息进行管理。
2、数据库设计创建一个数据库为mydb.mdb,该数据库共包含3张表,分别为“书籍信息表”、“图书归还表”和“图书借出表”,表结构如下:书籍信息表:图书编号、图书名、作者、出版社、数量、出版日期、价格图1. 书籍信息表图书归还表:图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期;图2. 图书归还表图书借出表:图书编号、图书名、作者、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。
图3. 图书借出表三、详细设计1、MDI主界面用户登录模块中登录与取消两按钮,单击登录会进入系统进行下一步的操作,用户名文本框与数据库相连接,当在用户名文本框输入用户名后点击登录按钮后,会在数据库中进行查询看数据库中是否会有该用户名,且该用户名的密码是否与密码框中输入的相同,如果相同会进入系统,如果不存在该用户名或密码与用户名不相匹配,则会提示“密码错误”,用户名文本框会得到焦点,让重新输入。
(1)窗体截图(如图5.1)图1 MDI主界面图2 登录窗体1.功能实现用户登录Private Sub Command1_Click()Dim msg, style, title, responseIf Text2.Text = 123 ThenMDIForm1.bj.Enabled = TrueForm3.HideElsemsg = "密码错误,请重新输入。
"style = 4 + 16 + 356title = "提示"response = MsgBox(msg, style, title)If response = 6 ThenForm3.ShowElseEnd IfEnd IfEnd Sub2、图书管理窗体图3 图书管理窗体2.功能实现对图书信息添加Private Sub Command1_Click()Select Case Command1.CaptionCase "添加"Select Case SSTab1.TabCase 0Data1.Recordset.AddNewCase 1Data2.Recordset.AddNewCase 2Data3.Recordset.AddNew End SelectSSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand1.Caption = "确定"Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCase "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd SelectSSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand1.Caption = "添加"Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd Sub四、调试中存在的问题及解决方法1、程序运行顺序出现的错误程序运行时没有按照预想的窗体顺序运行,导致程序无法顺利进行下去。
解决方法:在工程属性窗口中,将启动对象改为指定窗体即可。
2、无法正确查询指定书籍信息的错误点击查询按钮,出现错误提示,程序中的索引不是指定表格中的索引。
解决方法:将表格中的索引信息删除后重新设定,使其与程序中的一致。
3、无法成功添加书籍信息添加程序运行到保存信息时,跳过了中间部分,直接运行“添加数据到数据库时出错,注意检查图书编号是否重复,及其他各项数据是否正确。
”语句,导致无法成功添加书籍信息。
五、心得体会在本次VB课程设计中,我进一步熟悉VB6.0开发环境,了解了用VB6.0实现一个完整应用程序的设计过程,有关代码编写、调试和整合程序的方法和技巧。
进一步掌握了VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作(数据库的建立、编辑、查找、删除等)。
在我所设计图书管理系统的过程中,并不是一帆风顺的,我遇到了这样或那样的问题,首先在链接数据库的时候,我按照书上的步骤将属性改好,但当我第二天再次访问数据库的时候,提示文件找不到,由于第一次我链接数据库的地址在桌面,没有将数据库放在我的工程文件夹里,所以导致了文件找不到。
然后,当我在设置DATA控件的属性时,又不小心在窗体加载中用代码写入了DATA的属性,导致数据链接不上,后面也出现了几次由于我的疏忽,导致程序出错。
这让我意识到,在软件开发的过程中,一点小小的错误,都不能完成,可谓是“失之毫厘谬以千里”。
因此,我们需要很细心才能完成这个过程。
虽然,我所制作的简易图书管理系统可以进行对书籍信息的添加,删除,修改等功能,但是也存在很多不足。
在登录设计中,我没有建立用户数据库,用代码只编写了一个用户。
在查询的时候,由于我用DATA控件链接数据库,虽然添加了两个索引,但还是只能用图书编号一个索引进行查询,我没能找到解决的方法。
还有在图书归还以及借出的环节,考虑的不太完善。
最后,我很感谢在程序设计的过程中,老师细心地讲解与建议,给了我很大的帮助,在此次课程设计中,我受益匪浅。
六、参考文献【1】罗朝盛. Visual Basic 6.0程序设计教程(第3版)[M].人民邮电出版社,2009.02 【2】邵洁. Visual Basic 6.0程序设计教程(第4版) [M]. 东南大学出版社,2008.02 【3】邵洁. 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, responseIf Text2.Text = 123 Then '密码为123时,管理可用MDIForm1.gl.Enabled = TrueForm3.HideElsemsg = "密码错误,请重新输入。
" '密码输入错误时,提示重新输入style = 4 + 16 + 356title = "提示"response = MsgBox(msg, style, title)If response = 6 ThenForm3.Showgl.Enabled = FalseElseEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Timer1_Timer() '时间控件,控制字体的移动If Label3.Left + Label3.Width >= 0 ThenLabel3.Left = Label3.Left - 10ElseLabel3.Left = Form3.WidthEnd IfEnd Sub管理窗体Private Sub Command1_Click()'根据当前按钮的标题进行不同的操作Select Case Command1.CaptionCase "添加"'向当前选项卡所对应表中添加记录Select Case SSTab1.TabCase 0Data1.Recordset.AddNewCase 1Data2.Recordset.AddNewCase 2Data3.Recordset.AddNewEnd Select'在添加操作完成前禁止进行其他操作SSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand1.Caption = "确定"Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = False Case "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd Select'在添加操作完成后允许进行其他操作SSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand1.Caption = "添加"Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd SubPrivate Sub Command10_Click()If Text16.Text = Text1.Text ThenText7.Text = Int(Text7.Text) - Int(Text20.Text) End IfEnd SubPrivate Sub Command2_Click() '修改按钮的单机过程'根据当前按钮的标题进行不同的操作Select Case Command2.CaptionCase "修改"Select Case SSTab1.TabCase 0Data1.Recordset.EditCase 1Data2.Recordset.EditCase 2Data3.Recordset.EditEnd Select'在修改操作完成前禁止进行其他操作SSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand2.Caption = "确定"Command1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = False Case "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd Select'在修改操作完成后允许进行其他操作SSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand2.Caption = "修改"Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd SubPrivate Sub Command3_Click() '“删除”按钮的单击事件过程Dim i As Integeri = MsgBox("确定要删除此记录?", vbYesNo + vbExclamation + vbDefaultButton1, "编辑")If i + vbYes ThenSelect Case SSTab1.Tab '删除后数据更新Case 0Data1.Recordset.DeleteData1.RefreshCase 1Data2.Recordset.DeleteData2.RefreshCase 2Data3.Recordset.DeleteData3.RefreshEnd SelectEnd IfEnd SubPrivate Sub Command4_Click() '“首记录”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveFirstCase 1Data2.Recordset.MoveFirstCase 2Data3.Recordset.MoveFirstEnd SelectCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd SubPrivate Sub Command5_Click() '“上一条”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfCase 1Data2.Recordset.MoveNextIf Data2.Recordset.EOF ThenData2.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfCase 2Data3.Recordset.MoveNextIf Data3.Recordset.EOF ThenData3.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfEnd SelectEnd SubPrivate Sub Command6_Click() '“下一条”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfCase 1Data2.Recordset.MoveNextIf Data2.Recordset.EOF ThenData2.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfCase 2Data3.Recordset.MoveNextIf Data3.Recordset.EOF ThenData3.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfEnd SelectEnd SubPrivate Sub Command7_Click() '“尾记录”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveLastCase 1Data2.Recordset.MoveLastCase 2Data3.Recordset.MoveLastVBA编程制作ERP生产管理系统过程End SelectCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.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 ThenText7.Text = Int(Text7.Text) + Int(Text12.Text)End IfEnd SubPrivate Sub Form_Load() '窗体加载过程,书籍信息表首先显示SSTab1.Tab = 0End Sub页脚内容。