Visual Basic

Private Sub gdCompany_CellClick(ByVal sender As System.Object, ByVal e As Telerik.WinControls.UI.GridViewCellEventArgs) Handles gdCompany.CellClick
      btnSave.Text = "ျပင္ရန္"
      txtCompanyName.Text = gdCompany.CurrentRow.Cells(1).Value.ToString()
      txtDescription.Text = gdCompany.CurrentRow.Cells(2).Value.ToString()
      txtPhoneNo.Text = gdCompany.CurrentRow.Cells(3).Value.ToString()
      txtFaxNo.Text = gdCompany.CurrentRow.Cells(4).Value.ToString()
      txtEmail.Text = gdCompany.CurrentRow.Cells(5).Value.ToString()
      txtWebsite.Text = gdCompany.CurrentRow.Cells(6).Value.ToString()
      ddlBankName.SelectedValue = Convert.ToInt32(gdCompany.CurrentRow.Cells(7).Value.ToString())
      ddlBankBranch.SelectedValue = Convert.ToInt32(gdCompany.CurrentRow.Cells(8).Value.ToString())
      txtBankAccountNo.Text = gdCompany.CurrentRow.Cells(9).Value.ToString()
      txtAddress.Text = gdCompany.CurrentRow.Cells(10).Value.ToString()

      'picCompanyLogo.Image = Convert.ToByte(gdCompany.CurrentRow.Cells(15).Value.ToString())



      txtCompanyName.Focus()
  End Sub

Function Company_Save(ByVal M_Model_DA As Model.M_Company) As String
       Try
           connection_enable()
           cmd = New SqlCommand()
           cmd.CommandText = "SP_HR_Company_Insert"
           cmd.Connection = con
           cmd.CommandType = CommandType.StoredProcedure
           cmd.Parameters.Add("@Company_Logo", SqlDbType.Image).Value = M_Model_DA.Company_Logo
           err_message = cmd.ExecuteNonQuery()
       Catch ex As Exception
           err_message = ex.ToString()
       End Try
       Return err_message
   End Function

Function Company_Save(ByVal M_Company_BL As Model.M_Company) As String
       Try
           DA_Company = New DataAccess.DA_Company()
           error_message = DA_Company.Company_Save(M_Company_BL)
       Catch ex As Exception
           error_message = ex.ToString()
       End Try
       Return error_message
   End Function

Public Property Company_Logo() As Byte
        Get
            Return Me.CompanyLogo
        End Get
        Set(ByVal value As Byte)
            Me.CompanyLogo = value
        End Set
    End Property

  Private Sub Company_Save()
        Try
            BL_Company = New BusinessLogic.BL_Company()
            M_Comapny = New Model.M_Company()
            M_Comapny.Company_Logo = Convert.ToByte(browseCompanyLogo.Value)
            error_message = BL_Company.Company_Save(M_Comapny)
 
            If error_message > 0 Then
                MessageBox.Show("Complete Save")
                Company_GridView_FillData()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try

 


 Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        
Company_Save()
 
    End Sub