Access图书馆管理系统.doc

课 程 设 计 报 告 （数据库技术及应用）题目： 图书馆管理系统院 别： 通信与信息工程学院专 业： 通信与信息类姓 名： 王宗义 叶祥吉学 号： 2011210325 2011210330指导教师： 刘伯红重庆邮电大学2012年 12月02日一、课程设计题目图书馆管理系统二、功能描述根据图书管理员在图书借阅管理过程中遇到的实际情况，图书馆管理系统应具有以下功能：（1）系统应允许管理员对管理员信息、图书信息及类型信息、读者信息及其类型信息进行添加、修改和删除操作；（2）系统应允许管理员对图书信息和读者信息进行查询操作；（3）图书借出或归还时，管理员可对借书信息和还书信息进行添加、修改、删除和查询操作；（4）系统能为管理员提供读者信息报表和借书信息报表。三、概要设计根据系统功能的描述，图书馆管理系统主要有系统设置、信息管理、运行管理、信息查询、报表显示五大功能模块，每个模块中又包含几个子模块完成其相应的功能，系统所有功能模块如图一所示。（1） 图书类型设置模块 图书类型设置模块可以实现对图书类型的管理，可进行图书类型信息的添加、修改和删除操作；（2） 读者类型设置模块读者类型设置模块可以实现对读者类型的管理，可进行读者类型信息的添加、修改和删除操作；（3） 图书信息管理模块 图书信息管理模块可以实现对图书的管理，可进行图书信息的添加、修改和删除操作；（4） 读者信息管理模块 读者信息管理模块可以实现对读者的管理，可进行读者信息的添加、修改和删除操作；（5） 图书借阅管理模块 图书借阅管理模块可以实现对借书信息的管理，可进行借书信息的添加、修改和删除操作；（6） 图书归还管理模块 图书归还管理模块可以实现对还书信息的管理，可进行还书信息的添加、修改和删除操作；（7） 图书信息查询模块 图书信息查询模块可根据书籍名称对书籍信息进行查询；（8） 读者信息查询模块 读者信息查询模块可根据读者编号对读者信息进行查询；（9） 按照读者编号查询借书信息模块 按照读者编号查询借书信息模块可以根据读者编号对读者的借书情况进行查询；（10） 按照读者编号查询还书信息模块 按照读者编号查询还书信息模块可以根据读者编号对读者的还书情况进行查询；（11） 按照书籍名称查询借书信息模块 按照书籍名称查询借书信息模块可以根据书籍名称对书籍的借阅情况进行查询；（12） 照书籍名称查询还书信息模块 按照书籍名称查询还书信息模块可以根据书籍名称对书籍的归还情况进行查询；（13） 读者信息报表显示模块 读者信息报表显示模块可以对读者信息进行进行查询，最后生成相应的报表；（14） 书籍报表显示模块 借书报表显示模块可以根据读者编号对读者的借书情况进行查询，最后生成相应的报表。四、详细设计1、数据库所需基本表： （1）图书类别：类别编码、类别名称、关键词、备注4个字段； （2）读者类型：类型编号、类型名称、可借天数、可借数量、有效期限、备注6个字段；（3）图书信息：图书编号、图书名称、图书类别、作者、出版社、出版日期、书籍页数、关键词、登记日期、备注10个字段；（4）读者信息：读者编号、读者姓名、读者类型编号、性别、工作单位、家庭住址、电话号码、电子邮件地址、办证日期、备注10个字段；（5）借书信息：借阅信息编号、读者编号、读者姓名、图书编号、图书名称、借书日期、应还日期、备注8个字段；（6）还书信息：还书编号、读者编号、读者姓名、图书编号、图书名称、借书日期、还书日期、备注8个字段。2、数据库逻辑结构设计图一 图书管理系统的功能模块图表一 图书类别表字段名称数据类型字段大小主键类别编码文本10是类别名称文本50否关键词文本50否备注备注否表二 读者类型表字段名称数据类型字段大小主键类型编号文本10是类型名称文本20否可借天数数字长整型否可借数量数字长整型否有效期限日期/时间长日期否备注备注否表三 图书信息表字段名称数据类型字段大小主键图书编号文本10是图书名称文本30否图书类别文本20否作者文本20否出版社文本20否出版日期日期/时间短日期否书籍页数数字长整型否关键词文本50否登记日期日期/时间短日期否备注文本否表四 读者信息表字段名称数据类型字段大小主键读者编号文本10是读者姓名文本20否密码文本10否读者类型编号文本10否性别文本1否工作单位文本30否家庭住址文本50否电话号码文本15否电子邮件地址文本50否办证日期日期/时间短日期否备注备注否表五 借书信息表字段名称数据类型字段大小主键借阅信息编号自动编号长整型是读者编号文本10否读者姓名文本10否图书编号文本10否图书名称文本20否借书日期日期/时间短日期否应还日期日期/时间短日期否备注备注否表六 还书信息表字段名称数据类型字段大小主键还书编号自动编号10是读者编号文本10否读者姓名文本10否图书编号文本10否图书名称文本20否借书日期日期/时间短日期否还书日期日期/时间短日期否备注备注否据各表的结构，在Access2003中可以完成“图书馆管理系统”数据库及表的创建工作。3、创建表间关系表之间的具体关系如图二所示。图二 表间关系图4、创建查询根据窗体的需要一共创建了6个查询，分别为：（1）读者信息查询：根据读者编号查询读者信息；（2）书籍信息查询：根据书籍的名称查询书籍信息；（3）按照读者编号查询借书信息：根据读者编号查询该读者的借书信息；（4）按照读者编号查询还书信息：根据读者编号查询该读者的还书信息；（5）按照书籍名称查询借书信息：根据书籍名称查询该书的借阅信息；（6）按照书籍名称查询还书信息：根据书籍名称查询该书的归还信息。查询创建的方法采用设计视图创建查询，以“读者信息”查询为例，具体方法见图三。其他查询效果图见第五效果部分。5、窗体设计各窗体的设计方法基本一样，以下仅以“管理员登陆”窗体为例进行设计，其他窗体见第五效果部分。利用“用户登陆”窗体可以进入图书馆管理系统的主界面，其窗体效果如图四所示。图三 读者阅读情况查询 “用户登陆”窗体的创建步骤如下：（1）在数据库窗口中选择窗体对象，然后双击按钮；（2）弹出如图的窗体图四：窗体（3）选择“主菜单”插入图片命令；在窗体的“工具箱”中选择三个指令和一个指令，然后分别在三个label指令窗口中输入“Microsoft Access 2003”、“欢迎使用”、“图书管理系统”，在Command指令窗口输入“用户登陆”，然后设置字体与大小；（4）利用“文本框”控件，在窗体主体区创建两个文本框text0和text3，并把标签标题分别改为“管理员账号”和“密码”；（4）单击右键，选择，会弹出如图的选择发生器图五然后选择“代码生成器”，单击“”，会弹出VB代码编译窗口，然后输入如下代码：Option Compare DatabasePrivate Sub Command4_Click()On Error GoTo Err_Command4_Click Screen.PreviousControl.SetFocus DoCmd.FindNextExit_Command4_Click: Exit SubErr_Command4_Click: MsgBox Err.Description Resume Exit_Command4_ClickEnd SubPrivate Sub Command7_Click()DoCmd.OpenForm 登录窗体DoCmd.MaximizeEnd SubPrivate Sub Command8_Click()Dim intx As Integer Dim intCount As Integer intCount = Forms.Count - 1 For intx = intCount To 0 Step -1 DoCmd.Close acForm, Forms(intx).Name Next End SubPrivate Sub Form_Timer() If Label3.FontSize 36 Then Label3.FontSize = Label3.FontSize + 2Else Me.TimerInterval = 0 End IfEnd SubPrivate Sub Command9_Click()On Error GoTo Err_Command9_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(27426) & ChrW(-28722) & ChrW(30028) & ChrW(-26782) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command9_Click: Exit SubErr_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click End SubPrivate Sub Command10_Click()On Error GoTo Err_Command10_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(32467) & ChrW(26463) & ChrW(31383) & ChrW(20307) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command10_Click: Exit SubErr_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click End SubPrivate Sub Command13_Click()On Error GoTo Err_Command13_Click Screen.PreviousControl.SetFocus DoCmd.FindNextExit_Command13_Click: Exit SubErr_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End SubPrivate Sub Image1_Click()End Sub（5）最终得到的窗体如图：（6）、“用户登陆”的窗体与代码图六 “用户登陆”窗体Private Sub Form_Load()Dim Username As String, Password As StringDim i,ji = jDo 用i记录循环次数，输入错误三次自动退出Username = InputBox(请输入用户名)If Username admin Then 验证用户名是否正确i = i + 1msgBox(用户名不正确，请重新输入)Else: Exit Do End IfLoop while(i = 3)If i = 3 Then 用户名正确j = 1Do 用i记录循环次数，输入错误三次自动退出Password = inputBox(请输入密码)If Password admin Then 验证密码是否正确j = j + 1MsgBox(密码不正确，请重新输入)Else: Exit Do End IfLoop while(j 3 or j 3 ThenDim intx As Integer Dim intCount As Integer intCount = Forms.Count - 1 For intx = intCount To 0 Step -1 DoCmd.Close acForm,Forms(intx).Name NextEnd IfEnd Sub（7）在“用户登陆”窗体中正确输入用户名和密码，就可以进入了“欢迎使用”界面，该界面的设置与上一界面的设置基本相似，在此就不再赘述。整个界面如下图：6、报表设计各报表的设计方法基本一样，以下仅以“读者信息”报表为例进行设计，另一报表见第五效果部分。“读者借书信息”报表的设计步骤如下：（1）在“图书馆管理系统”中选定报表对象，单击“新建设计视图”，在“数据的来源表和查询”中选择“按照读者编号查询借书信息”；（2）在设计视图中选择“读者编号”“读者姓名”“图书编号”“图书名称”“借书日期”“应还日期” 字段；（3）点击“排序与分组”进行如下操作，添加“读者编号”页眉，如图七所示；图七 排序与分组（4）如图八调整布局：图八 “书籍信息”报表的设计视图（5）查看“视图打印预览”，另存为“书籍信息”报表。7、“图书馆管理系统”主界面设计 “图书馆管理系统”窗体界面的设计方法如下：（1）在该窗体中有3个标签和2个命令按钮，设计视图如九所示。（2）窗体中的2个命令按钮都是通过“命令按钮向导”创建的。其中，“退出系统”命令按钮执行的是“退出应用程序”操作；“读者信息报表显示”“借书报表显示”执行的是“报表操作报表预览”操作；其他命令按钮都是执行的“打开窗体”操作；8、系统的启动点击“工具启动”，将标题改为“图书馆管理系统”，显示窗体改为“登陆界面”，并清除对话框中所有默认选中的复选框，如图十，最后单击“确定按钮”。图九 “启动”对话框五、效果及存在的问题1、效果（1）登陆界面与主页面的进入单击“进入”，跳出如下界面：单击“图书入库”，进入如下界面：单击“借还书登记”进入如下界面：单击你“书籍信息查询”，进入如下界面：单击“读者信息查询”，进入如下界面：（6）“报表查看”模块点击“读者信息”，进入如下界面：点击“书籍信息”，进入如下界面：