打开项目,选择扎包数据2表,在右边窗口,日期选择4月6日,然后选择班组、批次、姓名,按条件加载按钮,显示当天该员工的生产记录数据。
点击修改数据按钮,就对该员工的插拔卡时间按照所选的开始节拍至结束节拍,按所选的增加比例(如30%)增加插拔卡的时间,从而改变了工效。点击恢复数据按钮,就恢复到原始数据。
现在设想:通过CheckedComBoBox控件,增加任意所选节拍序号所对应的插拔卡时间,来改变工效,提高演示效果。
具体来说,就是代码的黄色标记处,如何用CheckedComBoBox控件代码来替换,实现上述效果。
For i As Integer = 1 To Tables("扎包数据2").Rows.Count -1
Dim xlfd As Double = Rand.Next(94,106) / 100 '效率浮动
Dim bcfd As Integer = Rand.Next(2,6) '拔插卡浮动秒时
Dim p1 As Row = Tables("扎包数据2").Rows(i-1) '上一行
Dim p2 As Row = Tables("扎包数据2").Rows(i) '当前行
If i >= ksjp - 1 And i < jsjp Then 'ksjp = 开始节拍,jsjp = 结束节拍
If i = 1 Then
p1("插卡时间") = dr("插卡时间")
p1("拔卡时间") = p1("插卡时间").AddSeconds((gwbzms + zjsj) * p1("产量") * xlfd) ‘gwbzms = 工位标准秒时,zjsj = 增加时间
p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
p2("拔卡时间") = p2("插卡时间").AddSeconds((gwbzms + zjsj) * p2("产量") * xlfd)
Else
p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
p2("拔卡时间") = p2("插卡时间").AddSeconds((gwbzms + zjsj) * p2("产量") * xlfd)
End If
Else
If i = 1 Then
p1("插卡时间") = dr("插卡时间")
p1("拔卡时间") = p1("插卡时间").AddSeconds(gwbzms * p1("产量") * xlfd)
p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
p2("拔卡时间") = p2("插卡时间").AddSeconds(gwbzms * p2("产量") * xlfd)
Else
p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
p2("拔卡时间") = p2("插卡时间").AddSeconds(gwbzms * p2("产量") * xlfd)
End If
End If
Next