• Viernes 8 de Noviembre de 2024, 10:50

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - elultimoguerrero

Páginas: [1]
1
VB .NET / GUARDAR REGISTROS.
« en: Martes 16 de Marzo de 2010, 00:09 »
APROVECHO PARA DEJARLES OTRA DUDA QUE TENGO, EL BOTÓN DE GUARDAR YA ME GUARDA EN LA BASE DE DATOS, LA CUAL ES MYSQL Y ESTOY PROGRAMANDO EN VISUAL BASIC 2005, PERO AL MOMENTO DE GUARDAR ME HACE 2 REGISTROS, UNO CON LA CLAVE 0 (QUE NO DEBE DE CREARSE) EN DONDE SE ALOJAN LOS CAMPOS DEL DATAGRIDVIEW Y LA CLAVE 1 DONDE SE ALOJAN LOS CAMPOS QUE SON DE LOS TEXTBOX, SE QUE ESTO LO HACE PORQUE ESTOY ADAPTANDO DOS NEW MYSQLDATAADAPTER DISTINTOS, PERO HE TRATADO DE ADAPTARLOS A UN SOLO REGISTRO Y NO ME SALE, SI ME PUEDEN AYUDAR SE LOS AGRADECERÉ.

   Dim dat As New MySqlDataAdapter
        Dim dag As New MySqlDataAdapter
        Dim ds As New DataSet
        Dim dr As DataRow
        Dim cb As New MySqlCommandBuilder
        Dim cm As New MySqlCommand
        dat = New MySqlDataAdapter("select * from asistencia order by Clave asc;", con)
        dat.Fill(ds, "asistencia")
        cb = New MySqlCommandBuilder(dat)
       If ds.Tables("asistencia").Rows.Count > 0 Then
            dr = ds.Tables("asistencia").Rows(ds.Tables("asistencia").Rows.Count - 1)
            tclave.Text = Val(dr("Clave")) + 1
        Else
            tclave.Text = "1"
        End If
        dr = ds.Tables("asistencia").NewRow
        dr("Titulo_clase") = ttitulo.Text
        dr("Fecha") = dfecha.Text
        dr("Profesor") = tprofesor.Text
        dr("Clave") = tclave.Text
        dr("Visitas") = Val(tvisitas.Text)
        dr("Total_presentes") = Val(ttotalpresentes.Text)
        dr("Total_tareas") = Val(ttotaltareas.Text)
        dr("Total_participaciones") = Val(ttotalparticipaciones.Text)
        ds.Tables("asistencia").Rows.Add(dr)
        dat.Update(ds.Tables("asistencia"))
        ds.AcceptChanges()
        dag = New MySqlDataAdapter("select * from asistencia order by Clave asc;", con)
        dag.Fill(ds, "asistencia")
        cb = New MySqlCommandBuilder(dag)
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Value <> "" Then
                dr = ds.Tables("asistencia").NewRow
                dr("No") = DataGridView1.Rows(i).Cells(0).Value
                dr("Nombre") = DataGridView1.Rows(i).Cells(1).Value
                dr("Presente") = DataGridView1.Rows(i).Cells(2).Value
                dr("Tarea") = DataGridView1.Rows(i).Cells(3).Value
                dr("Participacion") = DataGridView1.Rows(i).Cells(4).Value
                ds.Tables("asistencia").Rows.Add(dr)
                dag.Update(ds.Tables("asistencia"))
                ds.AcceptChanges()
            End If
        Next
        deshabilitarcajas()
        bnuevo.Enabled = True
        bguardar.Enabled = False
        bimprimir.Enabled = True
        bbuscar.Enabled = True
        bmodificar.Enabled = True
        bguardarmodificacion.Enabled = False
        beliminar.Enabled = False
        bcancelar.Enabled = False

2
VB .NET / Suma de un checkboxcolumn en un datagridview
« en: Lunes 15 de Marzo de 2010, 23:55 »
HOLA AMIGOS DEL FORO, ESPERO ME PUEDAN AYUDAR CON LA SIGUIENTE DUDA:

