[发明专利]一种基于VBA的电解液包装桶管理系统及运算方法

摘要

本发明提供一种基于VBA的电解液包装桶管理系统及运算方法，其特征在于包括以下步骤：建立包装桶管理系统的EXCEL文件、设计“流通明细”子表中流通信息的存储格式、系统功能设计、检索算法设计、录入程序设计。本发明中每个包装桶有唯一的一个桶号，桶号占用第一列，按顺序从小到大排列，第二列为“回桶日期”，第三列为“回桶客户名称”，第四列为“发货日期”，第五列为“发货客户名称”，每次流通包括这四项内容，下一次流通紧接着第六列为“回桶日期”，第七列为“回桶客户名称”，第八列为“发货日期”，第九列为“发货客户名称”，以此类推，在使用时工作人员可以清楚明了的了解包装桶的状态，节约了工作人员翻找的时间，提高了工作效率。

主权项

一种基于VBA的电解液包装桶管理系统及运算方法，其特征在于包括以下步骤：（1）、建立包装桶管理系统的EXCEL文件     在EXCEL表中建立“主页”子表，所述“主页”子表中包括录入、条件检索等触发按钮，建立“流通明细”子表，在该子表中存储每个桶的流通信息，建立“桶状态检索结果”子表、“按桶号检索结果”子表、“按客户检索结果”子表，用以显示查询结果；（2）、设计“流通明细”子表中流通信息的存储格式每个包装桶有唯一的一个桶号，桶号占用第一列，按顺序从小到大排列，第二列为“回桶日期”，第三列为“回桶客户名称”，第四列为“发货日期”，第五列为“发货客户名称”，每次流通包括这四项内容，下一次流通紧接着第六列为“回桶日期”，第七列为“回桶客户名称”，第八列为“发货日期”，第九列为“发货客户名称”，以此类推，每个EXCEL表包含256列，65536行，除去第一行是标题，第一列是桶号，255÷4=63.7，即EXCEL表单最多可存储65535个桶，63次的流通信息，每个包装桶流通一次按2个月计算的话，一年6次，这个表可使用10年，完全满足使用要求； （3）、系统功能设计    根据用户需求，主页面包含以下功能选项：按桶号检索，即检索出某个桶的所有流通信息；按客名称检索，即检索出某个客户曾经使用过哪些桶；按日期检索，即某天发出哪些桶，发给谁；收回哪些桶；外在包装桶检索，即检索出所有外在桶的信息，具体分为某家客户现滞留哪些桶，滞留多久；也可按日期查出，某天发出去的桶，有哪些还没有回来，都在哪个客户手中,在检索结果中也可统计出哪些桶丢失；发货桶录入功能；返回桶录入功能；（4）、检索算法设计    在VB编辑环境中进行编程，实现各个功能，其中各个检索程序的核心是判断每个桶的状态，这需要设计一个算法对每个桶进行判断，即判断每个桶的最后信息是发货信息还是回桶信息，如果是“发货信息”说明桶还没有回来，将该桶号和最后一次发货信息提取出来，如果是“回桶信息”则说明桶已经收回；    设某桶号所在行的最后数据单元格的列数为n，令z=(n‑3)/4，若z<0则桶丢失，若z为正整数包括0则桶在公司内，若z为正小数则桶在公司外，EXCEL表格中最大列数是256列，设某桶号所在的行是x，定义m = 256，调用如下语句    While (IsEmpty(Cells(x, m)))     m = m ‑ 1    Wend即先判断cells(x，256)单元格是否为空，若为空判断cells(x，255)单元格是否为空，以此类推直到对应的单元格不为空为止，取该单元格的列数值，即为n，再运用上述算法进行判断桶的状态，算法语句如下：Cells(i + 2, n + 4) = (Cells(i + 2, n + 3) ‑ 3) / 4  If Cells(i + 2, n + 4) < 0 Then    Cells(i + 2, n+ 5) = "丢失"  ElseIf (Int(Cells(i + 2, n + 4)) < Cells(i + 2, n + 4)) Then    Cells(i + 2, n + 5) = "在外"  Else    Cells(i + 2, n + 5) = "在内"   End If程序中将各个中间变量及结果，用数组进行存储，然后再输出到对应页面中指定的单元格中，作为条件检索的基础数据；（5）、录入程序设计    录入程序分为发货信息录入程序和回桶信息录入程序，录入前需要进行信息检查，设计思路基本一致，这里以发货信息录入为例进行说明，在“主页”子表指定区域输入要录入的信息后，先检查信息是否有误，在“检查程序”里边需要判断桶的当前状态，及发货桶的当前状态必须是已经返回公司，检查无误，即可启动录入程序，找出该桶号对应的行，进而找出该行最后不为空的单元格，在该单元格后填入对应的发货信息。