personnelform.vb

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

'文件名：PersonnelForm.vb
Imports System.Data.SqlClient
Public Class PersonnelForm
    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 PersonnelForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MyPersonnelDataSet.基本档案”中。您可以根据需要移动或移除它。
        Me.基本档案TableAdapter.Fill(Me.MyPersonnelDataSet.基本档案)
        'Me.MyPersonnelDataSet.基本档案.Rows.Clear()
        '获取公司的部门信息            
        Dim MySQLConnectionString As String = My.Settings.MyPersonnelConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyDepartmentTable As New DataTable()
        Dim MySQL As String = "Select * From 公司部门"
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyDepartmentTable)
        Me.部门ComboBox.DataSource = MyDepartmentTable
        Me.部门ComboBox.DisplayMember = "部门名称"
        Me.部门ComboBox.ValueMember = "部门名称"
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    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 = "DA0000000" + MyID.ToString()
            Case 2
                MyNewID = "DA000000" + MyID.ToString()
            Case 3
                MyNewID = "DA00000" + MyID.ToString()
            Case 4
                MyNewID = "DA0000" + MyID.ToString()
            Case 5
                MyNewID = "DA000" + MyID.ToString()
            Case 6
                MyNewID = "DA00" + MyID.ToString()
            Case 7
                MyNewID = "DA0" + MyID.ToString()
        End Select
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Me.自编号TextBox.Text = MyNewID
    End Sub
    Private Sub 查询FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询FillByToolStripButton.Click
        Try
            Me.基本档案TableAdapter.FillBy(Me.MyPersonnelDataSet.基本档案, 姓名ToolStripTextBox.Text)
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class