VB专业课程设计方案报告.doc

V B课程设计汇报题目： 图书馆管理系统指导老师：吴志强老师班 级： 10410111学 号： 姓 名： 黄 流 华时间：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(类别) & vbNullStringtxtlentday.Text = rst3.Fields(今天日期) - rst3.Fields(借出日期) & Emptyrst.Seek =, rst3.Fields(类别)bookdday = rst.Fields(借出天数)txtxianding.Text = bookday bookday 为限定借出天数If Val(txtlentday.Text) - bookday = 0 Then 判定是否超出了天数txtchaochu.Text = 未超出txtfa.Text = 0Exit SubElsetxtchaochu.Text = Val(txtlentday.Text) - bookdayEnd Iftxtfa.text=format(facost*val(txtchaochu.text),#.00) 计算金额End IfEnd Subb、归还图书界面（5）报表模块操作步骤以下：a、 打开“图书信息表.mdb”工程文件，找到数据环境DataEnvironment1b、 打开DataEnvironment1，选择“Connection1”,图所表示C、单击右键，在弹出菜单中选择“属性”命令，得到图所表示数据链接属性页d、选择OLE DB驱动程序，选项Microsoft Jet 3.51 OLE DB Providerf、然后选择或输入Access数据库名称e、单击“测试连接”按钮，测试成功后，出现测试成功提醒6、课程设计体会