VB图书管理系统数据库+论文+源代码-课程设计.doc

VB图书管理系统数据库+论文+源代码-课程设计VB图书管理系统数据库+论文+源代码图书管理系统1课程设计目的通过用VB6.0编写图书管理系统，采用面向对象的编程方法，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，它的功能主要有借书、还书、打印报表等，真正实现了图书管理的自动化和信息化。培养我们综合运用所学知识，发现、提出、分析和解决实际问题。锻炼实践能力的重要环节，是对我们实际工作能力的具体训练和考察过程。2设计方案论证2.1系统总体设计学校图书管理信息主要能实现的功能为：(1).读者信息（主要有学号、姓名、性别、书号、借书日期。它主要可以实现记录读者所借书的日期和书号，这样就可以方便的计算出读者还书的最后日期，如果没有及时归还，管理员还可以根据读者信息找到读者，与其商讨解决方案。）(2).图书信息（主要有书号、书名、作者、出版社。这里书号是唯一可以标识一本图书的属性，在这里是主码，员工可以根据书号来确定以上关于图书的任何信息，在读者信息中，员工也可以根据书号来确定读者借的是哪一本书。）(3).借阅归还信息（主要包括借书日期、还书日期、是否续借。只要管理员规定一个最长的可借阅时间，就可以通过借书日期和还书日期来计算出来是否已经超出可以借读的日期。）2.2数据库设计在图书管理系统中，Access是必不可少的。Access 2003 拥有一套功能强大的应用工具，其完善程度足以满足专业开发人员的需要。通过创建或使用强大的数据库解决方案，您能够更为轻松地组织、访问和共享信息资源。下图为图书管理系统功能模块。沈 阳 大 学课程设计说明书 NO.2 图1 图书管理系统功能模块图(1).在我的系统中有四张表。第一张为读者信息，其中包括读者号Sno，读者姓名Sname，读者性别和所借的书号Bno,当读者借书时，系统将向读者信息这张表中添加一天读者信息，而当读者将图书归还时，系统将会提示将读者信息删除。表1 读者信息表段名字段说明字段类型字段长度主键Sno读者号数字整型YesSname读者名文本40NoSsex性别文本40NoBno书号数字整型No 课程设计说明书 NO.3表中的数据如下图所示：图2 读者信息(2).下表为借阅归还信息表，我们从这张表中可以看到借书时间（jdate）、还书时间（hdate）、是否续借（cj）,还有就是所借书的书号（bno）。如果读者的还书时间和借书时间的差大于31天时，当点击检查时系统就会有提示错误的信息，管理员就可以根据有关规定对读者进行相应的处罚。还可以让读者选择是否会续借，如果选择续借就可以按借书的方法处理，就可以把图书信息删除，把读者信息添加到读者信息中。表2 借阅归还信息表段名字段说明数据类型字段长度主键jdate结束日期日期/时间短日期NoHdate还书日期日期/时间短日期Nocj是否续借文本40Nohno书号数字整型No表中的数据如下图所示：图3 借阅归还信息课程设计说明书 NO.4(3).下图是图书信息，从表里我们可以看到图书号码（bno）、图书名称（bname）、作者（bw）和出版社（bchu）。当借书还书时，表中的数据会做相应的修改。表3 图书信息表段名字段说明数据类型字段长度主键bno书号数字整型Yesbname书名文本80Nobw作者文本80Nobchu出版社文本80No表中的数据如下图所示：图4 图书信息3设计结果与分析当程序运行之后，你首先看到的主界面如图5所示，其中窗体的顶部有菜单编辑器，分别有借书、还书、报表、检查错误和退出。其中借书下面有添加读者信息，还书下面有删除读者信息。（1）在form1中在窗体上加上3个label控件和一个时钟控件在时钟控件的timer事件中添加如下语句，在屏幕的右下方将会显示当前时间，还要在“工具”中找到“菜单编辑器”将下面的窗体中的下拉菜单设计出来。Private Sub Timer1_Timer()Label3.Caption = TimeEnd Sub289VB图书管理系统数据库+论文+源代码 图5 系统主界面当我们选择借书中的添加读者信息时，会看到图6的界面，当我们单击“添加”按钮的时候就会弹出一个输入对话框，单击“确定”的时候，所有text控件将会为空，根据数据库中相应的数据类型向文本框中加入数据，那么这条读者信息将会出现在相应的数据库的表中。当单击“添加读者信息”时，就会执行下面的程序。Private Sub tianjiaduzhe_Click()Form8.ShowEnd Sub课程设计说明书 NO.6图6 添加读者信息的界面（2）在form8中添加了4个text控件和4个label控件以及一个adodc控件,将adodc的visible属性设置为false。首先将adodc控件与数据库相连，然后将文本框与表的属性相连，标签控件的caption属性分别设置为“读者号”、“读者姓名”、 “性别”、“书号”。还要添加3个命令按钮，它们的caption分别设置为“添加”、“借书/续借”、“返回首页”。当单击“添加”按钮的时候，就会在form8中执行以下程序语句：Private Sub Command1_Click()m = MsgBox(请输入, vbOKCancel)If m = vbCancel ThenEndEnd IfAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(sno) = Val(Text1.Text)Adodc1.Recordset.Fields(sname) = Text2.TextAdodc1.Recordset.Fields(ssex) = Text3.TextAdodc1.Recordset.Fields(bno) = Val(Text4.Text)End Sub沈 阳 大 学课程设计说明书 NO.7之后我们选择单击“借书/续借”之后，在form8中执行以下程序：Private Sub Command3_Click()Form2.ShowEnd Sub（3）在form2中同样添加adodc和text控件，将它们和数据库相连，将adodc的visible设置为false,当单击“上一条“和“下一条”时，分别执行以下程序: Private Sub Command3_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox (已经是第一条记录了！)End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox (已经是最后一条记录了！)End IfEnd Sub当单击“借出“按钮的时候，会触发以下过程：Private Sub Command1_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirst沈 阳 大 学课程设计说明书 NO.8End IfEnd Sub单击查找后，在对话框里输入书号如图7所示。会触发以下过程：Private Sub Command5_Click()msg = InputBox(请输入准确书号, 查找记录)Adodc1.Recordset.Find hno = & msg & If Adodc1.Recordset.EOF ThenMsgBox (没有符合条件的记录！)ElseMsgBox 符合条件的记录为 & Adodc1.Recordset.Fields(1)End IfEnd Sub单击返回时：Private Sub Command2_Click()Form1.ShowEnd Sub 图7 查找书目当输入的书号为2时，运行后的界面如图8所示。可以查出书名、作者和出版社的信息。沈 阳 大 学课程设计说明书图8 查找到相应的书目信息你可以根据单击“上一条”“下一条”来选择你要借的图书的基本信息，当你确定你要借的书的时候就单击“借出”，之后这个图书信息将会被删除。之后单击“返回”就回到了第一个开始界面。当单击“还书“中的“删除读者信息”时，会显示图9的界面。同时就会触发下面的事件：Private Sub shanchuduozhe_Click()Form7.ShowEnd SubVB图书管理系统数据库+论文+源代码图9 删除读者信息界面（4）此界面的具体设置如下：在form7中添加了4个text控件和4个label控件以及一个adodc控件,将adodc的visible设置为false，首先将adodc控件与数据库相连然后将文本框与表的属性相连，标签控件的caption属性分别设置为“读者号”、“读者姓名”、“性别”、“书号”。然后在各事件中编写相应的程序代码。Private Sub Command3_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfEnd Sub单击“上一条“”下一条“的时候会触发下面的事件：课程设计说明书 NO.11Private Sub Command1_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox (已经是第一条记录了！)End IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox (已经是最后一条记录了！)End IfEnd Sub当单击“返回首页“时，会施行：Private Sub Command4_Click()Form1.ShowEnd Sub可以根据“上一条”和“下一条”选择读者信息，选择后单击“删除”那么这条记录将会从读者信息表中删除，这后再单击“还书”，就会来到图10这个界面。当单击“还书“的时候会执行以下程序代码：Private Sub Command5_Click()Form3.ShowEnd Sub课程设计说明书 NO.12图10 还书的运行界面（5）针对此界面的设计是在form3中添加所需要的控件，编写相应的程序代码，然后和数据库中的表相连。当你单击“归还”的时候就会弹出输出对话框，单击“确定”后，就会看到所有的文本框将为空，根据数据库中的数据向文本框中添加数据，那么这一条数据就会在添加到图书信息中。再单击“返回”后又返回到第一个页面。单击报表后，就会出现输入密码窗体（如图11），只有管理员才可以看到报表。 图11 输入密码的窗体 课程设计说明书 NO。13输入密码，单击“确定”后，就会有一个选择窗体（如图12），你可以选择看到任何一个表的报表。此窗体的设计是在form5中设计的。 图12 打印报表窗体如单击“图书信息”时，打印的报表如图13所示。图13 图书信息打印报表课程设计说明书 打印读者信息报表如图14所示。图14 读者信息打印报表打印报表之后你还可返回主页，选择“检查错误“就会看到图14的这个窗体，你可以根据下面这个窗体看到借书时间、还书时间、是否续借以及所借的书号，还可以看到读者所借书的天数，如果天数超过31天，单击“判断”按钮，就会弹出一个对话框提示“已经过了最后期限！”，这样管理员就可以根据有关规定采取相应的处罚措施。在单击“返回主页”后，执行的程序代码如下：Private Sub Command5_Click()Form1.ShowEnd SubVB图书管理系统数据库论文源代码|课程设计 图15 查询所借书目是否过期界面接下来返回主页之后，你可以选择其它操作重复去执行，也可以直接单击“退出”来退出应用程序，这就是这个系统的基本功能。4设计体会通过一周的时间，我设计的图书管理系统终于大体上完成，不过在设计的过程中我发现了很多问题，在一个个问题被解决的同时我也学会了很多知识，比如在adodc与数据库连接的时候总会出现各种错误，在和同学讨论之后，对adodc控件有了更深刻的了解，现在再和数据库连接就觉得很容易了。在使用菜单编辑器和打印报表的时候也有很多问题，最后都得到了解决。这次课程设计使我了解项目开发一般步骤，即项目的需求分析、功能分析、数据表结构的设计、程序界面与代码设计、上机调试、系统测试的全过程。达到既能综合运用可视化开发工具课程中的各个知识点，又能让我完成一个项目开发的过程。图书管理系统是一个非常庞大的系统，它要求有很多功能，我所设计的只是其中的一小部分，还有很多不足的地方需要改进，功能也过于简单，在今后的学习中，我要再多学习关于vb的知识，希望有一天自己能够做出一个完整的图书管理系统。沈 阳 大 学课程设计说明书 NO。165参考文献1 林卓然. VB语言程序设计M. 北京:电子工业出版社,2006.6: 34-552 武马群. Visual Basic程序设计M . 北京:北京工业大学出版社,2004.4: 67-903 于凤霞. Visual Basic程序设计实训教材M . 北京:科学出版社,2004.8 :88-1044 刘瑞新. 计算机基础及应用M . 北京:机械工业出版社,2005.5: 112-1305 严晖. 数据库技术与应用实践M. 北京:清华大学出版社,2007.1: 278-2906 刘天惠. Visual Basic程序设计教程M. 北京:清华大学出版社,2006.11:136-1856附录Private Sub Command1_Click()m = MsgBox(请输入, vbOKCancel)If m = vbCancel ThenEndEnd IfAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(bno) = Val(Text1.Text)Adodc1.Recordset.Fields(bname) = Text2.TextAdodc1.Recordset.Fields(bw) = Text3.TextAdodc1.Recordset.Fields(bchu) = Text4.Textc = Text5.TextText5.Text = End SubPrivate Sub Command2_Click()Form1.ShowEnd Sub沈 阳 大 学课程设计说明书 NO。17Private Sub Command1_Click()x = Text1.TextIf x = 12345 ThenForm5.ShowElseMsgBox (对不起，口令错)End IfEnd SubPrivate Sub Form_Load()Text1.Text = Text1.MaxLength = 5Text1.PasswordChar = *End SubPrivate Sub Command1_Click()DataReport1.ShowEnd SubPrivate Sub Command2_Click()DataReport2.ShowEnd SubPrivate Sub Command3_Click()DataReport3.ShowEnd SubPrivate Sub Command5_Click()Form1.ShowEnd SubPrivate Sub Command1_Click()Adodc1.Recordset.MovePreviousVB图书管理系统数据库+论文+源代码If Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox (已经是第一条记录了！)End Ifa = Val(CDate(Text2.Text) - CDate(Text1.Text)Text5.Text = aEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox (已经是最后一条记录了！)End Ifa = Val(CDate(Text2.Text) - CDate(Text1.Text)Text5.Text = aEnd SubPrivate Sub Command3_Click()If Text5.Text 31 ThenMsgBox (已经过了最后期限！)End IfEnd SubPrivate Sub Command4_Click()Form1.ShowEnd SubPrivate Sub Command1_Click()Adodc1.Recordset.MovePreviousIf Ado