电脑销售管理系统-教案.doc

  1. 1、本文档共11页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
石家庄铁道大学四方学院 集中实践报告书 课题名称 姓 名 学 号 部 专业 指导教师 2015年月日 一、设计任务及要求 设计任务:要 求: 二、指导教师评语: 三、成绩 指导教师签名: 年 月 日 电脑销售管理系统的开发 1选题的意义 制作该系统的原因是改变传统的电脑交易模式,消除以往供应商与顾客之间的交易不明情况,帮助顾客更快、更准确的根据自己的需要来找到所需电脑,以提高工作准确度和工作效率。 在该系统制作的过程中我运用了所学的数据库的创建和连接、函数过程、控件数组、条件语句(If语句、Select Case语句)、循环语句等数据结构和知识点。 2 系统功能需求分析 2.1系统概述 本系统包括用户登录、供应商信息管理、电脑信息管理、以及供应商与顾客之间的交易管理等功能。用户可以根据自己的需要方便快捷的选择自己所需要的电脑。 2.2系统的组成及各模块的功能 电脑销售管理系统的组成主要包括以下几点功能: 用户登录功能:没有权限的用户不能使用该软件。 进货管理功能:用户可以及时了解进货情况。 销售管理功能:用户可以及时了解销售情况。 库存管理功能:用户可以及时查看库存,以此实现交易顺利进行。 人员信息管理功能:用户可以根据自己的需要的人员信息。 销售员管理功能:销售员可以对销售情况进行管理,并可对库存进行查询。 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总体结构设计 图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 登陆模块 程序代码: Private Sub Command1_Click() If Text1.Text =And Text2.Text = 11111 Then MsgBox 您已成功登入!, vbOKOnly + vbInformation, 登陆成功 销售系统.Show Me.Hide Else MsgBox 账号或密码错误请从新输入 Text1.Text = Text2.Text = Text1.SetFocus End If End Sub 4.2其他(销售员登陆)模块的设计与实现 1.销售员登陆界面 图3 销售模块 Private Sub FDF_Click() End End Sub Private Sub fghj_Click() 库存查询.Show 销售系统.Hide End Sub Private Sub hjh_Click() 电脑销售查询.Show 销售系统.Hide End Sub Private Sub sfddf_Click() 电脑销售录入.Show 销售系统.Hide End Sub (1).电脑销售录入模块 图4 销售录入模块 Private Sub Command2_Click() 电脑销售录入.Hide 销售系统.Show End Sub Private Sub Command4_Click() Dim f%, n% f = Text3.Text n = Adodc5.Recordset.F

文档评论(0)

502992 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档