525 lines
23 KiB
VB.net
525 lines
23 KiB
VB.net
Imports System.IO
|
||
Imports System.Data.SqlClient
|
||
Imports CLIENTE.dmModulo
|
||
Imports CLIENTE.Registro 'controla password
|
||
Public Class Login
|
||
Inherits System.Windows.Forms.Form
|
||
Public Usuario As Boolean = True
|
||
|
||
#Region " Windows Form Designer generated code "
|
||
|
||
Public Sub New()
|
||
MyBase.New()
|
||
|
||
'This call is required by the Windows Form Designer.
|
||
'MsgBox("entro")
|
||
InitializeComponent()
|
||
'MsgBox("paso")
|
||
|
||
'Add any initialization after the InitializeComponent() call
|
||
|
||
End Sub
|
||
|
||
'Form overrides dispose to clean up the component list.
|
||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||
If disposing Then
|
||
If Not (components Is Nothing) Then
|
||
components.Dispose()
|
||
End If
|
||
End If
|
||
MyBase.Dispose(disposing)
|
||
End Sub
|
||
|
||
'Required by the Windows Form Designer
|
||
Private components As System.ComponentModel.IContainer
|
||
|
||
'NOTE: The following procedure is required by the Windows Form Designer
|
||
'It can be modified using the Windows Form Designer.
|
||
'Do not modify it using the code editor.
|
||
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
|
||
Friend WithEvents btnAceptar As System.Windows.Forms.Button
|
||
Friend WithEvents btnCancelar As System.Windows.Forms.Button
|
||
Friend WithEvents txtUsuario As System.Windows.Forms.TextBox
|
||
Friend WithEvents txtClave As System.Windows.Forms.TextBox
|
||
Public WithEvents lblIdPerfil As System.Windows.Forms.Label
|
||
Friend WithEvents lblNombreCompleto As System.Windows.Forms.Label
|
||
Friend WithEvents lblNombrePerfil As System.Windows.Forms.Label
|
||
Friend WithEvents lblAM As System.Windows.Forms.Label
|
||
Friend WithEvents lblAP As System.Windows.Forms.Label
|
||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||
Friend WithEvents lblNombreUsuario As System.Windows.Forms.Label
|
||
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
|
||
|
||
|
||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Login))
|
||
Me.PictureBox2 = New System.Windows.Forms.PictureBox
|
||
Me.btnAceptar = New System.Windows.Forms.Button
|
||
Me.btnCancelar = New System.Windows.Forms.Button
|
||
Me.txtUsuario = New System.Windows.Forms.TextBox
|
||
Me.txtClave = New System.Windows.Forms.TextBox
|
||
Me.lblIdPerfil = New System.Windows.Forms.Label
|
||
Me.lblNombreCompleto = New System.Windows.Forms.Label
|
||
Me.lblNombrePerfil = New System.Windows.Forms.Label
|
||
Me.lblAM = New System.Windows.Forms.Label
|
||
Me.lblAP = New System.Windows.Forms.Label
|
||
Me.Panel1 = New System.Windows.Forms.Panel
|
||
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
|
||
Me.lblNombreUsuario = New System.Windows.Forms.Label
|
||
Me.Label2 = New System.Windows.Forms.Label
|
||
Me.Panel1.SuspendLayout()
|
||
Me.SuspendLayout()
|
||
'
|
||
'PictureBox2
|
||
'
|
||
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
|
||
Me.PictureBox2.Location = New System.Drawing.Point(8, 6)
|
||
Me.PictureBox2.Name = "PictureBox2"
|
||
Me.PictureBox2.Size = New System.Drawing.Size(38, 36)
|
||
Me.PictureBox2.TabIndex = 1
|
||
Me.PictureBox2.TabStop = False
|
||
'
|
||
'btnAceptar
|
||
'
|
||
Me.btnAceptar.BackColor = System.Drawing.Color.MidnightBlue
|
||
Me.btnAceptar.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||
Me.btnAceptar.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.btnAceptar.ForeColor = System.Drawing.Color.White
|
||
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||
Me.btnAceptar.Location = New System.Drawing.Point(66, 90)
|
||
Me.btnAceptar.Name = "btnAceptar"
|
||
Me.btnAceptar.Size = New System.Drawing.Size(74, 24)
|
||
Me.btnAceptar.TabIndex = 2
|
||
Me.btnAceptar.Text = "Aceptar"
|
||
'
|
||
'btnCancelar
|
||
'
|
||
Me.btnCancelar.BackColor = System.Drawing.Color.MidnightBlue
|
||
Me.btnCancelar.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||
Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||
Me.btnCancelar.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.btnCancelar.ForeColor = System.Drawing.Color.White
|
||
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||
Me.btnCancelar.Location = New System.Drawing.Point(147, 90)
|
||
Me.btnCancelar.Name = "btnCancelar"
|
||
Me.btnCancelar.Size = New System.Drawing.Size(81, 23)
|
||
Me.btnCancelar.TabIndex = 3
|
||
Me.btnCancelar.Text = "Cancelar"
|
||
'
|
||
'txtUsuario
|
||
'
|
||
Me.txtUsuario.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||
Me.txtUsuario.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.txtUsuario.Location = New System.Drawing.Point(110, 32)
|
||
Me.txtUsuario.MaxLength = 15
|
||
Me.txtUsuario.Name = "txtUsuario"
|
||
Me.txtUsuario.Size = New System.Drawing.Size(130, 23)
|
||
Me.txtUsuario.TabIndex = 0
|
||
Me.txtUsuario.Text = ""
|
||
'
|
||
'txtClave
|
||
'
|
||
Me.txtClave.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.txtClave.Location = New System.Drawing.Point(110, 56)
|
||
Me.txtClave.MaxLength = 15
|
||
Me.txtClave.Name = "txtClave"
|
||
Me.txtClave.PasswordChar = Microsoft.VisualBasic.ChrW(42)
|
||
Me.txtClave.Size = New System.Drawing.Size(130, 23)
|
||
Me.txtClave.TabIndex = 1
|
||
Me.txtClave.Text = ""
|
||
'
|
||
'lblIdPerfil
|
||
'
|
||
Me.lblIdPerfil.Location = New System.Drawing.Point(112, 0)
|
||
Me.lblIdPerfil.Name = "lblIdPerfil"
|
||
Me.lblIdPerfil.Size = New System.Drawing.Size(40, 8)
|
||
Me.lblIdPerfil.TabIndex = 6
|
||
'
|
||
'lblNombreCompleto
|
||
'
|
||
Me.lblNombreCompleto.Location = New System.Drawing.Point(-24, 176)
|
||
Me.lblNombreCompleto.Name = "lblNombreCompleto"
|
||
Me.lblNombreCompleto.Size = New System.Drawing.Size(19, 23)
|
||
Me.lblNombreCompleto.TabIndex = 8
|
||
'
|
||
'lblNombrePerfil
|
||
'
|
||
Me.lblNombrePerfil.Location = New System.Drawing.Point(238, 0)
|
||
Me.lblNombrePerfil.Name = "lblNombrePerfil"
|
||
Me.lblNombrePerfil.Size = New System.Drawing.Size(36, 12)
|
||
Me.lblNombrePerfil.TabIndex = 9
|
||
'
|
||
'lblAM
|
||
'
|
||
Me.lblAM.Location = New System.Drawing.Point(32, 16)
|
||
Me.lblAM.Name = "lblAM"
|
||
Me.lblAM.Size = New System.Drawing.Size(8, 23)
|
||
Me.lblAM.TabIndex = 10
|
||
'
|
||
'lblAP
|
||
'
|
||
Me.lblAP.Location = New System.Drawing.Point(304, 8)
|
||
Me.lblAP.Name = "lblAP"
|
||
Me.lblAP.Size = New System.Drawing.Size(48, 23)
|
||
Me.lblAP.TabIndex = 11
|
||
'
|
||
'Panel1
|
||
'
|
||
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(202, Byte), CType(202, Byte), CType(183, Byte))
|
||
Me.Panel1.Controls.Add(Me.LinkLabel1)
|
||
Me.Panel1.Controls.Add(Me.lblAM)
|
||
Me.Panel1.Controls.Add(Me.txtUsuario)
|
||
Me.Panel1.Controls.Add(Me.btnAceptar)
|
||
Me.Panel1.Controls.Add(Me.lblNombrePerfil)
|
||
Me.Panel1.Controls.Add(Me.txtClave)
|
||
Me.Panel1.Controls.Add(Me.PictureBox2)
|
||
Me.Panel1.Controls.Add(Me.btnCancelar)
|
||
Me.Panel1.Controls.Add(Me.lblNombreUsuario)
|
||
Me.Panel1.Controls.Add(Me.Label2)
|
||
Me.Panel1.Location = New System.Drawing.Point(8, 8)
|
||
Me.Panel1.Name = "Panel1"
|
||
Me.Panel1.Size = New System.Drawing.Size(272, 152)
|
||
Me.Panel1.TabIndex = 12
|
||
'
|
||
'LinkLabel1
|
||
'
|
||
Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(255, Byte))
|
||
Me.LinkLabel1.Location = New System.Drawing.Point(3, 135)
|
||
Me.LinkLabel1.Name = "LinkLabel1"
|
||
Me.LinkLabel1.Size = New System.Drawing.Size(141, 23)
|
||
Me.LinkLabel1.TabIndex = 14
|
||
Me.LinkLabel1.TabStop = True
|
||
Me.LinkLabel1.Text = "Condor Business Solutions"
|
||
'
|
||
'lblNombreUsuario
|
||
'
|
||
Me.lblNombreUsuario.BackColor = System.Drawing.Color.FromArgb(CType(202, Byte), CType(202, Byte), CType(183, Byte))
|
||
Me.lblNombreUsuario.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.lblNombreUsuario.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(51, Byte), CType(102, Byte))
|
||
Me.lblNombreUsuario.Location = New System.Drawing.Point(46, 34)
|
||
Me.lblNombreUsuario.Name = "lblNombreUsuario"
|
||
Me.lblNombreUsuario.Size = New System.Drawing.Size(72, 18)
|
||
Me.lblNombreUsuario.TabIndex = 11
|
||
Me.lblNombreUsuario.Text = "Usuario:"
|
||
Me.lblNombreUsuario.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||
'
|
||
'Label2
|
||
'
|
||
Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(202, Byte), CType(202, Byte), CType(183, Byte))
|
||
Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(51, Byte), CType(102, Byte))
|
||
Me.Label2.Location = New System.Drawing.Point(42, 56)
|
||
Me.Label2.Name = "Label2"
|
||
Me.Label2.Size = New System.Drawing.Size(72, 18)
|
||
Me.Label2.TabIndex = 13
|
||
Me.Label2.Text = "Password:"
|
||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||
'
|
||
'Login
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
|
||
Me.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(51, Byte), CType(102, Byte))
|
||
Me.ClientSize = New System.Drawing.Size(290, 170)
|
||
Me.Controls.Add(Me.Panel1)
|
||
Me.Controls.Add(Me.lblAP)
|
||
Me.Controls.Add(Me.lblNombreCompleto)
|
||
Me.Controls.Add(Me.lblIdPerfil)
|
||
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||
Me.Name = "Login"
|
||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||
Me.Text = "MINDS"
|
||
Me.Panel1.ResumeLayout(False)
|
||
Me.ResumeLayout(False)
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
'Declaracion de variables globales
|
||
Dim strConnection As String
|
||
'Para conectarme a la base de datos
|
||
Dim dap1 As SqlDataAdapter = New SqlDataAdapter()
|
||
Dim cnn1 As SqlConnection
|
||
Dim cmd1 As SqlCommand
|
||
Dim das1 As DataSet
|
||
Dim Cadena As String
|
||
Public Shared IdPerfil As String
|
||
Public Shared NombreUsuario As String
|
||
Public Shared NombreCompleto As String
|
||
Public Shared NombrePerfil As String
|
||
Dim contador As Integer
|
||
Dim clCmp As clsComplejo = New clsComplejo
|
||
|
||
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
|
||
'Me.Close()
|
||
Application.Exit()
|
||
End Sub
|
||
|
||
|
||
Private Sub ConectarBD()
|
||
'dmModulo.SqlConnection.ConnectionString = strConnection
|
||
cnn1 = New SqlConnection(dmModulo.strConnection)
|
||
Cadenas_Select()
|
||
Try
|
||
cnn1.Open()
|
||
'MsgBox("base abierta")
|
||
Llenar_Dataset()
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en el metodo ConectarBD. " & er.Message)
|
||
Finally
|
||
cnn1.Close()
|
||
End Try
|
||
End Sub
|
||
|
||
|
||
Private Sub LeeRegEdit()
|
||
dmModulo.Conexion = False
|
||
strConnection = ""
|
||
dmModulo.strConnection = ""
|
||
dmModulo.CadenaConexion(GetSetting("MIndsAgro", "Conexion", "TipoServidorMD", "25"), _
|
||
GetSetting("MIndsAgro", "Conexion", "Servidor", "25"), _
|
||
GetSetting("MIndsAgro", "Conexion", "BaseDatos", "25"), _
|
||
GetSetting("MIndsAgro", "Conexion", "Usuario", "25"), _
|
||
GetSetting("MIndsAgro", "Conexion", "Password", "25"))
|
||
strConnection = dmModulo.strConnection
|
||
|
||
Try
|
||
dmModulo.SqlConnection.ConnectionString = strConnection
|
||
dmModulo.SqlConnection.Open() 'Abre la conexion
|
||
Conexion = True
|
||
Catch dataException As Exception
|
||
MessageBox.Show("No se ha podido conectar a la base de datos. Verifique con el administrador del sistema." + Chr(13) + _
|
||
"Detalles : " + Chr(13) + dataException.Message, "Mensaje de sistema", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
|
||
Finally
|
||
'dmModulo.SqlConnection.Close() 'Cierra la conexion ',modificada
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub CambiaApariencia(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnAceptar.MouseMove, btnCancelar.MouseMove
|
||
Try
|
||
Dim Boton As Button
|
||
Boton = Sender
|
||
Boton.BackColor = System.Drawing.Color.Blue
|
||
Boton.Font = New System.Drawing.Font("Tahoma", 10.5!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Catch ex As Exception
|
||
End Try
|
||
End Sub
|
||
Private Sub RegresaApariencia(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.MouseLeave, btnCancelar.MouseLeave
|
||
Try
|
||
Dim Boton As Button
|
||
Boton = Sender
|
||
Boton.BackColor = System.Drawing.Color.MidnightBlue
|
||
Boton.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Catch ex As Exception
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
|
||
Dim PasswordEncriptado As String
|
||
Dim CLassReg As New LeeEditorRegistro
|
||
Dim _FechaActual As String = Now 'MSGBOX = Registro.DesEncripta("246054246230070247035003031")
|
||
Dim Classcom As New clsComplejo
|
||
Dim Prueba As New Odbc.OdbcConnection
|
||
|
||
PasswordEncriptado = Registro.Encripta(txtClave.Text)
|
||
If Usuario = True Then
|
||
CLassReg.LEE(clsVaribles.Conexion.ConnectionString)
|
||
dmModulo.SqlConnection.ConnectionString = dmModulo.strConnection
|
||
'dmModulo.SqlConnection.ConnectionString = "DSN=MindsConeccion"
|
||
dmModulo.SqlConnection.Open()
|
||
|
||
'Prueba.ConnectionString = "DSN=MindsConeccion"
|
||
'Prueba.Open()
|
||
|
||
Conexion = True
|
||
|
||
End If
|
||
'si dmModulo.conexion = true significa que la base esta abierta
|
||
If dmModulo.Conexion = True Then
|
||
Dim frmSplash As splash = New splash
|
||
Dim Command As New Command
|
||
Try
|
||
Command.spsql = "spcbExisteUsuario '" & Trim(txtUsuario.Text) & "', '" & PasswordEncriptado & "'"
|
||
Command.Count(Command.spsql)
|
||
If Command.Datos > 0 Then
|
||
Usuario = True
|
||
Me.Visible = False
|
||
Me.Hide()
|
||
frmSplash.Show()
|
||
Application.DoEvents()
|
||
'**************
|
||
frmSplash.Close()
|
||
frmSplash.Dispose()
|
||
ConectarBD()
|
||
Enlazar()
|
||
'Verifico cuanto dias tiene el password
|
||
Dim fila As DataRow
|
||
Dim Fecha As String
|
||
Dim FechaOld As Date
|
||
Static Dim dias As Integer
|
||
Dim Result As DialogResult
|
||
fila = das1.Tables(0).Rows(0)
|
||
Fecha = fila("FCambioPassword")
|
||
FechaOld = CDate(Fecha)
|
||
dias = DateDiff(DateInterval.Day, FechaOld, Now) 'Obtiene el numero de dias
|
||
If dias >= 7 Then
|
||
Dim DiasRestantes As Integer = 15 - dias
|
||
If DiasRestantes <= 0 Then
|
||
MessageBox.Show("Es necesario que cambies tu password", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Dim frmCamPas As CambioPassword = New CambioPassword
|
||
frmCamPas.ShowDialog()
|
||
Else
|
||
Result = MessageBox.Show("Tu password Caducar<61> en " & DiasRestantes & " dias" & " <20>Deseas cambiarlo ahora?", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
|
||
If Result = DialogResult.Yes Then
|
||
Dim frmCamPas As CambioPassword = New CambioPassword
|
||
frmCamPas.ShowDialog()
|
||
End If
|
||
End If
|
||
End If
|
||
' MsgBox(dias)
|
||
|
||
'Establesco el query para grabar la fecha del ultimo acceso
|
||
Dim CadSQL As String = ""
|
||
CadSQL = "spUltimoAcceso ' " & Classcom.ObtenFecha(_FechaActual, "yyyymmdd") & "', '" & Me.txtUsuario.Text & "', 'A'"
|
||
clCmp.sbGuardaModifica(CadSQL)
|
||
|
||
'***AUDITORIA
|
||
clsVaribles.varUsuario = clCmp.BuscaValores("idusuario", "usuario", "usuario = '" & My.User.Name & "'")
|
||
|
||
'AUDITORIA
|
||
Dim ClassAud As New ClassMyUtils
|
||
Dim varUser As Long
|
||
Dim ClassComodin As New clsComplejo
|
||
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
|
||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 1, 1, My.User.Name)
|
||
|
||
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 1, My.Computer.Name, "Minds Cliente", "Entrada Minds Cliente")
|
||
'FIN AUDITORIA
|
||
|
||
LlamaPrincipal()
|
||
'***************
|
||
Else
|
||
Usuario = False
|
||
contador = contador + 1 ' Se utiliza para indicar q el usuario solo puede hacer tres intentos de conexion
|
||
MessageBox.Show("No existe su cuenta de usuario en el sistema o no es un usuario activo.", "Mensaje del sistema", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
|
||
End If
|
||
|
||
If contador >= 3 Then
|
||
'Estableco el query para bloquear la cuenta
|
||
Dim SQL As String = ""
|
||
SQL = "spUltimoAcceso ' " & Classcom.ObtenFecha(_FechaActual, "yyyymmdd") & "', '" & Me.txtUsuario.Text & "', 'B'"
|
||
clCmp.sbGuardaModifica(SQL)
|
||
MsgBox("tu cuenta ha sido bloqueada consulta al administrador del sistema")
|
||
Application.Exit() 'cierra todo el sistema
|
||
End If
|
||
Catch a As Exception
|
||
MessageBox.Show(a.Message)
|
||
Finally
|
||
'dmModulo.SqlConnection.Close() 'Cierra la conexion ',modificada
|
||
End Try
|
||
End If
|
||
|
||
|
||
End Sub
|
||
|
||
|
||
Private Sub Enlazar()
|
||
'Enlazo los datos
|
||
lblIdPerfil.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.idPerfil"))
|
||
lblNombreUsuario.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.Usuario"))
|
||
lblNombrePerfil.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.NombrePerfil"))
|
||
lblNombreCompleto.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.Nombre"))
|
||
lblAP.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.APaterno"))
|
||
lblAM.DataBindings.Add(New Binding("Text", das1, "UsuarioPefil.AMaterno"))
|
||
'Asigancion de valores para compartir en toda la aplicacion+
|
||
IdPerfil = lblIdPerfil.Text
|
||
NombreUsuario = lblNombreUsuario.Text
|
||
NombreCompleto = lblNombreCompleto.Text & " "
|
||
NombreCompleto = NombreCompleto & lblAP.Text & " "
|
||
NombreCompleto = NombreCompleto & lblAM.Text
|
||
NombrePerfil = lblNombrePerfil.Text
|
||
|
||
End Sub
|
||
Private Sub txtUsuario_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUsuario.Enter
|
||
txtUsuario.SelectAll()
|
||
End Sub
|
||
Private Sub txtClave_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtClave.Enter
|
||
txtClave.SelectAll()
|
||
End Sub
|
||
|
||
Private Sub Cadenas_Select()
|
||
Cadena = "select * from UsuarioPefil WHERE Usuario = '"
|
||
Cadena = Cadena & txtUsuario.Text & "'"
|
||
cmd1 = New SqlCommand(Cadena, cnn1)
|
||
dap1.SelectCommand = cmd1
|
||
End Sub
|
||
|
||
|
||
Private Sub Llenar_Dataset()
|
||
'Lleno el dataset con la vista usurioPerfil
|
||
das1 = New DataSet
|
||
dap1.Fill(das1, "UsuarioPefil")
|
||
'MsgBox("llene dateset")
|
||
End Sub
|
||
|
||
Private Sub LlamaPrincipal()
|
||
Try
|
||
Dim frmPrincipal As mdiForm = New mdiForm
|
||
'frmPrincipal.entrar(txtUsuario.Text.Trim, txtClave.Text.Trim) 'MARCA ERROR ESTA LINEA
|
||
'frmPrincipal.IsMdiContainer = True
|
||
frmPrincipal.Show()
|
||
|
||
Catch er As Exception
|
||
MessageBox.Show(er.Message & " Error al cargar el formulario principal")
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
Me.CancelButton = btnCancelar
|
||
Me.AcceptButton = btnAceptar
|
||
validar_textbox()
|
||
End Sub
|
||
|
||
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
||
'llama a una funcion que me permite enlazar a una pagina
|
||
VisitLink()
|
||
End Sub
|
||
|
||
Sub VisitLink()
|
||
Try
|
||
'Llama el metodo Process.Start para abrir el navegador por defaul y abre la URL
|
||
System.Diagnostics.Process.Start("http://condorbs.com")
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub validar_textbox()
|
||
'Valida que la longuitud de la propiedad text de las cajas sea igual a 0
|
||
'para deshabilitar el boton de aceptar
|
||
If (txtUsuario.Text.Length = 0 Or txtClave.Text.Length = 0) Then
|
||
btnAceptar.Enabled = False
|
||
Else
|
||
'si la longuitud es mayor de 0 se habilita el boton de aceptar
|
||
If txtClave.Text.Length > 0 Then
|
||
btnAceptar.Enabled = True
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub TxtUsuario_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUsuario.TextChanged
|
||
'si la caja de texto (usuario) cambio en su propiedad text, se valida nuevamente
|
||
validar_textbox()
|
||
End Sub
|
||
|
||
Private Sub TxtClave_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClave.TextChanged
|
||
'si la caja de texto (contrase<73>a) cambio en su propiedad text, se valida nuevamente
|
||
validar_textbox()
|
||
End Sub
|
||
|
||
End Class
|