FormCliente.frm

  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FormCliente
  3. Caption = "Clientes"
  4. ClientHeight = 4230
  5. ClientLeft = 45
  6. ClientTop = 435
  7. ClientWidth = 7905
  8. OleObjectBlob = "FormCliente.frx":0000
  9. StartUpPosition = 1 'Centrar en propietario
  10. End
  11. Attribute VB_Name = "FormCliente"
  12. Attribute VB_GlobalNameSpace = False
  13. Attribute VB_Creatable = False
  14. Attribute VB_PredeclaredId = True
  15. Attribute VB_Exposed = False
  16. Option Explicit
  17.  
  18. Private cf As New ClaseFormulario
  19.  
  20. Private Sub botonBorrar_Click()
  21. If cf.Borrar Then
  22. cf.Mensaje = "El registro ha sido borrado"
  23. Else
  24. cf.Mensaje = "ERROR: No se puede borrar"
  25. End If
  26. End Sub
  27.  
  28. Private Sub botonBuscar_Click()
  29. Select Case cf.BuscarTodos(Me.textBuscar.Text, "Customer ID", "Company Name", "Contact Name")
  30. Case 0
  31. cf.Mensaje = "No encontrado"
  32. Case 1
  33. cf.Mostrar
  34. Case Else
  35. FormCoincidentes.Show
  36. cf.Mostrar
  37. End Select
  38. End Sub
  39.  
  40. Private Sub botonCerrar_Click()
  41. cf.Cerrar
  42. End Sub
  43.  
  44. Private Sub botonGuardar_Click()
  45. If Validar Then
  46. If cf.Guardar Then
  47. cf.Mensaje = "Ha sido guardado"
  48. Else
  49. cf.Mensaje = "ERROR: No se ha podido guardar"
  50. End If
  51. End If
  52. End Sub
  53.  
  54. Private Sub botonNuevo_Click()
  55. cf.Nuevo
  56. End Sub
  57.  
  58. Private Sub UserForm_Initialize()
  59. Set cf.Formulario = Me
  60. Set cf.Hoja = Worksheets("Clientes")
  61. cf.Campos = "Customer ID,Company Name,Contact Name,Contact Title"
  62. End Sub
  63.  
  64. Public Function Validar() As Boolean
  65.  
  66. Dim Mensaje As String
  67.  
  68. campoCodigo.Text = UCase(Trim(campoCodigo.Text))
  69. campoEmpresa.Text = Trim(campoEmpresa.Text)
  70. campoEmpleado.Text = Trim(campoEmpleado.Text)
  71. campoCargo.Text = Trim(campoCargo.Text)
  72. Validar = True
  73.  
  74. If Len(campoCodigo) <> 5 Then
  75. Mensaje = Mensaje & "El código debe tener 5 caracteres. "
  76. Validar = False
  77. ElseIf cf.EstaDuplicado("Customer ID", campoCodigo) Then
  78. Mensaje = "ERROR: Ya existe el código. "
  79. Validar = False
  80. End If
  81. If Len(campoEmpresa) = 0 Then
  82. Mensaje = Mensaje & "Falta la empresa. "
  83. Validar = False
  84. End If
  85. If Len(campoEmpleado) = 0 Then
  86. Mensaje = Mensaje & "Falta el empleado. "
  87. Validar = False
  88. End If
  89.  
  90. cf.Mensaje = Mensaje
  91.  
  92. End Function
  93.  

Proinf.net