Programando en Visual Basic 6

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 Recorset

Video: En este vídeo depuramos un poco mas el login y usamos una funciones nuevas para mejorarlo, el código es el siguiente: este código va en el modulo  mod_Funciones Sub SeleccionarTextBox(Control As TextBox)     Control.BackColor = &H9A620E     Control.ForeColor = &HFFFFFF     Control.SelStart = 0     Control.SelLength = Len(Control.Text) End Sub Sub DeseleccionarTexBox(Formulario As Form)     Dim I As Integer     For I = 0 To Formulario.Controls.Count - 1         If TypeOf Formulario.Controls(I) Is TextBox Then             Formulario.Controls(I).BackColor = &H80000005             Formulario.Controls(I).ForeColor = &H9A620E         End If     Next I End Sub En la ventana de Login Private Sub txtUsuario_GotFocus()     Call DeseleccionarTexBox(Me)     Call SeleccionarTextBox(txtUsuario) End Sub Private Sub txtPassword_GotFocus()     Call DeseleccionarTexBox(Me)     Call SeleccionarTextBox(txtPassword) End Sub Y para al dar en

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