电脑销售管理系统.doc
《电脑销售管理系统.doc》由会员分享，可在线阅读，更多相关《电脑销售管理系统.doc（11页珍藏版）》请在冰豆网上搜索。
※※※※※※※※※
※※
※※
※※
※※※※※※※※※
2014级
高级语言程序设计
石家庄铁道大学四方学院
集中实践报告书
课题名称
电脑销售管理系统
姓名
学号
系、部
土木工程系
专业班级
指导教师
刘仁芬
2015年6月25日
一、设计任务及要求：
设计任务：
电脑销售管理系统
要求：
电脑销售的工作人员可以登录系统，工作人员包括系统的管理员和销售员，两者可以分别进行自己的权限内的管理，管理员可以进行进货管理和库存管理；而销售员可以进行销售管理
二、指导教师评语：
三、成绩
指导教师签名：
年月日
电脑销售管理系统的开发
1选题的意义
制作该系统的原因是改变传统的电脑交易模式，消除以往供应商与顾客之间的交易不明情况，帮助顾客更快、更准确的根据自己的需要来找到所需电脑，以提高工作准确度和工作效率。
在该系统制作的过程中我运用了所学的数据库的创建和连接、函数过程、控件数组、条件语句（If语句、SelectCase语句）、循环语句等数据结构和知识点。
2系统功能需求分析
2.1系统概述
本系统包括用户登录、供应商信息管理、电脑信息管理、以及供应商与顾客之间的交易管理等功能。
用户可以根据自己的需要方便快捷的选择自己所需要的电脑。
2.2系统的组成及各模块的功能
电脑销售管理系统的组成主要包括以下几点功能：
1.用户登录功能：
没有权限的用户不能使用该软件。
2.进货管理功能：
用户可以及时了解进货情况。
3.销售管理功能：
用户可以及时了解销售情况。
4.库存管理功能：
用户可以及时查看库存，以此实现交易顺利进行。
5.人员信息管理功能：
用户可以根据自己的需要的人员信息。
6.销售员管理功能：
销售员可以对销售情况进行管理，并可对库存进行查询。
2.3系统的运行环境
1.系统使用环境
操作系统：
Windows2000/XP
系统支持：
Visualbasic6.0及以上版本支持库
数据库：
Access
硬件环境：
硬盘：
剩余使用空间1GB以上
内存：
32MB以上
显卡：
SVGA显示适配器
2.系统开发环境
操作系统：
Windows2000/XP
系统支持：
Visualbasic6.0
3系统设计
3.1总体结构设计
管理（销售）员登陆界面
管理系统
销售系统
退出
库存管理
销售管理
退出
人员信息管理
库存管理
销售管理
进货管理
库存查询
电脑销售录入
电脑销售查询
人员信息查询
库存查询
进电脑录入
进电脑查询
电脑销售查询
图1总体模块图
3.2数据库实现
表1人员信息表
字段号
类型
宽度
备注
人员编号
数字
255
姓名
文本
255
性别
文本
255
年龄
数字
255
出生日期
日期
255
籍贯
文本
255
职位
文本
255
表2电脑信息表
字段名
类型
宽度
备注
产品名称
文本
255
型号
文本
255
内存
文本
255
屏幕尺寸
数字
255
操作系统
文本
255
品牌
文本
255
数量
数字
255
表3进电脑信息表
字段名
类型
宽度
备注
电脑名称
文本
255
进入日期
日期
255
单价
货币
255
台数
文本
255
表4电脑销售表
字段名
类型
宽度
备注
电脑名称
文本
255
出售日期
日期
255
数目
数字
255
台数
数字
255
4系统实现
4.1登录模块的设计与实现
图2登陆模块
程序代码：
PrivateSubCommand1_Click（）
IfText1.Text="20145321"AndText2.Text="11111"Then
MsgBox"您已成功登入！
",vbOKOnly+vbInformation,"登陆成功"
销售系统.Show
Me.Hide
Else
MsgBox"账号或密码错误请从新输入"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndIf
EndSub
4.2其他（销售员登陆）模块的设计与实现
1.销售员登陆界面
图3销售模块
PrivateSubFDF_Click（）
End
EndSub
PrivateSubfghj_Click（）
库存查询.Show
销售系统.Hide
EndSub
PrivateSubhjh_Click（）
电脑销售查询.Show
销售系统.Hide
EndSub
PrivateSubsfddf_Click（）
电脑销售录入.Show
销售系统.Hide
EndSub
（1）.电脑销售录入模块
图4销售录入模块
PrivateSubCommand2_Click（）
电脑销售录入.Hide
销售系统.Show
EndSub
PrivateSubCommand4_Click（）
Dimf%,n%
f=Text3.Text
n=Adodc5.Recordset.Fields（"数量"）.Value
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields（"电脑名称"）=Text1.Text
Adodc2.Recordset.Fields（"出售日期"）=Text2.Text
Adodc2.Recordset.Fields（"数量"）=Text3.Text
Adodc2.Recordset.Fields（"成交价"）=Text4.Text
Adodc2.Recordset.Update
Adodc5.Recordset.Fields（"数量"）.Value=Str（Val（Adodc5.Recordset.Fields（"数量"）.Value）-f）
Adodc5.Recordset.Update
MsgBox"购买成功！
",vbExclamation+vbOKOnly
EndSub
PrivateSubForm_Load（）
Text1.Text=dnmc
Text2.Text=Date
Adodc5.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=Database2.accdb;PersistSecurityInfo=False"
Adodc5.CommandType=adCmdTable
Adodc5.RecordSource="电脑库存"
Adodc5.Refresh
EndSub
（2）.电脑销售查询模块
图5销售查询模块
PrivateSubCommand1_Click（）
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from电脑销售where电脑名称='"&Text1.Text&"'"
Adodc1.Refresh
Text2.Text=Adodc1.Recordset.Fields（"出售日期"）
Text3.Text=Adodc1.Recordset.Fields（"数目"）
Text4.Text=Adodc1.Recordset.Fields（"成交价"）
EndSub
PrivateSubCommand2_Click（）
电脑销售查询.Hide
电脑销售系统.Show
EndSub
（3）.库存查询模块
图6库存查询模块
PrivateSubCommand1_Click（）
dnmc=Adodc5.Recordset.Fields（"电脑名称"）
电脑销售录入.Show
EndSub
PrivateSubCommand2_Click（）
库存查询.Hide
电脑销售系统.Show
EndSub
5设计体会
5.1总结
VB小学期的课程如期完成，感觉很欣慰，虽然遇到过很多问题，但在自己的努力以及老师和同学的帮助下都一一化解了，而且我觉得自己通过这次课程设计学到了很多东西，以前只知道学习课本上的固定原理和知识，很少用于自己实践，而这次课程设计完全将自己在书本上学到的东西实践操作出来。
说实话开始感觉很迷茫，好像什么都不会，可是后来慢慢适应了，也知道如何操作了，也就一如既往的坚持了下来。
不过付出就会有回报，所以我获得的远比我想象的多，这是慢慢积累的过程。
5.2存在的主要问题
在本程序的创建过程中，我遇到的最大的问题就是所需要代码的繁杂，需要一遍遍不厌其烦的翻书去看。
还有就是在数据库的建立和连接。
再有就是在程序设计好之后，经常出问题，只能再改。
参考文献
[1]孙春来，韩正清等.《Visualbasic6.0中文版编程基础与范例》，电子工业出版社，出版日期：
2001-1-1.
[2]知寒工作室.《中文Visualbasic6简明案例教程》机械工业出版社，出版日期：
1999-4-1
[3]徐健平，赵永.《Visualbasic基础教程》机械工业出版社出版日期：
2000-5-1
[4]张鲁.《Visualbasic6.0编程技巧与实例分析》，水利水电出版社出版日期：
1999-10-1
[5]张磊等.《Visualbasic6使用详解》，机械工业出版社出版日期：
1999-7-1
[6]康耀红，黄建青等.《Visualbasic6.0数据库设计》，北京大学出版社，出版日期：
2002-2-1
[7]郑刚.《Visualbasic6.0实效编程百例》，人民邮电出版社，出版日期：
2002-7-1
[8]周兰文.《Visualbasic6中文版与上机指导》，清华大学出版社，出版日期：
1999
升级会员 