Services
Technology Web App Development Mobile App Development Windows App Development Database Development UI/UX Development Cloud Development SEO Digital Marketing Guest Posting Content Writing Artificial Intelligence Data Science ERP Development CRM Development CMS Development LMS Development Business Listing Blockchain Technology Startup Promotion AI Tools Integration
Products
Data Converter Cleaner TUC - Unit Converter Import Export Survey Manager Tweet Controller
Developer
Article Blog Forum Interview Beginner News Startup Quiz
Users
Career
Apply Job Internship
Pricing
Login Sign Up Get a Quote

forum

Home Forums How to insert,update,delete,next previous button in a single form vb.net winform. – MindStick
Ask Question

2 Answers

Aryan Kumar
Aryan Kumar 06 Jul 2023
Report Abuse

Sure, I can help you with that. Here are the steps on how to insert, update, delete, next, previous button in a single vb.net winform:

  1. Create a new Windows Forms project in VB.NET.
  2. Add a button control for each of the operations you want to perform (insert, update, delete, next, previous).
  3. Add a datagridview control to the form.
  4. Bind the datagridview control to some data.
  5. Add event handlers for the buttons.
  6. In the event handlers, perform the corresponding operation on the datagridview control.

Here is an example of the code you would need to insert, update, delete, next, previous button in a single vb.net winform:

VB.Net

Private Sub ButtonInsert_Click(sender As Object, e As EventArgs) Handles ButtonInsert.Click
    ' Insert a new row in the datagridview control.
    DataGridView1.Rows.Add()
End Sub

Private Sub ButtonUpdate_Click(sender As Object, e As EventArgs) Handles ButtonUpdate.Click
    ' Update the selected row in the datagridview control.
    Dim selectedRow As DataGridViewRow = DataGridView1.SelectedRows(0)

    ' Get the values from the textbox controls.
    Dim txtName As TextBox = Me.Controls.Find("txtName", True)
    Dim txtEmail As TextBox = Me.Controls.Find("txtEmail", True)

    ' Set the values in the selected row.
    selectedRow.Cells(0).Value = txtName.Text
    selectedRow.Cells(1).Value = txtEmail.Text
End Sub

Private Sub ButtonDelete_Click(sender As Object, e As EventArgs) Handles ButtonDelete.Click
    ' Delete the selected row in the datagridview control.
    Dim selectedRow As DataGridViewRow = DataGridView1.SelectedRows(0)

    ' Delete the row.
    DataGridView1.Rows.Remove(selectedRow)
End Sub

Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
    ' Select the next row in the datagridview control.
    Dim selectedRow As DataGridViewRow = DataGridView1.SelectedRows(0)

    ' If the current row is the last row, select the first row.
    If selectedRow.Index = DataGridView1.Rows.Count - 1 Then
        DataGridView1.SelectedRows(0) = DataGridView1.Rows(0)
    Else
        DataGridView1.SelectedRows(0) = DataGridView1.Rows(selectedRow.Index + 1)
    End If
End Sub

Private Sub ButtonPrevious_Click(sender As Object, e As EventArgs) Handles ButtonPrevious.Click
    ' Select the previous row in the datagridview control.
    Dim selectedRow As DataGridViewRow = DataGridView1.SelectedRows(0)

    ' If the current row is the first row, select the last row.
    If selectedRow.Index = 0 Then
        DataGridView1.SelectedRows(0) = DataGridView1.Rows(DataGridView1.Rows.Count - 1)
    Else
        DataGridView1.SelectedRows(0) = DataGridView1.Rows(selectedRow.Index - 1)
    End If
End Sub

This code will create a button control for each of the operations you want to perform. The buttons will be bound to the datagridview control. The event handlers for the buttons will perform the corresponding operation on the datagridview control.

