Visual Basic - duda con un login en visual basic 6.0

Life is soft - evento anual de software empresarial
   
Vista:

duda con un login en visual basic 6.0

Publicado por Blanca (1 intervención) el 08/04/2008 02:57:15
Ayudenme k esta mal en este codigo, por que no me deja hacer nada el codigo nos habla de una forma llamada login.frm, una base de datos contenida en c:PDIPDI01
los campos son usuario, password y tipo de estatus
el ultimo nos dice si sera un administrador total, medio u usuario, pero no me sale bien, alguien podria ver mi codigo

Public OK As Boolean
Private Sub Data1_Validate(Action As Integer, Save As Integer)
With Data1.Recordset
.FindLast
If .EOF Then .MoveNext
End With
Exit Sub
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Public Sub Command1_Click()
If Text1(0).Text = Text2.Text Then
ban = 1
Else
MsgBox "Te Equivocaste en el usuario, ¡Trata de Nuevo!", , "Login"
End If
If Text3.Text = Text1(1).Text Then
ban1 = 1
Else
MsgBox "Te Equivocaste en el password, ¡Trata de Nuevo!", , "Login"
End If
If Text4.Text = 1 Then
at = 1
Else
End If
If Text4.Text = 2 Then
am = 1
Else
End If
If Text4.Text = 3 Then
u = 1
Else
End If
If ban = 1 & ban1 = 1 & at = 1 Then
OK = True
Me.Hide
Academicos.Show
Else
End If
If am = 2 Then
OK = True
Me.Hide
Academicos1.Show
Else
End If
If u = 3 Then
OK = True
Me.Hide
Academicos2.Show
Else
End If
End Sub
Private Sub Form_Load()
Dim ban,ban1,ban2,at,am,u
ban= 0
ban1= 0
at=0
am=0
u = 0
Text1(0).DataField = "Usuario"
Text1(1).DataField = "Password"
Text1(2).DataField = "Tipo de Estatus"

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:duda con un login en visual basic 6.0

Publicado por Gabriela (15 intervenciones) el 08/04/2008 04:12:48
La verdad no entendí nada de ese ladrillo, pero supongo te estás haciendo un re problema cuando esa rutina podría ser muy, pero muy pequeña.

¿Porque no tratas con un control data asociado a tu base de datos?

data1.databasename = "tubasedatos" solo configuras ese parametro.
Luego en un command

Data1.RecordSource = "select all *from xxx where usuario='" & Text2.Text & '" and clave='" & Text2.Text & '" estatus='" & Text3.Text & '"
Data1.Refresh
' xxx nombre de tu tabla,
' usuario, clave, estatus los campos de tu tabla
If Data1.Recordset.RecordCount = 0 Then
' haces lo que tengas previsto en caso de que el usuario ingresado exista o concuerde
Else
' el usuario no existe o no concuerda
End If

Gaby.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar