书店图书销售系统 2.docx
《书店图书销售系统 2.docx》由会员分享，可在线阅读，更多相关《书店图书销售系统 2.docx（11页珍藏版）》请在冰豆网上搜索。
书店图书销售系统2
沈阳航空航天大学
课程设计
学号____2009040302099______
班级_94030203_________
姓名__于鲲________
指导教师___王晓岩_______
年月日
沈阳航空航天大学
课程设计任务书
学院：
航宇专业：
飞行器制造（钣金与模具方向）班级：
94030203
学号：
2009040302099题目：
书店图书销售系统
一、课程设计时间
2010~11第2学期第1~2周，共计2周，40学时。
二、课程设计内容
模拟书店经营业务，主要指“购进图书”和“出售图书”2种业务。
由于图书的出售价格高于图书的购进价格，所以系统能够计算累计利润。
要求：
①能够随时显示库存情况和销售情况。
②能够随时计算书店累计利润。
③能够随时购进新书和出售图书，册数不限。
提示：
在Access中创建book表，用以存储图书信息。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“退出”5项。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
一、需求分析3
二、设计分析4
三、技术要点5
四、总结9
五、完整的源程序10
六、参考文献12
一、需求分析
模拟书店经营业务，主要指“购进图书”和“出售图书”2种业务。
由于图书的出售价格高于图书的购进价格，所以系统能够计算累计利润。
要求：
（1）在Access中创建books表，以“购进图书”和“出售图书”2方面信息。
此表的结构应如下定义：
图书编号，图书名称，出版社，购进册数，购进价格，出售册数，出售价格。
（2）能够随时显示库存情况和销售情况。
（3）能够随时计算书店累计利润。
（4）能够随时购进新书和出售图书，册数不限。
二、设计分析
（1）基本原理：
建立数据库，然后建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。
（2）总体设计：
图1总体设计
（3）详细设计：
图2详细设计
三、技术要点
需要Access协助，在access中创建book表
（1）使用ADO控件实现数据库的访问的过程通常需要经过一下几步：
I.在窗体上添加ADO数据控件
II．使用ADO连接对象建立与数据提供者之间的连接。
III．使用ADO命令对象操作数据源，从数据源中产生记录集并存放在内存中。
IV．建立记录集与数据绑定控件的关联，再窗体上显示数据。
（1）数据源连接：
使用连接字符串生成，需要选择MicrosoftJet4.0OLEDBProvider,指定数据库文件名。
指定记录源。
利用DataGrid来显示数据
EndSub
（2）由于直接绑定数据库所以可以直接显示数据库的状态。
程序段如下：
Text1‘图书编号
Text2‘图书名称
Text3出版社
Text4购进册书
Text5售出册书
Text6购进单价
Text7售出单价
Text8利润
Text9库存
计算利润
PrivateSubCommand3_Click（）
Dimx!
y!
z!
m!
n!
y=Text4.Text
z=Text5.Text
m=Text6.Text
n=Text7.Text
x=z*（n-m）'计算利润
Text8.Text=x
显示库存
PrivateSubCommand4_Click（）
Dima!
b!
c!
d!
b=Text4.Text
c=Text5.Text
a=b-c
Text9.Text=a
EndSub
图3图书查询
（2）销售图书是更改数据库中图书信息
Adodc1.Recordset.Update
程序段如下：
PrivateSubCommand2_Click（）
Dima!
b!
c!
d!
b=Text4.Text
c=Text5.Text
a=b-c
Text9.Text=a
Text5.Text=Val（Text5）+1
Text9.Text=Val（Text9）-1
Adodc1.Recordset.Update'更改数据库
EndSub
窗体-销售图书：
图4销售图书
（3）购进图书是向数据库中添加新书信息
Adodc1.Recordset.AddNew'增加图书种类
程序段如下：
PrivateSubCommand6_Click（）
Adodc1.Recordset.AddNew'增加图书种类
EndSub
窗体-购进图书：
图5购进图书
四、总结
这次课设我的题目是书店图书销售系统，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用adodc1.recordset.addnew和adodc1.recordset.update更改数据库中的信息，并能向其中添加新的信息。
在课设过程中，我遇到了重重困难，例如：
VB与数据库的连接技术，通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。
五、完整的源程序
PrivateSubCommand1_Click（）
Dima!
b!
c!
d!
b=Text4.Text
c=Text5.Text
a=b-c
Text9.Text=a
Text4.Text=Val（Text4）+1
Text9.Text=Val（Text9）+1
Adodc1.Recordset.Update'更改数据库
EndSub
PrivateSubCommand2_Click（）
Dima!
b!
c!
d!
b=Text4.Text
c=Text5.Text
a=b-c
Text9.Text=a
Text5.Text=Val（Text5）+1
Text9.Text=Val（Text9）-1
Adodc1.Recordset.Update'更改数据库
EndSub
PrivateSubCommand3_Click（）
Dimx!
y!
z!
m!
n!
y=Text4.Text
z=Text5.Text
m=Text6.Text
n=Text7.Text
x=z*（n-m）'计算利润
Text8.Text=x
EndSub
PrivateSubCommand4_Click（）
Dima!
b!
c!
d!
b=Text4.Text
c=Text5.Text
a=b-c
Text9.Text=a
EndSub
PrivateSubCommand5_Click（）
End'结束语句
EndSub
PrivateSubCommand6_Click（）
Adodc1.Recordset.AddNew'增加图书种类
EndSub
PrivateSubForm_Load（）
EndSub
PrivateSubText9_Change（）
Dima!
b!
c!
d!
b=Text4.Text
c=Text5.Text
a=b-c
Text9.Text=a
IfText9.Text=0Then
MsgBox（"图书已售完"）
Command2.Enabled=False
Else
Command2.Enabled=True
EndIf
EndSub
六、参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
升级会员 