电脑销售管理系统-

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

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

3、功能：用户可以及时查看库存，以此实现交易顺利进行。5. 人员信息管理功能：用户可以根据自己的需要的人员信息。6. 销售员管理功能：销售员可以对销售情况进行管理，并可对库存进行查询。2.3系统的运行环境1.系统使用环境 操作系统：Windows 2000/XP 系统支持：Visual basic 6.0及以上版本支持库 数据库：Access 硬件环境： 硬盘：剩余使用空间1GB以上 内存：32MB以上 显卡：SVGA显示适配器2.系统开发环境 操作系统：Windows 2000/XP 系统支持：Visual basic 6.0 3系统设计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电脑销售表字段名类型宽度备注电脑名称文本

5、255出售日期日期255数目数字255台数数字2554系统实现4.1登录模块的设计与实现图2 登陆模块程序代码：Private Sub Command1_Click()If Text1.Text = "20145321" And Text2.Text = "11111" ThenMsgBox "您已成功登入！", vbOKOnly + vbInformation, "登陆成功"销售系统.ShowMe.HideElseMsgBox "账号或密码错误请从新输入"Text1.Text = "

6、"Text2.Text = ""Text1.SetFocusEnd IfEnd Sub4.2其他（销售员登陆）模块的设计与实现1.销售员登陆界面图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).电脑销售录入模块图4 销售录入模块P

7、rivate Sub Command2_Click()电脑销售录入.Hide销售系统.ShowEnd SubPrivate Sub Command4_Click()Dim f%, n%f = Text3.Textn = Adodc5.Recordset.Fields("数量").ValueAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("电脑名称") = Text1.TextAdodc2.Recordset.Fields("出售日期") = Text2.TextAdodc2.Records

8、et.Fields("数量") = Text3.TextAdodc2.Recordset.Fields("成交价") = Text4.TextAdodc5.Recordset.Fields("数量").Value = Str(Val(Adodc5.Recordset.Fields("数量").Value) - f)MsgBox "购买成功！", vbExclamation + vbOKOnlyEnd SubPrivate Sub Form_Load()Text1.Text = dnmcText2

9、.Text = DateAdodc5.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database2.accdb;Persist Security Info=False"Adodc5.CommandType = adCmdTableAdodc5.RecordSource = "电脑库存"Adodc5.RefreshEnd Sub (2).电脑销售查询模块图5 销售查询模块Private Sub Command1_Click()Adodc1.CommandType =

10、adCmdTextAdodc1.RecordSource = "select*from 电脑销售 where 电脑名称='" & Text1.Text & "'"Adodc1.RefreshText2.Text =("出售日期")Text3.Text =("数目")Text4.Text = ("成交价")End SubPrivate Sub Command2_Click()电脑销售查询.Hide电脑销售系统.ShowEnd Sub（3）.库存查询模块图6 库存查询

11、模块Private Sub Command1_Click()dnmc = Adodc5.Recordset.Fields("电脑名称")电脑销售录入.ShowEnd SubPrivate Sub Command2_Click()库存查询.Hide电脑销售系统.ShowEnd Sub5设计体会5.1总结VB小学期的课程如期完成，感觉很欣慰，虽然遇到过很多问题，但在自己的努力以及老师和同学的帮助下都一一化解了，而且我觉得自己通过这次课程设计学到了很多东西，以前只知道学习课本上的固定原理和知识，很少用于自己实践，而这次课程设计完全将自己在书本上学到的东西实践操作出来。说实话开始感

12、觉很迷茫，好像什么都不会，可是后来慢慢适应了，也知道如何操作了，也就一如既往的坚持了下来。不过付出就会有回报，所以我获得的远比我想象的多，这是慢慢积累的过程。5.2存在的主要问题在本程序的创建过程中，我遇到的最大的问题就是所需要代码的繁杂，需要一遍遍不厌其烦的翻书去看。还有就是在数据库的建立和连接。再有就是在程序设计好之后，经常出问题，只能再改。参考文献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 张