Scribd
Upload
36 views

VB SQL

This document contains code for a VB.NET application that manages users and connections to a SQL database. It defines public variables and modules for database connections, user authentication, and CRUD operations on user records. Functions are included to open the database connection, read configuration from a file, search for users, and insert, update, or delete user records in the database. The form code handles loading the form, clearing fields, updating a user data grid, and enabling/disabling controls based on add, modify, or delete user modes.

Uploaded by

Edd PO
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
36 views

VB SQL

This document contains code for a VB.NET application that manages users and connections to a SQL database. It defines public variables and modules for database connections, user authentication, and CRUD operations on user records. Functions are included to open the database connection, read configuration from a file, search for users, and insert, update, or delete user records in the database. The form code handles loading the form, clearing fields, updating a user data grid, and enabling/disabling controls based on add, modify, or delete user modes.

Uploaded by

Edd PO
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 6

Imports

Imports
Imports
Imports
Imports

System.Data.Sql
System.Data.SqlClient
System
System.IO
System.Collections

Module globales
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public

Dato(4) As String
cadena As Object
ReiPasw As String
ReiSer As String
ReiUsu As String
ReiDB As String
K As Integer
ArchivoConexion As String = Application.StartupPath.ToString + "\Cfg.cfg"
Cadena_Conexion As String
ConexionDb As String
datos_usu As String
datos_emp As String
Cn As SqlConnection
com As SqlCommand
com2 As SqlCommand

Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public
Public

ComboDR As SqlDataReader
ComboDR1 As SqlDataReader
ComboDR2 As SqlDataReader
ComboDR3 As SqlDataReader
ComboDR4 As SqlDataReader
ComboDR5 As SqlDataReader
miCon As SqlConnection
Nombrecito As String
Sql_gdafac As String
Sql_delFac As String
Sql_act As String
usu As String
pass As String
x As Integer = 1
UsuPass As String
lector As SqlDataReader
Ausuario As String
Apassword As String
nivelUsr As String
ANombre As String
nom As String
d_nom As String
e_num As String
Aarchivo As String
Afecha As String
Adescar As String
dat_arch As String
lectorA As SqlDataReader
fechaD, fechaA As Date
aclec As String
achor As String
acsuc As String
acinc As String
acemp As String
acusu As String
apeth As String
appue As String
adloc As String
adsuc As String
adarc As String
apcie As String
apcig As String
apcme As String
apcmg As String
amgru As String
arana As String
artar As String
arkar As String
aracu As String
arrep As String
arvis As String
apcal As String
aprep As String
auhue As String
audat As String
aucon As String
acret As String
Trep As String
dirIp As String
dirpuerto As String
dirComm As String
dirBaud As String
numdispIp As String
numdispComm As String
Msg As Integer
Querys1, nomQuery, querys2 As String
Cuantos As Boolean
Tblname As String
ObjComm As SqlCommand
Vnum, Vnom As String
datos_lect As String

Public Sub Abrir_Conexion()


ConexionDb = Trim("Server=" & ReiSer & ";Password=" & ReiPasw & ";Persist Security Info=True;User ID=" & ReiUsu &
";Initial Catalog=" & ReiDB)

