生产拉动看板

最新推荐文章于 2024-05-12 20:20:44 发布

Foresttu

最新推荐文章于 2024-05-12 20:20:44 发布

阅读量481

点赞数 1

分类专栏：笔记文章标签：经验分享

本文链接：https://blog.csdn.net/Foresttu/article/details/126929365

版权

笔记专栏收录该内容

18 篇文章 1 订阅

订阅专栏

1．看板的目的
使用电子看板系统，动态显示生产需求信息、生产完成信息以及待完成信息，实现对生产过程的拉动，方便全体生产人员实时了解生产动态。另外，管理人员的电脑上安装看板前端数据库文件后，即使在家里也可以实时了解生产状态。

2．看板功能介绍
本看板系统是基于ACCESS数据库开发的，系统显示页面由数据录入、数据显示、以及留言显示三大部分组成。数据录入部分由9个文本框和1个复选框组成的数据输入框，以及三个操作按钮组成。操作人员借助数据录部分可以完成新建产品批次信息，更新产品批次信息，以及删除已完成批次信息等操作。数据显示部分通过流转产品状态表、流转产品数量表这两个数据表及四个柱状图表，从不同角度显示产品的需求数量、已完成数量、以及等待完成数量；显示产品加工的优先等级：加急、优先、正常、不急；显示产品加工的需求开始日期，最迟送检日期，最近送检日期等日期信息。两个数据表及批次状态显示子窗体可以自动切换显示。在数据显示表中，生产操作人员特别关注的数据，被系统自动用不同的醒目的底纹标注出来，使得生产关注的数据清晰直观。留言显示部分可以用以信息交流，对需要特别关注的事项实现重点提醒。因为公司IT对电脑隐私的防护措施，公司局域网的电脑会被强制设置长时不操作就锁屏的功能，为了防止看板显示过程中被锁屏，本系统增加了防自动锁屏的代码。

3.1 数据录入操作
数据录入是以产品的批次信息为关键数据的，即产品数据是按照批次进行处理的，也就是说每次录入数据，产品批次文本框内不能为空。在输入文本框组中输入完数据后，点击“批次信息设定”按钮，系统提示检查和确认信息无误后，即可实现数据录入，并立即刷新数据显示部分的各个图表（见图1）。选定某个批次后，直接双击流转产品状态表中的批次号，则该批次的批次号和产品代号数值自动显示到对应的文本框内。

3.2 数据发布的区别
检验需求信息是由检验部门的系统操作人员录入发布的，已完成数量信息是由光饰部门系统操作人员录入发布的。系统根据检验需求量或已完成数量文本框是否有值，来判定是检验部门在发布数据信息，还是光饰部门在发布数据。

3.3 数据录入防错功能
数据录入如果发生错误，会有相应的报错提示。检验需求数量和已完成数量这两个文本框，被设置了一次只能在一个文本框中输入数据的互锁功能。如果一个文本框中输入了数据，而又在另外一个文本框中输入数据后，系统会发出错误提示（见图2）并自动将后面输入的数据自动清除。

如果在已完成数量文本框内输入了数值，但是输入的产品批次号系统中不存在，则系统会报错（见图3）。

如果输入的已完成数量大于所选批次的产品待完成量，则系统报错(见图4)，并自动将输入的已完成量修改成该批次的待完成量数值。

3.4 提醒和延误状态
提醒状态是指某批次在规定的时间内没有完成规定的数量，以提前提醒生产人员，若不采取措施，该批次产品会发生延误。或者是检验人员把该批次的加工优选状态直接设定成了“优先”。
延误状态是指某批次产品在最迟送检日期内没有及时完成的状态，或者是检验人员把该批次的加工优先状态直接设置成了“加急”。
检验部门在发布需加工产品的信息时，如果没有输入产品的标准加工天数、警示天数和警示数量，系统会根据批次开始日期和最迟完成日期计算出标准加工天数，并把警示天数自动设置为标准加工天数的0.8倍（去除小数部分）；警示数量自动设置为检验需求量值的0.8倍（去除小数部分）。
每天零点开始，系统会自动计算各个批次的产品是否触发提醒状态或延误状态，如果触发了提醒，则该批次的显示柱图变成黄色；如果触发了延误状态，则该批次的显示柱图变成红色。见图5。如果在数据录入组合框内，直接设定某批次产品的优先状态为加急或优先，则对应批次的显示柱图会立即变更成黄色或红色。

