电脑销售管理系统

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

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

3、以及时查看库存，以此实现交易顺利进行。5.6.人员信息管理功能：用户可以根据自己的需要的人员信息。 销售员管理功能：销售员可以对销售情况进行管理，并可对库存进行查询。2.3 系统的运行环境1. 系统使用环境操作系统： Windows 2000/XP系统支持： Visual basic 6.0 及以上版本支持库 数据库： Access硬件环境： 硬盘：剩余使用空间1GB以上内存： 32MB 以上显卡： SVGA 显示适配器2. 系统开发环境操作系统： Windows 2000/XP系统支持： Visual basic 6.03系统设计3.1总体结构设计管理（销售）员登陆界面管理系统销售系统电脑销

4、售查询人员信息管理人员信息查询库存查询库存管理销售管理进货管理电脑销售查询进电脑查询进电脑录入图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台数数字2554

5、系统实现4.1登录模块的设计与实现口 FomnS欢迎使用系统:登陆员:矍陆网:图里登陆图2登陆模块程序代码:Private Sub Comma nd1_Click()If Text1.Text = 20145321 And Text2.Text = 11111 ThenMsgBox 您已成功登入！ , vbOKOnly + vbInformation ,登陆成功” 销售系统-ShowMe.HideElseMsgBox 账号或密码错误请从新输入 ”Text1.Text =Text2.Text =Text1.SetFocusEnd IfEnd Sub4.2其他（销售员登陆）模块的设计与实现1.销售

6、员登陆界面*0 FofmlGZil卫311 亘崔售昔理 吏苣理（卽 退atc）图3销售模块Private Sub FDF_Click()EndEnd SubPrivate Sub fghj_Click() 库存查询.Show销售系统.HideEnd SubPrivate Sub hjh_Click（）电脑销售查询.Show销售系统.HideEnd SubPrivate Sub sfddf_Click（）电脑销售录入.Show销售系统.HideEnd Sub(1) .电脑销售录入模块K1iK4AdoJc5山电脑名称出售日期咸交悄出售退出图4销售录入模块Private Sub Comma nd2_

7、Click（）电脑销售录入.Hide 销售系统.ShowEnd SubPrivate Sub Comma nd4_Click（）Dim f%, n% f = Text3.Text n = Adodc5.Recordset.Fields（” 数量 ”）.ValueAdodc2.Recordset.AddNewAdodc2.Recordset.Fields（电脑名称）=Text1.TextAdodc2.Recordset.Fields（出售日期）=Text2.TextAdodc2.Recordset.Fields（数量）=Text3.TextAdodc2.Recordset.Fields（成交价）

8、=Text4.TextAdodc2.Recordset.U pdateAdodc5.Recordset.Fields(” 数量 ”).Value = Str(Val(Adodc5.Recordset.Fields(” 数量 ”).Value) - f)Adodc5.Recordset.U pdateMsgBox 购买成功！ , vbExclamation + vbOKOniyEnd SubPrivate Sub Form_Load()Text1.Text = dnmcText2.Text = DateAdodc5.C onn ecti on Stri ngP rovider=Microsoft

9、.ACE.OLEDB.12.0;DataSource=Database2.accdb; PersistSecurity In fo=FalseAdodc5.Comma ndType = adCmdTableAdodc5.RecordSource =电脑库存”Adodc5.RefreshEnd Sub(2) .电脑销售查询模块图5销售查询模块Private Sub Comma nd1_Click()Adodc1.Comma ndType = adCmdTextAdodd.RecordSource = select*from电脑销售 where 电脑名称=& Text1.Text & ”Adodd

10、.RefreshText2.Text = Adodc1.Recordset.Fields(出售日期)Text3.Text = Adodc1.Recordset.Fields(数目)Text4.Text = Adodc1.Recordset.Fields (成交价)End SubPrivate Sub Comma nd2_Click()电脑销售查询.Hide电脑销售系统.ShowEnd Sub（3）.库存查询模块图6库存查询模块Private Sub Comma nd1_Click()dnmc = Adodc5.Recordset.Fields(” 电脑名称)电脑销售录入.ShowEnd Sub

11、Private Sub Comma nd2_Click() 库存查询.Hide电脑销售系统.ShowEnd Sub5设计体会5.1总结VB小学期的课程如期完成，感觉很欣慰，虽然遇到过很多问题，但在自己的努力以及老师 和同学的帮助下都一一化解了，而且我觉得自己通过这次课程设计学到了很多东西，以前只 知道学习课本上的固定原理和知识，很少用于自己实践，而这次课程设计完全将自己在书本 上学到的东西实践操作出来。说实话开始感觉很迷茫，好像什么都不会，可是后来慢慢适应 了，也知道如何操作了，也就一如既往的坚持了下来。不过付出就会有回报，所以我获得的 远比我想象的多，这是慢慢积累的过程。5.2存在的主要问题

12、在本程序的创建过程中，我遇到的最大的问题就是所需要代码的繁杂，需要一遍遍不厌其烦的翻书去看。还有就是在数据库的建立和连接。再有就是在程序设计好之后，经常出问 题，只能再改。参考文献1孙春来，韩正清等 . Visual basic 6.0 中文版编程基础与范例 ，电子工业出版社， 出版日期： 2001-1-1.2知寒工作室 .中文 Visual basic 6 简明案例教程机械工业出版社，出版日期：1999-4-13徐健平，赵永.Visual basic基础教程机械工业出版社出版日期：2000-5-14张鲁. Visual basic 6.0 编程技巧与实例分析 ，水利水电出版社 出版日期： 1999-10-15张磊等 . Visual basi