CLIENTE 4I

PARTE DE INICIO


Imports MySql.Data.MySqlClient
Imports System.Net
Imports System.IO
Imports System.Data
Imports MySql.Data
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing


Public Class Form1

PARTE DE DECLARACIÓN DEL CLASE DEL FORMULARIO

    Dim Cadena_de_conectar As String = "Server=localhost;Port=3306;database=cec;Uid=root;Pwd=1133;"
    Dim conectar As New MySqlConnection(Cadena_de_conectar)
    Dim strComando As String = "Select * from cliente"
    Dim adaptador As New MySqlDataAdapter
    Dim ds As New DataSet()
    Dim CB As MySqlCommandBuilder
    Dim Posicion As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

PARTE DE CARGAR EL FORMULARIO

        Me.CenterToScreen()
        Try
            adaptador = New MySqlDataAdapter(strComando, conectar)
            adaptador.Fill(ds, "cliente")
            CB = New MySqlCommandBuilder(adaptador)
            TextBox1.DataBindings.Add(New Binding("Text", ds, "cliente.codigo"))
            TextBox2.DataBindings.Add(New Binding("Text", ds, "cliente.cliente"))
            TextBox3.DataBindings.Add(New Binding("Text", ds, "cliente.telefono"))
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub


BOTÓN GUARDAR

        Dim Cadena_de_conectar As String
        Cadena_de_conectar = "Server=localhost;Port=3306;database=cec;Uid=root;Pwd=1133;"
        Dim conectar As New MySqlConnection(Cadena_de_conectar)



        Dim comandos As New MySqlCommand

        Try
            conectar.Open()
            comandos.Connection = conectar
            'aqui se indica primero en que base de datos vamos a insertar el registro


            'se guarda el comando que inserta un registro en la tabla alumnos
            comandos.CommandText = "INSERT INTO cliente values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
            comandos.ExecuteNonQuery()
            MessageBox.Show("se ha dado de alta 1 registro en la base de datos")
        Catch ex As Exception
            MessageBox.Show("error al dar de alta un registro en la base de datos")
        End Try


    End Sub


MODULO DE FUNCIONES

    REM Public Function VerificarUsuario(ByVal oNombre As String) As Boolean
    REM Dim Sql As String = "SELECT (COUNT(*)>0) existe FROM usuarios WHERE nombre = '" & oNombre & "';"
    REM Dim comando As New MySqlCommand(Sql, conectar)
    REM conectar.Open()
    REM  Return Convert.ToBoolean(conectar.ExecuteScalar())
    REM  End Function


 Private Sub activado()
        Me.Button1.Enabled = True
        Me.Button2.Enabled = False
        Me.Button6.Enabled = False
        Me.Button3.Enabled = True
        Me.Button7.Enabled = True
        Me.Button8.Enabled = True
        Me.Button9.Enabled = True
        Me.Button10.Enabled = True

    End Sub

    Private Sub desactivado()
        Me.Button1.Enabled = True
        Me.Button2.Enabled = True
        Me.Button6.Enabled = False
        Me.Button3.Enabled = False
        Me.Button7.Enabled = False
        Me.Button8.Enabled = False
        Me.Button9.Enabled = False
        Me.Button10.Enabled = False

    End Sub

    Private Sub CargarDatosNavegador()


        Dim Cadena_de_conectar As String
        Cadena_de_conectar = "Server=localhost;Port=3306;database=cec;Uid=root;Pwd=1133;"
        Dim conectar As New MySqlConnection(Cadena_de_conectar)

        Dim bconectarExitosa As Boolean = True


        'datos de la coneccion sql
        Dim comando As New MySqlCommand("select * from cliente", conectar)

        conectar.Open()


        Dim adaptador As New MySqlDataAdapter(comando)
        Dim ds As New DataSet
        adaptador.Fill(ds, "cliente")

        BindingSource1.DataSource = ds 'datasource: obtiene o establece el origen de lo datos con q enlazar el conector
        BindingSource1.DataMember = ds.Tables(0).ToString 'obtiene o establece

        BindingNavigator1.BindingSource = BindingSource1

        TextBox1.DataBindings.Add("Text", BindingSource1, "codigo")
        TextBox2.DataBindings.Add("Text", BindingSource1, "cliente")
        TextBox3.DataBindings.Add("Text", BindingSource1, "telefono")

    End Sub



  Private Sub Limpiar()
        TextBox1.Focus()
        TextBox1.Clear()
        TextBox1.Clear()
        TextBox3.Clear()

    End Sub

   BOTÓN BUSCAR



        Dim Cadena_de_conectar As String
        Cadena_de_conectar = "Server=localhost;Port=3306;database=cec;Uid=root;Pwd=1133;"
        Dim conectar As New MySqlConnection(Cadena_de_conectar)

        Dim bconectarExitosa As Boolean = True


        'datos de la coneccion sql
        conectar.Open()


        Dim sql As MySqlCommand = New MySqlCommand

        sql.Connection = conectar

        sql.CommandText = "select * from cliente where codigo=" & TextBox1.Text & ";"

        sql.CommandType = CommandType.Text


        Dim dr As System.Data.IDataReader
        dr = sql.ExecuteReader()

        While dr.Read()

            TextBox1.Text = CStr(dr.GetValue(0))
            TextBox2.Text = CStr(dr.GetValue(1))
            TextBox3.Text = CStr(dr.GetValue(2))

        End While

        conectar.Close()


        Me.Button1.Enabled = False
        Me.Button2.Enabled = False
        Me.Button6.Enabled = True
        Me.Button3.Enabled = True
        Me.Button7.Enabled = False
        Me.Button8.Enabled = False
        Me.Button9.Enabled = False
        Me.Button10.Enabled = False


   BOTÓN NUEVO


        If Button1.Text = "Nuevo" Then

            Me.Button1.Text = "Cancelar"
            Call Limpiar()
            Call desactivado()
        Else

            Me.Button1.Text = "Nuevo"
           
            Call Limpiar()
            Call activado()

        End If


    BOTÓN ELIMINAR

        Dim Cadena_de_conectar As String
        Cadena_de_conectar = "Server=localhost;Port=3306;database=cec;Uid=root;Pwd=1133;"
        Dim conectar As New MySqlConnection(Cadena_de_conectar)
        Dim comandos As New MySqlCommand
        If MsgBox("Esta seguro de eliminar este Codigo?", MsgBoxStyle.YesNo, "Eliminar") = MsgBoxResult.Yes Then


            Try
                conectar.Open()
                comandos.Connection = conectar
                'aqui se indica primero en que base de datos vamos a insertar el registro


                'se guarda el comando que inserta un registro en la tabla alumnos
                comandos.CommandText = "DELETE from cliente where codigo=" & TextBox1.Text & ";"
                comandos.ExecuteNonQuery()
                MessageBox.Show("se ha dado eliminado 1 registro en la base de datos")
            Catch ex As Exception
                MessageBox.Show("error al dar de eliminar un registro en la base de datos")
            End Try
        End If

        Call Limpiar()
        Call activado()
       

    BOTON SALIR


        Me.Hide()
        Dim menu As New Form2
        menu.Show()


