CODIGO_VISUAL_BASIC

'El option explicit verifica en la compilación del programa
'que esten declaradas las variables que se usa el programa
Option Explicit

Dim existe, Archivo As Boolean

'Definimos un erreglo para el manejo de los
'elementos que tendrá el archivo
Private Type Array_Clientes
no_cliente As String * 5 'El * NO, indica la longitud que tendra el
'campo en el archivo de datos
nombre As String* 20
paterno As String * 20
materno As String * 20
End Type

Dim f As Array_Clientes

Dim Encontrado As Boolean

Private Sub btn_salir_Click()
'Descarga la pantalla activa y
'Regresa a pantalla anterior
Unload Me
End Sub

Private Sub Form_Load()
'Ubicación en el HD para los archivos que se usen en el sistema
ruta = "C:"
'Cuando se carga la forma, llamamos al procedimiento
'paraverificar la existencia del archivo de datos
Call Valida_Existe_Archivo
Call info_clientes
End Sub

Private Sub Valida_Existe_Archivo()
'Variable para validar por primera vez la existencia del archivo
'de datos
Archivo = True
''Validamos que el archivo exista
If CreateObject("Scripting.FileSystemObject").FileExists(ruta + "\Archivo_Clientes.txt") _
Then
''Abrimos el archivo llamadoArchivo_Clientes.txt
Open ruta + "\Archivo_Clientes.txt" For Input As #1
Close #1
Else
'La función MSGBOX permite generar una ventana de advertencia al usuario
MsgBox "Archivo " & ruta + "\Archivo_Clientes.txt" & " no existe, verifique ..."
'La variable Archivo la ponemos en FALSE
'porque no hay archivo de datos
Archivo = False
End If
End Sub

Private Sub btn_guardar_Click()
' Agregamosel registro capturado al archivo
If existe Then
'Si en la b{usqueda existe el registro notificamos al usuario
MsgBox "Ese cliente ya existe, no se puede agregar nuevamente, verifique ...", _
vbCritical, "¡¡Aviso!!"
'Salimos de la ejecución del código de éste private sub
Exit Sub
Else
'En caso contrario, es cliente nuevo, abrimos el archivo
'de clientes de manera de escritura pararegistrar al nuevo cliente en el sistema
Open ruta + "\Archivo_Clientes.txt" For Append As #1
'Con el SetFocus, enviamos el cursos a la caja de textos requerida
Text1.SetFocus
If (Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "") Or (Text4.Text = "") _
Then
'Validamos que se hayan tecleado todos los valores en las cajas de texto
MsgBox "Debe rellenar todos los datos", vbInformation, _"Información para el usuario"
Text1.SetFocus
Else
'Asignamos los valores capturados en las cajas de texto a los elementos del arreglo
f.no_cliente = UCase$(Left$(Text1.Text, 5))
f.nombre = UCase$(Left$(Text2.Text, 20))
f.paterno = UCase$(Left$(Text3.Text, 20))
f.materno = UCase$(Left$(Text4.Text, 20))
'Escribimos físicamente en el archivo en la unidad de almacenamiento
Write #1,f.no_cliente, f.nombre, f.paterno, f.materno
'Notificamos al usuario que ya está registrado el cliente
MsgBox "Cliente " & f.nombre & " " & f.paterno & " " & f.materno & " registrado en el sistema ...", , "Aviso para el usuario"
'Limpiamos cajas de texto para una nueva captura y ponemos
'el cursos en la caja de textos requerida
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""Text1.SetFocus
existe = False
End If
'Cerramos el archivo
Close #1
End If
'Mandamos llamar al procedimiento que
'pobla el textlist con todos los clientes
'que tenemos en el archivo de datos
Call info_clientes

End Sub

Private Sub btn_borrar_Click()
'Abrimos el arhivo de origen de datos
Open ruta + "\Archivo_Clientes.txt" For Append As #1
'Validamos si el archivo está vacio.
IfFileLen(ruta + "\Archivo_Clientes.txt") = 0 Then
MsgBox "El archivo está vacio", , "Información para el usuario"
Close
Else
Close
Open ruta + "\Archivo_Clientes.txt" For Input As #1
Open ruta + "\Auxiliar_Clientes.txt" For Output As #2
Encontrado = False
Do While Not EOF(1)
Input #1, f.no_cliente, f.nombre, f.paterno, f.materno
'Validamos que el registro que queremos borrar
'no s escriba en el...