Anonymous User
Anonymous User 01 Jan 2016
Report Abuse
i am using Multiple action in a single form such as add,edit,delete,save,first,next,previous,last,exit,cancel,and textbox value change ,combobox value change .following code below ->
Public Class frmledger
    Dim obj As New ledgerBAL
    Dim objBAL As New ledgerDAL
    'enter key tab handler Event
    Private Sub frmledger_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then
            SendKeys.Send("{TAB}")
      ElseIf e.Control Then
            If e.KeyCode = Keys.A Then
                btnadd.PerformClick()
            ElseIf e.KeyCode = Keys.C Then
                btncancel.PerformClick()
            ElseIf e.KeyCode = Keys.E Then
                btnedit.PerformClick()
            ElseIf e.KeyCode = Keys.S Then
                btnupdate.PerformClick()
            ElseIf e.KeyCode = Keys.D Then
                btndelete.PerformClick()
            ElseIf e.KeyCode = Keys.F Then
                btnfrist.PerformClick()
            ElseIf e.KeyCode = Keys.N Then
                btnnext.PerformClick()
            ElseIf e.KeyCode = Keys.P Then
                btnprevious.PerformClick()
            ElseIf e.KeyCode = Keys.L Then
                btnlast.PerformClick()
            ElseIf e.KeyCode = Keys.X Then
                btnclose.PerformClick()
            End If
        ElseIf e.KeyCode = Keys.Escape Then
           
            Dim result = MessageBox.Show(" Are you sure close This. ", "Are you sure?", MessageBoxButtons.OKCancel)
            If result = DialogResult.OK Then
                frmledger_list.Listview_Data()
                Me.Close()
            End If
        End If
    End Sub
    Private Sub frmledger_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        fill_Column()
        fill_accounttype(cboactype)
        fill_Cform(cboform)
        fill_TDS(cbotds)
        objBAL.Get_Data_Table()
        Last()
        txtledid.Focus()
    End Sub
    Public Sub fill_Column()
        Dim cbotype, cbobroker As New DataGridViewComboBoxColumn

        With cbotype
            .Name = "billtype"
            .HeaderText = "Bill Type"
            .Width = 200
        End With
        fillGrid_BillType(cbotype)
        With cbobroker
            .Name = "cbobroker"
            .HeaderText = "Broker"
            .Width = 250
        End With
        With dvggrid
            .Columns.Add(cbotype)
            .Columns.Add("billno", "Bill No")
            .Columns.Add("billdate", "Bill Date")
            .Columns.Add("billamnt", "Bill Amount")
            .Columns("billamnt").Width = 150
            .Columns.Add("billrecamnt", "Paid Amount")
            .Columns.Add("billbal", "Bill Balance")
            .Columns.Add(cbobroker)
        End With
    End Sub 
    Private Sub dvggrid_EditingControlShowing(sender As System.Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dvggrid.EditingControlShowing
        AddHandler e.Control.KeyPress, AddressOf dvggrid_KeyPress
        Dim cb As ComboBox
        If TypeOf e.Control Is ComboBox Then
            cb = e.Control
            'set the dropdown style of a combobox
            cb.DropDownStyle = ComboBoxStyle.DropDown
            'set the propety of a combobox to autocomplete mode.
            cb.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            cb.AutoCompleteSource = AutoCompleteSource.ListItems

        End If
    End Sub 
    Private Sub dvggrid_CellEnter(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dvggrid.CellEnter
        ''# Code to Dropdown DataGridViewComboBox in single click
        ''Header Cell clicked -> ignore it.
        If (e.RowIndex = -1) Then
            Return
        End If
        dvggrid.BeginEdit(True)
        If TypeOf dvggrid.EditingControl Is DataGridViewComboBoxEditingControl Then
            Dim control As DataGridViewComboBoxEditingControl = dvggrid.EditingControl
            If Not IsNothing(control) Then
                control.DroppedDown = True
            End If
        End If
        '#End of Code to Dropdown DataGridViewComboBox 
    End Sub
    Private Sub dvggrid_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles dvggrid.KeyPress
        If dvggrid.CurrentCell.ColumnIndex = 1 Or _
            dvggrid.CurrentCell.ColumnIndex = 2 Or _
            dvggrid.CurrentCell.ColumnIndex = 3 Then
            AllowOnlyNumeric(e, ".")
        End If
    End Sub
    Public Sub fill_filterdata()
        obj.led_id = txtledid.Text
        obj.Get_Data(obj)
        txtledid.Text = obj.led_id
        txtledname.Text = obj.led_Name
        txtadd1.Text = obj.Add1
        txtadd2.Text = obj.Add2
        txtadd3.Text = obj.Add3
        txtbadd1.Text = obj.Badd1
        txtbadd2.Text = obj.Badd2
        txtbadd3.Text = obj.Badd3
        txtmobile1.Text = obj.Mobile1
        txtmobile2.Text = obj.Mobile2
        txtphone1.Text = obj.phone1
        txtphone2.Text = obj.phone2
        txtfax.Text = obj.fax
        txtwebsite.Text = obj.Website
        txtemail.Text = obj.Email
        txtvattin.Text = obj.vat
        txtcsttinno.Text = obj.Csttax
        txtpanno.Text = obj.Pan_no
        txttanno.Text = obj.tanno
        txtservicetax.Text = obj.ser_tax
        cboform.SelectedValue = obj.form
        cboactype.SelectedValue = obj.ac_type
        txtbroker.Text = obj.br_name
        txtbroker_code.Text = obj.br_cd
        txtac_groupname.Text = obj.ac_name
        cbotds.SelectedValue = obj.tds
        txtconpersion.Text = obj.con_persion
        txtdesignation.Text = obj.Designation
        txtac_groupcode.Text = obj.ac_cd
        If obj.Page = 1 Then
            btnprevious.Enabled = False
            btnfrist.Enabled = False
            btnnext.Enabled = False
            btnlast.Enabled = False
        ElseIf obj.Page = Convert.ToInt32(lblrecordno.Text) Then
            btnprevious.Enabled = True
            btnfrist.Enabled = True
            btnnext.Enabled = False
            btnlast.Enabled = False
        Else
            btnprevious.Enabled = True
            btnfrist.Enabled = True
            btnnext.Enabled = True
            btnlast.Enabled = True
        End If
        
    End Sub
    Public Sub Nexts()
        obj.Page = obj.Page + 1
        obj.led_id = ""
        obj.Get_Data(obj)
        txtledid.Text = obj.led_id
        txtledname.Text = obj.led_Name
        txtadd1.Text = obj.Add1
        txtadd2.Text = obj.Add2
        txtadd3.Text = obj.Add3
        txtbadd1.Text = obj.Badd1
        txtbadd2.Text = obj.Badd2
        txtbadd3.Text = obj.Badd3
        txtmobile1.Text = obj.Mobile1
        txtmobile2.Text = obj.Mobile2
        txtphone1.Text = obj.phone1
        txtphone2.Text = obj.phone2
        txtfax.Text = obj.fax
        txtwebsite.Text = obj.Website
        txtemail.Text = obj.Email
        txtvattin.Text = obj.vat
        txtcsttinno.Text = obj.Csttax
        txtpanno.Text = obj.Pan_no
        txttanno.Text = obj.tanno
        txtservicetax.Text = obj.ser_tax
        cboform.SelectedValue = obj.form
        cboactype.SelectedValue = obj.ac_type
        txtbroker.Text = obj.br_name
        txtbroker_code.Text = obj.br_cd
        txtac_groupname.Text = obj.ac_name
        cbotds.SelectedValue = obj.tds
        txtconpersion.Text = obj.con_persion
        txtdesignation.Text = obj.Designation
        txtac_groupcode.Text = obj.ac_cd
        If obj.Page = 1 Then
            btnprevious.Enabled = False
            btnfrist.Enabled = False
            btnnext.Enabled = True
            btnlast.Enabled = True
            btnupdate.Enabled = False
            btncancel.Enabled = False
        ElseIf obj.Page = lblrecordno.Text Then
            btnprevious.Enabled = True
            btnfrist.Enabled = True
            btnnext.Enabled = False
            btnlast.Enabled = False
            btnupdate.Enabled = False
            btncancel.Enabled = False
        ElseIf obj.page > 1 Then
            btnprevious.Enabled = True
            btnfrist.Enabled = True
            btnnext.Enabled = True
            btnlast.Enabled = True
            btnupdate.Enabled = False
            btncancel.Enabled = False
        End If

        
    End Sub
    Public Sub Back()
        obj.Page = obj.Page - 1
        obj.led_id = ""
        obj.Get_Data(obj)
        txtledid.Text = obj.led_id
        txtledname.Text = obj.led_Name
        txtadd1.Text = obj.Add1
        txtadd2.Text = obj.Add2
        txtadd3.Text = obj.Add3
        txtbadd1.Text = obj.Badd1
        txtbadd2.Text = obj.Badd2
        txtbadd3.Text = obj.Badd3
        txtmobile1.Text = obj.Mobile1
        txtmobile2.Text = obj.Mobile2
        txtphone1.Text = obj.phone1
        txtphone2.Text = obj.phone2
        txtfax.Text = obj.fax
        txtwebsite.Text = obj.Website
        txtemail.Text = obj.Email
        txtvattin.Text = obj.vat
        txtcsttinno.Text = obj.Csttax
        txtpanno.Text = obj.Pan_no
        txttanno.Text = obj.tanno
        txtservicetax.Text = obj.ser_tax
        cboform.SelectedValue = obj.form
        cboactype.SelectedValue = obj.ac_type
        txtbroker.Text = obj.br_name
        txtbroker_code.Text = obj.br_cd
        txtac_groupname.Text = obj.ac_name
        cbotds.SelectedValue = obj.tds
        txtconpersion.Text = obj.con_persion
        txtdesignation.Text = obj.Designation
        txtac_groupcode.Text = obj.ac_cd
        If obj.Page = 1 Then
            btnprevious.Enabled = False
            btnfrist.Enabled = False
            btnnext.Enabled = True
            btnlast.Enabled = True
            btnupdate.Enabled = False
            btncancel.Enabled = False

        ElseIf obj.Page > 1 Then
            btnprevious.Enabled = True
            btnfrist.Enabled = True
            btnnext.Enabled = True
            btnlast.Enabled = True
            btnupdate.Enabled = False
            btncancel.Enabled = False
        End If
        
    End Sub
    Public Sub first()
        obj.Page = 1
        obj.led_id = ""
        obj.Get_Data(obj)
        txtledid.Text = obj.led_id
        txtledname.Text = obj.led_Name
        txtadd1.Text = obj.Add1
        txtadd2.Text = obj.Add2
        txtadd3.Text = obj.Add3
        txtbadd1.Text = obj.Badd1
        txtbadd2.Text = obj.Badd2
        txtbadd3.Text = obj.Badd3
        txtmobile1.Text = obj.Mobile1
        txtmobile2.Text = obj.Mobile2
        txtphone1.Text = obj.phone1
        txtphone2.Text = obj.phone2
        txtfax.Text = obj.fax
        txtwebsite.Text = obj.Website
        txtemail.Text = obj.Email
        txtvattin.Text = obj.vat
        txtcsttinno.Text = obj.Csttax
        txtpanno.Text = obj.Pan_no
        txttanno.Text = obj.tanno
        txtservicetax.Text = obj.ser_tax
        cboform.SelectedValue = obj.form
        cboactype.SelectedValue = obj.ac_type
        txtbroker.Text = obj.br_name
        txtbroker_code.Text = obj.br_cd
        txtac_groupname.Text = obj.ac_name
        cbotds.SelectedValue = obj.tds
        txtconpersion.Text = obj.con_persion
        txtdesignation.Text = obj.Designation
        txtac_groupcode.Text = obj.ac_cd
        If obj.Page = 1 Then
            btnprevious.Enabled = False
            btnfrist.Enabled = False
            btnnext.Enabled = True
            btnlast.Enabled = True
            btnupdate.Enabled = False
            btncancel.Enabled = False
        End If 
    End Sub
    Public Sub Last()
        obj.Page = 0
        obj.led_id = ""
        obj.Get_Data(obj)
        txtledid.Text = obj.led_id
        txtledname.Text = obj.led_Name
        txtadd1.Text = obj.Add1
        txtadd2.Text = obj.Add2
        txtadd3.Text = obj.Add3
        txtbadd1.Text = obj.Badd1
        txtbadd2.Text = obj.Badd2
        txtbadd3.Text = obj.Badd3
        txtmobile1.Text = obj.Mobile1
        txtmobile2.Text = obj.Mobile2
        txtphone1.Text = obj.phone1
        txtphone2.Text = obj.phone2
        txtfax.Text = obj.fax
        txtwebsite.Text = obj.Website
        txtemail.Text = obj.Email
        txtvattin.Text = obj.vat
        txtcsttinno.Text = obj.Csttax
        txtpanno.Text = obj.Pan_no
        txttanno.Text = obj.tanno
        txtservicetax.Text = obj.ser_tax
        cboform.SelectedValue = obj.form
        cboactype.SelectedValue = obj.ac_type
        txtbroker.Text = obj.br_name
        txtbroker_code.Text = obj.br_cd
        txtac_groupname.Text = obj.ac_name
        cbotds.SelectedValue = obj.tds
        txtconpersion.Text = obj.con_persion
        txtdesignation.Text = obj.Designation
        txtac_groupcode.Text = obj.ac_cd
        lblrecordno.Text = obj.Page
        Desable()
        If obj.Page > 1 Then
            btnprevious.Enabled = True
            btnfrist.Enabled = True
            btnlast.Enabled = False
            btnnext.Enabled = False
            btnupdate.Enabled = False
            btncancel.Enabled = False
        ElseIf obj.Page = 1 Then
            btnprevious.Enabled = False
            btnfrist.Enabled = False
            btnnext.Enabled = False
            btnlast.Enabled = False

            btnupdate.Enabled = False
            btncancel.Enabled = False
        End If
        If obj.msg = "Yes" Then
            btndelete.Enabled = True
            btnedit.Enabled = True

        Else
            btndelete.Enabled = False
            btnedit.Enabled = False
            btnprevious.Enabled = False
            btnfrist.Enabled = False
            btnlast.Enabled = False
            btnnext.Enabled = False
            btnupdate.Enabled = False
            btncancel.Enabled = False
            btnadd.Enabled = True
        End If
         
    End Sub
    Public Sub insert_data()
        If txtledname.Text = "" Then
            MsgBox("Party Name Can Not be blank.")
            txtledname.Focus()
            Exit Sub
        Else
            If cbotds.SelectedValue = Nothing Then
                obj.tds = 0
            Else
                obj.tds = IIf(IsDBNull(cbotds.SelectedValue), 0, cbotds.SelectedValue)
            End If
            If cboform.SelectedValue = Nothing Then
                obj.form = 0
            Else
                obj.form = IIf(IsDBNull(cboform.SelectedValue), 0, cboform.SelectedValue)
            End If
            If cboactype.SelectedValue = Nothing Then
                obj.ac_type = 0
            Else
                obj.ac_type = IIf(IsDBNull(cboactype.SelectedValue), 0, cboactype.SelectedValue)
            End If
            obj.led_id = txtledid.Text
            obj.led_Name = IIf(IsDBNull(txtledname.Text), "", txtledname.Text)
            obj.Add1 = IIf(IsDBNull(txtadd1.Text), "", txtadd1.Text)
            obj.Add2 = IIf(IsDBNull(txtadd2.Text), "", txtadd2.Text)
            obj.Add3 = IIf(IsDBNull(txtadd3.Text), "", txtadd3.Text)
            obj.Badd1 = IIf(IsDBNull(txtbadd1.Text), "", txtbadd1.Text)
            obj.Badd2 = IIf(IsDBNull(txtbadd2.Text), "", txtbadd2.Text)
            obj.Badd3 = IIf(IsDBNull(txtbadd3.Text), "", txtbadd3.Text)
            obj.phone1 = IIf(IsDBNull(txtmobile1.Text), "", txtmobile1.Text)
            obj.phone2 = IIf(IsDBNull(txtmobile2.Text), "", txtmobile2.Text)
            obj.Mobile1 = IIf(IsDBNull(txtmobile1.Text), "", txtmobile1.Text)
            obj.Mobile2 = IIf(IsDBNull(txtmobile2.Text), "", txtmobile2.Text)
            obj.fax = IIf(IsDBNull(txtfax.Text), "", txtfax.Text)
            obj.Website = IIf(IsDBNull(txtwebsite.Text), "", txtwebsite.Text)
            obj.Email = IIf(IsDBNull(txtemail.Text), "", txtemail.Text)
            obj.vat = IIf(IsDBNull(txtvattin.Text), "", txtvattin.Text)
            obj.Csttax = IIf(IsDBNull(txtcsttinno.Text), "", txtcsttinno.Text)
            obj.Pan_no = IIf(IsDBNull(txtpanno.Text), "", txtpanno.Text)
            obj.tanno = IIf(IsDBNull(txttanno.Text), "", txttanno.Text)
            obj.ser_tax = IIf(IsDBNull(txtservicetax.Text), "", txtservicetax.Text)
            obj.br_cd = IIf(IsDBNull(txtbroker_code.Text), "", txtbroker_code.Text)
            obj.ac_cd = IIf(IsDBNull(txtac_groupcode.Text), "", txtac_groupcode.Text)
            obj.con_persion = IIf(IsDBNull(txtconpersion.Text), "", txtconpersion.Text)
            obj.Designation = IIf(IsDBNull(txtdesignation.Text), "", txtdesignation.Text)
            objBAL.insert_LEDGER(obj)
            cleare()
            Last()
            Desable()
            btnadd.Enabled = True
            btncancel.Enabled = False
            btnedit.Enabled = True
            btnclose.Enabled = True
            btndelete.Enabled = True
            btnupdate.Enabled = False
        End If
    End Sub
    Public Sub cleare()
        txtledid.Text = ""
        txtledname.Text = ""
        txtadd1.Text = ""
        txtadd2.Text = ""
        txtadd3.Text = ""
        txtbadd1.Text = ""
        txtbadd2.Text = ""
        txtbadd3.Text = ""
        txtmobile1.Text = ""
        txtmobile2.Text = ""
        txtphone1.Text = ""
        txtphone2.Text = ""
        txtconpersion.Text = ""
        txtdesignation.Text = ""
        txtfax.Text = ""
        txtwebsite.Text = ""
        txtemail.Text = ""
        txtvattin.Text = ""
        txtcsttinno.Text = ""
        txtpanno.Text = ""
        txtservicetax.Text = ""
        cboactype.SelectedValue = "0"
        txtbroker_code.Text = ""
        txtac_groupname.Text = ""
        txtac_groupcode.Text = ""
        txtbroker.Text = ""
        cbotds.SelectedValue = "0"
        cboform.SelectedValue = "0"
        txttanno.Text = ""
        txtledname.Focus()
    End Sub
    Public Sub Desable()
        txtbroker.Enabled = False
        txtledname.Enabled = False
        txtadd1.Enabled = False
        txtadd2.Enabled = False
        txtadd3.Enabled = False
        txtbadd1.Enabled = False
        txtbadd2.Enabled = False
        txtbadd3.Enabled = False
        txtmobile1.Enabled = False
        txtmobile2.Enabled = False
        txtphone1.Enabled = False
        txtphone2.Enabled = False
        txtfax.Enabled = False
        txtwebsite.Enabled = False
        txtemail.Enabled = False
        txtvattin.Enabled = False
        txtcsttinno.Enabled = False
        txtpanno.Enabled = False
        txtservicetax.Enabled = False
        cboactype.Enabled = False
        txtac_groupname.Enabled = False
        cbotds.Enabled = False
        cboform.Enabled = False
        txtconpersion.Enabled = False
        txtdesignation.Enabled = False
        txttanno.Enabled = False
        txtledid.Focus()
    End Sub
    Public Sub Enable()
        txttanno.Enabled = True
        txtconpersion.Enabled = True
        txtdesignation.Enabled = True
        txtledname.Enabled = True
        txtadd1.Enabled = True
        txtadd2.Enabled = True
        txtadd3.Enabled = True
        txtbadd1.Enabled = True
        txtbadd2.Enabled = True
        txtbadd3.Enabled = True
        txtmobile1.Enabled = True
        txtmobile2.Enabled = True
        txtphone1.Enabled = True
        txtphone2.Enabled = True
        txtfax.Enabled = True
        txtwebsite.Enabled = True
        txtemail.Enabled = True
        txtvattin.Enabled = True
        txtcsttinno.Enabled = True
        txtpanno.Enabled = True
        txtservicetax.Enabled = True
        cboactype.Enabled = True
        txtac_groupname.Enabled = True
        cbotds.Enabled = True
        cboform.Enabled = True
        txtbroker.Enabled = True
    End Sub

    Private Sub cboform_GotFocus(sender As Object, e As System.EventArgs) Handles cboform.GotFocus
        cboform.DroppedDown = True
    End Sub

    Private Sub cbotds_GotFocus(sender As Object, e As System.EventArgs) Handles cbotds.GotFocus
        cbotds.DroppedDown = True
    End Sub

    Private Sub cboactype_GotFocus(sender As Object, e As System.EventArgs) Handles cboactype.GotFocus
        cboactype.DroppedDown = True
    End Sub
    Private Sub txtbroker_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtbroker.KeyDown
        If (e.KeyCode = Keys.F1) Then
            formname = Me.Name
            frmbroker_list.ShowDialog()
        End If
    End Sub

    Private Sub cboactype_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboactype.SelectedIndexChanged
        If (cboactype.Text = "CUSTOMER" Or cboactype.Text = "SUPPLIER") Then
            txtbroker.Enabled = True
        Else
            txtbroker.Enabled = False
        End If
    End Sub
    Private Sub txtledname_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtledname.KeyDown
        If (e.KeyCode = Keys.F1) Then
            formname = Me.Name
            sfilter = ""
            frmledger_list.ShowDialog()
        End If
    End Sub
    Private Sub btnadd_Click(sender As System.Object, e As System.EventArgs) Handles btnadd.Click
        Enable()
        cleare()
        txtledid.Text = Get_ID("ledger_master", "lc_cd", "LE/", False)
        btnadd.Enabled = False
        btncancel.Enabled = True
        btnedit.Enabled = False
        btnclose.Enabled = True
        btndelete.Enabled = False
        btnfrist.Enabled = False
        btnlast.Enabled = False
        btnnext.Enabled = False
        btnprevious.Enabled = False
        btnupdate.Enabled = True

    End Sub
    Private Sub btnedit_Click(sender As System.Object, e As System.EventArgs) Handles btnedit.Click
        Enable()
        btnadd.Enabled = False
        btncancel.Enabled = True
        btnedit.Enabled = False
        btnclose.Enabled = True
        btndelete.Enabled = True
        btnupdate.Enabled = True
        btnprevious.Enabled = False
        btnfrist.Enabled = False
        btnlast.Enabled = False
        btnnext.Enabled = False
    End Sub
    Private Sub btnupdate_Click(sender As System.Object, e As System.EventArgs) Handles btnupdate.Click
        insert_data()
    End Sub
    Private Sub btncancel_Click(sender As System.Object, e As System.EventArgs) Handles btncancel.Click
        btnadd.Enabled = True
        btncancel.Enabled = False
        btnedit.Enabled = True
        btnclose.Enabled = True
        btndelete.Enabled = True
        btnupdate.Enabled = False
        cleare()
        Desable()
        Last()
    End Sub
    Private Sub btndelete_Click(sender As System.Object, e As System.EventArgs) Handles btndelete.Click
        Dim result = MessageBox.Show(" Are you sure you want to Delete", "Are you sure?", MessageBoxButtons.OKCancel)
        If result = DialogResult.OK Then
            delrecsql("ledger_master", "lc_cd", txtledid.Text, False)
            cleare()
            Desable()
            Last()
        End If
    End Sub
    Private Sub btnfrist_Click(sender As System.Object, e As System.EventArgs) Handles btnfrist.Click
        Desable()
        first()
    End Sub
    Private Sub btnnext_Click(sender As System.Object, e As System.EventArgs) Handles btnnext.Click
        Desable()
        Nexts()
    End Sub
    Private Sub btnprevious_Click(sender As System.Object, e As System.EventArgs) Handles btnprevious.Click
        Desable()
        Back()
    End Sub

    Private Sub btnlast_Click(sender As System.Object, e As System.EventArgs) Handles btnlast.Click
        Desable()
        Last()
    End Sub
    Private Sub btnclose_Click(sender As System.Object, e As System.EventArgs) Handles btnclose.Click
        frmledger_list.Listview_Data()
        Me.Close()
    End Sub
    Private Sub txtledid_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtledid.KeyDown
        If (e.KeyCode = Keys.F1) Then
            formname = Me.Name
            sfilter = ""
            frmledger_list.ShowDialog()
        End If
    End Sub
    Private Sub TextBoLeave(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles txtledname.Leave, txtac_groupname.Leave, txtbroker.Leave
        Dim tb As TextBox = DirectCast(sender, TextBox)
        With tb
            Select Case tb.Name
                Case "txtledname"
                    If CheckName("ledger_master", "lc_cd", txtledid.Text) = 1 Then
                    ElseIf CheckName("ledger_master", "replace(lc_name,' ','')", Replace(txtledname.Text, " ", "")) = 1 Then
                        MsgBox("This Name Already Exists !!")
                        Exit Sub
                    End If
                    If .Text = "" Then
                        MsgBox("This field is Required !!")
                    End If
                Case "txtbroker"
                    If .Text = "" Then
                        MsgBox("This field Select From Master Press F1  !!")
                    End If
                Case "txtac_groupname"
                    If .Text = "" Then
                        MsgBox("This field Select From Master Press F1  !!")
                    End If
            End Select
        End With
    End Sub

    Private Sub ComboBoLeave(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles cboactype.Leave
        Dim tb As ComboBox = DirectCast(sender, ComboBox)
        With tb
            Select Case tb.Name
                Case "cboactype"
                    If .Text = "" Then
                        MsgBox("Please Select a Account Type !!")
                    End If
            End Select
        End With
    End Sub
    Private Sub txtac_groupname_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtac_groupname.KeyDown
        If (e.KeyCode = Keys.F1) Then
            formname = Me.Name
            accountgroup_list.ShowDialog()
        End If
    End Sub
End Class
Anonymous User
MindStick Training
Markdown for AI

A clean, structured version of this page for AI assistants and LLMs.

Open .md