电脑销售管理系统-

《电脑销售管理系统-》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、2014级高级语言程序设计石家庄铁道大学四方学院集中实践报告书课题名称电脑销售管理系统学号系、部土木工程系专业班级指导教师刘仁芬2015年6月25日一、设计任务及要求：设计任务：电脑销售管理系统要求：电脑销售的工作人员可以登录系统，工作人员包描系统的管理员和销售员，两者可以分别进行自己的权限内的管理，管理员可以进行进货管理和库存管理；而销售员可以进行销售管理二、指导教师评语:三、成绩指导教师签名：年月日电脑销售管理系统的开发1选题的意义制作该系统的原因是改变传统的电脑交易模式，消除以往供应商与顾客之间的交易不明情况，帮助顾客更快、更准确的根据自己

2、的需要來找到所需电脑，以提高工作准确度和工作效率。在该系统制作的过程中我运用了所学的数据库的创建和连接、函数过程、控件数组、条件语句（If语句、SelectCase语句）、循环语句等数据结构和知识点。2系统功能需求分析2.1系统概述本系统包括用户登录、供应商信息管理、电脑信息管理、以及供应商与顾客Z间的交易管理等功能。用户可以根据自己的需要方便快捷的选择自己所需要的电脑。2.2系统的组成及各模块的功能电脑销售管理系统的组成主耍包括以卜•几点功能:1.用户登录功能没冇权限的用户不能使用该软件。2.进货管理功能用户可以及时了解进货情况。3.销售管理功

3、能用户可以及时了解销售情况。4.庫存管理功能用户可以及时查看库存，以此实现交易顺利进行。5.人员信息管理功能：用户可以根据白己的需要的人员信息。6.销售员管理功能：销售员可以对销售情况进行管理，并可对库存进行查询。2.3系统的运行环境1.系统使用环境操作系统：Windows2000/XP系统支持：Visualbasic6.0及以上版本支持库数据库：Access硕件环境：硬盘：剩余使用空间1GB以上内存：32MB以上显卡：SVGA显示适配器2.系统开发环境操作系统：Windows2000/XP系统支持：Visualbasic6.03系统设计3」总体

4、结构设计管理（销伟）员登陆界面管理系统销售系统I退出I库存管理I销售管理I退出I人员信息管理库存管理I销售管理—进货管理库存杳询电脑销售录入电脑销售查询人员信息查询库存杳询电脑销代查询进电脑查询进电脑录入图1总体模块图3.2数据库实现表1人员信息表字段号类型宽度备注人员编号数字255姓名文木255性别文本255年龄数字255出生日期日期255籍贯文本255职位文本255表2电脑信息表字段名类型宽度备注产品名称文本255型号文本255内存文木255屏幕尺寸数字255操作系统文本255品牌文本255数量数字255表3进电脑信息表字段名类型宽度备注电脑

5、名称文木255进入H期日期255单价货币255台数文本255表4电脑销售表字段名类型宽度备注电脑名称文木255出售日期日期255数目数字255台数数字2554系统实现4.1登录模块的设计与实现已Form8

6、口

7、

8、回

9、

10、N•••••••••••••••:欢迎使用系统登陆员登陆密码::::::管理登陆:::梢售登陆:::::::::::::图2登陆模块程序代码：PrivateSubCommandl_Click()IfTextl.Text="20145321〃AndText2.Text="11111〃ThenMsgBox"您已成功登入！"，vbOKOn

11、ly+vblnformation,登陆成功〃销售系统.ShowMe.HideElseMsgBox〃账号或密码错误请从新输入〃Text1.Text=〃〃Text2.Text=Textl.SetFocusEndIfEndSub4.2其他（销售员登陆）模块的设计与实现1•销售员登陆界面图3销售模块PrivateSubFDF_Click()EndEndSubPrivateSubfghj_Click()库存查询.Show悄作系统.HideEndSubPrivateSubhjh_Click()电脑销售查询.Show销伟系统.HideEndSubPrivate

12、Subsfddf_Click()电脑销伟录入.Show销售系统.HideEndSub(1)•电脑销售录入模块图4销售录入模块PrivateSubCommand2_Click()电脑销售录入.Hide销售系统.ShowEndSubPrivateSubCommand4_Click()Dimf%,n%f=Text3.Textn=Adodc5.Recordset.Fields("数量”).ValueAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("电脑名称")=Text1.TextAdodc2.Records

13、et.Fields("11i售日期")=Text2.TextAdodc2.Recordset.Fields("数虽”)=Text3.Te