frmprize.vb

使用的人力资源管理系统

        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@奖励金额", System.Data.SqlDbType.Float, 8, "奖励金额"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否计入工资", System.Data.SqlDbType.VarChar, 10, "是否计入工资"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@奖励原因", System.Data.SqlDbType.VarChar, 50, "奖励原因"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@部门意见", System.Data.SqlDbType.VarChar, 100, "部门意见"))
        Me.SqlInsertCommand1.Parameters.Add(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 = "UPDATE 职员奖励表 SET 职员编号 = @职员编号, 奖励类型 = @奖励类型, 奖励金额 = @奖励金额, 是否计入工资 = @是否计入工资, 奖励原因" & _
        " = @奖励原因, 部门意见 = @部门意见, 奖励日期 = @奖励日期 WHERE (序号 = @Original_序号) AND (奖励原因 = @Orig" & _
        "inal_奖励原因 OR @Original_奖励原因 IS NULL AND 奖励原因 IS NULL) AND (奖励日期 = @Original_奖励日期" & _
        " OR @Original_奖励日期 IS NULL AND 奖励日期 IS NULL) AND (奖励类型 = @Original_奖励类型 OR @Orig" & _
        "inal_奖励类型 IS NULL AND 奖励类型 IS NULL) AND (奖励金额 = @Original_奖励金额 OR @Original_奖励金额" & _
        " IS NULL AND 奖励金额 IS NULL) AND (是否计入工资 = @Original_是否计入工资 OR @Original_是否计入工资 IS" & _
        " NULL AND 是否计入工资 IS NULL) AND (职员编号 = @Original_职员编号) AND (部门意见 = @Original_部门意见" & _
        " OR @Original_部门意见 IS NULL AND 部门意见 IS NULL); SELECT 序号, 职员编号, 奖励类型, 奖励金额, 是否计入工" & _
        "资, 奖励原因, 部门意见, 奖励日期 FROM 职员奖励表 WHERE (序号 = @序号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@职员编号", System.Data.SqlDbType.VarChar, 30, "职员编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@奖励类型", System.Data.SqlDbType.VarChar, 20, "奖励类型"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@奖励金额", System.Data.SqlDbType.Float, 8, "奖励金额"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否计入工资", System.Data.SqlDbType.VarChar, 10, "是否计入工资"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@奖励原因", System.Data.SqlDbType.VarChar, 50, "奖励原因"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@部门意见", System.Data.SqlDbType.VarChar, 100, "部门意见"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@奖励日期", System.Data.SqlDbType.Int, 4, "奖励日期"))
        Me.SqlUpdateCommand1.Parameters.Add(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))
        Me.SqlUpdateCommand1.Parameters.Add(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))
        Me.SqlUpdateCommand1.Parameters.Add(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))
        Me.SqlUpdateCommand1.Parameters.Add(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))
        Me.SqlUpdateCommand1.Parameters.Add(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))
        Me.SqlUpdateCommand1.Parameters.Add(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))
        Me.SqlUpdateCommand1.Parameters.Add(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))
        Me.SqlUpdateCommand1.Parameters.Add(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))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@序号", System.Data.SqlDbType.Int, 4, "序号"))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'frmPrize
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(456, 273)
        Me.Controls.Add(Me.dgdPrizeInfo)
        Me.Controls.Add(Me.ToolBar1)
        Me.Name = "frmPrize"
        Me.Text = "职员奖励管理"
        CType(Me.dgdPrizeInfo, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
   
    Private Sub SetDataGrid()
        Me.SqlConnection1.ConnectionString = DataBase.sConn
        Me.SqlDataAdapter1.Fill(Me.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
        dgdPrizeInfo.TableStyles.Add(ts)
        dgdPrizeInfo.DataSource = _
        DataSet11.Tables("职员奖励表").DefaultView
    End Sub

    Private Sub frmPrize_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        SetDataGrid()
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, _
    ByVal e As ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        If e.Button Is Me.tbbSave Then
            Dim row As Integer
            row = Me.dgdPrizeInfo.CurrentCell.RowNumber
            Me.dgdPrizeInfo.CurrentCell = New DataGridCell(row + 1, 0)
            Try
                If Me.DataSet11.HasChanges Then
                    Me.SqlDataAdapter1.Update(Me.DataSet11)
                    Me.DataSet11.Tables("职员奖励表"). _
                    DefaultView.RowFilter = ""
                    MessageBox.Show("数据修改成功!")
                Else
                    MessageBox.Show("无修改的数据!")
                End If
            Catch ex As Exception
                MessageBox.Show("修改的数据出错")
            End Try
        ElseIf e.Button Is Me.tbbDel Then
            Try
                Dim iRow = Me.dgdPrizeInfo.CurrentRowIndex
                If MessageBox.Show("你确认要删除此条记录吗？", "Confirm", _
                MessageBoxButtons.YesNo) = DialogResult.Yes Then
                    '从职员奖励表表删除当前被选中记录()
                    Me.DataSet11.Tables("职员奖励表").Rows(iRow).Delete()
                Else
                    Exit Sub
                End If
                Try
                    If Me.DataSet11.HasChanges Then
                        '用SqlDataAdapter1更新数据库
                        Me.SqlDataAdapter1.Update(Me.DataSet11)
                        Me.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
End Class