Formulario Datos de la Empresa, Uso del control Common Dialog


Vídeo:


Vídeo 2:



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 metodo es llamado desde el Sub Procedimiento GuardarDatos del formulario frmDatosEmpresa

Sub GuardarDatos()
 
    'Valdaciones
    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 Procedimiento para Habilitar Controles

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

Comentarios

Publicar un comentario

Entradas más populares de este blog

Creación de la Base de Datos y Conectado con ADO y Formulario Login

Imagen
Esta sección cubre: Creando tablas Usuarios y Tipo de usuarios Creando el Modulo de Conexión Haciendo la Conexión con la base de datos Formulario de Login El Diagrama de Base de datos a utilizara para el manejo de usuario es este: Códigos utilizados: Modulo de Conexión Global ConexionADO As New ADODB.Connection Global DireccionDb As String Sub UbicacionDb()         DireccionDb = GLeerArchivo(App.Path & "\url.txt")           End Sub Sub AbrirConexionADO()     Call UbicacionDb          ConexionADO.CursorLocation = adUseClient     ConexionADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DireccionDb & ";Jet OLEDB:Database Password=1qazxsw2"      End Sub Modulo de Funciones: Function GLeerArchivo(url As String) As String     Dim Linea As String     Dim Texto As String          If Dir(url) <> "" Then 'Verifico que exista el archivo        Open
Leer más

Uso del Control Timer en el Formulario de Inicio

Imagen
En este vídeo explico como se utiliza el control Timer, y como usamos varias funciones de visual como Dir, App que son necesarias para lo que queremos lograr con nuestra pantalla de Inicio. La función Dir : Devuelve una cadena que representa el nombre de un archivo, directorio o carpeta que coincide con un modelo especificado o atributo de archivo o la etiqueta de volumen de una unidad. La Funcion App.path: Devuelve la ubicación actual de nuestra aplicación con respecto a la raíz del disco duro. Parte 2 del Vídeo: Código Usado : Dim ArchivosAplicacion(3) As String Sub ListaArchivosConfiguracion()     ArchivosAplicacion(0) = App.Path & "/configuracion.ini"     ArchivosAplicacion(1) = App.Path & "/tiket.ini"     ArchivosAplicacion(2) = App.Path & "/Db/Dbventas.accdb"     ArchivosAplicacion(3) = App.Path & "/urldb.txt" End Sub Sub VerificarExisteArchivo(Num)       Resulconsulta = Dir(ArchivosAplicacion(Nu
Leer más

Inserción de datos en la base de datos, y uso de datos Encriptados, Login

Imagen
En este video esplico como se insertan datos en una base de datos MS Access. Se creo un registro en la tabla Usuarios que son los datos del administrador. En Visual Basic, se tomo una función de la página recursosvisualbasic.com.ar para encripdar datos, esta se uso para encriptar la contraseña de los usuarios. Esta es la función: '--------------------------------------------------------------------- ' EncryptString ' Modificado por Harvey T. '--------------------------------------------------------------------- 'El parámetro UserKey es la clave. 'El parámetro Text es el texto a encriptar o desencriptar. 'El parámetro Action indica QUE hacer, ..es decir Encriptar o desencriptar. ( El valor ENCRYPT es para encriptar y el valor DECRYPT para desencriptar) 'url: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-encriptar-desencriptar.htm Public Function EncryptString(UserKey As String, Text As String, Action As S
Leer más