(完整word版)数据库实验报告图书管理系统.doc
上传人:17****21 上传时间:2024-09-09 格式:DOC 页数:23 大小:5.2MB 金币:10 举报 版权申诉
预览加载中,请您耐心等待几秒...

(完整word版)数据库实验报告图书管理系统.doc

(完整word版)数据库实验报告图书管理系统.doc

预览

免费试读已结束,剩余 13 页请下载文档后查看

10 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

(完整word版)数据库实验报告图书管理系统(完整word版)数据库实验报告图书管理系统(完整word版)数据库实验报告图书管理系统图书馆管理系统的设计一、实验背景:在数据库应用系统的编程中,管理人员需要经常从数据库中查询数据。复杂组合查询,特别是多种数据类型的复杂条件动态组合查询是一个设计难度大,但很能方便用户的功能模块,在系统开发时要尽量满足用户的需要,就必须考虑多类型-多条件综合模糊查询功能,提高应用系统的智能性。消费者在选择市场产品时往往面临数据量大、删选难、数据不全面等问题,多类型-多条件综合模糊查询正式基于此设计的。二、实验内容:以SQLSERVER2008为后台数据库,以VisualBasic为前台开发工具,完成一个以人事管理系统为实例或结合相关专业方向的查询界面友好的多类型-多条件综合模糊查询应用模块的设计与开发,以满足用户复杂查询的需求,具体内容包括:1)数据库概念结构和逻辑结构的设计;2)通过SQL语句创建数据库;3)设计通用模块;4)设计窗体,达到界面简洁,友好的要求;5)编写代码,使程序能正确执行;6)调试美化,提高查询效率。三、需求分析图书馆是这样的部门,馆中收藏大量图书供读者借阅,其中图书可分成不同的类别,如自然科学类、社会科学类等;借阅者可分为老师和学生。不同的借阅者最多可借书的数量和期限不同,如教师最多可借10本,期限为3个月,学生最多可借2本,期限为1个月,无论是老师还是学生,借阅超期都要进行罚款处理。以上就是图书管理系统所要完成的主要功能。四、概念结构设计经分析,本系统涉及到的实体只有读者和图书,二者之间存在借阅和罚款的联系,据此可画出此系统的E-R图。罚款金额读者借出日期pm超期天数罚款借阅处罚日期图书归还日期qN图书馆管理系统的E-R图其中读者与其属性关系,图书与其属性关系如下图读者类别读者姓名性别是否有超期借书证号读者读者实体与其属性书名条形码号作者图书编号出版社图书借阅次数借阅状态类别出版日期图书实体与其属性五、数据库表格图书表的结构读者表的结构借阅表的结构罚款表的结构密码表的结构六、用VB开发应用程序1配置数据源利用ODBC数据源管理器配置一个连接到“图书馆”数据库的数据源,名为“图书管理”。2设计各个窗体设计MDI主窗体从主窗体中可以打开各个功能的窗口,其中图书馆管理系统的主窗体如下图设计登陆窗体设计界面如下图编写程序PrivateSubCommand1_Click()DimstrAsStringDimmicountAsIntegerstr="select密码from密码表的结构where用户名='"&Text1.Text&"'"Adodc1.RecordSource=strAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"用户名错误,请重新输入",vbExclamation,"警告"Text1.Text=""Text1.SetFocusElseIfAdodc1.Recordset.Fields("密码")=Text2.TextThenMDIForm1.ShowUnloadMeElseMsgBox"密码错误,请重新输入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmicount=micount+1Ifmicount>=3ThenUnloadMeEndSubPrivateSubcmdcancel_Click()UnloadMeEndSub设计读者管理窗体设计界面编写程序PrivateSubcmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled=Falsecmddel.Enabled=Falsecmdok.Enabled=Falsecmdcnacel.Enabled=TrueEndSubPrivateSubcmdcancel_Click()Adodc1.Refreshcmdadd.Enabled=Truecmddel.Enabled=Truecmdok.Enabled=Falsecmdcancel.Enabled=FalseEndSubPrivateSubcmddel_Click()X=MsgBox("确实要删除当前记录吗?",vbYesN