书店图书销售系统 2.docx

1、书店图书销售系统 2沈 阳 航 空 航 天 大 学 课程设计 学 号 _2009040302099_ 班 级 _ 94030203_ 姓 名 _ 于 鲲_指导教师 _ 王晓岩_年 月 日沈阳航空航天大学课程设计任务书学院：航宇 专业：飞行器制造（钣金与模具方向） 班级：94030203学号：2009040302099 题目：书店图书销售系统一、课程设计时间201011第2学期第12周，共计2周，40学时。二、课程设计内容模拟书店经营业务，主要指“购进图书”和“出售图书”2种业务。由于图书的出售价格高于图书的购进价格，所以系统能够计算累计利润。要求：能够随时显示库存情况和销售情况。能够随时计算书

2、店累计利润。能够随时购进新书和出售图书，册数不限。提示：在Access中创建book表，用以存储图书信息。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“退出”5项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录一、需求分析 3二、设计分析 4三、技术要点 5四、总结 9五、

3、完整的源程序 10六、参考文献 12一、需求分析模拟书店经营业务，主要指“购进图书”和“出售图书”2种业务。由于图书的出售价格高于图书的购进价格，所以系统能够计算累计利润。要求：（1）在Access中创建books 表，以“购进图书”和“出售图书”2方面信息。此表的结构应如下定义：图书编号，图书名称，出版社，购进册数，购进价格，出售册数，出售价格。（2）能够随时显示库存情况和销售情况。（3）能够随时计算书店累计利润。（4）能够随时购进新书和出售图书，册数不限。二、设计分析（1）基本原理：建立数据库，然后建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。（2）总体设计：图1

4、 总体设计（3）详细设计：图2 详细设计三、技术要点需要Access协助，在access中创建book 表（1）使用ADO控件实现数据库的访问的过程通常需要经过一下几步： I.在窗体上添加ADO数据控件 II使用ADO连接对象建立与数据提供者之间的连接。III使用ADO命令对象操作数据源，从数据源中产生记录集并存放在内存中。IV建立记录集与数据绑定控件的关联，再窗体上显示数据。（1） 数据源连接： 使用连接字符串生成，需要选择Microsoft Jet 4.0 OLE DB Provider,指定数据库文件名。指定记录源。利用DataGrid来显示数据 End Sub （2）由于直接绑定数据库

5、所以可以直接显示数据库的状态。程序段如下：Text1 图书编号Text2 图书名称Text3 出版社Text4 购进册书Text5 售出册书Text6 购进单价Text7 售出单价Text8 利润Text9 库存计算利润Private Sub Command3_Click()Dim x!, y!, z!, m!, n!y = Text4.Textz = Text5.Textm = Text6.Textn = Text7.Textx = z * (n - m) 计算利润Text8.Text = x显示库存Private Sub Command4_Click()Dim a!, b!, c!, d!

6、b = Text4.Textc = Text5.Texta = b - cText9.Text = aEnd Sub图3 图书查询（2） 销售图书是更改数据库中图书信息 Adodc1.Recordset.Update 程序段如下：Private Sub Command2_Click()Dim a!, b!, c!, d!b = Text4.Textc = Text5.Texta = b - cText9.Text = aText5.Text = Val(Text5) + 1Text9.Text = Val(Text9) - 1Adodc1.Recordset.Update 更改数据库End S

7、ub窗体-销售图书：图4销售图书（3） 购进图书是向数据库中添加新书信息 Adodc1.Recordset.AddNew 增加图书种类程序段如下：Private Sub Command6_Click()Adodc1.Recordset.AddNew 增加图书种类End Sub窗体-购进图书：图5购进图书四、总结这次课设我的题目是书店图书销售系统，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用adodc1.recordset.addnew和adodc1.recordset.update更改数据库中的信息，并能向其中添加新的信息。在课设过程中，我

8、遇到了重重困难，例如：VB与数据库的连接技术，通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。五、完整的源程序Private Sub Command1_Click()Dim a!, b!, c!, d!b = Text4.Textc = Text5.Texta = b - cText9.Text = aText4.Text = Val(Text4) + 1Text9.Text = Val(Text9) + 1Adodc1.Recordset.Update 更改数据库End

9、 SubPrivate Sub Command2_Click()Dim a!, b!, c!, d!b = Text4.Textc = Text5.Texta = b - cText9.Text = aText5.Text = Val(Text5) + 1Text9.Text = Val(Text9) - 1Adodc1.Recordset.Update 更改数据库End SubPrivate Sub Command3_Click()Dim x!, y!, z!, m!, n!y = Text4.Textz = Text5.Textm = Text6.Textn = Text7.Textx =

10、 z * (n - m) 计算利润Text8.Text = xEnd SubPrivate Sub Command4_Click()Dim a!, b!, c!, d!b = Text4.Textc = Text5.Texta = b - cText9.Text = aEnd SubPrivate Sub Command5_Click()End 结束语句End SubPrivate Sub Command6_Click()Adodc1.Recordset.AddNew 增加图书种类End SubPrivate Sub Form_Load()End SubPrivate Sub Text9_Change()Dim a!, b!, c!, d!b = Text4.Textc = Text5.Texta = b - cText9.Text = aIf Text9.Text = 0 ThenMsgBox (图书已售完)Command2.Enabled = FalseElseCommand2.Enabled = TrueEnd IfEnd Sub六、参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，2003