3.5 批次完成处理过程
当某批次的已完成数量达到检验需求量后，系统会自动把流转产品状态表中该批次的信息删除，以精简流转产品状态表中的显示信息，并把删除的信息转存到另外一个后台数据表内，以供后续查询。同时，系统会自动把流转产品数量表中相应的数据也更新，如果流转产品数量表中已完成数量未达到检验需求量，则系统会把对应产品代号的检验需求量，已完成数量以及待完成数量都减去已完成批次的检验需求量；如果流转产品数量表中的已完成数量也达到了检验需求量，则流转产品数量表中对应产品代号的记录条会被删除，以精简表中的显示内容。

3.6 留言板
留言板设置了两块，可以通过选择检验留言或光饰留言，切换两块留言板。在看板中设置了自动切换显示留言板的勾选框，如果勾选自定切换留言板，则系统每两分钟切换一次留言板。系统启动时会默认选择自动切换留言板。如果需要在留言板内输入信息时，建议把勾选框取消勾选，否则会给输入留言带来干扰。输入的留言需要换行时，使用Ctrl+Enter组合键可以实现强制换行。生产主管或工艺工程师使用个人电脑修改留言并保存留言，系统在把留言存入了后台的数据表中以供后续查询的同时，把后台留言保存表内的数据被修改状态位被置成True。看板系统每秒检测一次后台数据被修改的状态位状态，当检测到后台数据被修改状态位为True后，会自动调用页面加载过程，刷新留言板，修改后的留言内容就会在看板上显示，延时几秒后台数据被修改状态位被复位为False。

Private Sub Form_Timer()

Dim JY_Message_Change As Boolean
Dim GS_Message_Change As Boolean

TxtDateTime = Now
JY_Message_Change = DLookup("是否更新", "检验留言信息表", "ID=" & 1)
GS_Message_Change = DLookup("是否更新", "光饰留言信息表", "ID=" & 1)

If JY_Message_Change = True Or GS_Message_Change = True Then
    t = t + 1
 
'    If t = 1 Then Call Me.Parent.Form_Load
    If t <= 3 Then   '延时0.3秒
        Forms!光饰工序产品状态显示窗.TxtMessage_Jianyan = DLookup("检验留言", "检验留言信息表", "ID=" & 1)
        Forms!光饰工序产品状态显示窗.检验留言日期 = DLookup("检验留言日期", "检验留言信息表", "ID=" & 1)
        Forms!光饰工序产品状态显示窗.Txt_Message_guangshi = DLookup("光饰留言", "光饰留言信息表", "ID=" & 1)
        Forms!光饰工序产品状态显示窗.光饰留言日期 = DLookup("光饰留言日期", "光饰留言信息表", "ID=" & 1)
        Forms!光饰工序产品状态显示窗.流转产品数量表子窗体.Requery
        Forms!光饰工序产品状态显示窗.流转产品状态表子窗体.Requery
        Forms!光饰工序产品状态显示窗.GraphOderStatus.Requery
        Forms!光饰工序产品状态显示窗.Graph188.Requery
        Forms!光饰工序产品状态显示窗.Graph288.Requery
        Forms!光饰工序产品状态显示窗.Graph257.Requery
        Forms!光饰工序产品状态显示窗.Graph259.Requery
        Forms!光饰工序产品状态显示窗.Graph260.Requery
    End If
        
    '修改后台数据后，延时复位数据[是否更新]字段的True状态，确保其它前台文件可以获取数据已经更新的信号
   
    If t >= 50 Then '延时5秒
        DoCmd.SetWarnings False
        DoCmd.RunSQL "update 检验留言信息表 set 是否更新 = 'False' where ID=1"
        DoCmd.RunSQL "update 光饰留言信息表 set 是否更新 = 'False' where ID=1"
        DoCmd.SetWarnings True
        t = 0
    End If
Else
    t = 0
End If

End Sub