进销存管理系统

福建师范大学 计算机科学与应用 进销存管理系统 0 福建师范大学 现代远程教育毕业论文 进销存管理系统进销存管理系统 学习中心 专 业 计算机科学与应用 年 级 入学批次 学 号 学生姓名 导师姓名 2017 年 2 月 27 日 福建师范大学 计算机科学与应用 进销存管理系统 1 目录 摘要 2 引言 3 一 需求分析 4 1 1 设计目的 4 1 2 设计方案 4 1 2 1 数据库设计 4 1 2 2 程序对数据库的操作 4 1 2 3 对信息查询 修改 5 1 3 系统模块流程图 5 1 4 系统功能简介 5 二 数据库设计 6 2 1 数据库表结构设计 7 2 1 1 用户信息表 7 2 1 2 客户资料表 7 2 1 3 商品资料表 8 2 1 4 供应商资料表 8 2 1 5 商品库存表 8 2 1 6 盘点明细表 8 三 详细设计 9 3 1 系统界面设计 9 3 2 系统模块功能的实现 11 3 2 1 数据连接及用户登录模块 11 3 2 2 系统主窗体界面介绍 13 3 2 3 资料管理模块 15 3 2 4 业务管理 采购管理模块 17 3 2 5 业务管理 销售管理模块 19 3 2 6 业务管理 库存管理模块 20 3 2 7 业务管理 统计管理模块 21 3 2 8 系统管理模块 23 四 论文小结 24 参考文献 24 福建师范大学 计算机科学与应用 进销存管理系统 2 摘摘要要 这几年随着种国经济的飞速发展 诸多企业的规模也不断发展扩大 在计算机普遍应用的现在 这几年随着种国经济的飞速发展 诸多企业的规模也不断发展扩大 在计算机普遍应用的现在 大部分的商业行为都和计算机有着密不可分的关系 在这个科技飞速发展的社会企业面临着越来越激烈的大部分的商业行为都和计算机有着密不可分的关系 在这个科技飞速发展的社会企业面临着越来越激烈的 竞争 企业改善内部以及对整个供应链各环节的管理 调度及资源配置 快速适应客户的新需求和市场的竞争 企业改善内部以及对整个供应链各环节的管理 调度及资源配置 快速适应客户的新需求和市场的 机遇 是赢得市场竞争的主要因素 这不仅仅是为了不落于人后 不被大时代淘汰 更是为了实现日常工机遇 是赢得市场竞争的主要因素 这不仅仅是为了不落于人后 不被大时代淘汰 更是为了实现日常工 作的有序和方便化 进销存管理系统操作简单方便 灵活好用 系统安全性高 稳定性强 科技化信息可作的有序和方便化 进销存管理系统操作简单方便 灵活好用 系统安全性高 稳定性强 科技化信息可 以能更好的帮助管理好企业 进销存管理系统主要包括以能更好的帮助管理好企业 进销存管理系统主要包括 1 1 数据的导入导出及备份 可以自行对数据进行 数据的导入导出及备份 可以自行对数据进行 更新 更新 2 2 资料管理分为供应商资料 商品资料以及客户资料管理 资料管理分为供应商资料 商品资料以及客户资料管理 3 3 业务管理分为采购管理 销售管理 业务管理分为采购管理 销售管理 库存管理 统计管理模块 库存管理 统计管理模块 4 4 系统管理包括 用户管理 密码维护 登陆管理 因此 采用全新的计算系统管理包括 用户管理 密码维护 登陆管理 因此 采用全新的计算 机网络和管理系统是提高企业管理效率 实现企业规模化的重要方法之一 机网络和管理系统是提高企业管理效率 实现企业规模化的重要方法之一 最后 我们要感谢那些曾对此设计提供帮助的老师和同学们 最后 我们要感谢那些曾对此设计提供帮助的老师和同学们 关键词关键词 SQL SERVER数据库 VB net 进销存管理系统 福建师范大学 计算机科学与应用 进销存管理系统 3 进销存管理系统采用 Microsoft Visual Basic 工具开发 SQLServer 为后台数据库设计 进销存管理系统市场前景广阔 随着现如今计算机在企业中的普及应用 计算机技术的飞 速发展 进销存管理系统的发展到了一个全新的时期 全新的系统平台 全新的系统特点 以及全新的发展方向 对于各种管理系统的研究开发也朝着高水平 高科技等符合国际技 术提高的趋向发展 进销存管理系统主要包括后台数据库的建立和维护以及前端应用程序 的开发两个方面 对于前者要求建立数据一致性和完整性强 数据安全性好的数据库 而 对于后者则要求应用程序功能尽可能的方便用户使用为宗旨 还要尽可能的做到更好的实 际应用 在计算机发达的今天运用进销存管理系统不仅仅是为使企业不被淘汰 更是为了更好的 管理企业 为了更好的借助计算机来实现最大的商业价值获利 一直以来人们使用传统人工 的方式管理公司客户的信息 这种管理方式存在着诸多缺点 如 效率低 保密性差 长时间 使用会产生大量的数据文件 这对于查找 更新和维护都带来很大的困扰 作为管理的一部 分 使用计算机对公司客户信息 产品信息等进行管理 有着手工管理所无法比拟的优点 因 此 开发这样一套完整的进销存管理软件成为很有必要的事情 通过利用 Visual Basic NET 编写的进销存管理系统 整个过程体现以商品进货 销售 存储货物为一体 提供快速 便捷的管理模式 大大提高企业的管理水平 简化各种复杂 操作 使一些非计算机专业的人员 也能得心应手的操作系统 来完成专业的业务服务 进销存管理整个系统结构清析 算法简单扼要 可以依据用户的实际情况来对其给予相应 的实际操作 在下面的各章中我们将以开发一套进销存管理系统为例 谈谈其开发过程和所涉及到的 问题及解决方法 福建师范大学 计算机科学与应用 进销存管理系统 4 一 一 需需求求分分析析 1 11 1 设设计计目目的的 科技现代化企业管理在组织规模庞大 业务项目众多 信息量大而丰富 要提高劳动 生产 降低成本 提升服务质量和管理水平 从而促进经济效益 必须借助计算机来进行 科技化的信息管理 进销存管理系统正是为此而设计的 1 21 2 设设计计方方案案 进销存管理系统 的设计主要包括以下 4 部分 数据库设计 程序对数据 库的处理与操作 及是对数据最基本的增加 删除 修改 导入 导出等与设 计所采用的设备 1 2 11 2 1 数数据据库库设计设计 数据库技术是一个非常重要的部分 伴随着信息技术的发展 数据库技术先后经历了人 工管理阶段 文件管理阶段和数据库管理阶段 进销存管理系统采用 Microsoft SQL Server 数据库 该数据库是微软公司继 SQL Server 之后最新推出的关系型数据库管理系统 它扩展了 Microsoft SQL Server 版本的性 能 可靠性 质量和易用性 同时也增加了一些新的功能 由此成为大规模联机事务处理 数据 仓库和电子商务应用程序的优秀数据库平台 1 2 21 2 2 程序程序对对数数据据库的操作库的操作 应用程序和数据库之间必须要建立稳定 可靠 快速地连接 导入数据就完成连接 1 2 31 2 3 对信息查对信息查询询 修改修改 方便快捷的对信息的查询与修改是进销存管理系统的优点之一 以往繁杂的查询已 经被淘汰 为了更好的借助网络来实现更大的商业利益 福建师范大学 计算机科学与应用 进销存管理系统 5 1 31 3 系统系统模模块块流流程程图图 图 1 进销存管理系统模块流程图 1 41 4 系系统统功功能能简简介介 1 系统管理 通过对用户信息表数据的增加 删除 修改 读取与退出实现用户信息管 理 密码维护以及重新登陆 2 业务管理分为采购管理 销售管理 库存管理 统计管理 采购管理是通过对采购单 列表 采购单明细表等的数据更新 最后实现商品库存表数据改变 销售管理也是如 此通过对销售单表 销售单明细表以及商品库存表实现数据的共同改变 3 库存管理是对商品库存表 盘点明细表两张表中对数据库进行管理 福建师范大学 计算机科学与应用 进销存管理系统 6 二 数据二 数据库库设设计计 计算机技术特别是数据库技术的发展为企业建立管理信息系统 甚至对改变管理思想 起着不可估量的作用 管理思想的发展与信息技术的发展是互成因果的环路 对于数据库应用系统来讲 数据库结构是否合理 将直接影响该系统的开发 基于一 个设计合理的开发数据库应用系统 不但软件编码速度快 而当软件因需求发生变化后 修改周期也大大缩短 SQL Server 是一个关系数据库管理系统 它最初是由 Microsoft Sybase 和 Ashton Tate 三家公司共同开发的 于 1988 年推出了第一个 OS 2 版本 在 Windows NT 推出后 Microsoft 与 Sybase 在 SQL Server 的开发上就分道扬镳了 Microsoft 将 SQL Server 移植 到 Windows NT 系统上 专注于开发推广 SQL Server 的 Windows NT 版本 Sybase 则较 专注于 SQL Server 在 UN 操作系统上的应用 2 12 1 数据数据库库表结表结构构设计设计 根据进销存管理系统的功能要求 选取 SqlServer 作为后台数据库 该数据库由十个表组成 分别是用户信息表 供应商资料表 客户资料表 商品资料 表 商品库存表 盘点明细表 采购单表 采购单明细表 销售单表 销售单明细表 2 1 12 1 1 用户用户信信息息表表 用户信息表包含了用户 ID 用户名称 用户类型 密码 权限 身份证 住址 电话 邮箱等 9 个字段 具体如表 1 所示 表 1 用户信息表 福建师范大学 计算机科学与应用 进销存管理系统 7 2 1 22 1 2 客户客户资资料表料表 客户资料表包含了客户编号 客户名称 地址 电话 传真 信誉等级 所有商品 简介等 8 个字段 具体如表 2 所示 表 2 客户资料表 2 1 32 1 3 商商品品资资料料表表 商品资料表包含商品编号 商品名称 条形码 供应商编号等 7 个字段 具体如表 3 所示 表 3 商品资料表 福建师范大学 计算机科学与应用 进销存管理系统 8 2 1 42 1 4 供供应应商商资资料料表表 供应商资料表包含供应商编号 供应商名称 地址 电话等 8 个字段 具体如表 4 所示 表 4 供应商资料表 2 1 52 1 5 商商品品库库存存表表 商品库存表包含商品编号 成本价 销售价 库存数量等 12 个字段 具体如表 5 所 示 表 5 商品库存表 福建师范大学 计算机科学与应用 进销存管理系统 9 2 1 62 1 6 盘点盘点明明细表细表 盘点明细表包含编号 ID 商品编号 调整数量 成本价等 8 个字段 具体如表 6 所示 表 6 盘点明细表 三 详三 详细细设设计计 3 13 1 系统系统界界面面设计设计 根据需求分析结果 进销存管理系统的程序界面可分为以下几个模块 1 数据连接及用户登录模块 2 系统主窗体界面介绍 3 资料管理模块 4 业务管理 采购管理模块 5 业务管理 销售管理模块 6 业务管理 库存管理模块 7 业务管理 统计管理模块 8 系统管理 福建师范大学 计算机科学与应用 进销存管理系统 10 3 23 2 系统系统模模块块功能的实现功能的实现 3 2 13 2 1 数数据据连连接接及用户登录及用户登录 图 2 数据库连接界面 窗体使用 此窗体实现对数据库的连接 在 4 个 TextBox 控件中分别输入 1 登录数据库的用户名 即 此登录用户必须对系统后台数据库具有管理员权限 2 登 录数据库用户的密码 3 本系统后台数据库名 既 进销存管理系统 数据库 4 输入本 地计算机 SQL Server 服务器名 输入后单击 确定 即可实现数据库连接 数据的导入 导出 数据库连接主要代码如下 ConnectionString Provider SQLOLEDB 1 Persist Security Info True ConnectionString ConnectionString Password ConnectionString ConnectionString Data Source Trim txtServer Text F 重新登录 Show Unload Me 图 3 用户登录及重新登录界面 窗体使用 此功能主要是用于用户登录 并实现了管理员与普通用户的权限管理切换 用户名称 ComboBox 控件 下拉菜单下选择登录名称 并在密码框 TextBox 控件 中 输入密码 点击确定实现登录 登录主要代码如下 福建师范大学 计算机科学与应用 进销存管理系统 11 Dim rst As ADODB Recordset Dim password As String 判断用户是否存在 UserID Left Trim CboName Text 4 取出用户的 ID SQL select 用户 ID 密码 from 用户信息表 where 用户 ID UserID Set rst SelectSQL SQL msg If rst RecordCount 0 Then password Trim rst Fields 1 取出该用户的密码 rst Close Else MsgBox 数据库操作错误 Exit Sub End If 判断密码是否正确 If password Trim txtPassword Text Then LoginSucceeded True 进销存管理系统 Show Unload Me Else MsgBox 密码错误 LoginSucceeded False End If 福建师范大学 计算机科学与应用 进销存管理系统 12 3 2 23 2 2 系统主窗系统主窗体体界界面介绍面介绍 图 4 进销存管理系统窗体 此界面含盖了整个系统所有的功能 内容包含资料管理 采购管理 销售管理 库存 管理 统计分析 系统管理等 其中采购管理 销售管理及系统管理子目录中的用户管理 属于管理员权限下才可使用的功能 资料管理又分为 供应商资料 客户资料 商品资料 采购管理又分为 采购单 采购入库 采购查询 销售管理又分为 销售单 销售出库 销售查询 库存管理又分为 库存维护 价格管理 库存盘点 统计管理又分为 采购单分析 销售单分析 销售利润 系统管理又分为 用户管理 密码维护 重新登录 主窗体运行时将触发 Load 事件 在 Load 事件中 首先要求得到用户的权限信息 然 后根据用户权限设置菜单的可用性 系统只对一级模块进行权限管理 其主要代码如下 Dim rst As ADODB Recordset Dim SQL As String Dim msg As String Dim rights As String 保存记录中的权限值 福建师范大学 计算机科学与应用 进销存管理系统 13 查找权限 SQL select 权限 from 用户信息表 where 用户 ID UserID Set rst SelectSQL SQL msg If rst RecordCount 0 Then rights Trim rst Fields 0 rst Close Else MsgBox 没有用户信息 Exit Sub End If 设置权限 If InStr rights 资料管理 Then 资料管理 Enabled True Me Toolbar1 Buttons 1 Enabled True Me Toolbar1 Buttons 2 Enabled True Me Toolbar1 Buttons 3 Enabled True Else 资料管理 Enabled False Me Toolbar1 Buttons 1 Enabled False Me Toolbar1 Buttons 2 Enabled False Me Toolbar1 Buttons 3 Enabled False End If If InStr rights 采购管理 Then 采购管理 Enabled True Me Toolbar1 Buttons 4 Enabled True Me Toolbar1 Buttons 5 Enabled True Else 采购管理 Enabled False Me Toolbar1 Buttons 4 Enabled False Me Toolbar1 Buttons 5 Enabled False End If If InStr rights 销售管理 Then 销售管理 Enabled True Me Toolbar1 Buttons 6 Enabled True Me Toolbar1 Buttons 7 Enabled True Else 销售管理 Enabled False Me Toolbar1 Buttons 6 Enabled False Me Toolbar1 Buttons 7 Enabled False End If 库存管理 Enabled InStr rights 库存管理 统计分析 Enabled InStr rights 统计分析 用户管理 Enabled InStr rights 用户管理 福建师范大学 计算机科学与应用 进销存管理系统 14 3 2 33 2 3 资料资料管管理理模块模块 资料管理又分为 供应商资料 图 5 客户资料 商品资料 其三个界面其功能类 似 所以 以 供应商资料 为例做个简单介绍 图 5 供应商资料管理界面 此界面含盖了供应商资料的设置功能 用于设置供应商编号 供应商名称 地址 电 话 简介等信息 并能实现对所有供应商信息的指定查询 及对供应商信息的添加 修改 删除等功能 本窗体运用了如下控件 ComboBox 控件 列出查询条件与信誉登级 DtaaGrid 控 件 显示供应商信息 TextBox 控件 供用户输入查询值和供应商信息 CommandButton 控 件 提供界面所有的按纽 Click 事件 选择 资料管理 菜单 进入 供应商资料 功能窗体 如图 5 所示 窗体使用 若要实现对指定的供应商资料进行查询 操作如下 先选择查询条件 如 供应商编号 并以指定要求在方框中输入 点击查询便可实现 窗体使用 若要实现对指定的供应商资料的添加 先点击 添加 后 在编辑供应商 信息中填写相关资料 填写完毕后点击 保存 添加操作其主要代码如下 所有控件重置 Call ControlClear 设置控件 Enable 值为可用 Call ControlEnable True 设置标志 flag 表示所进行的操作为添加 flag Add 福建师范大学 计算机科学与应用 进销存管理系统 15 所有移动按钮不可用 For Index 0 To 3 CmdMove Index Enabled False Next Index 添加 修改 删除按钮不可用 取消 保存按钮可用 CmdAdd Enabled False CmdModify Enabled False CmdDelete Enabled False CmdCancel Enabled True CmdSave Enabled True 窗体使用 若要实现对指定的供应商资料的修改 先查询出指定的供应商资料 在点 击 修改 后 于编辑供应商信息中修改所需修改信息 确定更新信息无误后点击 保 存 修改操作其主要代码如下 If rs RecordCount 0 Then 如果存在记录 供应商编号不可以修改 其他控件可用 txt 0 Enabled False 设置控件Enable值 Call ControlEnable True 设置标志flag 表示所进行的操作为修改 flag Modify 移动控件不可用 For Index 0 To 3 CmdMove Index Enabled False Next Index 添加 修改 删除按钮不可用 取消 保存按钮可用 CmdAdd Enabled False CmdModify Enabled False CmdDelete Enabled False CmdCancel Enabled True CmdSave Enabled True Else MsgBox 没有可以修改的数据 End If 窗体使用 若要实现对指定的供应商资料的删除 先查询出指定的供应商资料 点击 删除 核对无误后点击 确定 实现操作 删除操作其主要代码如下 On Error GoTo ErrMsg 错误处理 If rs RecordCount 0 Then msg MsgBox 删除该条记录吗 vbYesNo If msg vbYes Then rs Delete 删除数据 Call LoadData 重新装载数据 清空控件 Call ControlClear 设置控件Enable值为不可用 Call ControlEnable False If rs RecordCount 0 Then 所有移动控件不可用 For Index 0 To 3 福建师范大学 计算机科学与应用 进销存管理系统 16 CmdMove Index Enabled False Next Index End If 添加 删除按钮可用 修改 取消 保存按钮不可用 CmdAdd Enabled True CmdModify Enabled False CmdDelete Enabled True CmdSave Enabled False CmdCancel Enabled False MsgBox 成功删除的数据 End If Else MsgBox 没有可删除的数据 End If Exit Sub ErrMsg 报告出错信息 MsgBox Err Description vbExclamation 出错 3 2 43 2 4 业务管业务管理理 采购管理模块采购管理模块 采购管理业务分为 采购单 采购入库 图 6 采购查询 以 采购入库 为例做 个简单介绍 采购管理模块 图 6 采购入库功能窗体 福建师范大学 计算机科学与应用 进销存管理系统 17 此界面含盖了采购入库的功能 主要负责管理商品的采购入库 核销采购单 并对库 存中的商品成本价格进行处理 即成本价 原库存总金额 采购总金额 原库存数 采 购数量 本窗体运用了 ComboBox 控件 DtaaGrid 控件 TextBox 控件 CommandButton 控 件 还运用了 DTPicker 时间控件 用户登录系统后 单击 采购管理 选择运行 采购入库 就可进入采购入库窗体 图 6 窗体使用 若用户要对采购信息进行入库操作时 必须先查询出采购单 可通过采购 单号与供应商编号分别作为查询条件 于采购单信息列表中找出所查询信息 选定该信息 单击 入库 单击后窗体时将触发 CmdSave Click 事件 在该事件中 同时调用 setData 过程进行商品入库 首先将采购单的 是否核销 标志变为 已核销 然后更新商品库 存 入库操作其主要代码如下 On Error GoTo ErrMsg 错误处理 msg MsgBox 您确实要把当前采购单入库吗 vbYesNo If msg vbYes Then Call setData 设置数据 Else Exit Sub End If rs Update 更新数据 CmdSave Enabled False MsgBox 成功入库 Call LoadData 重新装载数据 Call ShowData 重新显示数据 Exit Sub ErrMsg 报告出错信息 MsgBox Err Description vbExclamation 出错 Private Sub setData End Sub Private Sub setData 为字段设置数据 Dim rst As ADODB Recordset Dim ms As ADODB Recordset 采购单的 是否核销 标志变成 已核销 rs Fields 是否核销 已核销 将采购单明细中的采购数量添加到商品库存数量中去 且商品成本价将进行移动平均 处理 SQL select from 采购单明细表 where 采购单号 txt 0 Text Set rst SelectSQL SQL msg Do Until rst EOF 福建师范大学 计算机科学与应用 进销存管理系统 18 SQL select from 商品库存表 where 商品编号 rst Fields 商品编号 Set ms SelectSQL SQL msg ms Fields 成本价 CDbl ms Fields 库存总金额 CDbl rst Fields 总共 金额 CDbl ms Fields 库存数量 CDbl rst Fields 采购数量 ms Fields 库存总金额 CDbl ms Fields 库存总金额 CDbl rst Fields 总共金额 ms Fields 库存数量 CDbl ms Fields 库存数量 CDbl rst Fields 采购 数量 ms Update rst MoveNext Loop ms Close rst Close End Sub 3 2 53 2 5 业业务务管管理理 销销售管理模块售管理模块 销售管理业务分为 销售单 图 7 销售入库 销售查询 以 销售单 为例做个 简单介绍 销售管理模块 福建师范大学 计算机科学与应用 进销存管理系统 19 图 7 销售单功能窗体 此界面含盖了销售管理全功能 该模块包含了对所有销售单信息的添加 修改 及 删除 不但能对所有销售情况进行查询 还能对每比交易有更详细的查询 销售单明细 本窗体运用了 ComboBox 控件 DtaaGrid 控件 TextBox 控件 CommandButton 控 件 DTPicker 时间控件 销售管理界面与供应商资料查询界面类似 若要查询销售单信息 必须是管理员用户 在主界面下选择 销售管理 菜单 直接进入 销售单 功能窗体 如图 7 所示 窗体使用 若要实现对指定的销售单进行查询 操作如下 先选择查询条件 如 销 售单号 客户编号 并于方框内输入相应信息 点击查询便可实现 窗体使用 若要实现对销售单资料的添加 先点击 添加 后 在编辑供应商信息中 填写相关资料 填写完毕后点击 保存 窗体使用 若要实现对指定的销售单资料的修改 先查询出指定的销售单资料后 点 击 修改 于编辑供应商信息中修改所需修改信息 确定修改信息无误后点击 保存 窗体使用 若要实现对指定销售单的删除 先查询出指定的供应商资料 点击 删 除 核对无误后点击 确定 实现操作 窗体使用 若要实现对销售明细单的各项操作 点击 销售明细 按纽 其界面是记录每比销售的记录 其中包含了销售单号 商品编号 销售数量 成本单价 销售单价 总共金额等商业信息 如图 8 所示 编辑销售单明细其主要代码如下 Me Enabled False SaleNo rs Fields 销售单号 SaleFlag rs Fields 是否核销 C销售单明细 Show End Sub 图 8 销售单明细窗体 福建师范大学 计算机科学与应用 进销存管理系统 20 窗体使用 若要对修改或添加的销售单明细信息数据进行保存 对信息在编辑销售单 明细信息中进行核对无误 点击保存 保存操作其主要代码如下 Dim rst As ADODB Recordset Dim sum As Double 保存总共金额 Dim res As Double 保存不含税价 Dim zong As Double 保存税额 sum 0 res 0 zong 0 On Error GoTo ErrMsg 错误处理 If Not CheckData Then Exit Sub 如果数据不合法就退出 If flag Modify Then 如果是修改数据 msg MsgBox 您确实要修改这条数据吗 vbYesNo If msg vbYes Then Call setData 设置数据 Else Exit Sub 3 2 63 2 6 业业务务管管理理 库存管理模块库存管理模块 库存管理业务分为 价格管理 库存盘点 图 9 库存维护 以 库存盘点 为例 做个简单介绍 库存管理模块 图 9 库存盘点功能窗体 福建师范大学 计算机科学与应用 进销存管理系统 21 库存盘点 模块用于管理企业商品库存的盘点工作 将实际盘存的商品数量输入计 算机 通过与库存数量进行核对产生盘盈和盘亏统计情况 盘盈时做入库处理 盘亏时做 出库处理 本窗体运用了 DtaaGrid 控件 CommandButton 控件 DTPicker 时间控件 用户登录系统后 单击 库存管理 选择运行 库存盘点 就可进入库存盘点窗体 图 9 窗体使用 用户可以对库存数量进行盘点调整 选择盘点日期 然后单击 查询 按 纽 如果该日的盘点信息已存在 则显示盘点信息 如果盘点信息不存在 则新建盘点信 息列表 盘点完毕后的盘点信息不能再进行修改 单击 保存数据 按纽 可以保存盘点 信息 单击 盘点完毕 按纽 系统将自动进行盘点调整工作 当用户单击 盘点完毕 按纽时 将触发 Click 事件 在该事件中 需要对盘点进行 调整 盘盈时做入库处理 盘亏时做出库处理 主要代码是 Private Sub CmdFinish Click 盘点完毕操作 Dim strWhere As String strWhere where 操作日期 Me DTPicker1 Value Set rs Nothing msg MsgBox 你需要盘点该列表吗 vbYesNo If msg vbYes Then SQL SELECT 商品编号 成本价 调整数量 FROM 盘点明细表 strWhere ORDER BY 商品编号 Set rs SelectSQL SQL msg rs MoveFirst 调整商品库存表中的库存数量 库存总金额 Do While Not rs EOF SQL update 商品库存表 set 库存数量 库存数量 CDbl rs Fields 调 整数量 SQL SQL 库存总金额 库存总金额 CDbl rs Fields 调整数量 CDbl rs Fields 成本价 SQL SQL where 商品编号 rs Fields 商品编号 Call ExecuteSQL SQL msg rs MoveNext Loop 修改盘点明细的标志为 完成 默认操作人员为当前进入用户 SQL update 盘点明细表 set 标志 完成 操作人员 UserID strWhere Call ExecuteSQL SQL msg Call LoadData msg MsgBox 盘点完毕 Else 福建师范大学 计算机科学与应用 进销存管理系统 22 Exit Sub End If End Sub 3 2 73 2 7 业务业务管管理理 统计管理模块统计管理模块 统计管理又分为 采购单分析 销售单分析 销售利润 图 10 以 销售利润 为 例做个简单介绍 统计管理模块 图 10 销售利润窗体 销售利润 模块负责统计销售利润 销售利润 销售价 成本价 销售数量 税 额 本窗体运用了 DtaaGrid 控件 CommandButton 控件 DTPicker 时间控件及 Label 控 件 显示统计结构 用户登录系统后 单击 统计分析 点击 销售利润 进入销售利润窗体图 10 窗体使用 若要对销售利润统计 选择起始与结束时间 点击查询便可 将显示商品 销售利润 及合计结果 其中合计结果包含销售总金额 成本总金额 税收总金额 销售 利润 主要代码是 Dim rs As ADODB Recordset 福建师范大学 计算机科学与应用 进销存管理系统 23 Dim XiaoShou As Double 保存总销售金额 Dim ChenBen As Double 保存总成本金额 Dim ShuiShou As Double 保存总税收金额 Dim result As Double 保存总利润金额 按商品编号进行统计 SQL SELECT 商品编号 SUM 销售数量 AS 销售数量 SUM 总共金额 AS 销 售金额 SQL SQL Sum 成本单价 销售数量 as 成本总金额 SUM 税额 AS 税额 SQL SQL SUM 总共金额 Sum 成本单价 销售数量 SUM 税额 as 利润 From 销售单明细表 SQL SQL WHERE 销售单号 IN SELECT 销售单号 From 销售单表 SQL SQL WHERE 是否核销 已核销 AND 销售日期 BETWEEN SQL SQL Me DTPicker1 Value AND Me DTPicker2 Value GROUP BY 商品编号 Set rs SelectSQL SQL msg Set Me DataGrid1 DataSource rs DataGrid1 Refresh XiaoShou 0 ChenBen 0 ShuiShou 0 计算总的统计结果 Do Until rs EOF XiaoShou XiaoShou CDbl rs Fields 销售金额 ChenBen ChenBen CDbl rs Fields 成本总金额 ShuiShou ShuiShou CDbl rs Fields 税额 result result CDbl rs Fields 利润 rs MoveNext Loop Label2 0 Caption Str XiaoShou 元 Label2 1 Caption Str ChenBen 元 Label2 2 Caption Str ShuiShou 元 Label2 3 Capti