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
|