frmexpman.vb

vb2005人事管理系统源码

Class FrmExpMan
    Inherits System.Windows.Forms.Form
    Public OriEmpId As Short


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



    Private Sub FrmExpMan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim SQLString As String
        Dim MSG As String = ""
        SQLString = "SELECT Id AS 记录编号, Emp_Id AS 员工编号, Start_Date AS 开始日期, End_Date AS 截止日期, School_Org AS 学校或单位 ,Title AS 职务 FROM Experience WHERE Emp_Id=" & Trim(Str(OriEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        DGVExp.DataSource = DTable
    End Sub


    Private Sub BtnModi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModi.Click
        '初始化FrmExpEdit信息
        If DGVExp.SelectedColumns Is Nothing Then
            MsgBox("请选择记录")
            Exit Sub
        End If
        FrmExpEdit.OriId = DGVExp.SelectedRows(0).Cells(0).Value
        FrmExpEdit.Combo_Start_Date.Text = DGVExp.SelectedRows(0).Cells(2).Value
        FrmExpEdit.Combo_End_Date.Text = DGVExp.SelectedRows(0).Cells(3).Value
        FrmExpEdit.txtSchool_Org.Text = DGVExp.SelectedRows(0).Cells(4).Value
        FrmExpEdit.txtTitle.Text = DGVExp.SelectedRows(0).Cells(5).Value
        FrmExpEdit.VarEmpId = OriEmpId
        FrmExpEdit.Modify = True
        FrmExpEdit.ShowDialog()
        Dim SQLString As String
        Dim MSG As String = ""
        SQLString = "SELECT Id AS 记录编号, Emp_Id AS 员工编号, Start_Date AS 开始日期, End_Date AS 截止日期, School_Org AS 学校或单位 ,Title AS 职务 FROM Experience WHERE Emp_Id=" & Trim(Str(OriEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        DGVExp.DataSource = DTable
    End Sub


    Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
        Dim TmpId As Integer
        If DGVExp.SelectedColumns Is Nothing = True Then
            MsgBox("请选择记录")
            Exit Sub
        End If
        TmpId = DGVExp.SelectedRows(0).Cells(0).Value
        If MsgBox("是否删除当前行?", MsgBoxStyle.YesNo, "确认") = MsgBoxResult.Yes Then
            MyExp.DeleteById(OriEmpId, TmpId)
            Dim SQLString As String
            Dim MSG As String = ""
            SQLString = "SELECT Id AS 记录编号, Emp_Id AS 员工编号, Start_Date AS 开始日期, End_Date AS 截止日期, School_Org AS 学校或单位 ,Title AS 职务 FROM Experience WHERE Emp_Id=" & Trim(Str(OriEmpId))
            Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
            DGVExp.DataSource = DTable
        End If
    End Sub
End Class