47、工作调度与生产计划应用详解

onion

于 2025-11-11 15:55:47 发布

阅读量12

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA建模：从入门到精通文章标签：工作调度生产计划 VBA

本文链接：https://blog.youkuaiyun.com/onion/article/details/155405920

VBA建模：从入门到精通专栏收录该内容

66 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

工作调度与生产计划应用详解

1. 工作调度应用

1.1 用户表单设计

frmInputs 设计使用了 10 个文本框和相应的标签，还有常见的“确定”和“取消”按钮，以及按钮左侧的一些解释标签。“日期”文本框命名为 txtDay1 到 txtDay7 （对应周一到周日），工资率文本框命名为 txtWeekday 和 txtWeekend ，百分比文本框命名为 txtMaxPct 。

相关事件处理程序如下：

Private Sub btnCancel_Click()
    Unload Me
    End
End Sub

Private Sub btnOK_Click()
    ' Check for improper entries in the text boxes. If any entries are improper,
    ' exit this sub without unloading the dialog box.
    Dim ctl As Control
    Dim day As Integer ' day index, 1 to 7
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then
            If ctl.Text = "" Or Not IsNumeric(ctl.Text)