学士学位论文—-简易图书管理系统课程设计

1、0衣瑶YANGTZE UNIVERSITYVB.NET面对对象程序设计课题基于 Visual Studio .NET (2010)院（系）XX专业班级XX学生姓名XX学 号XX指导教师XX完成时间XX简易图书管理系统一、功能描述1、设计本系统的目的(1) Visual Basic.NET是从Visual Basic 6.0语言演变而来的，是一种为高效地生成类型安全和真正面向对象的应用程序而设计的语言。它可以充分利用.NET提供的的一切，快速、方便地构建最新的.NET应用程序、组件或者服务。通过此次程序设计， 锻炼我们应用计算机的能力以及应用 VB.NET编程解决实际问题的能力。(2) 通过此设

2、计，熟练掌握 Visual Studio 2010集成开发环境(IDE)中的VisualBasic模块下windows窗体应用程序中各种控件的常用属性和事件、数组的各种操 作以及数据库的相关操作(数据库的建立、编辑、查找、删除等)，并能够做到灵活运用。2、系统功能描述(1) 通过键盘输入某本图书的信息；(2) 给定图书编号，显示该本图书的信息；(3) 给定作者姓名，显示所有该作者编写的图书信息； 给定出版社，显示该出版社的所有图书信息；(5) 给定图书编号，删除该本图书的信息；(6) 提供一些统计各类信息的功能。 要求用InputBox函数，输出在图片框上，界面布局合理，实用性强。3、设计思路

3、该管理系统主要由四部分组成：系统用户的登录、图书信息管理、借阅或归 还图书管理以及退出系统。各模块的主要功能如下：系统用户的登录：实现用户通过用户名和密码进行登录的功能。图书信息管理：实现对图书的添加、查找、删除和修改的功能。借阅或归还图书管理：实现对已经借出或归还的图书信息进行统计管理。 退出系统：结束图书管理系统。、概要设计1、系统功能模块框图设计登录窗口主窗体借阅管理窗口图书管理窗口查增编删询添辑除2条件查询退出归还管理窗口条件查询退出2数据库设计创建一数据库为mydb.mdb该数据库共包含3张表，分别为“书籍信息表” “图书归还表”和“图书借出表”，表结构参考如下：书籍信息表：图书编号

4、、图书名、作者、出版社、数量、出版日期、价格；图书归还表：图书编号、图书名、作者、出版社、数量、图书是否损坏、借 出日期、归还日期；图书借出表：图书编号、图书名、作者、出版社、借出数量、借出时间、联 系电话、借出期限、借出者姓名。表1 图书信息表S者TBR格竊 字图作出数狀护沖说明字段类里TestTextTextByteBate/TimeByteTent表2图书借阅表字段名字段类型说明團书编号Text團书名Text作者Text出版社Text借出时间Date/Time借岀期限Text借岀数量Byte借出者姓名Text联系电话Text表3 图书归还表字段名字段类型说阴图书编号Tex t画书名Tex

5、t出版社Text作者Text借出日期Date/Time归还日朗Date/Tlue图书是否损坏Text三、详细设计1登录模块设计登录模块的详细设计主要是用户登录的一个界面，判断登录的用户名或密码 是否正确，进入后将面对的是主界面，从而进行相关的操作。登录的界面主要由用户名和密码的信息，还有一些标题设置，登录和退出按 钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成，如 图所示。其中，将PasswordChar设置为“ *”，可将输入密码隐藏。图1登录界面代码如下：Private Sub Comma nd1_Click()Const user = 123, password =

6、123If Text1.Text = user And Text2.Text = password Then 主窗体.ShowEnd IfEnd SubPrivate Sub Comma nd2_Click()退出系统.ShowEnd Sub2、主窗体模块详细设计在这个界面中创立的是一个Form窗体和如图所示的一些菜单选项口丢江大学工程技术学凳至书笞理系统图书晉慶倩闻音理曰还管理条蜿琶更图2主窗体操作界面代码如下：Private Sub guihuan_Click() 归还管理.Show主界面.HideEnd SubPrivate Sub jieyue_Click() 借阅管理.Show主界面

