frmpunish.vb

使用的人力资源管理系统

        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "Data Source=04695FA3B0B440A;Initial Catalog=hrmbook;Integrated Security=True"
        Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = resources.GetString("SqlInsertCommand1.CommandText")
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@职员编号", System.Data.SqlDbType.VarChar, 30, "职员编号"), New System.Data.SqlClient.SqlParameter("@惩罚类型", System.Data.SqlDbType.VarChar, 20, "惩罚类型"), New System.Data.SqlClient.SqlParameter("@惩罚金额", System.Data.SqlDbType.Float, 8, "惩罚金额"), New System.Data.SqlClient.SqlParameter("@是否计入工资", System.Data.SqlDbType.VarChar, 10, "是否计入工资"), New System.Data.SqlClient.SqlParameter("@惩罚原因", System.Data.SqlDbType.VarChar, 50, "惩罚原因"), New System.Data.SqlClient.SqlParameter("@部门意见", System.Data.SqlDbType.VarChar, 100, "部门意见"), New System.Data.SqlClient.SqlParameter("@惩罚日期", System.Data.SqlDbType.Int, 4, "惩罚日期")})
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 序号, 职员编号, 惩罚类型, 惩罚金额, 是否计入工资, 惩罚原因, 部门意见, 惩罚日期 FROM 职员惩罚表"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = resources.GetString("SqlUpdateCommand1.CommandText")
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@职员编号", System.Data.SqlDbType.VarChar, 30, "职员编号"), New System.Data.SqlClient.SqlParameter("@惩罚类型", System.Data.SqlDbType.VarChar, 20, "惩罚类型"), New System.Data.SqlClient.SqlParameter("@惩罚金额", System.Data.SqlDbType.Float, 8, "惩罚金额"), New System.Data.SqlClient.SqlParameter("@是否计入工资", System.Data.SqlDbType.VarChar, 10, "是否计入工资"), New System.Data.SqlClient.SqlParameter("@惩罚原因", System.Data.SqlDbType.VarChar, 50, "惩罚原因"), New System.Data.SqlClient.SqlParameter("@部门意见", System.Data.SqlDbType.VarChar, 100, "部门意见"), New System.Data.SqlClient.SqlParameter("@惩罚日期", System.Data.SqlDbType.Int, 4, "惩罚日期"), New System.Data.SqlClient.SqlParameter("@Original_序号", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "序号", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_惩罚原因", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "惩罚原因", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_惩罚日期", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "惩罚日期", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_惩罚类型", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "惩罚类型", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_惩罚金额", System.Data.SqlDbType.Float, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "惩罚金额", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_是否计入工资", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "是否计入工资", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_职员编号", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "职员编号", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_部门意见", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "部门意见", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@序号", System.Data.SqlDbType.Int, 4, "序号")})
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.DataSet11.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'frmPunish
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(456, 273)
        Me.Controls.Add(Me.dgdPunishInfo)
        Me.Controls.Add(Me.ToolBar1)
        Me.Name = "frmPunish"
        Me.Text = "职员惩罚管理"
        CType(Me.dgdPunishInfo, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub SetDataGrid()
        SqlConnection1.ConnectionString = DataBase.sConn
        SqlDataAdapter1.Fill(DataSet11)
        '定义一个DataGrid表样式
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = DataSet11.Tables("职员惩罚表").Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = DataSet11.Tables("职员惩罚表").Columns(i).ColumnName
            aColumnTextColumn.HeaderText = DataSet11.Tables("职员惩罚表").Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        ts.MappingName = DataSet11.Tables("职员惩罚表").TableName
        dgdPunishInfo.TableStyles.Add(ts)
        dgdPunishInfo.DataSource = DataSet11.Tables("职员惩罚表").DefaultView
    End Sub
    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        If e.Button Is tbbSave Then
            Dim row As Integer
            row = dgdPunishInfo.CurrentCell.RowNumber
            dgdPunishInfo.CurrentCell = New DataGridCell(row + 1, 0)
            Try
                If DataSet11.HasChanges Then
                    SqlDataAdapter1.Update(DataSet11)
                    DataSet11.Tables("职员惩罚表").DefaultView.RowFilter = ""
                    MessageBox.Show("数据修改成功!")
                Else
                    MessageBox.Show("无修改的数据!")
                End If
            Catch ex As Exception
                MessageBox.Show("修改的数据出错")
            End Try
        ElseIf e.Button Is tbbDel Then
            Try
                Dim iRow = dgdPunishInfo.CurrentRowIndex
                If MessageBox.Show("你确认要删除此条记录吗？", "Confirm", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                    '从职员惩罚表表删除当前被选中记录()
                    DataSet11.Tables("职员惩罚表").Rows(iRow).Delete()
                Else
                    Exit Sub
                End If
                Try
                    If DataSet11.HasChanges Then
                        '用SqlDataAdapter1更新数据库
                        SqlDataAdapter1.Update(DataSet11)
                        DataSet11.Tables("职员惩罚表").DefaultView.RowFilter = ""
                        MessageBox.Show("数据修改成功!")
                    Else
                        MessageBox.Show("无修改的数据!")
                    End If
                Catch ex As Exception
                    MessageBox.Show("删除数据出错")
                End Try
            Catch ex As Exception
                MessageBox.Show("删除数据出错")
            End Try
        End If
    End Sub
    Private Sub frmPunish_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetDataGrid()
    End Sub

    Private Sub SqlConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlInfoMessageEventArgs) Handles SqlConnection1.InfoMessage

    End Sub
End Class