VBII Assignment. Imports System.Data.SqlClient Imports System.Data Public Class FrmDepartment Dim cn As SqlConnection Dim da As SqlDataAdapter Dim dt As DataTable Dim cmd As SqlCommand Dim i As Decimal Dim res As DialogResult Private Sub FrmDepartment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try cn = New SqlConnection(Server = .; Database = myTestDB1; Integrated Security = true) If cn.State = ConnectionState.Closed Then cn.Open() End If fillGradeview() AddButton.Visible = True saveButton.Visible = False DeleteButton.Enabled = False UpdateButton.Enabled = False DepartmentDataGridView.DataSource = dt Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub saveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveButton.Click Try res = MsgBox(Do you want to Save Recored ? , MsgBoxStyle.YesNo, Confirmation!) If res = Windows.Forms.DialogResult.Yes Then cmd = New SqlCommand(SELECT MAX(DepartmentID) FROM Department, cn) Dim obj As Object If cn.State = ConnectionState.Closed Then cn.Open() End If obj = cmd.ExecuteScalar() If obj Is DBNull.Value Then obj = 1 Else obj += 1 End If DepartmentIDTextBox.Text = Val(obj) cmd = New SqlCommand(INSERT INTO Department (DepartmentID, DepartmentName) VALUES (@DepartmentID, @Departmentname), cn) cmd.Parameters.AddWithValue(@DepartmentID, Val(DepartmentIDTextBox.Text)) cmd.Parameters.AddWithValue(@DepartmentName, departmentTextBox.Text) If cn.State = ConnectionState.Closed Then cn.Open() End If cmd.ExecuteNonQuery() fillGradeview() AddButton.Visible = True saveButton.Visible = False MsgBox(Record Saved, vbOKOnly) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub fillGradeview() da = New SqlDataAdapter(SELECT * FROM department, cn) dt = New DataTable da.Fill(dt) DepartmentDataGridView.AllowUserToAddRows = True DepartmentDataGridView.Rows.Clear() For i = 0 To dt.Rows.Count - 1 DepartmentDataGridView.Rows.Add() DepartmentDataGridView.Rows(i).Cells(DepartmentID).Value = dt.Rows(i).Item(DepartmentID) DepartmentDataGridView.Rows(i).Cells(DepartmentName).Value = dt.Rows(i).Item(DepartmentName) Next i DepartmentDataGridView.AllowUserToAddRows = False End Sub Private Sub DepartmentDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DepartmentDataGridView.CellContentClick End Sub Private Sub DepartmentDataGridView_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DepartmentDataGridView.CellContentDoubleClick DepartmentIDTextBox.Text = DepartmentDataGridView.CurrentRow.Cells(DepartmentID).Value departmentTextBox.Text = DepartmentDataGridView.CurrentRow.Cells(DepartmentName).Value DeleteButton.Enabled = True UpdateButton.Enabled = True End Sub Private Sub DeleteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteButton.Click Try res = MsgBox(Do you want to Delete Recored ? , MsgBoxStyle.YesNo, Confirmation!) If res = Windows.Forms.DialogResult.Yes Then cmd = New SqlCommand(DELETE FROM Department WHERE DepartmentID = @DepartmentID, cn) cmd.Parameters.AddWithValue(@DepartmentID, Val(DepartmentIDTextBox.Text)) If cn.State = ConnectionState.Closed Then cn.Open() End If cmd.ExecuteNonQuery() Call fillGradeview() UpdateButton.Enabled = False DeleteButton.Enabled = False DepartmentIDTextBox.Text = departmentTextBox.Text = MsgBox(Record Deleted, vbOKOnly) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub UpdateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateButton.Click Try res = MsgBox(Do you want to Update Recored ? , MsgBoxStyle.YesNo, Confirmation!) If res = Windows.Forms.DialogResult.Yes Then cmd = New SqlCommand(UPDATE Department SET DepartmentName = @DepartmentName WHERE DepartmentID = @DepartmentID, cn) cmd.Parameters.AddWithValue(@DepartmentID, Val(DepartmentIDTextBox.Text)) cmd.Parameters.AddWithValue(@DepartmentName, departmentTextBox.Text) If cn.State = ConnectionState.Closed Then cn.Open() End If cmd.ExecuteNonQuery() Call fillGradeview() UpdateButton.Enabled = False DeleteButton.Enabled = False DepartmentIDTextBox.Text = departmentTextBox.Text = MsgBox(Recored Updated, vbOKOnly) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub AddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddButton.Click AddButton.Visible = False saveButton.Visible = True DepartmentIDTextBox.Text = departmentTextBox.Text = departmentTextBox.Focus() End Sub End Class
Posted on: Tue, 01 Apr 2014 14:10:50 +0000