Pasa lista
Imports System.Drawing
Imports System.IO
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports System.Management
Imports System.Text
Imports GrFingerXLib
Imports AxGrFingerXLib
Imports Microsoft.VisualBasic
Public Class frmImpresion
#Region "estructuras"
Public Structure RawImage
Public img As Object
Public width AsLong
Public height As Long
Public res As Long
End Structure
Public Class TTemplate
Public tpt As System.Array = Array.CreateInstance(GetType(Byte), GrFingerXLib.GRConstants.GR_MAX_SIZE_TEMPLATE)
Public Size As Long
Public clave As String
End Class
Public Structure TTemplates
Public clave As String
Public template AsTTemplate
End Structure
#End Region
#Region "apis"
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Int32) As Int32
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Int32, ByVal hdc As Int32) As Int32
#End Region
#Region "VARIABLES"
Private usuario As String
Private contrasena As String
Private conexionn As String
Private plantel AsString
Private mensaje As String = "Mensaje:" & vbCrLf
Private cm As New SqlCommand
Private CONE As SqlConnection
Private dr As SqlDataReader
Private sec As New secPB.secPB
Private privilegio As String = String.Empty
Public raw As RawImage
Public plantilla As New TTemplate
Public listaPlantillas As TTemplates()
#End Region
Public FunctionConexion(ByVal conex As String) As Boolean
Try
CONE = New SqlConnection(sec.dLong(conex))
CONE.Open()
Return True
Catch ex As Exception
lblMensaje.Text = "Se produjo un error en la conexión."
Return False
End Try
End Function
Private Sub frmImpresion_Disposed(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles Me.Disposed
Me.Dispose()
End Sub
Public Sub ISesion(ByVal usuari As String, ByVal contrasen As String, ByVal conexxion As String, ByVal plante As String)
usuario = usuari
contrasena = contrasen
conexionn = conexxion
plantel = plante
End Sub
Private Sub frmImpresion_FormClosing(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
finalizarSensor()
End Sub
Private Sub frmImpresion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmbNNPlantel.Text = plantel
lblFecha.Text = FormatDateTime(Now, DateFormat.LongDate)
lblHora.Text = String.Format(FormatDateTime(Now, DateFormat.ShortTime),"HH:MM:SS")
picFoto.SizeMode = PictureBoxSizeMode.StretchImage
lblMensaje.ForeColor = Color.Orange
lblMensaje.Text = mensaje & "Espere por favor, cargando la información requerida por el sistema ..."
End Sub
Private Sub frmImpresion_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
cargaPlanteles()
actualizaHuellas()End Sub
Private Function insertar(ByVal tabla As String, ByVal valores As String) As Boolean
Conexion(conexionn)
Try
cm = New SqlCommand(sec.dLong("V7ttXroltxBE6ecM4U47e5u/GOKwpi0JuSuU1jHoctQ=") & sec.dLong(tabla) & sec.dLong("JESGgGcq6XDeNKw6ywVqj8pRn42WpEsU") & valores & sec.dLong("k3aPu5NkTtM="), CONE)
cm.CommandText =sec.dLong("V7ttXroltxBE6ecM4U47e5u/GOKwpi0JuSuU1jHoctQ=") & sec.dLong(tabla) & sec.dLong("JESGgGcq6XDeNKw6ywVqj8pRn42WpEsU") & valores & sec.dLong("k3aPu5NkTtM=")
cm.CommandType = CommandType.Text
cm.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
End Try
Return False
End Function
Private Function Actualizar(ByVal...
Regístrate para leer el documento completo.