frmcheckedit.vb

使用说明 1.在使用源程序前

Class FrmCheckEdit
    Inherits System.Windows.Forms.Form
    Public Modify As Boolean '插入=false,修改=true
    Public OriEmpId As Integer
    Public TmpOk As Boolean

    Private Sub Cmd_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Cancel.Click
        TmpOk = False
        Me.Close()
    End Sub

    Private Sub ComboName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboName.Enter
        ComboQq.Focus()
        '设置FrmEmpSel窗体的位置
        FrmEmpSel.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Left) + VB6.PixelsToTwipsX(ComboName.Left) + 350 - VB6.PixelsToTwipsX(FrmEmpSel.Width))
        FrmEmpSel.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.Top) + VB6.PixelsToTwipsY(ComboName.Top) + VB6.PixelsToTwipsY(ComboName.Height) + 450)
        FrmEmpSel.ShowDialog()
        '将选择的员工姓名显示到ComboUpper控件中
        ComboName.Text = UpperEmp.Emp_Name
    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If UpperEmp.Emp_Id <= 0 Then
            MsgBox("请选择员工")
            Exit Sub
        End If
        With MyCheck
            '判断记录是否存在
            If Modify = False Or OriEmpId <> UpperEmp.Emp_Id Then
                If .In_DB(lblMonth.Text, UpperEmp.Emp_Id) = True Then
                    MsgBox("要添加的记录已经存在，请修改已有的记录")
                    Exit Sub
                End If
            End If
            .CheckinMonth = lblMonth.Text
            .Emp_Id = UpperEmp.Emp_Id
            .DaysOfMonth = Val(lblDays.Text)
            .qqDays = Val(ComboQq.Text)
            .bjDays = Val(ComboBj.Text)
            .sjDays = Val(ComboSj.Text)
            .kgDays = Val(ComboKg.Text)
            .fdxjDays = Val(ComboFdxj.Text)
            .nxjDays = Val(ComboNxj.Text)
            .dxjDays = Val(ComboDxj.Text)
            .cxDays = Val(ComboCx.Text)
            .cdDays = Val(ComboCd.Text)
            .ztDays = Val(ComboZt.Text)
            .ot1Days = Val(ComboOt1.Text)
            .ot2Days = Val(ComboOt2.Text)
            .ot3Days = Val(ComboOt3.Text)
            If Modify = False Then
                .Insert()
            Else
                .Update(lblMonth.Text, OriEmpId)
            End If
        End With
        TmpOk = True
        Me.Close()
    End Sub
End Class