Parte 8-9 – Formulario Datos de la Empresa, Uso del control Common Dialog

Se insertaron los controles en el formulario y se les dio estilo se coloco un control Image para el logo de la empresa.

Para seleccionar el logo se utiliza un control Common Dialog en el vídeo se explica como se usa.

Se organiza la ventana de Datos de la Empresa.

Se implemento un control  Common Dialog para la seleccionar la imagen del logo.

Botón Abrir Imagen evento Clic del Formulario frmDatosEmpresa

Private Sub cmdAbrirImage_Click()
    CommonDialog1.Filter = "Archivo de Imagen|*.jpg|*.jpeg"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
       txtLogo.Text = CommonDialog1.FileName
       imgLogo.Picture = LoadPicture(txtLogo.Text)
    Else
       txtLogo.Text = ""
    End If
End Sub

El siguiente metodo se utiliza para Guardar o Actualizar los datos del empresa, este código se encuentra en el modulo mod_Consultas 

Sub GuardarDatosEmpresa(Nombre As String, Propie As String, Nit As String, Telefono As String, Direcc As String, logo As String, Descrip As String, Regimen As Integer, Resoluc As String, FechaAp As Date, Rango1 As String, Rango2 As String, IniciarEn As String)
    Dim RecorsetTemp  As New ADODB.Recordset
    Dim Sql As String
    
    Sql = "Select IdEmpresa from tblDatosEmpresa where IdEmpresa =  1"
    RecorsetTemp.Open Sql, ConexionADO

    If RecorsetTemp.RecordCount > 0 Then
       Sql = "Update tblDatosEmpresa SET NombreEmpresa ='" & Nombre & "' ,Propietario = '" & Propie & "',Nit='" & Nit & "',Telefonos='" & Telefono & "', Direccion='" & Direcc & "',Logo='" & logo & "',Descripcion='" & Descrip & "', Regimen=" & Regimen & ", Resolucion='" & Resoluc & "',FechaResol='" & FechaAp & "', Rango1=" & Rango1 & ",Rango2=" & Rango2 & ",IniciarEn=" & IniciarEn
    Else
        Sql = "Insert Into tblDatosEmpresa (IdEmpresa,NombreEmpresa,Propietario,Nit,Telefonos, Direccion,Logo,Descripcion, Regimen, Resolucion,FechaResol, Rango1,Rango2,IniciarEn) " _
             & " Values (1, '" & Nombre & "' , '" & Propie & "', '" & Nit & "', '" & Telefono & "', '" & Direcc & "', '" & logo & "', '" & Descrip & "',  " & Regimen & ", '" & Resoluc & "', '" & FechaAp & "', " & Rango1 & ", " & Rango2 & ", " & IniciarEn & " ) "
    End If

    ConexionADO.Execute Sql
 
    MsgBox "Datos Guardados", vbInformation, "Guardar"

End Sub

Este método es llamado desde el Sub Procedimiento GuardarDatos del formulario frmDatosEmpresa

Sub GuardarDatos()
 
    Dim Regimen As Integer
    Dim FechaR As Date
 
   Regimen = Me.cmdTipoRegimen.ListIndex
    FechaR = Me.txtFechaApro.Text
 
   Call GuardarDatosEmpresa(txtNombreEmpresa, txtPropietario.Text, txtNit, txtTelelfono, txtDireccion, txtLogo, txtDescripcion, Regimen, txtResolucion, FechaR, txtRango1, txtRango2, txtFacturarDesde)

End Sub

Este Sub Procedimiento es llamado desde botón Guardar

Private Sub cmdGuardar_Click()
   Call GuardarDatos
   Call DesabilitarControles

End Sub

Sub Procedimiento para deshabilitar Controles

Sub DesabilitarControles()

    txtNombreEmpresa.Enabled = False

    txtPropietario.Enabled = False

    txtNit.Enabled = False

    txtTelelfono.Enabled = False

    txtDireccion.Enabled = False

    cmdAbrirImage.Enabled = False

    txtDescripcion.Enabled = False

    cmdTipoRegimen.Enabled = False

    txtResolucion.Enabled = False

    txtFechaApro.Enabled = False

    txtRango1.Enabled = False

    txtRango2.Enabled = False

    txtFacturarDesde.Enabled = False

    cmdGuardar.Enabled = False

    cmdModificar.Enabled = True

End Sub

Sub HabilitarControles()

    txtNombreEmpresa.Enabled = True

    txtPropietario.Enabled = True

    txtNit.Enabled = True

    txtTelelfono.Enabled = True

    txtDireccion.Enabled = True

    cmdAbrirImage.Enabled = True

    txtDescripcion.Enabled = True

    cmdTipoRegimen.Enabled = True

    If cmdTipoRegimen.ListIndex = 1 Then

        txtResolucion.Enabled = True

        txtFechaApro.Enabled = True

        txtRango1.Enabled = True

        txtRango2.Enabled = True

        txtFacturarDesde.Enabled = True

    End If

    cmdGuardar.Enabled = True

End Sub

Evento Clic del ComboBox Régimen para cuando el usuario escoge el tipo de Régimen

Private Sub cmdTipoRegimen_Click()
    If cmdTipoRegimen.ListIndex = 0 Then
        txtResolucion.Enabled = False
        txtFechaApro.Enabled = False
        txtRango1.Enabled = False
        txtRango2.Enabled = False
        txtFacturarDesde.Enabled = False
    Else
        If cmdTipoRegimen.Enabled = True Then
            txtResolucion.Enabled = True
            txtFechaApro.Enabled = True
            txtRango1.Enabled = True
            txtRango2.Enabled = True
            txtFacturarDesde.Enabled = True
        End If
    End If
End Sub

Evento Load del formulario frmDatosEmpresa

Private Sub Form_Load()
   Call DesabilitarControles
   cmdTipoRegimen.ListIndex = 0
   Call LlenarDatos
End Sub

Siguiente Lección Parte 10 – Validación Form Datos Empresa y Creacion del Form Perfil de Usuario

Comentarios de Facebook

Deja un comentario