dataset2.designer.vb

人事管理系统（VB.NET2005+SQL Server2005）

            tableMapping.ColumnMappings.Add("hire_date", "hire_date")
            tableMapping.ColumnMappings.Add("status", "status")
            tableMapping.ColumnMappings.Add("work_age", "work_age")
            Me._adapter.TableMappings.Add(tableMapping)
            Me._adapter.InsertCommand = New System.Data.SqlClient.SqlCommand
            Me._adapter.InsertCommand.Connection = Me.Connection
            Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[employee] ([id], [name], [sex], [birthday], [nation_id], [idca"& _ 
                "rd], [marry], [education_id], [home_phone], [mobile], [post_id], [address], [pos"& _ 
                "talcode], [native_place], [photo], [intro], [personal_email], [inner_number], [d"& _ 
                "epartment_id], [hire_date], [fire_date], [business_id], [bank_account], [status]"& _ 
                ", [employee_level], [work_email], [work_phone], [work_age]) VALUES (@id, @name, "& _ 
                "@sex, @birthday, @nation_id, @idcard, @marry, @education_id, @home_phone, @mobil"& _ 
                "e, @post_id, @address, @postalcode, @native_place, @photo, @intro, @personal_ema"& _ 
                "il, @inner_number, @department_id, @hire_date, @fire_date, @business_id, @bank_a"& _ 
                "ccount, @status, @employee_level, @work_email, @work_phone, @work_age)"
            Me._adapter.InsertCommand.CommandType = System.Data.CommandType.Text
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "id", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "name", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sex", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "sex", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@birthday", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "birthday", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nation_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "nation_id", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idcard", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "idcard", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@marry", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "marry", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@education_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "education_id", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@home_phone", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "home_phone", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mobile", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "mobile", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@post_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "post_id", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@address", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "address", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@postalcode", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "postalcode", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@native_place", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "native_place", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@photo", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "photo", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@intro", System.Data.SqlDbType.Text, 0, System.Data.ParameterDirection.Input, 0, 0, "intro", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@personal_email", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "personal_email", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inner_number", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "inner_number", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@department_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "department_id", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hire_date", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "hire_date", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fire_date", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "fire_date", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@business_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "business_id", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bank_account", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "bank_account", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@status", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "status", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@employee_level", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, 0, 0, "employee_level", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@work_email", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "work_email", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@work_phone", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, 0, 0, "work_phone", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@work_age", System.Data.SqlDbType.SmallInt, 0, System.Data.ParameterDirection.Input, 0, 0, "work_age", System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitConnection()
            Me._connection = New System.Data.SqlClient.SqlConnection
            Me._connection.ConnectionString = Global.PersonnelPayroll.My.MySettings.Default.PersonnelPayrollConnectionString
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitCommandCollection()
            Me._commandCollection = New System.Data.SqlClient.SqlCommand(0) {}
            Me._commandCollection(0) = New System.Data.SqlClient.SqlCommand
            Me._commandCollection(0).Connection = Me.Connection
            Me._commandCollection(0).CommandText = "SELECT name, sex, birthday, marry, mobile, address, hire_date, status, work_age F"& _ 
                "ROM employee"
            Me._commandCollection(0).CommandType = System.Data.CommandType.Text
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Fill, true)>  _
        Public Overloads Overridable Function Fill(ByVal dataTable As DataSet2.employeeDataTable) As Integer
            Me.Adapter.SelectCommand = Me.CommandCollection(0)
            If (Me.ClearBeforeFill = true) Then
                dataTable.Clear
            End If
            Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
            Return returnValue
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.[Select], true)>  _
        Public Overloads Overridable Function GetData() As DataSet2.employeeDataTable
            Me.Adapter.SelectCommand = Me.CommandCollection(0)
            Dim dataTable As DataSet2.employeeDataTable = New DataSet2.employeeDataTable
            Me.Adapter.Fill(dataTable)
            Return dataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
        Public Overloads Overridable Function Update(ByVal dataTable As DataSet2.employeeDataTable) As Integer
            Return Me.Adapter.Update(dataTable)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
        Public Overloads Overridable Function Update(ByVal dataSet As DataSet2) As Integer
            Return Me.Adapter.Update(dataSet, "employee")
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
        Public Overloads Overridable Function Update(ByVal dataRow As System.Data.DataRow) As Integer
            Return Me.Adapter.Update(New System.Data.DataRow() {dataRow})
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
        Public Overloads Overridable Function Update(ByVal dataRows() As System.Data.DataRow) As Integer
            Return Me.Adapter.Update(dataRows)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Insert, true)>  _
        Public Overloads Overridable Function Insert( _
                    ByVal id As Integer,  _
                    ByVal name As String,  _
                    ByVal sex As String,  _
                    ByVal birthday As String,  _
                    ByVal nation_id As System.Nullable(Of Integer),  _
                    ByVal idcard As String,  _
                    ByVal marry As String,  _
                    ByVal education_id As Integer,  _
                    ByVal home_phone As String,  _
                    ByVal mobile As String,  _
                    ByVal post_id As System.Nullable(Of Integer),  _
                    ByVal address As String,  _
                    ByVal postalcode As String,  _
                    ByVal native_place As String,  _
                    ByVal photo As String,  _
                    ByVal intro As String,  _
                    ByVal personal_email As String,  _
                    ByVal inner_number As String,  _
                    ByVal department_id As System.Nullable(Of Integer),  _
                    ByVal hire_date As String,  _
                    ByVal fire_date As String,  _
                    ByVal business_id As System.Nullable(Of Integer),  _
                    ByVal bank_account As String,  _
                    ByVal status As String,  _
                    ByVal employee_level As System.Nullable(Of Integer),  _
                    ByVal work_email As String,  _
                    ByVal work_phone As String,  _
                    ByVal work_age As System.Nullable(Of Short)) As Integer
            Me.Adapter.InsertCommand.Parameters(0).Value = CType(id,Integer)
            If (name Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(1).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(1).Value = CType(name,String)
            End If
            If (sex Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(2).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(2).Value = CType(sex,String)
            End If
            If (birthday Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(3).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(3).Value = CType(birthday,String)
            End If
            If (nation_id.HasValue = true) Then
                Me.Adapter.InsertCommand.Parameters(4).Value = CType(nation_id.Value,Integer)
            Else
                Me.Adapter.InsertCommand.Parameters(4).Value = System.DBNull.Value
            End If
            If (idcard Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(5).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(5).Value = CType(idcard,String)
            End If
            If (marry Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(6).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(6).Value = CType(marry,String)
            End If
            Me.Adapter.InsertCommand.Parameters(7).Value = CType(education_id,Integer)
            If (home_phone Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(8).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(8).Value = CType(home_phone,String)
            End If
            If (mobile Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(9).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(9).Value = CType(mobile,String)
            End If
            If (post_id.HasValue = true) Then
                Me.Adapter.InsertCommand.Parameters(10).Value = CType(post_id.Value,Integer)
            Else
                Me.Adapter.InsertCommand.Parameters(10).Value = System.DBNull.Value
            End If
            If (address Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(11).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(11).Value = CType(address,String)
            End If
            If (postalcode Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(12).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(12).Value = CType(postalcode,String)
            End If
            If (native_place Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(13).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(13).Value = CType(native_place,String)
            End If
            If (photo Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(14).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(14).Value = CType(photo,String)
            End If
            If (intro Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(15).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(15).Value = CType(intro,String)
            End If
            If (personal_email Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(16).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(16).Value = CType(personal_email,String)
            End If
            If (inner_number Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(17).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(17).Value = CType(inner_number,String)
            End If
            If (department_id.HasValue = true) Then
                Me.Adapter.InsertCommand.Parameters(18).Value = CType(department_id.Value,Integer)
            Else
                Me.Adapter.InsertCommand.Parameters(18).Value = System.DBNull.Value
            End If
            If (hire_date Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(19).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(19).Value = CType(hire_date,String)
            End If
            If (fire_date Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(20).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(20).Value = CType(fire_date,String)
            End If
            If (business_id.HasValue = true) Then
                Me.Adapter.InsertCommand.Parameters(21).Value = CType(business_id.Value,Integer)
            Else
                Me.Adapter.InsertCommand.Parameters(21).Value = System.DBNull.Value
            End If
            If (bank_account Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(22).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(22).Value = CType(bank_account,String)
            End If
            If (status Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(23).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(23).Value = CType(status,String)
            End If
            If (employee_level.HasValue = true) Then
                Me.Adapter.InsertCommand.Parameters(24).Value = CType(employee_level.Value,Integer)
            Else
                Me.Adapter.InsertCommand.Parameters(24).Value = System.DBNull.Value
            End If
            If (work_email Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(25).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(25).Value = CType(work_email,String)
            End If
            If (work_phone Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(26).Value = System.DBNull.Value
            Else
                Me.Adapter.InsertCommand.Parameters(26).Value = CType(work_phone,String)
            End If
            If (work_age.HasValue = true) Then
                Me.Adapter.InsertCommand.Parameters(27).Value = CType(work_age.Value,Short)
            Else
                Me.Adapter.InsertCommand.Parameters(27).Value = System.DBNull.Value
            End If
            Dim previousConnectionState As System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
            If ((Me.Adapter.InsertCommand.Connection.State And System.Data.ConnectionState.Open)  _
                        <> System.Data.ConnectionState.Open) Then
                Me.Adapter.InsertCommand.Connection.Open
            End If
            Try 
                Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
                Return returnValue
            Finally
                If (previousConnectionState = System.Data.ConnectionState.Closed) Then
                    Me.Adapter.InsertCommand.Connection.Close
                End If
            End Try
        End Function
    End Class
End Namespace