archievementform.vb

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

'文件名：ArchievementForm.vb
Imports System.Data.SqlClient
Public Class ArchievementForm
    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 ArchievementForm_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 = "YJ0000000" + MyID.ToString()
            Case 2
                MyNewID = "YJ000000" + MyID.ToString()
            Case 3
                MyNewID = "YJ00000" + MyID.ToString()
            Case 4
                MyNewID = "YJ0000" + MyID.ToString()
            Case 5
                MyNewID = "YJ000" + MyID.ToString()
            Case 6
                MyNewID = "YJ00" + MyID.ToString()
            Case 7
                MyNewID = "YJ0" + 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