Untitled

 avatar
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