汽车用品销售系统.docx
《汽车用品销售系统.docx》由会员分享，可在线阅读，更多相关《汽车用品销售系统.docx（14页珍藏版）》请在冰豆网上搜索。
汽车用品销售系统
石家庄铁道大学四方学院
集中实践报告书
课题名称
汽车用品销售管理系统
姓名
学号
系、部
土木工程系
专业班级
指导教师
刘仁芬
2015年6月25日
一、设计任务及要求：
设计任务：
汽车用品销售管理系统
要求：
1．内容要求：
（1）汽车用品查询模块：
按汽车用品的类别查询汽车用品的相关信息；
（2）用户维护模块：
为用户提供了用户注册、用户登录、用户资料修改的功能；
（3）商品入库记录的录入、删除、修改等功能，能够方便、灵活的实现汽车用品销售记录的录入、删除、修改等功能。
2．设计要求：
①建立一个工程，将完成本题目创建的所有文件添加到工程中；
②根据题目的要求建立数据库，库中建立所需的表。
③数据表之间根据需要建立必要的联系。
二、指导教师评语：
三、成绩
指导教师签名：
年月日
汽车用品销售管理系统
1选题的意义
为了能够方便、灵活的实现汽车用品入库记录的录入、删除、修改等功能，能够方便、灵活的实现汽车用品销售记录的录入、删除、修改等功能，也为了更好的锻炼自己，使自己在上小学期过程中所学到的知识可以应用于实践，并且证明自己具体所学的知识是否符合逻辑。
用到的数据结构和知识点：
首先，确定汽车用品销售和管理的方法；其次，本着方便灵活的理念对本系统的运行窗体进行构建；然后，编写本程序的代码，力求能够实现汽车用品入库记录的录入、删除、修改等功能；最后，将各个运行窗体进行关联，使程序能够流畅的运行。
并且本系统针对登陆界面、主窗体首页、管理员验证、会员验证、数据管理、所购汽车用品、退出验证、选购、主窗体、注册等界面，进行了设计。
2系统功能需求分析
2.1系统概述
图1总体模块图
2.2系统的组成及各模块的功能
系统的组成相当于概要设计，详细设计，汽车用品销售管理系统包括如下基本功能：
（1）系统管理：
用于系统使用该系统的用户，以及权限的分配，从而为系统提供一定的安全性。
（2）汽车用品管理：
包括以下几点——汽车用品的查询、修改、删除、添加。
（3）购买汽车用品：
主要用于汽车用品的浏览购买。
（4）退出：
结束运行过程。
2.3系统的运行环境
1.操作系统：
Windows2000/XP
系统支持：
VisualBasic6.0及以上版本支持库
数据库：
Access.
硬件环境：
•处理器：
IntelPentium166MX或更高。
•硬盘：
剩余使用空间1GB以上。
•内存：
32MB以上。
•显卡：
SVGA显示适配器。
2.4系统开发环境
操作系统：
Windows2000/XP.
系统支持：
VisualBasic6.0
3系统设计
3.1总体结构设计
图2各模块图
3.2数据库实现
图3总体模块图
表1汽车用品资料
字段名
数据类型
备注
用品编号
自动编号
255
用品名称
文本
255
生产地
文本
255
生产厂家
文本
255
入库时间
日期/时间
255
类型
文本
255
剩余数量
文本
255
价格
货币
255
表2销售记录
字段名
数据类型
备注
编号
自动编号
255
卖出用品
文本
255
卖出时间
日期/时间
255
卖出数量
文本
255
总计金额
文本
255
4系统实现
4.1登录模块的设计与实现
图4主窗体
主窗体.Show
PrivateSubCommand1_Click（）
Dimdb1AsADODB.Recordset
DimtempAsADODB.Recordset
Dimsql1AsString
用户=db1.Fields（0）
sql="select密码from用户where密码='"&Trim（Text2.Text）&"'"
Setdb1=usesql（sql）
Ifdb1.EOF=TrueThen
MsgBox"密码错误！
",vbExclamation+vbOKOnly,"警告"
Text2.SetFocus
Text2.Text=""
ExitSub
EndIf
quanxian=temp.Fields（0）
UnloadMe
Setrs=Nothing
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
4.2其他（如学生信息模块）模块的设计与实现
PrivateSubCommand3_Click（）
注册.Show
UnloadMe
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
Command1_Click
EndIf
EndSub
PrivateSubText2_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
Command1_Click
EndIf
EndSub
数据管理
PrivateSubCommand1_Click（）
Data1.UpdateRecord
EndSub
PrivateSubCommand2_Click（）
Data1.Recordset.AddNew
EndSub
PrivateSubCommand3_Click（）
UnloadMe
EndSub
PrivateSubCommand4_Click（）
会员验证.Show
EndSub
PrivateSubCommand5_Click（）
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOF=TrueThen
Data1.Recordset.MovePrevious
EndIf
EndSub
PrivateSubForm_Load（）
EndSub
图5浏览购买
浏览购买
DimtempAsADODB.Recordset
Dimtemp1AsADODB.Recordset
Dimtemp2AsADODB.Recordset
PrivateSubCommand1_Click（）
sql="select*from销售记录"
Settemp1=usesql（sql）
sql1="select*from汽车用品资料where汽车用品编号='"&Trim（Text1.Text）&"'"
Settemp2=usesql（sql1）
IfText10.Text=""Then
MsgBox"请输入地址",vbOKOnly,"警告"
ExitSub
Text10.SetFocus
Else
IfText9.Text>temp2.Fields（6）Then
MsgBox"当前库存不足,请从新输入",vbOKCancel,"警告"
Text9.Text=temp1.Fields（6）
Text9.SetFocus
ExitSub
Else
temp2.Fields（6）=（temp2.Fields（6）-Text9.Text）
temp2.Update
Iftemp1.EOF=TrueThen
temp1.AddNew
temp1.Fields（0）=Trim（Text1.Text）
temp1.Fields
（1）=Trim（Text2.Text）
temp1.Fields
（2）=Format（Now（）,"yyyy-mm-ddtttt"）
temp1.Fields（3）=Trim（Text9.Text）
temp1.Fields（4）=Trim（Text8.Text）*Trim（Text9.Text）
temp1.Fields（5）=Trim（Text10.Text）
temp1.Update
temp2.Fields（0）=（temp2.Fields（0）-Trim（Text9.Text））
temp2.Update
Else
temp1.Fields（0）=Trim（Text1.Text）
temp1.Fields
（1）=Trim（Text2.Text）
temp1.Fields
（2）=Format（Now（）,"yyyy-mm-ddtttt"）
temp1.Fields（3）=Trim（Text9.Text）
temp1.Fields（4）=Trim（Text8.Text）*Trim（Text9.Text）
temp1.Fields（5）=Trim（Text10.Text）
temp1.Update
temp2.Fields（0）=（temp2.Fields（0）-Trim（Text9.Text））
temp2.Update
MsgBox"购买成功",vbOKOnly
EndIf
EndIf
Calljiancha
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubCommand3_Click（）
查询.Show
EndSub
图7查询用品
PrivateSubCommand5_Click（）
temp.MovePrevious
Iftemp.BOF=TrueThen
temp.MoveNext
MsgBox"这是第一条记录",vbOKOnly,"消息"
Else
Text1.Text=temp.Fields（0）
Text2.Text=temp.Fields
（1）
Text3.Text=temp.Fields
（2）
Text4.Text=temp.Fields（3）
Text5.Text=temp.Fields（4）
Text6.Text=temp.Fields（5）
Text7.Text=temp.Fields（6）
Text8.Text=temp.Fields（7）
EndIf
EndSub
PrivateSubCommand6_Click（）
temp.MoveNext
Iftemp.EOF=TrueThen
temp.MovePrevious
MsgBox"已是最后一条记录",vbOKOnly,"消息"
Else
Text1.Text=temp.Fields（0）
Text2.Text=temp.Fields
（1）
Text3.Text=temp.Fields
（2）
Text4.Text=temp.Fields（3）
Text5.Text=temp.Fields（4）
Text6.Text=temp.Fields（5）
Text7.Text=temp.Fields（6）
Text8.Text=temp.Fields（7）
EndIf
EndSub
PrivateSubForm_Load（）
MsgBox"如果你知道你想购买的汽车用品信息请使用查询购买",vbOKOnly
sql="select*from汽车用品资料"
Settemp=usesql（sql）
EndSub
PublicSubjiancha（）
Command3.Enabled=False
sql2="select剩余数量from汽车用品资料"
Settemp4=usesql（sql2）
Iftemp4.Fields（0）=0Then
temp4.Delete
EndIf
EndSub
5设计体会
5.1总结
在这次vb实践中我们提高自身的知识面和实践能力，收获颇丰。
这样的项目对我们学过的数据结构，程序设计，数据库，软件工程，等课程是一个综合性很高的实践。
经历这一段时间的实践，我们对原来学习的知识有了更深刻的认识，也学习到了大量的新知识，提高了实际应用的能力。
另外我还充分体会了从事软件开发工作需要特别谨慎认真地态度和作风，一点都不能马虎。
每个细微的细节都必须十分注意，如果考不认真思考决策，就会出现或大或小的错误。
如果早期的错误隐藏下来，对后面的工作影响就会很大，有时候会弄的满盘皆输的后果。
我们不得不对软件的每一步进行检查，给我们的信心带来了打击，非常劳累和痛苦。
由于自己的经验及各方面的能力的不足，所以进展的速度非常的缓慢，遇到了好多棘手的问题，不得不去翻阅课本和大量的课外素材，最后自己无法解决的情况下向老师进行请教。
在我们的辛勤努力下，终于作出一个简单的软件，虽然这个软件功能非常简单，而且有很多不足，离实际应用还有很大的距离，但是我们在发现问题的过程中步断去完善自己制作的软件，力求把它作到趋于完美。
在我们制作软件的过程中，老师和同学们都给与了我们很大的帮助，帮助我们查阅资料寻找知识点，指出我们的软件的错误和不足，在我们遇到困难时给我们鼓励和帮助，在这里，我向这些无私帮助我的人表示由衷的谢意。
5.2存在的主要问题
在以往积累的知识、参考课外资料和寻求老师的帮助下终于完成了一个简单的软件。
这个软件功能非常简单，因而我想，在实际运用中，还有些不足。
因为知识和能力的不足，我们还无法做出满足实际需求的优秀软件，许多功能还欠缺和不完善，如表单的设计上出现了一些缺陷。
由于我的知识浅薄，经验不足及阅历颇浅，因此，在该系统的设计方面还有很多不足，比如功能过少，界面不醒目等问题，我会在工作的使用过程中，根据工作的具体要求不断的修改、完善，争取使系统慢慢趋于完美。
参考文献
[1]孙春来，韩正清等.《Visualbasic6.0中文版编程基础与范例》
[2]知寒工作室.《中文Visualbasic6简明案例教程,机械工业
[3]徐健平，赵永.《Visualbasic基础教程，机械工业
[4]张鲁.《Visualbasic6.0编程技巧与实例分析》
[5]张磊等.《Visualbasic6使用详解》，机械工业
升级会员 