familyform.vb

这是一个人事工资管理系统

'文件名：FamilyForm.vb
Imports System.Data.SqlClient
Public Class FamilyForm
    Private Sub 员工家庭成员BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 员工家庭成员BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.员工家庭成员BindingSource.EndEdit()
        Me.员工家庭成员TableAdapter.Update(Me.MyPersonnelDataSet.员工家庭成员)
    End Sub

    Private Sub FamilyForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.员工家庭成员TableAdapter.Fill(Me.MyPersonnelDataSet.员工家庭成员)
    End Sub
    Private Sub BindingNavigatorAddNewItem_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BindingNavigatorAddNewItem.MouseUp
        '自动计算自编号
        Dim MySQLConnectionString As String = My.Settings.MyPersonnelConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyCommand As SqlCommand = MyConnection.CreateCommand()
        MyCommand.CommandText = "Select max(自编号) 最大编号 From 员工家庭成员"
        Dim MyResult As Object = MyCommand.ExecuteScalar()
        Dim MyID As System.Int64 = 1
        If (Not (MyResult Is System.DBNull.Value)) Then
            Dim MyMaxID As String = MyResult.ToString().Trim()
            MyMaxID = MyMaxID.Substring(2, MyMaxID.Length - 2)
            MyID = Convert.ToInt64(MyMaxID) + 1
        End If
        Dim MyLength As Integer = MyID.ToString().Length
        Dim MyNewID As String = ""
        Select Case (MyLength)
            Case 1
                MyNewID = "JT0000000" + MyID.ToString()
            Case 2
                MyNewID = "JT000000" + MyID.ToString()
            Case 3
                MyNewID = "JT00000" + MyID.ToString()
            Case 4
                MyNewID = "JT0000" + MyID.ToString()
            Case 5
                MyNewID = "JT000" + MyID.ToString()
            Case 6
                MyNewID = "JT00" + MyID.ToString()
            Case 7
                MyNewID = "JT0" + MyID.ToString()
        End Select
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Me.自编号TextBox.Text = MyNewID
    End Sub
    Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Dim MySQLConnectionString As String = My.Settings.MyPersonnelConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MySQL As String = "Select * From 基本档案 Where 姓名 LIKE '" + Me.员工姓名ToolStripTextBox.Text + "' AND (员工编号 NOT IN(SELECT 员工编号 FROM 离职管理))"
        Dim MyPersonnelTable As New DataTable()
        Dim MyDataAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyDataAdapter.Fill(MyPersonnelTable)
        Me.基本档案DataGridView.DataSource = MyPersonnelTable
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Private Sub 基本档案DataGridView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 基本档案DataGridView.Click
        Me.员工编号TextBox.Text = Me.基本档案DataGridView.CurrentRow.Cells(1).Value.ToString()
        Me.员工姓名TextBox.Text = Me.基本档案DataGridView.CurrentRow.Cells(3).Value.ToString()
    End Sub
    Private Sub 基本档案DataGridView_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 基本档案DataGridView.SelectionChanged
        Dim My员工姓名 As String = Me.基本档案DataGridView.CurrentRow.Cells(3).Value.ToString()
        Try
            Me.员工家庭成员TableAdapter.FillBy(Me.MyPersonnelDataSet.员工家庭成员, My员工姓名)
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class