V-B课程设计报告.docVIP

V B课程设计报告 题目： 图书馆管理系统 指导老师：吴志强老师 班 级： 学 号： 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）归还图书信息表 图书信息表的数据结构 字段名 类型 大小 空值 描述 ID int 4 ID 图书编号 nvarchar 10 y 图书编号 书名 nvarchar 30 y 书名 价格 real 4 y 价格 出版社 nvarchar 30 y 出版社 借出日期 smalldatetime 4 y 借出日期 是否借出 bit 1 y 是否借出 类别 nvarchar 10 类别 借出图书信息表 字段名 类型 大小 空值 描述 输入借出图书编号 nvarchar 10 y 输入借出图书编号 图书编号 nvarchar 10 y 图书编号 价格 real 4 y 价格 类别 nvarchar 10 类别 书名 nvarchar 30 y 书名 出版社 nvarchar 30 出版社 今天日期 smalldatetime 4 y 今天日期 归还图书信息表 字段名 类型 大小 空值 描述 图书编号 nvarchar 10 y 图书编号 书名 nvarchar 30 y 书名 价格 real 4 y 价格 出版社 nvarchar 30 y 出版社 借出日期 smalldatetime 4 y 借出日期 类别 nvarchar 10 类别 借出天数 smalldatetime 2 y 借出天数 限定天数 Text 4 y 限定天数 超出天数 Text 4 y 超出天数 罚款金额 Text 5 y 罚款金额 今天日期 Text 5 y 今天日期 输入要还的图书编号 nvarchar 10 y 输入要还的图书编号 6、源代码 （1）a、系统管理（即登录源代码） Public Sub Command1_Click() If Text1.Text = Then MsgBox 请输入正确的用户名, 11, 错误信息 ElseIf Text2.Text = Then MsgBox 请输入正确的密码, 11, 错误信息 End If If Text1.Text = huang And Text2.Text = Then Load form2 form2.Show 1 Unload Form1 Else MsgBox 用户名或密码错误, 11, 错误信息 End If End Sub b、登录界面 (2)a、图书管理模块源代码 Public msg 定义过程级变量 Private Sub Cmd_Del_Click() Dim areturn As Integer areturn = MsgBox(你确定要删除记录吗?, vbYesNo) If areturn = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If End If End Sub Private Sub Cmd_Fnd_Click() msg = InputBox(请输入准确的图书编号, 查找记录) Data1.Recordset.FindFirst 图书编号 = msg If Data1.Recordset.NoMatch Then MsgBox 没有符合条件的图书! Else MsgBox 符合条件的图书为 Data1.Recordse