frmsalarycardnew.frm

金算盘软件代码

        Case Else
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
            txtCard(0).Text = 10
            txtCard(1).Text = 0
        End Select
    Case 0
        Select Case Trim(cboEditItem(0).Text)
        Case "文化程度"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 20
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "职务"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 20
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "性别"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 2
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
         Case "代发银行"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 30
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "家庭地址"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 40
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "邮政编码"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 6
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "办公电话"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 20
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "住宅电话"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 20
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "身份证号码"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 20
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "扣税标准"
            cboEditItem(1).Text = "文本"
            txtCard(0).Text = 30
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "出生日期"
            cboEditItem(1).Text = "日期"
            txtCard(0).Text = 10
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "入职日期"
            cboEditItem(1).Text = "日期"
            txtCard(0).Text = 10
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "离职日期"
            cboEditItem(1).Text = "日期"
            txtCard(0).Text = 10
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        Case "发放日期"
            cboEditItem(1).Text = "日期"
            txtCard(0).Text = 10
            txtCard(1).Text = 0
            cboEditItem(1).Enabled = False
            txtCard(0).Enabled = False
            updCard(0).Enabled = False
            txtCard(1).Enabled = False
            updCard(1).Enabled = False
        End Select
    End Select
End Sub
Private Sub cboEditItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    If KeyCode = 13 Then
        If Index = 0 Then
            If cboEditItem(1).Enabled = True Then
                cboEditItem(1).SetFocus
            Else
                If txtCard(0).Enabled = True Then
                    txtCard(0).SetFocus
                Else
                    cmdAddItem(0).SetFocus
                End If
            End If
        Else
            txtCard(0).SetFocus
        End If
    End If
End Sub
Private Sub cboEditItem_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = 91 Or KeyAscii = 92 Or KeyAscii = 39 Or KeyAscii = 124 Or KeyAscii = 46 Then
        SendKeys "{BACKSPACE}"
    End If
End Sub
Private Sub cmdAddItem_Click(Index As Integer)
    Dim strItemName As String
    Dim strErr As String
    Dim blnIsOK As Boolean
    
    Select Case Index
    Case 0 '确定
        Me.MousePointer = vbHourglass
        Select Case mintEditItem
        Case 0 '修改
            If Trim(cboEditItem(0).Text) = "" Then
                On Error Resume Next
                cboEditItem(0).SetFocus
                On Error GoTo 0
                Me.MousePointer = vbDefault
                ShowMsg Me.hWnd, "工资项目名称不允许为空。", vbInformation, Me.Caption
                Exit Sub
            End If
            If Len(Trim(cboEditItem(0).Text)) > 28 Then
                On Error Resume Next
                cboEditItem(0).SetFocus
                On Error GoTo 0
                Me.MousePointer = vbDefault
                ShowMsg Me.hWnd, "工资项目名称不能超过28个字符，请重新输入。", vbInformation, Me.Caption
                Exit Sub
            End If
            If Trim(cboEditItem(1).Text) = "数字" Then
                If txtCard(0).Text > 20 Then
                    On Error Resume Next
                    txtCard(0).SetFocus
                    On Error GoTo 0
                    Me.MousePointer = vbDefault
                    ShowMsg Me.hWnd, "工资项目长度不能超过20，请重新输入。", vbInformation, Me.Caption
                    Exit Sub
                End If
                If txtCard(1).Text > 9 Then
                    On Error Resume Next
                    txtCard(1).SetFocus
                    On Error GoTo 0
                    Me.MousePointer = vbDefault
                    ShowMsg Me.hWnd, "工资项目时小数不能超过9，请重新输入。", vbInformation, Me.Caption
                    Exit Sub
                End If
                strItemName = Left(Trim(cboEditItem(0).Text), 28)
                blnIsOK = SalarySameName(strItemName, strErr)
                If blnIsOK Then
                    Me.MousePointer = vbDefault
                    ShowMsg Me.hWnd, strErr, vbInformation, Me.Caption
                    Exit Sub
                End If
            End If
            Me.MousePointer = vbDefault
            If SalaryItemEdit() Then
                Unload Me
            End If
        Case 1 '新增
            If Trim(cboEditItem(0).Text) = "" Then
                On Error Resume Next
                cboEditItem(0).SetFocus
                On Error GoTo 0
                Me.MousePointer = vbDefault
                ShowMsg Me.hWnd, "工资项目名称不允许为空。", vbInformation, Me.Caption
                Exit Sub
            End If
            If Len(Trim(cboEditItem(0).Text)) > 28 Then
                On Error Resume Next
                cboEditItem(0).SetFocus
                On Error GoTo 0
                Me.MousePointer = vbDefault
                ShowMsg Me.hWnd, "工资项目名称不能超过28个字符，请重新输入。", vbInformation, Me.Caption
                Exit Sub
            End If
            If Trim(cboEditItem(1).Text) = "数字" Then
                If txtCard(0).Text > 20 Then
                    On Error Resume Next
                    txtCard(0).SetFocus
                    On Error GoTo 0
                    Me.MousePointer = vbDefault
                    ShowMsg Me.hWnd, "工资项目长度不能超过20，请重新输入。", vbInformation, Me.Caption
                    Exit Sub
                End If
                If txtCard(1).Text > 9 Then
                    On Error Resume Next
                    txtCard(1).SetFocus
                    On Error GoTo 0
                    Me.MousePointer = vbDefault
                    ShowMsg Me.hWnd, "工资项目时小数不能超过9，请重新输入。", vbInformation, Me.Caption
                    Exit Sub
                End If
                strItemName = Left(Trim(cboEditItem(0).Text), 28)
                blnIsOK = SalarySameName(strItemName, strErr)
                If blnIsOK Then
                    Me.MousePointer = vbDefault
                    ShowMsg Me.hWnd, strErr, vbInformation, Me.Caption
                    Exit Sub
                End If
            End If
            If AddSalaryItem() Then
                Unload Me
            End If
        End Select
    Case 1 '取消
        Unload Me
    Case 2 '下一个
        Me.MousePointer = vbHourglass
        If Trim(cboEditItem(0).Text) = "" Then
            On Error Resume Next
            cboEditItem(0).SetFocus
            On Error GoTo 0
            Me.MousePointer = vbDefault
            ShowMsg Me.hWnd, "工资项目名称不允许为空。", vbInformation, Me.Caption
            Exit Sub
        End If
        If Len(Trim(cboEditItem(0).Text)) > 28 Then
            On Error Resume Next
            cboEditItem(0).SetFocus
            On Error GoTo 0
            Me.MousePointer = vbDefault
            ShowMsg Me.hWnd, "工资项目名称不能超过28个字符，请重新输入。", vbInformation, Me.Caption
            Exit Sub
        End If
        If Trim(cboEditItem(1).Text) = "数字" Then
            If txtCard(0).Text > 20 Then
                    On Error Resume Next
                    txtCard(0).SetFocus
                    On Error GoTo 0
                    Me.MousePointer = vbDefault
                    ShowMsg Me.hWnd, "工资项目长度不能超过20，请重新输入。", vbInformation, Me.Caption
                    Exit Sub
                End If
                If txtCard(1).Text > 9 Then
                    On Error Resume Next
                    txtCard(1).SetFocus
                    On Error GoTo 0
                    Me.MousePointer = vbDefault
                    ShowMsg Me.hWnd, "工资项目时小数不能超过9，请重新输入。", vbInformation, Me.Caption
                    Exit Sub
                End If
            strItemName = Left(Trim(cboEditItem(0).Text), 28)