TENGO UNA APLICACIÓN EN VISUAL BASIC 2005 QUE CONSTA DE UN DATAGRIDVIEW CON 3 CAMPOS, LOS CUALES ESTAN DENTRO DEL DATAGRIDVIEW PERO EN DATAGRIDVIEWCHECKBOXCOLUMN; LOS CAMPOS SON LOS SIGUIENTES: PRESENTE, TAREAS Y PARTICIPACIÓN, LO QUE QUIERO HACER ES QUE AL MOMENTO DE SELECCIONAR LOS CHECKBOXS DEL CAMPO PRESENTE ESTOS SE SUMEN Y ME MUESTRE EL TOTAL DE SELECCIONADOS EN UN TEXTBOX AL CUAL HE PUESTO DE NOMBRE TTOTALPRESENTES.TEXT, DE LA MISMA FORMA SEA PARA EL CAMPO TAREAS Y PARTICIPACIÓN, ESPERO ME PUEDAN AYUDAR, GRACIAS.

3
VB .NET / Imprimir por fechas.
« en: Martes 26 de Enero de 2010, 01:52 »
Hola amigos del foro, tengo la siguiente duda, espero me puedan ayudar.

Necesito imprimir un reporte por fechas, es decir, al seleccionar una fecha de un DataTimePickera a otra fecha de otro DataTimePicker, estoy trabajando con un visual basic 2005 y mysql, todo lo que imprimo los estoy haciendo en un CrystalReports, espero me me puedan hechar la mano, gracias.

4
VB .NET / MDIPARENT
« en: Domingo 27 de Septiembre de 2009, 19:29 »
HOLA COMPAÑEROS DEL SITIO, ESPERO ME PUEDAN AYUDAR CON ESTA DUDA QUE TENGO, EN UN FORMULARIO NORMAL (SIN QUE SEA MDIPARENT) ESTE CÓDIGO FUNCIONA CORRECTAMENTE, CUANDO YO DOY CLIC EN CUALQUIER PARTE DEL FORMULARIO SE OCULTAN LOS MENÚS Y SUBMENÚS, PERO CUANDO YO CONVIERTO ESTE FORMULARIO EN MDIPARENT YA NO OCULTA LOS MENÚS Y SUBMENÚS, HÉ INTENTADO DE TODO Y NOMÁS NADA, LES DEJO EL CÓDIGO, ESPERO ME PUEDAN AYUDAR CON ESTA DUDA, GRACIAS.

Public Class forma

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Label1.Visible = False Then
            Label1.Visible = True
        Else
            Label1.Visible = False
        End If
        If Label2.Visible = False Then
            Label2.Visible = True
        Else
            Label2.Visible = False
        End If
        Label3.Visible = False
        Label4.Visible = False
    End Sub

    Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        Label3.Visible = True
    End Sub

    Private Sub Label2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
        Label4.Visible = True
    End Sub

    Private Sub forma_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
    End Sub
End Class

5
VB .NET / Acceso a usuarios.
« en: Viernes 18 de Septiembre de 2009, 04:27 »
Hola amigos, espero me puedan ayudar con la siguente duda que tengo, estoy haciendo una aplicación en la cual al ejecutar un sistema me pide el nombre de usuario y contraseña para poder acceder al sistema, ya tengo lo que son los registros de usuarios, lo que no se hacer es que cuando yo agregue otro usuario y este sea de igual nombre a otro usuario registrado me diga con un mensaje que ese nombre ya está ocupado, también algo que he observado es que cuando yo ingreso el nombre de usuario y la contraseña en el acceso de usuarios no respeta mayúsculas ó minúsculas con las que fueron registrados, acepta combinación de ambas y eso no debería de ser, utilizo visual basic 2005 edición express y mysql este es mi código:

Imports MySql.Data.MySqlClient
Imports System.Data