Cadena_Conexion = ConexionDb
Cn = New SqlConnection(Cadena_Conexion)
If Cn.State = ConnectionState.Open Then Cn.Close()
Try
Cn.Open()
Catch ex As Exception
MsgBox("Unos de los Parametros esta mal,Para accesar a la base de datos", MessageBoxButtons.OK Or
MessageBoxIcon.Error, "Conexion")
Cn.Close()
End
End Try
End Sub
Public Sub pulsaEnter(ByVal e As System.Windows.Forms.KeyPressEventArgs)
'Subrutina para captar cuando se pulse enter en los controles
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
SendKeys.Send("{TAB}")
End If
End Sub
Public Sub Llama_Cfg()
K = 0
FileOpen(1, ArchivoConexion, OpenMode.Input)
cadena = LineInput(1)
ReiSer = Trim(cadena)
cadena = LineInput(1)
ReiUsu = Trim(cadena)
cadena = LineInput(1)
ReiPasw = Trim(cadena)
Do While EOF(1) = False
Input(1, cadena)
If cadena <> "" Then Dato(K) = Trim(cadena)
K = K + 1
Loop
ReiDB = Dato(0)
FileClose(1)
End Sub
Function BuscaUsuario(ByVal usu As String, ByVal pass As String) As String
Try
Abrir_Conexion()
datos_usu = ("SELECT * FROM Tbl_Usuarios WHERE Usuario='" & usu & "' AND Password = '" & pass & "'")
com = New SqlCommand(datos_usu, Cn)
lector = com.ExecuteReader()
If lector.HasRows = True Then
While lector.Read()
'Asigna los valores del usuario a las variables correspondientes
Ausuario = Trim(lector("usuario"))
Apassword = Trim(lector("password"))
ANombre = Trim(lector("nombre"))
aclec = Trim(lector("cat_lec"))
achor = Trim(lector("cat_hor"))
acinc = Trim(lector("cat_inc"))
acemp = Trim(lector("cat_emp"))
acusu = Trim(lector("cat_usu"))
acret = Trim(lector("cat_reta"))
adloc = Trim(lector("des_loc"))
apcie = Trim(lector("pro_cie"))
apcig = Trim(lector("pro_cig"))
artar = Trim(lector("rep_tar"))
arkar = Trim(lector("rep_kar"))
End While
If UCase(Trim(usu)) = UCase(Ausuario) And UCase(Trim(pass)) = UCase(Apassword) Then
lector.Close()
frm_Principal.Show()
frm_acceso.Hide()
Cn.Close()
End If
Else
lector.Close()
MsgBox("Firma del Sistema Incorrecta", MsgBoxStyle.Information, "Intento " & x & " de
If x = 3 Then End
x = x + 1
frm_acceso.txtusu.Text = ""
frm_acceso.txtpass.Text = ""
frm_acceso.txtusu.Focus()
End If
Catch ex As SqlException
MessageBox.Show("Error SQL", "BuscaUsuario", MessageBoxButtons.OK, MessageBoxIcon.Error)
lector.Close()
End Try
Return False
End Function
Function BuscaArchivo(ByVal nom) As String
Try
'Abrir_Conexion()
d_nom = ("SELECT * FROM tbl_archivos where archivo= '" & nom & "'")
com2 = New SqlCommand(d_nom, Cn)
lectorA = com2.ExecuteReader()
If lectorA.HasRows = True Then
While lectorA.Read
Aarchivo = Trim(lectorA("archivo"))
Afecha = Trim(lectorA("fecha"))
Adescar = Trim(lectorA("descar"))
End While
Else
lectorA.Close()
End If

3")

Catch ex As Exception
MessageBox.Show("Error SQL", "BuscaArchivo", MessageBoxButtons.OK, MessageBoxIcon.Error)
lector.Close()
End Try
Return False
End Function
Public Sub Inserta_Campo()
Dim cmd As SqlCommand
If Cn.State = ConnectionState.Open Then Cn.Close()
Try
Cn.Open()
cmd = New SqlCommand(Sql_gdafac, Cn)
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message & vbCrLf & "Consulte al Administrador", MsgBoxStyle.Critical, "Inserta_Campo")
End Try
End Sub
Public Sub Actualiza_Campo()
Dim cmd1 As SqlCommand
If Cn.State = ConnectionState.Open Then Cn.Close()
Try
Cn.Open()
cmd1 = New SqlCommand(Sql_act, Cn)
cmd1.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message & vbCrLf & "Consulte al Administrador", MsgBoxStyle.Critical, "Modificar ")
End Try
End Sub
Public Sub Borrar_Campo()
Dim cmd As SqlCommand
If Cn.State = ConnectionState.Open Then Cn.Close()
Try
Cn.Open()
cmd = New SqlCommand(Sql_delFac, Cn)
cmd.ExecuteNonQuery()
Catch ex As Exception
End Try
End Sub
End Module

Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class frm_usuarios


Private Sub frm_usuarios_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
Handles Me.FormClosing
frm_Principal.Show()
End Sub
Private Sub frm_usuarios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Llama_Cfg()
vista.Checked = True
desh_cajas()
cajas_bco()
Me.WindowState = FormWindowState.Normal
End Sub
#Region "limpiar cajas"
Sub Limpiar_Cajas()
Actualiza_Grid()
txt_usuario.Text = String.Empty
txt_pass.Text = String.Empty
txt_nombre.Text = String.Empty
cat_emp.Text = String.Empty
cat_hor.Text = String.Empty
cat_inc.Text = String.Empty
cat_lec.Text = String.Empty
cat_usu.Text = String.Empty
cat_ret.Text = String.Empty
des_loc.Text = String.Empty
pro_cie.Text = String.Empty
pro_cig.Text = String.Empty
rep_kar.Text = String.Empty
rep_tar.Text = String.Empty
End Sub
#End Region
#Region "Actualiza Grid"
Sub Actualiza_Grid()
Dim adaptador As New SqlDataAdapter
Dim dset As New DataSet()
Try
Abrir_Conexion()
lista_usuario.RowsDefaultCellStyle.BackColor = Color.White
lista_usuario.AlternatingRowsDefaultCellStyle.BackColor = Color.Silver

adaptador = New SqlDataAdapter("select * from Tbl_usuarios", Cn)


