Es necesario que ud., Tenga creada la base de datos y las tablas correpondientes.
Para esta aplicación es necesario crear la siguiente interface.. Los nombres de los controles pueden cambiar de acuerdo a las necesidades de cada uno de uds.
'AQUI EL CODIGO DE LA APLICACION EN SUS DISTINTOS CONTROLES
' Gambas class file
'Declaracion de varianles a nivel del formulario
PUBLIC con AS Integer
PUBLIC fil AS Integer
PUBLIC col AS Integer
PUBLIC SUB Form_Open() 'CODIDO FORMULARIO EN EVENTO Form_Open
'proceso conectar
Modulo.conectar
' consulta de productos
Modulo.rs = modulo.cn.Exec("select * from producto")
mostrar()
Button1.Enabled = TRUE
Button2.Enabled = FALSE
Button3.Enabled = FALSE
Button4.Enabled = FALSE
Button6.Enabled = TRUE
Button7.Enabled = TRUE
END
PUBLIC SUB Button2_Click() 'CODIGO PARA GUARDAR REGISTROS
TRY Modulo.cn.Exec("insert into producto values('" & Trim(UCase(TextBox1.Text)) & "','" & Trim(UCase(TextBox2.Text)) & "','" & (TextBox3.Text) & "','" & (ValueBox2.Text) & "');")
IF ERROR THEN
Message.Error("Imposible insertar el registro")
ELSE
Message.Info("Registro insertado")
END IF
Modulo.rs = Modulo.cn.Exec("Select * from producto")
mostrar()
END
PUBLIC SUB mostrar() ' CODIGO PROCEDIMIENTO CONSULTA GENERAL EN GRID1
Modulo.rs.MoveFirst
IF Modulo.rs.Count > 0 THEN
Grid1.Columns.Count = 4
Grid1.Rows.Count = Modulo.rs.Count + 1
Grid1.Columns[0].Width = 60
Grid1.Columns[1].Width = 280
Grid1.Columns[2].Width = 80
Grid1.Columns[3].Width = 80
'encabezado
Grid1[0, 0].Text = "CODIGO"
Grid1[0, 1].Text = "DETALLE"
Grid1[0, 2].Text = "CANTIDAD"
Grid1[0, 3].Text = "PRECIO UNITARIO"
fil = 1
Modulo.rs.MoveFirst
'con = Modulo.rs.Count
DO WHILE Modulo.rs.Available
Grid1[fil, 0].Text = Modulo.rs["codigo"]
Grid1[fil, 1].Text = Modulo.rs["nombre"]
Grid1[fil, 2].Text = Modulo.rs["precio"]
Grid1[fil, 3].Text = Modulo.rs["cantidad"]
fil = fil + 1
Modulo.rs.MoveNext()
LOOP
ENDIF
END
PUBLIC SUB Button6_Click() 'CODIGO PARA BOTON SALIR
ME.Close
END
PUBLIC SUB Button3_Click() ' CODIGO PARA ELIMINAR REGISTROS
SELECT Message.Question("Desea eliminar un Producto", "Si", "No")
CASE 1
TRY Modulo.cn.Exec("Delete from producto where codigo='" & Trim(UCase(TextBox1.Text)) & "'")
IF ERROR THEN
Message.Error("Imposible borrar el registro")
ELSE
Modulo.rs = Modulo.cn.Exec("select * from producto")
mostrar()
END IF
CASE 2
Message.Info("Registro no eliminado")
CASE 3
END SELECT
limpiar()
END
PUBLIC SUB Button7_Click() 'CODIGO PARA BUSCAR REGISTROS
DIM ban AS Integer
Modulo.rs = Modulo.cn.Exec("select * from producto")
DO WHILE Modulo.rs.Available
IF modulo.rs["codigo"] = Trim(UCase(TextBox1.Text)) THEN
Modulo.rs = Modulo.cn.Exec("select * from producto where codigo = '" & Trim(UCase(TextBox1.Text)) & "'")
TextBox2.Text = Modulo.rs["nombre"]
TextBox3.Text = Modulo.rs["precio"]
ValueBox2.Value = Modulo.rs["cantidad"]
ban = 1
ENDIF
MODULO.rs.MoveNext()
LOOP
IF ban = 0 THEN
Message.Error("Registro Invalido")
limpiar()
END IF
END
PUBLIC SUB limpiar() ' CODIGO QUE LIMPIA LOS CUADROS DE TEXTO
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox3.Text = 0
ValueBox2.Clear
END
PUBLIC SUB Grid1_DblClick() ' CODIGO PARA ELIMINAR REGISTROS DESDE EL GRIDVIEW
IF Grid1.Current = NULL THEN RETURN
SELECT Message.Question("Desea eliminar un Producto", "Si", "No", "Ayuda")
CASE 1
TRY Modulo.cn.Exec("Delete from producto where codigo='" & Trim(UCase(Grid1.Current.Text)) & "'")
IF ERROR THEN
Message.Error("Imposible borrar el registro")
ELSE
Modulo.rs = Modulo.cn.Exec("select * from producto")
mostrar()
END IF
CASE 2
Message.Info("Registro no eliminado")
END SELECT
END
PUBLIC SUB Button4_Click() 'CODIGO PARA ACTUALIZAR REGISTROS
TRY Modulo.cn.Exec("update producto set nombre='" & Trim(UCase(TextBox2.Text)) & "',precio='" & Trim(UCase(TextBox3.Text)) & "',cantidad='" & Trim(UCase(ValueBox2.Text)) & "' where codigo = '" & Trim(UCase(Textbox1.text)) & "'")
IF ERROR THEN
Message.Error("Imposible actualizar el registro")
ELSE
Message.Info("Registro actualizado")
END IF
mostrar
LIMPIAR()
END
PUBLIC SUB Button1_Click() 'CODIGO PARA CREAR NUEVOS REGISTROS
IF Button1.Caption = "NUEVO" THEN
Button1.Enabled = TRUE
Button2.Enabled = TRUE
Button3.Enabled = FALSE
Button4.Enabled = FALSE
Button6.Enabled = FALSE
Button7.Enabled = FALSE
Button1.Caption = "CANCELAR"
ELSE
Button1.Enabled = TRUE
Button2.Enabled = FALSE
Button3.Enabled = FALSE
Button4.Enabled = FALSE
Button6.Enabled = TRUE
Button7.Enabled = TRUE
Button1.Caption = "NUEVO"
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
ValueBox2.Clear
ENDIF
END
PUBLIC SUB TextBox1_KeyPress() 'CODIGO PARA VALIDAR EL INGRESO E DATOS
IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese Código de Producto")
TextBox1.SetFocus
ELSE
TextBox2.setfocus
ENDIF
ENDIF
END
PUBLIC SUB TextBox2_KeyPress() 'CODIGO PARA VALIDAR ENTRADA DE DATOS
IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese Nombre de ProductO...")
TextBox2.SetFocus
ELSE
TextBox3.setfocus
ENDIF
ENDIF
END