Public Class accesoausuarios
    Dim con As New MySqlConnection()
    Dim da As New MySqlDataAdapter()
    Dim ds As New DataSet()

    Private Sub bvalidar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bvalidar.Click
        con = New MySqlConnection("server=xxx;database=xxx;uid=xxx;pwd=xxx;")
        da = New MySqlDataAdapter("select Usuario, Contrasena from registrodeusuarios where Usuario = '" & tusuario.Text & "' and Contrasena = '" & tcontrasena.Text & "'", con)
        da.Fill(ds, "registrodeusuarios")
        If ds.Tables("registrodeusuarios").Rows.Count > 0 Then
            Dim fvideohome As New videohome
            fvideohome.Show()
            Me.Hide()
        Else
            MsgBox("Verifique el nombre de usuario y la contraseña.", MsgBoxStyle.Information, "Operación cancelada.")
        End If
    End Sub

    Private Sub bcancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bcancelar.Click
        End
    End Sub

    Private Sub tusuario_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tusuario.KeyPress
        'Al presionar la tecla enter nos posiciona en la siguiente caja de texto.
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            SendKeys.Send("{tab}")
        End If
    End Sub
End Class

Espero me puedan ayudar ya que lo hé intentado mucho y no encuentro mucha ayuda en la red con lo que es mysql y visual basic, se los agradeceré mucho.

6
VB .NET / Búsqueda de registro.
« en: Lunes 14 de Septiembre de 2009, 03:29 »
Hola amigos de solocodigo, tengo esta duda, espero me puedan ayudar a resolverla: tengo un formulario de búsquedas, el cual consta de un combobox(cselecciondelcliente), una caja de texto(tnocredencial) y un botón de buscar(bbuscar), al darle clic a la flechita del combobox me muestra una lista de todos los usuarios que se encuentran registrados en una tabla llamada registrodeclientes, hasta allí el programa funciona de manera correcta.

El código que yo necesito es que cuando yo seleccione un nombre y le de clic al botón de buscar me muestre en la caja de texto su número de credencial, utilizo visual basic 2005 edición express y mysql, estos son los valores de los campos: Apellido_paterno, Apellido_materno y Nombres todos varchar(20) y No_credencial int(10) clave primaria.

Este es el código que utilizo en el formulario (como pueden ver los apellidos y el nombre del usuario los tengo concatenados):

Imports MySql.Data.MySqlClient
Imports System.Data

Public Class busquedadeclientes
    Dim con As New MySqlConnection()
    Dim da As New MySqlDataAdapter()
    Dim ds As New DataSet()
    Dim dr As DataRow

    Private Sub busquedadeclientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim I As Integer
        con = New MySqlConnection("server=xxx;database=xxx;uid=xxx;pwd=xxx;")
        da = New MySqlDataAdapter("select concat(Apellido_paterno,' ', Apellido_materno,' ', Nombres) as na from registrodeclientes order by Apellido_paterno asc;", con)
        da.Fill(ds, "registrodeclientes")
        If ds.Tables("registrodeclientes").Rows.Count > 0 Then
            For I = 0 To ds.Tables("registrodeclientes").Rows.Count - 1
                dr = ds.Tables("registrodeclientes").Rows(I)
                cselecciondelcliente.Items.Add(dr("na"))
            Next
        End If
    End Sub

    Private Sub bbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbuscar.Click

    End Sub

    Private Sub bsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsalir.Click
        Me.Close()
    End Sub
End Class

Espero y me puedan ayudar, gracias.

7
VB .NET / Actualizar datos de datagrid con visual basic 2005 y mysql.
« en: Lunes 7 de Septiembre de 2009, 06:12 »
Hola amigos de solocodigo, espero me puedan ayudar con la siguiente duda:
Estoy haciendo un sistema de control de inventario de un videoclub en visual basic 2005 y mysql, mis registros los guarda a la perfección pero si yo quiero modificar esos datos y doy clic al botón guardar modificación no me permite hacerlo, allí dejé mi código de guardar modificación en comentarios, espero me puedan ayudar a formular el código correcto, gracias.

Imports MySql.Data.MySqlClient
Imports System.Data

