frmfamilyman.vb

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

Class FrmFamilyMan
    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 FrmFamilyMan_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 员工编号, Name AS 姓名, Sex AS 性别, Age AS 年龄, Relationship AS 社会关系, WorkingOrg AS 工作单位 FROM FamilyMember WHERE Emp_Id=" & Trim(Str(OriEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        DGVFamily.DataSource = DTable
    End Sub

    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        '初始化FrmFamilyEdit信息
        FrmFamilyEdit.txtName.Text = ""
        FrmFamilyEdit.ComboSex.SelectedIndex = 0
        FrmFamilyEdit.txtAge.Text = ""
        FrmFamilyEdit.txtRelation.Text = ""
        FrmFamilyEdit.txtWorkingOrg.Text = ""
        FrmFamilyEdit.Modify = False
        FrmFamilyEdit.VarEmpId = OriEmpId
        FrmFamilyEdit.ShowDialog()
        Dim SQLString As String
        Dim MSG As String = ""
        SQLString = "SELECT Id AS 编号,Emp_Id AS 员工编号, Name AS 姓名, Sex AS 性别, Age AS 年龄, Relationship AS 社会关系, WorkingOrg AS 工作单位 FROM FamilyMember WHERE Emp_Id=" & Trim(Str(OriEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        DGVFamily.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 DGVFamily.SelectedColumns Is Nothing Then
            MsgBox("请选择记录")
            Exit Sub
        End If
        TmpId = DGVFamily.SelectedRows(0).Cells(0).Value
        If MsgBox("是否删除当前行?", MsgBoxStyle.YesNo, "确认") = MsgBoxResult.Yes Then
            MyFam.DeleteById(OriEmpId, TmpId)
            Dim SQLString As String
            Dim MSG As String = ""
            SQLString = "SELECT Id AS 编号,Emp_Id AS 员工编号, Name AS 姓名, Sex AS 性别, Age AS 年龄, Relationship AS 社会关系, WorkingOrg AS 工作单位 FROM FamilyMember WHERE Emp_Id=" & Trim(Str(OriEmpId))
            Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
            DGVFamily.DataSource = DTable
        End If
    End Sub

    Private Sub BtnModi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModi.Click
        '初始化FrmFamilyEdit信息
        If DGVFamily.SelectedColumns Is Nothing Then
            MsgBox("请选择记录")
            Exit Sub
        End If
        FrmFamilyEdit.OriId = DGVFamily.SelectedRows(0).Cells(0).Value
        FrmFamilyEdit.txtName.Text = DGVFamily.SelectedRows(0).Cells(2).Value
        FrmFamilyEdit.ComboSex.Text = DGVFamily.SelectedRows(0).Cells(3).Value
        FrmFamilyEdit.txtAge.Text = DGVFamily.SelectedRows(0).Cells(4).Value
        FrmFamilyEdit.txtRelation.Text = DGVFamily.SelectedRows(0).Cells(5).Value
        FrmFamilyEdit.txtWorkingOrg.Text = DGVFamily.SelectedRows(0).Cells(6).Value
        FrmFamilyEdit.VarEmpId = OriEmpId
        FrmFamilyEdit.Modify = True
        FrmFamilyEdit.ShowDialog()
        Dim SQLString As String
        Dim MSG As String = ""
        SQLString = "SELECT Id AS 编号,Emp_Id AS 员工编号, Name AS 姓名, Sex AS 性别, Age AS 年龄, Relationship AS 社会关系, WorkingOrg AS 工作单位 FROM FamilyMember WHERE Emp_Id=" & Trim(Str(OriEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        DGVFamily.DataSource = DTable
    End Sub
End Class