adaptador.Fill(dset, "Tbl_usuarios")
lista_usuario.DataSource = dset.Tables("Tbl_usuarios")
lista_usuario.Columns("Usuario").Width = 120
lista_usuario.Columns("Password").Width = 120
lista_usuario.Columns("Nombre").Width = 170
lista_usuario.Columns("cat_lec").Width = 50
lista_usuario.Columns("Cat_hor").Width = 50
lista_usuario.Columns("Cat_inc").Width = 50
lista_usuario.Columns("Cat_emp").Width = 50
lista_usuario.Columns("cat_usu").Width = 50
lista_usuario.Columns("cat_reta").Width = 50
lista_usuario.Columns("des_loc").Width = 50
lista_usuario.Columns("pro_cie").Width = 50
lista_usuario.Columns("pro_cig").Width = 50
lista_usuario.Columns("rep_tar").Width = 50
lista_usuario.Columns("rep_kar").Width = 50
Catch Ex As Exception
MsgBox(Ex.Message, MsgBoxStyle.Critical, "Actializa_Grid")
End Try
End Sub
#End Region
#Region "controles vista, Altas, modificaciones, bajas usuarios "
Private Sub vista_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
vista.CheckedChanged
If vista.Checked = True Then
vista.Enabled = True
Limpiar_Cajas()
End If
txt_usuario.Enabled = False
txt_nombre.Enabled = False
txt_pass.Enabled = False
desh_cajas()
End Sub
Private Sub alta_usr_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
alta_usr.CheckedChanged
vista.Enabled = False
baja_usr.Enabled = False
mod_usr.Enabled = False
txt_usuario.Enabled = True
txt_pass.Enabled = True
txt_nombre.Enabled = True
txt_usuario.Focus()
hab_cajas()
cajas_ambar()
btn_ok.Text = "Aceptar"
Limpiar_Cajas()
End Sub
Private Sub mod_usr_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
mod_usr.CheckedChanged
vista.Enabled = False
alta_usr.Enabled = False
baja_usr.Enabled = False
txt_usuario.Enabled = False
txt_pass.Enabled = True
txt_nombre.Enabled = True
hab_cajas()
cajas_ambar()
btn_ok.Text = "Modificar"
Limpiar_Cajas()
End Sub
Private Sub baja_usr_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
baja_usr.CheckedChanged
txt_usuario.Enabled = False
txt_nombre.Enabled = False
txt_pass.Enabled = False
vista.Enabled = False
mod_usr.Enabled = False
alta_usr.Enabled = False
baja_usr.Enabled = False
btn_ok.Text = "Eliminar"
Limpiar_Cajas()
End Sub
#End Region
#Region "botones"
Private Sub btn_salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_salir.Click
frm_Principal.MenuStrip1.Enabled = True
frm_Principal.Enabled = True
frm_Principal.ToolStrip1.Enabled = True
Me.Close()
End Sub
Private Sub tbn_cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbn_cancelar.Click
vista.Enabled = True
vista.Checked = True
alta_usr.Enabled = True
baja_usr.Enabled = True
mod_usr.Enabled = True
cajas_bco()
vista.Focus()
btn_ok.Text = ""
End Sub
#End Region
#Region "Obtener datos en grid"