Public Class rentadepeliculas
    Dim con As New MySqlConnection
    Dim ds As New DataSet
    Private Sub borrarcajas()
        tnocredencial.Text = ""
        tfolio.Text = ""
        dfecha.Value = Date.Now
        tnombre.Text = ""
        tdireccion.Text = ""
        ttelefono.Text = ""
        DataGridView1.Rows.Clear()
        DataGridView1.Rows.Add(10)
        tcantidadconletra.Text = ""
        tsubtotal.Text = ""
        tiva.Text = ""
        ttotal.Text = ""
    End Sub
    Private Sub habilitarcajas()
        tnocredencial.Enabled = True
        dfecha.Enabled = True
        DataGridView1.Enabled = True
    End Sub
    Private Sub deshabilitarcajas()
        tnocredencial.Enabled = False
        dfecha.Enabled = True
        DataGridView1.Enabled = False
    End Sub

    Private Sub rentadepeliculas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con = New MySqlConnection("server=X;database=bdX;uid=X;pwd=XXXXX")
        con.Open()
        DataGridView1.Rows.Add(10)
    End Sub

    Private Sub lguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lguardar.Click
        Dim cnrm As New MySqlDataAdapter
        Dim cnrd As New MySqlDataAdapter
        Dim dsrentas As New DataSet
        Dim filarentas As DataRow
        Dim sincrentas As New MySqlCommandBuilder
        Dim comrentas As New MySqlCommand
        cnrm = New MySqlDataAdapter("select * from rentadepeliculas_maestro order by Folio;", con)
        cnrm.Fill(dsrentas, "rentadepeliculas_maestro")
        sincrentas = New MySqlCommandBuilder(cnrm)
        If tnocredencial.Text = "" Then
            MsgBox("Es necesario que ingrese el número de credencial.", MsgBoxStyle.Information, "Operación cancelada.")
            Exit Sub
        End If
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Value = "" And DataGridView1.Rows(i).Cells(4).Value = "" And DataGridView1.Rows(i).Cells(5).Value = "" And tcantidadconletra.Text = "" And tsubtotal.Text = "" And tiva.Text = "" And ttotal.Text = "" Then
                MsgBox("No puede realizar un registro de renta con campos en blanco.", MsgBoxStyle.Information, "Operación cancelada.")
                Exit Sub
            End If
        Next
        If dsrentas.Tables("rentadepeliculas_maestro").Rows.Count > 0 Then
            filarentas = dsrentas.Tables("rentadepeliculas_maestro").Rows(dsrentas.Tables("rentadepeliculas_maestro").Rows.Count - 1)
            tfolio.Text = Val(filarentas("Folio")) + 1
        Else
            tfolio.Text = "1"
        End If
        filarentas = dsrentas.Tables("rentadepeliculas_maestro").NewRow
        filarentas("No_credencial") = tnocredencial.Text
        filarentas("Folio") = tfolio.Text
        filarentas("Fecha") = dfecha.Text
        filarentas("Nombre") = tnombre.Text
        filarentas("Direccion") = tdireccion.Text
        filarentas("Telefono") = ttelefono.Text
        filarentas("Cantidad_letra") = tcantidadconletra.Text
        filarentas("Subtotal") = Val(tsubtotal.Text)
        filarentas("Iva") = Val(tiva.Text)
        filarentas("Total") = Val(ttotal.Text)
        dsrentas.Tables("rentadepeliculas_maestro").Rows.Add(filarentas)
        cnrm.Update(dsrentas.Tables("rentadepeliculas_maestro"))
        dsrentas.AcceptChanges()
        cnrd = New MySqlDataAdapter("select * from rentadepeliculas_detalle order by Num;", con)
        cnrd.Fill(dsrentas, "rentadepeliculas_detalle")
        sincrentas = New MySqlCommandBuilder(cnrd)
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(1).Value <> "" Then
                filarentas = dsrentas.Tables("rentadepeliculas_detalle").NewRow
                filarentas("Folio") = tfolio.Text
                filarentas("Ean") = DataGridView1.Rows(i).Cells(0).Value
                filarentas("Titulo") = DataGridView1.Rows(i).Cells(1).Value
                filarentas("Formato") = DataGridView1.Rows(i).Cells(2).Value
                filarentas("Contenido") = CDbl(DataGridView1.Rows(i).Cells(3).Value)
                filarentas("Precio") = CDbl(DataGridView1.Rows(i).Cells(4).Value)
                filarentas("Copias") = CDbl(DataGridView1.Rows(i).Cells(5).Value)
                filarentas("Importe") = CDbl(DataGridView1.Rows(i).Cells(6).Value)
                dsrentas.Tables("rentadepeliculas_detalle").Rows.Add(filarentas)
                cnrd.Update(dsrentas.Tables("rentadepeliculas_detalle"))
                dsrentas.AcceptChanges()
            End If
        Next
        deshabilitarcajas()
        lnuevo.Enabled = True
        lguardar.Enabled = False
        limprimir.Enabled = True
        lbuscar.Enabled = True
        lmodificar.Enabled = True
        lguardarmodificacion.Enabled = False
        leliminar.Enabled = False
        lcancelar.Enabled = False
    End Sub

    Private Sub lbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbuscar.Click
        Dim cnrentas As New MySqlDataAdapter
        Dim dsrent As New DataSet
        Dim filarent As DataRow
        Dim x As String
        x = InputBox("Introduzca el número de folio que desea buscar.")
        If x = "" Then Exit Sub
        cnrentas = New MySqlDataAdapter("select * from rentadepeliculas_maestro where Folio = " & x & ";", con)
        cnrentas.Fill(dsrent, "rentadepeliculas_maestro")
        If dsrent.Tables("rentadepeliculas_maestro").Rows.Count > 0 Then
            filarent = dsrent.Tables("rentadepeliculas_maestro").Rows(0)
            tnocredencial.Text = filarent("No_credencial")
            tfolio.Text = filarent("Folio")
            dfecha.Text = filarent("Fecha")
            tnombre.Text = filarent("Nombre")
            tdireccion.Text = filarent("Direccion")
            ttelefono.Text = filarent("Telefono")
            tcantidadconletra.Text = filarent("Cantidad_letra")
            tsubtotal.Text = filarent("Subtotal")
            tiva.Text = filarent("Iva")
            ttotal.Text = filarent("Total")
        Else
            MsgBox("Folio no encontrado.", MsgBoxStyle.Information, "Operación cancelada.")
            borrarcajas()
            lnuevo.Enabled = True
            lguardar.Enabled = False
            limprimir.Enabled = False
            lbuscar.Enabled = True
            lmodificar.Enabled = False
            lguardarmodificacion.Enabled = False
            leliminar.Enabled = False
            lcancelar.Enabled = False
            Exit Sub
            dsrent.Clear()
            dsrent.Dispose()
            cnrentas.Dispose()
        End If
        DataGridView1.Rows.Clear()
        DataGridView1.Rows.Add(10)
        cnrentas = New MySqlDataAdapter("select * from rentadepeliculas_detalle where Folio =" & x & ";", con)
        cnrentas.Fill(dsrent, "rentadepeliculas_detalle")
        If dsrent.Tables("rentadepeliculas_detalle").Rows.Count > 0 Then
            For i As Integer = 0 To dsrent.Tables("rentadepeliculas_detalle").Rows.Count - 1
                filarent = dsrent.Tables("rentadepeliculas_detalle").Rows(i)
                DataGridView1.Rows(i).Cells(0).Value = filarent("Ean")
                DataGridView1.Rows(i).Cells(1).Value = filarent("Titulo")
                DataGridView1.Rows(i).Cells(2).Value = filarent("Formato")
                DataGridView1.Rows(i).Cells(3).Value = filarent("Contenido")
                DataGridView1.Rows(i).Cells(4).Value = filarent("Precio")
                DataGridView1.Rows(i).Cells(5).Value = filarent("Copias")
                DataGridView1.Rows(i).Cells(6).Value = filarent("Importe")
                lnuevo.Enabled = False
                lguardar.Enabled = False
                limprimir.Enabled = True
                lbuscar.Enabled = True
                lmodificar.Enabled = True
                lguardarmodificacion.Enabled = False
                leliminar.Enabled = True
                lcancelar.Enabled = True
            Next
        End If
        dsrent.Clear()
        dsrent.Dispose()
        cnrentas.Dispose()
    End Sub

    Private Sub lmodificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lmodificar.Click
        habilitarcajas()
        tnocredencial.Focus()
        lnuevo.Enabled = False
        lguardar.Enabled = False
        limprimir.Enabled = False
        lbuscar.Enabled = False
        lmodificar.Enabled = False
        lguardarmodificacion.Enabled = True
        leliminar.Enabled = False
        lcancelar.Enabled = True
    End Sub

    Private Sub lguardarmodificacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lguardarmodificacion.Click
        'Dim cnrm As New MySqlDataAdapter
        'Dim cnrd As New MySqlDataAdapter
        'Dim dsrentas As New DataSet
        'Dim filarentas As DataRow
        'Dim sincrentas As New MySqlCommandBuilder
        'Dim comrentas As New MySqlCommand
        'cnrm = New MySqlDataAdapter("select * from rentadepeliculas_maestro order by Folio;", con)
        'cnrm.Fill(dsrentas, "rentadepeliculas_maestro")
        'sincrentas = New MySqlCommandBuilder(cnrm)
        'filarentas = dsrentas.Tables("rentadepeliculas_maestro").NewRow
        'filarentas.BeginEdit()
        'filarentas("No_credencial") = tnocredencial.Text
        'filarentas("Folio") = tfolio.Text
        'filarentas("Fecha") = dfecha.Text
        'filarentas("Nombre") = tnombre.Text
        'filarentas("Direccion") = tdireccion.Text
        'filarentas("Telefono") = ttelefono.Text
        'filarentas("Cantidad_letra") = tcantidadconletra.Text
        'filarentas("Subtotal") = Val(tsubtotal.Text)
        'filarentas("Iva") = Val(tiva.Text)
        'filarentas("Total") = Val(ttotal.Text)
        'filarentas.EndEdit()
        'cnrm.Update(dsrentas.Tables("rentadepeliculas_maestro"))
        'dsrentas.AcceptChanges()
        'cnrd = New MySqlDataAdapter("select * from rentadepeliculas_detalle order by Num;", con)
        'cnrd.Fill(dsrentas, "rentadepeliculas_detalle")
        'sincrentas = New MySqlCommandBuilder(cnrd)
        'For i As Integer = 0 To DataGridView1.Rows.Count - 1
        '    If DataGridView1.Rows(i).Cells(1).Value <> "" Then
        '        filarentas = dsrentas.Tables("rentadepeliculas_detalle").NewRow
        '        filarentas.BeginEdit()
        '        filarentas("Folio") = tfolio.Text
        '        filarentas("Ean") = DataGridView1.Rows(i).Cells(0).Value
        '        filarentas("Titulo") = DataGridView1.Rows(i).Cells(1).Value
        '        filarentas("Formato") = DataGridView1.Rows(i).Cells(2).Value
        '        filarentas("Contenido") = CDbl(DataGridView1.Rows(i).Cells(3).Value)
        '        filarentas("Precio") = CDbl(DataGridView1.Rows(i).Cells(4).Value)
        '        filarentas("Copias") = CDbl(DataGridView1.Rows(i).Cells(5).Value)
        '        filarentas("Importe") = CDbl(DataGridView1.Rows(i).Cells(6).Value)
        '        filarentas.EndEdit()
        '        cnrm.Update(dsrentas.Tables("rentadepeliculas_detalle"))
        '        dsrentas.AcceptChanges()
        '    End If
        'Next
        'deshabilitarcajas()
        'lnuevo.Enabled = True
        'lguardar.Enabled = False
        'limprimir.Enabled = True
        'lbuscar.Enabled = True
        'lmodificar.Enabled = True
        'lguardarmodificacion.Enabled = False
        'leliminar.Enabled = False
        'lcancelar.Enabled = False
    End Sub

    Private Sub tnocredencial_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tnocredencial.KeyPress
        Dim cncliente As New MySqlDataAdapter
        Dim dscliente As New DataSet
        Dim filacliente As DataRow
        ''If Asc(e.KeyChar) = Keys.Return Then
        If Asc(e.KeyChar) = 13 Then
            cncliente = New MySqlDataAdapter("select Nombres, Apellido_paterno, Apellido_materno, Colonia, Calle, Ciudad, Telefono from registrodeclientes where No_credencial='" & tnocredencial.Text & "';", con)
            cncliente.Fill(dscliente, "registrodeclientes")
            If dscliente.Tables("registrodeclientes").Rows.Count > 0 Then
                filacliente = dscliente.Tables("registrodeclientes").Rows(0)
                tnombre.Text = filacliente("Nombres") & " " & filacliente("Apellido_paterno") & " " & filacliente("Apellido_materno")
                tdireccion.Text = filacliente("Colonia") & " " & filacliente("Calle") & " " & filacliente("Ciudad")
                ttelefono.Text = filacliente("Telefono")
            Else
                MsgBox("Cliente no encontrado.", MsgBoxStyle.Information, "Búsqueda de clientes.")
                tnocredencial.Text = ""
                tnombre.Text = ""
                tdireccion.Text = ""
                ttelefono.Text = ""
            End If
            dscliente.Clear()
            dscliente.Dispose()
            cncliente.Dispose()
            'dscliente.Tables("registrodeclientes").Clear()
        End If
    End Sub

    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Dim cnpel As New MySqlDataAdapter
        Dim dspel As New DataSet
        Dim filapel As DataRow
        Dim ean As String
        Dim precio As Double
        Dim copias As Double
        Dim vsubt As Double = 0
        Dim vean As String = ""
        Dim vlinea As Integer
        Select Case e.ColumnIndex
            Case 0
                vean = DataGridView1.CurrentCell.Value
                vlinea = DataGridView1.CurrentRow.Index
                For i As Integer = 0 To DataGridView1.Rows.Count - 1
                    If vean = DataGridView1.Rows(i).Cells(0).Value And i <> vlinea Then
                        MsgBox("No puede introducir un mismo ean.", MsgBoxStyle.Information, "Operación cancelada.")
                        DataGridView1.CurrentCell.Value = ""
                        SendKeys.Send("{up}")
                        Exit Sub
                    End If
                Next
                ean = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value
                cnpel = New MySqlDataAdapter("select Titulo, Formato, Contenido from registrodepeliculas where Ean='" & ean & "';", con)
                cnpel.Fill(dspel, "regpeliculas")
                If dspel.Tables("regpeliculas").Rows.Count > 0 Then
                    filapel = dspel.Tables("regpeliculas").Rows(0)
                    DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(1).Value = filapel("titulo")
                    DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(2).Value = filapel("formato")
                    DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(3).Value = filapel("contenido")
                Else
                    DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(1).Value = ""
                End If
                dspel.Clear()
                dspel.Dispose()
                cnpel.Dispose()
                SendKeys.Send("{up}")
                SendKeys.Send("{tab}")
                SendKeys.Send("{tab}")
                SendKeys.Send("{tab}")
                SendKeys.Send("{tab}")
            Case 4
                copias = CDbl(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(4).Value)
                If copias > 0 Then
                    SendKeys.Send("{up}")
                    SendKeys.Send("{tab}")
                Else
                    SendKeys.Send("{up}")
                End If
            Case 5
                precio = CDbl(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(4).Value)
                copias = CDbl(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(5).Value)
                If precio > 0 And copias > 0 Then
                    DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(6).Value = precio * copias
                    For i As Integer = 0 To DataGridView1.Rows.Count - 1
                        vsubt = vsubt + CDbl(DataGridView1.Rows(i).Cells(6).Value)
                    Next
                    tsubtotal.Text = vsubt
                    tiva.Text = vsubt * 0.15
                    ttotal.Text = CDbl(tsubtotal.Text) + CDbl(tiva.Text)
                    SendKeys.Send("{up}")
                    SendKeys.Send("{tab}")
                    SendKeys.Send("{tab}")
                End If
        End Select
    End Sub
End Class

Páginas: [1]