7、.HideEnd SubPrivate Sub tuichu_Click() 登录窗口 .Show主界面.HideEnd SubPrivate Sub tushu_Click()图书信息管理.Show主界面.HideEnd Sub3、各项子模块详细设计(1) 图书信息窗口的创建运用Data控件，点击查询，输入图书编号，即可查到关于此类书籍的相关 信息。分别点击添加、删除、修改即可对图书信息进行相应的操作。其中： DatabaseNamel属性值得依据数据库的导入更改。图3学生信息查询窗口(2) 借阅管理窗口的创建利用DataGrid控件和Adodcl控件将已借出图书信息表直接显示出。然后再 用

8、Select语句进行查找。其中需要注意的是 CommandTyp和Recordsource属性的设置。程序运行效果如图:图4借出图书信息(3)归还管理窗口的创建图5归还管理窗口(4)系统退出窗口的创建运用Label和Timer控件，创建出滚动字幕图6退出界面 代码如下：Private Sub Form_Load()Timerl.l nterval = 100Label1.Caption =谢谢使用长大图书管理系统!Labell.Fo ntSize = 22End SubPrivate Sub Timer1_Timer()Labell.Move Label1 .Left - 200If (Lab

9、el1.Left + Label1.Width) 0 ThenLabel1.Left = Me.ScaleWidth + 10End IfEnd Sub四、调试中存在的问题及解决方法1、重新打开工程时，弹出错误对话框显示与data控件绑定的数据库*.mdb数据库不是有效途径图7错误对话框解决办法：右击ADO空件，打开ADO空件的属性窗口，弹出 ADOD属性对话 窗口，点击使用连接字符串的“生成”，出现“数据连接属性”对话框，重新定义其导入数据的路径。如图I主住厂沖 J 如 Oil ji1険岸曰OPTrn- Ml土JW审注购斗H杯0 y厂妃厉 ! .14恤3冷 Cai .1图8属性设置对话框2、

10、弹出错误对话框Form子语句错误或者运用Select语句在DataGrid和ADO 控件所创建的窗口中查询未显示表格中的字符。解决办法：打开 adodc1.adodc的属性编辑器，编辑 Recordsource 与 Comma ndtype更改其记录源和表或存储过程名称。如下图：记录頫-记录源一 命令类型确是 | 取消 | 应用a 帮肋_ |图9属性对话框3、在单击菜单，弹出下一个窗体的过程当中，显示错误提示，如图图10错误对话框解决办法：查看代码，确定代码中的命名与窗体的命名一致即可。五、心得体会在这次VB课程设计过程中，我最大的收获就是深刻地认识到，做事情一定 要有耐心，无论遇到什么困难，

11、都不能心烦，否则就很难把事情好。一开始，我以为三天就可以把课程设计搞好，谁知道我们搞了差不多一个星期。界面的设 计倒是没什么问题，最有问题的就是编程了，编程是非常耗时和精力的。这一点 我是深有体会的。有一次我的代码有点错误，但我看了一遍又一遍，还是找不出 问题所在，我又请教了老师，老师也看了很久，也没有找到出错的地方。后来我 才发现有一个数据与数据库的数据不同。就是少了一个空格，就是一个空格花了我整整一个上午。唉！难怪我经常听到说，编程实在是太麻烦了，看到头都大了，看到就心烦了。就是一个小小的问 题就让你花去一个早上的时间。所以我们无论做任何事情都要细心和耐心。无论做什么事情，我认为最重要的是

12、在做事过程中学到东西，吸取教训。在后期调试阶段也是很废时的。但我很有耐心，慢慢地调试，最终把这个系统软件开发出 来了。在这一刻我们是最高兴的。因为我付出的汗水得到了回报！在这次的Visual Basic 设计中使我深深地体会到了，要想真正的学号一门 课不是那么容易的，需要你的耐心，决心，信心，还有坚持不懈的努力。六、参考文献1 VB程序设计（第四版），邵杰（主编）东南大学出版社2 Visual Basic实验与测试（第4版），邵杰（主编）东南大学出版社3 Visual Basic 6.0程序设计教程，罗朝盛，人民邮电出版社七、附录图书信息查询窗口的代码如下：Private Sub Comma

