frmexpedit.vb

来自「vb2005人事管理系统源码」· VB 代码 · 共 36 行

Class FrmExpEdit
    Inherits System.Windows.Forms.Form
    Public Modify As Boolean '插入=false,修改=true
    Public VarEmpId As Integer
    Public OriId As Short

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

    Private Sub Cmd_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_OK.Click
        If Len(Trim(txtSchool_Org.Text)) = 0 Then
            MsgBox("请输入学校/单位")
            txtSchool_Org.Focus()
            txtSchool_Org.SelectionStart = 0
            txtSchool_Org.SelectionLength = Len(txtSchool_Org.Text)
            Exit Sub
        End If

        With MyExp
            .Start_Date = Trim(Combo_Start_Date.Text)
            .End_Date = Trim(Combo_End_Date.Text)
            .School_Org = Trim(txtSchool_Org.Text)
            .Title = Trim(txtTitle.Text)
            If Modify = False Then
                .Insert((VarEmpId))
            Else
                .Update(VarEmpId, OriId)
            End If
        End With
        Me.Close()
    End Sub

  
End Class