V-B课程设计报告.doc

V B课程设计报告题目： 图书馆管理系统指导老师：吴志强老师班 级： 10410111学 号： 1041011104姓 名： 黄 流 华时间：2011年12月20日目 录1、课程设计目的2、课程设计题目3、课程设计要求4、课程设计说明5、源代码6、运行结果7、课程设计体会1、 课程设计目的课程设计为学生提供了一个既动手又动脑，独立实践的机会，将课本上的VB理论知识和实际有机的结合起来，锻炼学生的分析解决实际问题的能力，提高用VB编程实现具体问题的能力。2、 课程设计题目图书馆管理系统3、 课程设计要求：用户登陆、图书的借阅和归回、图书信息的添加、修改、查询和删除操作。4、 课程设计说明根据对我院图书馆及图书信息进行的调查和分析,图书管理系统应该具有以下功能：系统管理（即登录）、图书管理、还书和借书操作。各个功能模块如下：a、系统管理模块 在这个模块，可以进行登录和退出等操作。b、图书管理模块 在这个模块，可以进行增加、删除、修改、查找、上一个和下一个。C、还书和借书模块 在这个模块，可以完成借书、还书操作。d、报表模块图书馆管理系统5、图书管理信息系统的数据库设计 系统数据库名为Data，数据库中包括（1）图书信息表；（2）借出图书信息表；（3）归还图书信息表1、 图书信息表的数据结构字段名类型大小空值描述IDint4ID图书编号nvarchar10y图书编号书名nvarchar30y书名价格real4y价格出版社nvarchar30y出版社借出日期smalldatetime4y借出日期是否借出bit1y是否借出类别nvarchar10类别2、 借出图书信息表字段名类型大小空值描述输入借出图书编号nvarchar10y输入借出图书编号图书编号nvarchar10y图书编号价格real4y价格类别nvarchar10类别书名nvarchar30y书名出版社nvarchar30出版社今天日期smalldatetime4y今天日期3、 归还图书信息表字段名类型大小空值描述图书编号nvarchar10y图书编号书名nvarchar30y书名价格real4y价格出版社nvarchar30y出版社借出日期smalldatetime4y借出日期类别nvarchar10类别借出天数smalldatetime2y借出天数限定天数Text4y限定天数超出天数Text4y超出天数罚款金额Text5y罚款金额今天日期Text5y今天日期输入要还的图书编号nvarchar10y输入要还的图书编号6、源代码（1）a、系统管理（即登录源代码）Public Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入正确的用户名, 11, 错误信息ElseIf Text2.Text = ThenMsgBox 请输入正确的密码, 11, 错误信息End IfIf Text1.Text = huang And Text2.Text =ThenLoad form2form2.Show 1Unload Form1ElseMsgBox 用户名或密码错误, 11, 错误信息End IfEnd Subb、登录界面(2)a、图书管理模块源代码Public msg 定义过程级变量Private Sub Cmd_Del_Click()Dim areturn As Integerareturn = MsgBox(你确定要删除记录吗?, vbYesNo)If areturn = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Cmd_Fnd_Click()msg = InputBox(请输入准确的图书编号, 查找记录)Data1.Recordset.FindFirst 图书编号 = & msg & If Data1.Recordset.NoMatch ThenMsgBox 没有符合条件的图书!ElseMsgBox 符合条件的图书为 & Data1.Recordset.Field(1)End IfEnd SubPrivate Sub Cmd_Ins_Click()vb_msg = MsgBox(请输入, vbOKCancel)If vb_msg = vbCancel ThenExit SubEnd IfData1.Recordset.AddNewData1.Recordset.Fields(TD) = Val(Text1.Text)Data1.Recordset.Fields(图书编号) = Text2.TextData1.Recordset.Fields(书名) = Text3.TextData1.Recordset.Fields(价格) = Val(Text4.Text)Data1.Recordset.Fields(出版社) = Text5.TextData1.Recordset.Fields(借出日期) = Text6.TextData1.Recordset.Fields(是否借出) = Text7.TextData1.Recordset.Fields(类别) = Text8.TextEnd SubPrivate Sub Cmd_Nxt_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastMsgBox (已经是最后一条记录了!)End IfEnd SubPrivate Sub Cmd_Pre_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirstMsgBox (已经是第一条记录了!)End IfEnd SubPrivate Sub Cmd_Upd_Click()Dim areturn As Integerareturn = MsgBox(你确定要修改记录吗?, vbYesNo)If areturn = vbYes ThenData1.Recordset.EditData1.Recordset.Fields(TD) = Val(Text1.Text)Data1.Recordset.Fields(图书编号) = Text2.TextData1.Recordset.Fields(书名) = Text3.TextData1.Recordset.Fields(价格) = Val(Text4.Text)Data1.Recordset.Fields(出版社) = Text5.TextData1.Recordset.Fields(借出日期) = Text6.TextData1.Recordset.Fields(是否借出) = Text7.TextData1.Recordset.Fields(类别) = Text8.TextData1.Recordset.UpdateEnd IfEnd Sub b、图书管理模块界面C、当单击“删除”或“修改”按钮时，程序中使用了MsgBox，弹出类似如图示的对话框来要求用户确认 （3）a、借书模块源代码Public index As IntegerPrivate Sub cmdokcancel_Click()Select Case indexCase 1If rst3.Fields(是否借出) + True ThenMsgBox 此书已经借出!, 0 + 48, 提示txtbookbian.Text = txtbookbian.SetFocusframe4.Visible = Falseframe7.Visible = TrueExit SubEnd Ifrst2.AddNewrst2.Fields(图书编号) = rst3.Fields(图书编号)rst2.Fields(书名) = rst3.Fields(书名)rst2.Fields(价格) = rst3.Fields(价格)rst2.Fields(出版社) = rst3.Fields(出版社)rst2.Fields(类别) = rst3.Fields(类别)rst2.Fields(姓名) = txtname.Textrst2.Fields(借出日期) = rst3.Fields(借出日期)rst2.Fields(借书证号) = bookidrst2.Updaterst3.Editrst3.Fields(是否借出) = Truerst3.Fields(借出日期) = rst3.Fields(借出日期)rst3.UpdateDataReftxtbookbian.Text = txtbookbian.SetFocuscmdlogin.setfocusframe4.Visible = Falseframe7.Visible = TrueEnd SelectEnd SubPublic keyascii As IntegerPrivate Sub txtbookbian_keypress_Click()If keyascii2 = 13 ThenIf txtbookid.Text = ThenMsgBox 请先登录!, 0 + 48, 提示cmdlogin.SetFocustxtbookbian.Text = Exit SubEnd Ifrst3.Seek =, txtbookbian.TextIf rst3.NoMatch ThenMsgBox 没有此图书编号，请重新填写, 0 + 48, 填写错误txtbookbian.SetFocusframe4.Visible = Falseframe7.Visible = TrueExit SubEnd Ifframe4.Visible = Trueframe7.Visible = Truetxtbookhao.Text = txtbookbian.Texttxtbookname.Text = rst3.Fields(书名) & vbNullStringtxtchuban.Text = rst3.Fields(出版社) & vbNullStringtxtcost.Text = rst3.Fields(价格) & Emptytxtlentdate.Text = rst3.Fields(借出日期) & vbNullStringtxttype.Text = rst3.Fields(类别) & vbNullStringEnd IfEnd Subb、借出图书界面（4）a、归还图书源代码Public index As IntegerPrivate Sub cmdokcancel_Click()Select Case indexCase 1rst2.Seek =, txtbookbian1.TextIf rst2.nomath ThenMsgBox 没有借过这本书!是不是编号错了?, 0 + 48, 提示txtbookbian1.Text = txtbookbian1.SetFocusframe6.Visible = Falsecmdokcance1.Visible = FalseExit SubIf rst3.Fields(是否借出) = False ThenMsgBox 此书还没有借出, 0 + 48, 提示Exit SubEnd Ifrst1.Seek =, rst2.Fields(借书证号)rst1.Edit 奖罚款金额写入数据库中rst1.Fields(罚款) = Val(txtfa.Text) + rst1.Fields(罚款)rst1.UpdateIf txtfa.Text 0 ThenMsgBox 罚款金额已经写入数据库!, 0 + 48, 提示End Ifrst2.Deleterst3.Editrst3.Fields(是否借出) = Falserst3.Fields(借出日期) = Emptyrst3.Updatetxtbookbian1.Text = txtbookbian1.SetFocusframe6.Visible = Falsecmdokcancel.Visible = FalseMsgBox 还书成功!按回车键继续, 0 + 48, 完毕End IfEnd SelectEnd SubPublic keyascii As IntegerPrivate Sub txtbookbian1_keypress_Click()If keyascii = 13 Thenrst3.Seek =, txtbookbian1.TextIf rst3.NoMatch ThenMsgBox 没有此图书编号，请重新填写, 0 + 48, 填写错误txtbookbian1.Text = txtbookbian1.seilengthtxtbookbian1.SetFocusExit SubEnd Ifframe6.Visible = Truetxtbookhao1.Text = txtbookbian1.Texttxtbookname1.Text = rst3.Fields(书名) & vbNullStringtxtchuban1.Text = rst3.Fields(出版社) & vbNullStringtxtcost1.Text = rst3.Fields(价格) & Emptytxtlentdate1.Text = rst3.Fields(借出日期) & Emptytxttoday.Text = rst3.Fields(今天日期) & vbNullStringtxttype1.Text = rst3.Fields(类别) &