数据库课程设计报告书店租赁系统.docx
《数据库课程设计报告书店租赁系统.docx》由会员分享，可在线阅读，更多相关《数据库课程设计报告书店租赁系统.docx（16页珍藏版）》请在冰豆网上搜索。
数据库课程设计报告书店租赁系统
数据库课程设计报告
课程题目：
书店租赁管理系统
姓名：
班级：
学号：
成员：
专业：
计算机科学与技术
指导老师：
王蕾
时间：
2014年1月1日
目录
一、概述1
1.课程设计目的1
2.设计内容1
3.基本要求1
4.开发环境1
二、系统功能需求分析1
1.问题描述1
2.可行性研究2
（1）经济可行性2
（2）技术可行性 2
3.功能描述 2
4.功能模块图3
三、图书管理系统的具体实现代码4
1.所需要的控件4
2.实现代码4
四、课程设计总结14
一、概述
1.课程设计目的
（1） 熟悉小型数据库管理系统的结构与组成；
（2） 熟悉数据库应用系统的设计方法和开发过程；
（3） 熟悉数据库设计工具的使用；
（4） 熟悉数据库安全的相关知识和技术；
（5） 熟悉数据库系统的管理和维护。
2.设计内容
建立书店租赁管理系统，完成会员信息、书籍信息等的查询、添加、修改、删除等操作，并能完成书籍检索的功能。
对于借阅信息能按照借阅人、借阅日期等查询。
收入信息中应考虑会员交纳会费、临时人员借阅所交纳的租金、因书籍损坏或者过期还书的罚款等信息。
3.基本要求
运用数据库基本理论与应用知识，查阅资料，掌握相关知识，确定开发需求，学习面向对象程序设计语言，设计功能完备，界面友好，考虑数据库的安全性和完整性。
4.开发环境
WindowsXP系统,SQLServer2005,Visual Basic及相关控件。
二、系统功能需求分析
1.问题描述
在当今社会，随着计算机的发展及网络技术的应用，计算机应用在全球范围内的普及。
当今社会正快速向信息化社会前进，信息自动化的作用也越来越大。
而在日常生活中信息技术的不断融入，在技术越来越先进的同时，我们应该从以前繁琐的事务中解放出来 ，来提高了我们的工作效率。
而目前在在一些中小型书店中， 工作大部分还是进行着手工管理，工作起来效率很低，并且不能及时了解书店各类图书的库存，由于不可避免的人为因素，造成数据的遗漏、误报。
为了更好的适应当前读者的借阅、租赁需求，缓解手工管理存在的许多弊端，计算机信息化管理有着储存信息量大，速度快、便于管理等特点，提供给我们的处理信息及时快捷，因此利用相关计算机技术开发出一个书店租赁管理系统是很必要的。
2.可行性研究
任何一个系统或一项工程，在建立之前，必须首选进行可行性分析，可行性分析包括两层含义，一是可能性，二是必要性。
（1）经济可行性
经济可行性主要是只指算一个新的系统开发所需要的投资费用和运算费用，并与估计的新系统收益进行比较，看是否有利。
本系统所需的软硬件成本比较低，投资小，具有一定的通过性。
（2）技术可行性
利用现有的设备，软件及技术人员，新系统的目标能否达到，这也是可行性研究中需要考虑的一个问题。
关系型数据库（SQLServer2005）的高速发展使管理信息系统具备了良好的开发环境。
本系统操作简单，用户可以很快掌握使用方法，因此，在技术上是可行的。
3.功能描述
系统在界面设计方面要尽可能的人性化，对用户使用而言应该是简单易用的，在布局和设计上要科学化。
就目前而言,该系统是为中小型书店研发的,所以系统为C/S模式。
系统开发的目标是实现书店图书租赁的系统化、规范化和自动化，这是在用户要求的基础上提出来的，功能要求如下：
（1）管理员能对书店租赁系统里的会员信息、图书信息、借阅信息、收入信息等进行数据的添加、修改、删除、查询以及统计的功能操作。
（2）会员能够登录系统和修改密码，并且只能够查询自己的借阅信息和个人信息查询以及查询书店书库信息（包括书名、作者、出版社、库存数量等）。
4.功能模块图
管理员登录
功能模块图
收入信息
查看历史借阅信息
查看个人信息
查看当前借阅信息
会员登录
临时人员登录
图书信息管理
图书查询
图书借阅与归还
收入管理
用户信息管理
图书管理
登录管理
书店租赁管理系统
三、图书管理系统的具体实现代码
1.所需要的控件
Adodc和DataGrid
在“工程”→“部件”→“控件”选项卡中选择以上两个控件，如图1
图1
2.实现代码
’在类模块Module1（Code）代码窗口中输入以下代码
PublicconnAsADODB.Connection
PubliccmmdAsADODB.Command
PublicrsAsADODB.Recordset
下图是进入“菜单”界面（如图2）
图2
’图书管理代码
PrivateSubCommand1_Click（）
Form2.Hide
Form4.Show
EndSub
’会员管理代码
PrivateSubCommand2_Click（）
Form3.Show
Form2.Hide
EndSub
’借阅管理代码
PrivateSubCommand3_Click（）
Form2.Hide
Form7.Show
EndSub
’退出系统代码
PrivateSubCommand4_Click（）
End
EndSub
图2中的需添加时钟控件，使得lable1能够在窗体上左右移动，其实现代码如下
PrivateSubForm_Load（）
Timer1.Interval=100
Label1.Left=Width
Label1.Caption="…欢迎使用本系统…"
Label1.ForeColor=RGB（255,105,150）
Label1.BackStyle=0'label1的背景色透明
EndSub
PrivateSubTimer1_Timer（）
Label1.Left=Label1.Left-50
IfLabel1.Left<=-Label1.WidthThen
Label1.Left=Me.Width
EndIf
EndSub
图3
’图3中“添加”按钮代码
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
EndSub
’图3中“删除”按钮代码
PrivateSubCommand3_Click（）
Adodc1.Recordset.Delete
EndSub
’图3中“检索”按钮代码
PrivateSubCommand4_Click（）
IfCombo1.Text="用户编号"ThenAdodc1.RecordSource="select*from会员信息表where用户编号='"+Text1.Text+"'"
IfCombo1.Text="用户姓名"ThenAdodc1.RecordSource="select*from会员信息表where用户姓名='"+Text1.Text+"'"
IfCombo1.Text="出生日期"ThenAdodc1.RecordSource="select*from会员信息表where出生日期='"+Text1.Text+"'"
IfCombo1.Text="注册日期"ThenAdodc1.RecordSource="select*from会员信息表where注册日期='"+Text1.Text+"'"
IfCombo1.Text="性别"ThenAdodc1.RecordSource="select*from会员信息表where性别='"+Text1.Text+"'"
Adodc1.Refresh
DataGrid1.Refresh
EndSub
单击“检索”按钮，得到图4
图4
’图3中“返回菜单”按钮代码
PrivateSubCommand5_Click（）
Form3.Hide
Form2.Show
EndSub
单击“返回菜单”按钮，得到图2
’图书管理窗体装载
PrivateSubForm_Load（）
Ifform1.Combo1.Text="会员"Orform1.Combo1.Text="临时人员"ThenCommand1.Enabled=False
'Ifform1.Combo1.Text="会员"Orform1.Combo1.Text="临时人员"ThenCommand2.Enabled=False
Ifform1.Combo1.Text="会员"Orform1.Combo1.Text="临时人员"ThenCommand3.Enabled=False
Combo1.AddItem"用户编号"
Combo1.AddItem"用户姓名"
Combo1.AddItem"出生日期"
Combo1.AddItem"注册日期"
Combo1.AddItem"性别"
Combo1.ListIndex=0
EndSub
’会员管理下的“添加”按钮代码
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
EndSub
’会员管理下的“删除”按钮代码
PrivateSubCommand3_Click（）
Adodc1.Recordset.Delete
EndSub
’会员管理下的“返回菜单”按钮代码
PrivateSubCommand5_Click（）
Form4.Hide
Form2.Show
EndSub
’会员管理下的“Text1”代码
PrivateSubText1_Change（）
IfLen（Text1.Text）>10Then
MsgBox"最大只能输入10个字符数",vbOKCancel,提示
EndIf
Text1.SetFocus
EndSub
’会员管理下装载窗体
PrivateSubForm_Load（）
Ifform1.Combo1.Text="会员"Orform1.Combo1.Text="临时人员"ThenCommand1.Enabled=False
'Ifform1.Combo1.Text="会员"Orform1.Combo1.Text="临时人员"ThenCommand2.Enabled=False
Ifform1.Combo1.Text="会员"Orform1.Combo1.Text="临时人员"ThenCommand3.Enabled=False
Combo1.AddItem"图书号"
Combo1.AddItem"书名"
Combo1.AddItem"作者"
Combo1.AddItem"出版社"
Combo1.AddItem"图书类型"
Combo1.AddItem"价格"
Combo1.ListIndex=1
EndSub
DimrsAsADODB.Recordset
DimSQLAsString
DimmsgAsString
DimIndexAsInteger
’借阅管理如图5
图5
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand3_Click（）
Form7.Hide
Form2.Show
EndSub
PrivateSubCommand4_Click（）
IfCombo1.Text="借阅证号"ThenAdodc1.RecordSource="select*from借阅信息表where借阅证号='"+Text1.Text+"'"
IfCombo1.Text="姓名"ThenAdodc1.RecordSource="select*from借阅信息表where姓名='"+Text1.Text+"'"
IfCombo1.Text="图书号"ThenAdodc1.RecordSource="select*from借阅信息表where图书号='"+Text1.Text+"'"
IfCombo1.Text="书名"ThenAdodc1.RecordSource="select*from借阅信息表where书名='"+Text1.Text+"'"
Adodc1.Refresh
DataGrid1.Refresh
EndSub
PrivateSubForm_Load（）
Ifform1.Combo1.Text="会员"Orform1.Combo1.Text="临时人员"ThenCommand1.Enabled=False
Ifform1.Combo1.Text="会员"Orform1.Combo1.Text="临时人员"ThenCommand2.Enabled=False
Combo1.AddItem"借阅证号"
Combo1.AddItem"图书号"
Combo1.AddItem"姓名"
Combo1.AddItem"书名"
Combo1.ListIndex=0
EndSub
PrivateSubText1_Change（）
IfLen（Text1.Text）>10Then
MsgBox"最大只能输入10个字符数",vbOKCancel,提示
EndIf
Text1.SetFocus
EndSub
四、课程设计总结
数据库课程设计是把所学的SQL Server2005的知识与其他的开发语言（如Visual Basic）综合运用的一门课程，它能锻炼我们的实践能力，也是对我们的知识学习的一次考察。
在拿到课程设计题目时，我遇到的困难很多，在解决它们的同时我又学到了很多，获益非浅，特别是如何分析、建立、开发一个系统。
总结这次课程设计给我感受最深的至少有四点：
1.进行软件开发这样的工作，要有恒心，要能静下心来做，而不能浮躁。
2.要遵循软件开发本身的规律和善于吸收已有的经验。
3.要善于同别人交流与合作，善于获取有用的各种资源。
4.要认认真真去多查资料，多问，多看。
经过一个星期的课程设计，我学会了很多知识，个人的能力有了很大的提高，学会了合作，增强了团队意识，对Visual Basic 部分和SQL Server 2005有了更深刻的认识，并用Visual Basic结合SQL Server 2005顺利的开发了这样的一个简单的书店租赁管理系统。
升级会员 