13、nd1_Click（）Dim n As Stri ngn = InputBox（ 请输入图书编号：,查找）Data1.Recordset.l ndex = IDData1.Recordset.Seek =, nEnd SubPrivate Sub Comma nd2_Click（）Dim birth As DateIf Comma nd2.C apti on = ” 增添 ” The nData1.Recordset. AddNewText1.SetFocusComma nd1.E nabled = FalseComma nd4.E nabled = FalseCommand2.Caption

14、 =保存Command3.Caption =取消ElseOn Error GoTo err:Datal.Recordset.Fields(”图书编号)=Trim(Textl.Text)Datal.Recordset.Fields(” 图书名)=Trim(Text2.Text)Data1.Recordset.Fields( 作者)=Trim(Text3.Text)Data1.Recordset.Fields( 出版社)=Trim(Text4.Text)Data1.Recordset.Fields( 数量)=Val(Text6.Text)Data1.Recordset.Fields( 价格)=Va

15、l(Text7.Text)Data1.Recordset.Fields(出版日期)=CDate(Trim(Text5.Text)Data1.Recordset.UpdateComma nd1.E nabled = TrueComma nd4.E nabled = TrueComma nd2.C aptio n =增添”Command3.Caption =删除Exit Suberr:MsgBox 添加数据到数据库时出错，注意检查各项数据是否正确。vbCritical + vbOKO nl y,提示End IfEnd SubPrivate Sub Comma nd3_Click()If Comma

16、 nd3.C apti on = 取消The nData1.Recordset.Ca ncelUpdateTextl.SetFocusComma ndl.E nabled = TrueComma nd4.E nabled = TrueComma nd2.C aptio n =增加Command3.Caption =删除ElseDatal.Recordset.DeleteDatal.RefreshEnd IfEnd SubPrivate Sub Comma nd4_Click()If Comma nd4.C apti on = ” 修改 ” The nData1.Recordset.EditTe

17、xt1.SetFocusComma nd1.E nabled = FalseComma nd4.E nabled = FalseCommand2.Caption =更新Command3.Caption =取消ElseOn Error GoTo err:Data1.Recordset.Fields(图书编号)=Trim(Text1.Text)Data1.Recordset.Fields( 图书名)=Trim(Text2.Text)Data1.Recordset.Fields( 作者)=Trim(Text3.Text)Data1.Recordset.Fields( 出版社)=Trim(Text4.

18、Text)Data1.Recordset.Fields( 数量)=Val(Text6.Text)Data1.Recordset.Fields( 价格)=Val(Text7.Text)Data1.Recordset.Fields(出版日期)=CDate(Trim(Text5.Text)Data1.Recordset.UpdateComma nd1.E nabled = TrueComma nd4.E nabled = TrueComma nd2.C aptio n =增添”Command3.Caption =删除err:MsgBox 添加数据到数据库时出错，注意检查各项数据是否正确。,vbCri

19、tical + vbOKO nl y, 提示End IfEnd Sub借阅管理窗口代码如下：Private Sub Comma nd1_Click()If Optio nl.Value = True The nAdodcl.RecordSource = select * from 图书借出表 where 图书借出表. 图书编号=+ Textl.Text + ”Adodcl.RefreshDataGridl.RefreshTextl.Text =Elself Optio n2.Value = True The nAdodcI.RecordSource = select * from 图书名=+

20、Text1.Text + “Adodc1.RefreshDataGrid1.RefreshText1.Text =ElseIf Optio n3.Value = True The nAdodc1.RecordSource = select * from 借出时间=+ Textl.Text + ”Adodcl.RefreshDataGridl.RefreshTextl.Text =Elself Optio n4.Value = True The nAdodcI.RecordSource = select * from 借出者姓名=+ Textl.Text + ”Adodcl.RefreshDataGridl.RefreshTextl.Text =End IfEnd SubPrivate Sub Comma nd2_Click() 主界面.Show 借阅管理.HideEnd Sub归还管理窗口代码如下：Private Sub Comma nd1_Click()If Optio nl.Value = True The nAdodcI.RecordSource = select * from 图书编号=+ Textl.Text + ”Adodcl.RefreshDataGridl.RefreshTextl.Text =图书借出表where图书借出表where图书借出表where