BOTÓN MODIFICAR


        Dim Cadena_de_conectar As String
        Cadena_de_conectar = "Server=localhost;Port=3306;database=cec;Uid=root;Pwd=1133;"
        Dim conectar As New MySqlConnection(Cadena_de_conectar)



        Dim comandos As New MySqlCommand

        Try
            conectar.Open()
            comandos.Connection = conectar
            'aqui se indica primero en que base de datos vamos a insertar el registro


            'se guarda el comando que inserta un registro en la tabla alumnos


            comandos.CommandText = "UPDATE CLIENTE SET cliente='" + TextBox2.Text + "',telefono='" + TextBox3.Text + "' where codigo=" & TextBox1.Text & ";"""


            comandos.ExecuteNonQuery()
            MessageBox.Show("se ha dado de alta 1 registro en la base de datos")
        Catch ex As Exception
            MessageBox.Show("error al dar de alta un registro en la base de datos")
        End Try
        Call Limpiar()
        Call activado()
       
BOTON DE PRIMERO
   
        Me.BindingContext(ds, "categorias").Position = 0

BOTON ULTIMO

        Me.BindingContext(ds, "cliente").Position = BindingContext(ds, "cliente").Count

BOTON ANTERIOR
 
        Me.BindingContext(ds, "cliente").Position -= 1

BORON SIGUIENTE

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.BindingContext(ds, "categorias").Position += 1
    End Sub
End Class



MODULO DE MENU


Imports MySql.Data.MySqlClient
Imports System.Net
Imports System.IO
Imports System.Data
Imports MySql.Data
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing



Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Dim cliente As New Form1
        cliente.Show()
    End Sub

  OPCIÓN DE CONSULTA

        Me.Hide()
        Dim consulta As New Form3
        consulta.Show()
    End Sub

   OPCION DE SALIR 

        If MessageBox.Show("¿Desea Salir de la aplicación?", "Systms Test", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        End If

    End Sub

   OPCION DE MOSTRAR

        Dim Cadena_de_conectar As String
        Cadena_de_conectar = "Server=localhost;Port=3306;database=cec;Uid=root;Pwd=1133;"
        Dim conectar As New MySqlConnection(Cadena_de_conectar)

        Dim bconectarExitosa As Boolean = True

        'datos de la coneccion sql
        Dim comando As New MySqlCommand("select * from cliente", conectar)

        conectar.Open()

        Dim adaptador As New MySqlDataAdapter(comando)
        Dim ds As New DataSet

        adaptador.Fill(ds, "cliente")

       
    End Sub



    End Sub

OPCIONES ADICIONAR

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        System.Diagnostics.Process.Start("calc.exe")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        System.Diagnostics.Process.Start("notepad.exe")
    End Sub
End Class