Private Sub lista_usuario_CellMouseClick(ByVal sender As Object, ByVal e As


System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles lista_usuario.CellMouseClick
Try
If lista_usuario.SelectedRows.Count <= 0 Then Exit Sub
If baja_usr.Checked = True Or mod_usr.Checked = True Then
txt_usuario.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(0).Value.ToString
txt_pass.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(1).Value.ToString
txt_nombre.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(2).Value.ToString
cat_lec.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(3).Value.ToString
cat_hor.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(4).Value.ToString
cat_inc.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(5).Value.ToString
cat_emp.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(6).Value.ToString
cat_usu.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(7).Value.ToString
cat_ret.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(8).Value.ToString
des_loc.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(9).Value.ToString
pro_cie.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(10).Value.ToString
pro_cig.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(11).Value.ToString
rep_tar.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(12).Value.ToString
rep_kar.Text = Me.lista_usuario.Rows(lista_usuario.CurrentCell.RowIndex).Cells(13).Value.ToString
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Lista_Usuario_SelectionChanged")
End Try
End Sub
#End Region
#Region "Ejecutar Altas, midificaciones y bajas"
Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
Dim Cm As SqlCommand
Dim Dr As SqlDataReader
Dim Mensaje As MsgBoxResult
If alta_usr.Checked = True Then
txt_usuario.Enabled = True
If Verifica_usuario() = False Then MsgBox("El usuario ya fue fado de Alta", MsgBoxStyle.Critical, "Aceptar
Click") : Exit Sub
If txt_usuario.Text = String.Empty Or txt_pass.Text = String.Empty Or txt_nombre.Text = String.Empty Then
MsgBox("Es necesario llenar todos los campos para dar de alta un Usuario", MsgBoxStyle.Information, "Alta de Usuario") :
Exit Sub
Cm = New SqlCommand("Insert Into Tbl_usuarios (Usuario, Password, Nombre, cat_emp, cat_hor, cat_inc, cat_lec,
cat_usu, cat_reta,des_loc, pro_cie, pro_cig, rep_tar,rep_kar) VALUES ('" & _
txt_usuario.Text.ToString.Trim & "'" & ",'" & txt_pass.Text.ToString.Trim & "'" & ",'" &
txt_nombre.Text.ToString.Trim & "'" & ",'" & cat_emp.Text.ToString.Trim & "'" & ",'" & cat_hor.Text.ToString.Trim & "'" &
",'" & _
cat_inc.Text.ToString.Trim & "'" & ",'" & cat_lec.Text.ToString.Trim & "'" & ",'" & cat_usu.Text.ToString.Trim
& "'" & ",'" & "'" & ",'" & cat_ret.Text.ToString.Trim & "'" & ",'" & _
des_loc.Text.ToString.Trim & "'" & ",'" & pro_cie.Text.ToString.Trim & "'" & ",'" & pro_cig.Text.ToString.Trim
& "'" & ",'" & _
rep_tar.Text.ToString.Trim & "'" & ",'" & rep_kar.Text.ToString.Trim & "')", Cn)
Dr = Cm.ExecuteReader
Dr.Close()
vista.Checked = True
baja_usr.Enabled = True
mod_usr.Enabled = True
desh_cajas()
cajas_bco()
btn_ok.Text = ""
End If
If baja_usr.Checked = True Then
Mensaje = MsgBox("Desea eliminar a " & txt_usuario.Text.Trim & " de la lista de usuarios?",
MsgBoxStyle.Question Or MsgBoxStyle.YesNo)
If Mensaje = MsgBoxResult.Yes Then
Cm = New SqlCommand("Delete from Tbl_usuarios where Usuario='" & txt_usuario.Text.ToString.Trim & "' and
Password='" & txt_pass.Text.ToString.Trim & "'", Cn)
Dr = Cm.ExecuteReader
Dr.Close()
Limpiar_Cajas()
vista.Checked = True
alta_usr.Enabled = True
mod_usr.Enabled = True
baja_usr.Enabled = True
desh_cajas()
cajas_bco()
btn_ok.Text = ""
End If
End If
If mod_usr.Checked = True Then
If txt_usuario.Text = String.Empty Or txt_pass.Text = String.Empty Or txt_nombre.Text = String.Empty Then
MsgBox("Es necesario llenar todos los campos para Modificar un Usuario", MsgBoxStyle.Information, "Modificar Usuario") :
Exit Sub
Cm = New SqlCommand("Update Tbl_usuarios Set Password='" & txt_pass.Text.ToString.Trim & "', Nombre='" &
txt_nombre.Text.ToString.Trim & "', cat_emp='" & cat_emp.Text.ToString.Trim & "', cat_hor='" & cat_hor.Text.ToString.Trim
& _
"', cat_inc='" & cat_inc.Text.ToString.Trim & "', cat_lec='" & cat_lec.Text.ToString.Trim & "', cat_usu='" &
cat_usu.Text.ToString.Trim & "', cat_reta='" & cat_ret.Text.ToString.Trim & _
"', des_loc='" & des_loc.Text.ToString.Trim & "', pro_cie='" & pro_cie.Text.ToString.Trim & "', pro_cig='" &
pro_cig.Text.ToString.Trim & _
"', rep_tar='" & rep_tar.Text.ToString.Trim & "', rep_kar='" & des_des.Text.ToString.Trim & "'where
Usuario='" & txt_usuario.Text.ToString.Trim & "'", Cn)
Dr = Cm.ExecuteReader
Dr.Close()
Limpiar_Cajas()
vista.Checked = True
baja_usr.Enabled = True
alta_usr.Enabled = True
desh_cajas()
cajas_bco()
btn_ok.Text = ""
End If
End Sub

#End Region
#Region " verifica usuario"
Function Verifica_usuario()
Try
Dim Cm As SqlCommand
Dim Dr As SqlDataReader
Cm = New SqlCommand("Select Usuario, Password from Tbl_usuarios where Usuario = '" &
txt_usuario.Text.ToString.Trim & "' and Password = '" & txt_pass.Text.ToString.Trim & "'", Cn)
Dr = Cm.ExecuteReader
Dr.Read()
If Dr.HasRows = True Then
Dr.Close()
Return False
Else
Dr.Close()
Return True
End If
Dr.Close()
Catch Ex As Exception
MsgBox(Ex.Message, MsgBoxStyle.Critical, "Verifica Clave")
End Try
Return False
End Function
#End Region
End Class

You might also like