VB课程设计书店图书销售系统 2.docx
《VB课程设计书店图书销售系统 2.docx》由会员分享，可在线阅读，更多相关《VB课程设计书店图书销售系统 2.docx（12页珍藏版）》请在冰豆网上搜索。
VB课程设计书店图书销售系统2
沈阳航空航天大学
课程设计
学号2009040601177
班级94060105__
姓名吕冰____
指导教师徐晗____
2011年3月21日
沈阳航空航天大学
课程设计任务书
学院：
专业：
班级：
学号：
题目：
书店图书销售系统
一、课程设计时间
2007~08第2学期第1~2周，共计2周，40学时。
二、课程设计内容
模拟书店经营业务，主要指“购进图书”和“出售图书”2种业务。
由于图书的出售价格高于图书的购进价格，所以系统能够计算累计利润。
要求：
①能够随时显示库存情况和销售情况。
②能够随时计算书店累计利润。
③能够随时购进新书和出售图书，册数不限。
提示：
在Access中分别创建book_in和book_out表，用以分别存储购进图书和出售图书2方面信息。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点5
主要界面截图8
总结10
完整的源程序12
参考文献15
需求分析
我做的软件可以让用户随心所欲地录入、修改和增删学生通讯录信息，能够按多种方式（例如：
按学号、姓名）进行查询学生信息，而且还可以连接到数据库的信息进行查询并且可以显示全部同学信息，同学信息包括省份、专业、班级、学号和姓名。
本软件设计简单，界面干净利落，操作简洁，可以让用户查到的信息第一时间进入用户大脑。
设计分析
（1）概述：
本软件涉及到使用SQL查询数据库、应用find方法进行学生信息查询，包括姓名、学号、班级、专业等。
我的软件要应用SQL查询语言实现连接数据库对学生通讯录信息进行查询，并尽可能的让用户用起来感觉方便和舒适，在VB环境中进行编程，把自己所想的内容表达出来。
（2）总体设计：
（3）详细设计：
技术要点
1.本软件应用到了VB中的SQL语句连接数据库，如源程序中的：
PrivateSubForm_Load（）
Dimmpath$,mlink$
mpath=App.Path'获取程序所在的路径
IfRight（mpath,1）<>"\"Thenmpath=mpath+"\"'判断是否为子目录
mlink="Provider=Microsoft.Jet.OLEDB.4.0;"'指定提供者
mlink=mlink+"DataSource="+mpath+"学生信息.mdb"'在数据库文件名前插入路径
Adodc1.ConnectionString=mlink'设置连接属性
Adodc1.CommandType=adCmdUnknown'指定记录集命令类型（可在设计时指定）
Adodc1.RecordSource="Select*fromstudent"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndSub
2.也应用到Find方法在数据库中查询学生信息，如源程序中的：
PrivateSubxm_Click（）
DimaAsString
a=InputBox（"请输入姓名","姓名查询"）
Adodc1.Recordset.Find"姓名='"&a&"'",,,1'按姓名查询
Text1.Visible=True:
Text2.Visible=True:
Text3.Visible=True:
Text4.Visible=True:
Text5.Visible=True
Label1.Visible=True:
Label2.Visible=True:
Label3.Visible=True:
Label4.Visible=True:
Label5.Visible=True
IfAdodc1.Recordset.EOFThenMsgBox"无此用户！
",,"提示"
EndSub
————————————————————————————————————
PrivateSubxh_Click（）
DimbAsString
b=InputBox（"请输入学号","学号查询"）
Adodc1.Recordset.Find"学号='"&b&"'",,,1'按学号查询
Text1.Visible=True:
Text2.Visible=True:
Text3.Visible=True:
Text4.Visible=True:
Text5.Visible=True
Label1.Visible=True:
Label2.Visible=True:
Label3.Visible=True:
Label4.Visible=True:
Label5.Visible=True
IfAdodc1.Recordset.EOFThenMsgBox"无此用户！
",,"提示"
EndSub
3.通过使用DataGrid控件和Adodc控件把数据库连接到VB软件上。
1关于数据库的连接
关于数据库的连接本软件应用的是SQL语句，SQL是结构化查询语言，是操作关系型数据库的标准语言，通过SQL命令，可以从数据库的多个表中获取数据，也可以对数据进行更新操作。
2SLQ语句的应用
SQL具有结构简洁、功能强大、简单易学，无论是SQLsever、sybase、oracel这些大型的数据库管理系统，还是access、visualfoxpro这些桌面数据库管理系统，都支持SQL，所以我设计的软件也应用到了SQL。
在录入同学信息的时候，需要VB与access表格连接，本软件就是用了SQL语句；而在查询同学信息的时候也需要连接access表格，都用到SQL语句。
主要界面截图
图1进入学生通讯录管理系统
图2学生通讯录信息录入
图3按姓名查找
图4按学号查找
图5按姓名或学号查找结果
图6显示全部同学信息
总结
这次课设我的题目是设计学生通讯录管理系统，通过这次课设让我了解了VB与学生通讯录的联系，期间应用了课上老师讲到的各种知识，例如对ComboBox的List属性进行设置和对检查框的应用等以及SQL语句和find方法。
同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。
在课设过程中，我也遇到了各种困难，比如如何应用SQL语句进行设计VB程序，但最终我还是通过看书和与同学探讨把问题解决了，从而我明白了只有自己和大家共同努力才会有进步。
通过这次的课设学习，使我认识到自己知识的浅薄，以后应尽自己最大努力学习计算机方面的知识，丰富自己。
同时，也使我深刻的认识到，无论我们做什么事都要有克服困难的精神，只有这样，我们才能突破自己的界限，获取新的天地。
完整的源程序
————————————————————————————————————
Form1：
PrivateSubCommand1_Click
Form1.Hide
Form2.Show
EndSub
————————————————————————————————————
Form2：
PrivateSubForm_Load（）
Dimmpath$,mlink$
mpath=App.Path'获取程序所在的路径
IfRight（mpath,1）<>"\"Thenmpath=mpath+"\"'判断是否为子目录
mlink="Provider=Microsoft.Jet.OLEDB.4.0;"'指定提供者
mlink=mlink+"DataSource="+mpath+"学生信息.mdb"'在数据库文件名前插入路径
Adodc1.ConnectionString=mlink'设置连接属性
Adodc1.CommandType=adCmdUnknown'指定记录集命令类型（可在设计时指定）
Adodc1.RecordSource="Select*fromstudent"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndSub
————————————————————————————————————
PrivateSubtc_Click（）
End
EndSub
————————————————————————————————————
PrivateSubtxxx_Click（）
Form2.Hide
Form4.Show
EndSub
————————————————————————————————————
PrivateSubxm_Click（）
DimaAsString
a=InputBox（"请输入姓名","姓名查询"）
Adodc1.Recordset.Find"姓名='"&a&"'",,,1'按姓名查询
Text1.Visible=True:
Text2.Visible=True:
Text3.Visible=True:
Text4.Visible=True:
Text5.Visible=True
Label1.Visible=True:
Label2.Visible=True:
Label3.Visible=True:
Label4.Visible=True:
Label5.Visible=True
IfAdodc1.Recordset.EOFThenMsgBox"无此用户！
",,"提示"
EndSub
————————————————————————————————————
PrivateSubxh_Click（）
DimbAsString
b=InputBox（"请输入学号","学号查询"）
Adodc1.Recordset.Find"学号='"&b&"'",,,1'按学号查询
Text1.Visible=True:
Text2.Visible=True:
Text3.Visible=True:
Text4.Visible=True:
Text5.Visible=True
Label1.Visible=True:
Label2.Visible=True:
Label3.Visible=True:
Label4.Visible=True:
Label5.Visible=True
IfAdodc1.Recordset.EOFThenMsgBox"无此用户！
",,"提示"
EndSub
————————————————————————————————————
PrivateSubxxlr_Click（）
Form2.Hide
Form3.Show
EndSub
————————————————————————————————————
Form3：
PrivateSubCommand1_Click（）
Form2.Adodc1.Recordset.AddNew
Form2.Adodc1.Recordset.Fields（"班级"）=Text1
Form2.Adodc1.Recordset.Fields（"姓名"）=Text2
Form2.Adodc1.Recordset.Fields（"省份"）=Text3
Form2.Adodc1.Recordset.Fields（"学号"）=Text4
Form2.Adodc1.Recordset.Fields（"专业"）=Text5
EndSub
————————————————————————————————————
PrivateSubCommand2_Click（）
Form3.Hide
Form2.Show
EndSub
————————————————————————————————————
Form4：
PrivateSubCommand1_Click（）
Form2.Show
Form4.Hide
EndSub
PrivateSubForm_Load（）
Dimmpath$,mlink$
mpath=App.Path'获取程序所在的路径
IfRight（mpath,1）<>"\"Thenmpath=mpath+"\"'判断是否为子目录
mlink="Provider=Microsoft.Jet.OLEDB.4.0;"'指定提供者
mlink=mlink+"DataSource="+mpath+"学生信息.mdb"'在数据库文件名前插入路径
Adodc1.ConnectionString=mlink'设置连接属性
Adodc1.CommandType=adCmdUnknown'指定记录集命令类型（可在设计时指定）
Adodc1.RecordSource="Select*fromstudent"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndSub
————————————————————————————————————
参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
[2]龚沛曾杨志强陆慰民．《VisualBasic程序设计教程》．北京：
高等教育出版社，2007.3
升级会员 