Untitled
unknown
plain_text
4 months ago
9.1 kB
2
Indexable
Imports System.Data.OleDb Imports System.Data.SqlTypes Public Class frm_mainpage Private Sub PictureBox17_Click(sender As Object, e As EventArgs) Handles PictureBox17.Click ContextMenuStrip.Show(PictureBox17, 0, PictureBox17.Height) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_employee.Click pnl_main.Visible = False pnl_employee.Visible = True btn_emp_back.Visible = True btn_emp_cust.Visible = True btn_emp_items.Visible = True lbl_emp.Visible = True lbl_emp.Visible = True End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) pnl_main.Visible = True pnl_employee.Visible = False btn_add.Visible = False btn_customer_exit.Visible = False btn_delete.Visible = False btn_update.Visible = False lbl_emp.Visible = False End Sub Private Sub btn_emp_cust_Click(sender As Object, e As EventArgs) Handles btn_emp_cust.Click pnl_customers.Visible = True pnl_employee.Visible = False btn_add.Visible = True btn_update.Visible = True btn_delete.Visible = True btn_customer_exit.Visible = True lbl_cust_cust.Visible = True datview_Customer1.Visible = True End Sub Private Sub btn_emp_back_Click(sender As Object, e As EventArgs) Handles btn_emp_back.Click pnl_employee.Visible = False pnl_main.Visible = True End Sub Private Sub btn_add_Click(sender As Object, e As EventArgs) Handles btn_add.Click frm_add_customer.ShowDialog() End Sub Public Sub DisplayDataGridCustomer() datview_Customer1.Rows.Clear() If DbConnect() Then Dim SQLCmd As New OleDbCommand With SQLCmd .Connection = cn .CommandText = "SELECT * FROM TblCustomers" Dim rs As OleDbDataReader = .ExecuteReader() While rs.Read Dim CustomerDetails As New DataGridViewRow() CustomerDetails.CreateCells(datview_Customer1) CustomerDetails.SetValues({rs("CFName"), rs("CSName"), rs("CUsername"), rs("CEmail"), rs("CDOB")}) CustomerDetails.Tag = rs("CustID") datview_Customer1.Rows.Add(CustomerDetails) End While End With cn.Close() End If For Each column As DataGridViewColumn In datview_Customer1.Columns Console.WriteLine(column.Name) Next End Sub Public Sub DisplayDataGridItems() datview_Items1.Rows.Clear() If DbConnect() Then Dim SQLCmd As New OleDbCommand With SQLCmd .Connection = cn .CommandText = "SELECT * FROM TblItems" Dim rs As OleDbDataReader = .ExecuteReader() While rs.Read Dim ItemDetails As New DataGridViewRow() ItemDetails.CreateCells(datview_Items1) ItemDetails.SetValues({rs("ItemName"), rs("ItemCategory"), rs("ItemPrice"), rs("ItemStock"), rs("ItemDescription")}) ItemDetails.Tag = rs("ItemID") datview_Items1.Rows.Add(ItemDetails) End While End With cn.Close() End If End Sub Private Sub btn_emp_items_Click(sender As Object, e As EventArgs) Handles btn_emp_items.Click pnl_Items.Visible = True pnl_employee.Visible = False btn_add_items.Visible = True btn_update_items.Visible = True btn_delete_items.Visible = True btn_item_exit.Visible = True lbl_items.Visible = True datview_Items1.Visible = True End Sub Private Sub btn_add_items_Click(sender As Object, e As EventArgs) Handles btn_add_items.Click Frm_add.ShowDialog() End Sub Private Sub btn_item_exit_Click(sender As Object, e As EventArgs) Handles btn_item_exit.Click pnl_Items.Visible = False pnl_employee.Visible = True btn_add_items.Visible = False btn_update_items.Visible = False btn_delete_items.Visible = False btn_item_exit.Visible = False lbl_items.Visible = False datview_Items1.Visible = False End Sub Private Sub btn_customer_exit_Click(sender As Object, e As EventArgs) Handles btn_customer_exit.Click pnl_customers.Visible = False pnl_employee.Visible = True btn_add.Visible = False btn_update.Visible = False btn_delete.Visible = False btn_customer_exit.Visible = False lbl_cust_cust.Visible = False datview_Customer1.Visible = False End Sub Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click 'Checks if a row is selected If datview_Customer1.SelectedRows.Count > 0 Then 'Get the ID of the selected row If DbConnect() Then Dim SQLCmd As New OleDbCommand With SQLCmd .Connection = cn .CommandText = "DELETE FROM TblCustomers where CustID = @CustID" SQLCmd.Parameters.AddWithValue("@CustID", datview_Customer1.SelectedRows(0).Tag) .ExecuteNonQuery() End With cn.Close() DisplayDataGridCustomer() End If End If End Sub Private Sub frm_mainpage_Load(sender As Object, e As EventArgs) Handles MyBase.Load DisplayDataGridCustomer() End Sub Private Sub btn_delete_items_Click(sender As Object, e As EventArgs) Handles btn_delete_items.Click 'Checks if a row is selected If datview_Items1.SelectedRows.Count > 0 Then 'Gets the ID of the selected item Dim itemID As Integer = Convert.ToInt32(datview_Items1.SelectedRows(0).Cells("ItemID").Value) 'Confirm deletion If MessageBox.Show("Are you sure you want to delete this item?", "Confirm Deletion", MessageBoxButtons.YesNo) = DialogResult.Yes Then Try If DbConnect() Then Dim SQLCmd As New OleDbCommand SQLCmd.Connection = cn SQLCmd.CommandText = "DELETE FROM TblItems WHERE ItemID = @ItemID" SQLCmd.Parameters.Add("@ItemID", OleDbType.Integer).Value = itemID SQLCmd.ExecuteNonQuery() MessageBox.Show("Item successfully deleted.") DisplayDataGridItems() End If Catch ex As Exception MessageBox.Show("Error deleting item: " & ex.Message) Finally If cn.State = ConnectionState.Open Then cn.Close() End Try End If Else MessageBox.Show("Please select an item to delete.") End If End Sub Private Sub btn_update_items_Click(sender As Object, e As EventArgs) Handles btn_update_items.Click frm_update_items.ShowDialog() End Sub Private Sub btn_update_Click(sender As Object, e As EventArgs) Handles btn_update.Click frm_update_Customers.ShowDialog() End Sub Private Sub pnl_customers_Paint(sender As Object, e As PaintEventArgs) Handles pnl_customers.Paint End Sub Private Sub datagridview_Customers_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles datview_Customer1.CellClick 'Check if a valid row is selected If e.RowIndex >= 0 Then 'Get the selected row Dim selectedRow As DataGridViewRow = datview_Customer1.Rows(e.RowIndex) 'Pass the data to the update form Dim updateForm As New frm_update_Customers updateForm.txt_fname_customer.Text = selectedRow.Cells("CFName").Value.ToString() updateForm.txt_sname_customer.Text = selectedRow.Cells("CSName").Value.ToString() updateForm.txt_address_customer.Text = selectedRow.Cells("CAddress").Value.ToString() updateForm.txt_postcode_customer.Text = selectedRow.Cells("CPCode").Value.ToString() updateForm.txt_username_customer.Text = selectedRow.Cells("CUsername").Value.ToString() updateForm.txt_email_customer.Text = selectedRow.Cells("CEmail").Value.ToString() updateForm.dat_DOB_customer.Value = Convert.ToDateTime(selectedRow.Cells("CDOB").Value) updateForm.ShowDialog() DisplayDataGridCustomer() End If End Sub Private Sub datview_Customer1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles datview_Customer1.CellContentClick End Sub End Class
Editor is loading...
Leave a Comment