modconsultas.bas

来自「the Customer programs in vb for chat」· BAS 代码 · 共 36 行

Attribute VB_Name = "modConsultas"
Option Explicit
Public Datos(1 To 15) As String
Public Function consultarDatos() As Boolean
     Dim mors As Recordset
     Set mors = New Recordset
     Dim sql As String
     sql = "select lcliente_id, scargo,sip,snombreequipo,snombrecliente,sagencia, " & _
         "iestado, susuario, spassword, irol, iborrado from "
     mors.Open sql, goConexion, adOpenStatic, adLockReadOnly
     If Not mors.EOF Then
        Datos(1) = mors.Fields("lcliente_id").Value
        Datos(2) = mors.Fields("scargo").Value
        Datos(3) = mors.Fields("snombreequipo").Value
        Datos(4) = mors.Fields("snombrecliente").Value
        Datos(5) = mors.Fields("sagencia").Value
        Datos(6) = mors.Fields("iestado").Value
        Datos(7) = mors.Fields("susuario").Value
        Datos(8) = mors.Fields("spassword").Value
        Datos(9) = mors.Fields("irol").Value
        Datos(10) = mors.Fields("iborrado").Value
        If Datos(6) = 1 Then
            Mensaje = "Esta cliente ya se encuentra conectado"
            consultarDatos = False
        ElseIf Datos(10) = 1 Then
            Mensaje = "Esta cliente fue dado de baja por el admisnitrado"
            consultarDatos = False
        Else
            consultarDatos = True
        End If
     Else
        Mensaje = "Verifique su usuario y contrae馻"
        consultarDatos = False
     End If
End Function