EMPRESAS TIA (EJERCICIO REALIZADO EN APLICACION CONSOLA, EN LENGUAJE ORIENTADO A OBJETOS.

PUBLIC cn AS NEW Connection
PUBLIC rs AS result
PUBLIC SUB conectar()
'with modulo.cn
cn.CLOSE
cn.type = "mysql"
cn.host = "localhost"
cn.login = "root"
cn.Port = "3306"
cn.Password = "root"
cn.name = "tia"
TRY cn.OPEN
IF ERROR THEN
Message("Error al Abrir Base de Datos")
ELSE
Message("Ingresandoo a Base de Datos")
ENDIF
END

ESTE ES EL DISEÑO DEL FORMULARIO DE ACCESSO



ESTA ES LA CODIFICACION

PUBLIC c AS Integer
PUBLIC n AS String
PUBLIC SUB TextBox1_Change()
TextBox2.Enabled = TRUE
END


PUBLIC SUB TextBox2_KeyPress()

IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese Clave de Usuario...")
TextBox1.SetFocus
ELSE
Button1.Enabled = TRUE
Button2.Enabled = TRUE
Button1.SetFocus
ENDIF
ENDIF
END


PUBLIC SUB Form_Open()
ME.Center
modulo.conectar
' modulo.rs = modulo.cn.Exec("select * from claves")
n = "Administrador"
END


PUBLIC SUB Button1_Click()
DIM ban AS Integer
modulo.rs = modulo.cn.Exec("select * from claves")
DO WHILE modulo.rs.Available
n = modulo.rs["usuario"]
IF modulo.rs["usuario"] = Trim(TextBox1.Text) AND modulo.rs["contrasena"] = Trim(TextBox2.Text) THEN
modulo.rs = modulo.cn.Exec("select * from claves where usuario = '" & Trim(TextBox1.Text) & "'")
Message.Info("Bienvenido al sistema Sr(a). " & n, "Aceptar")
ME.Hide
menuprincipal.Show
ban = 1
ENDIF
modulo.rs.MoveNext()
LOOP
IF ban = 0 THEN
c = c + 1
IF c = 3 THEN
Message.Warning("Lo sentimos, El sistema se cerrar� por seguridad.")
ME.Close
ELSE
limpiar()
TextBox1.SetFocus
Message.Error("Usuario desconocido, intente nuevamente...", "Aceptar")
ENDIF
END IF
END


PUBLIC SUB limpiar()
Button1.Enabled = FALSE
Button2.Enabled = FALSE
TextBox1.Clear
TextBox2.Clear
TextBox2.Enabled = FALSE
TextBox1.SetFocus
END


PUBLIC SUB Button2_Click()
limpiar()
END


ESTE ES EL DISEÑO DEL FORMULARIO PARA EL MENU




'Y ESTA ES LA CODIFICACION
PUBLIC SUB Inventario_Click()
FMain.Show
END

PUBLIC SUB Salir_Click()
QUIT
END

PUBLIC SUB Usuarios_Click()
newusuario.Show
END


ESTE ES EL DISEÑO DEL FORMULARIO PARA REALIZAR LAS COMPRAS


'CODIFICACION REALIZADA EN EL MMain



'CODIGO PARA REALIZAR LAS COMPRAS

PUBLIC con AS Integer
PUBLIC fil AS Integer
PUBLIC col AS Integer

PUBLIC SUB Form_Open()
Modulo.conectar
Modulo.rs = modulo.cn.Exec("select * from producto")
mostrar()
limpiar
END

'BOTON GUARDAR
PUBLIC SUB Button3_Click()

TRY Modulo.cn.Exec("insert into producto values('" & Trim(UCase(TextBox1.Text)) & "','" & Trim(UCase(TextBox2.Text)) & "','" & (TextBox3.Text) & "','" & (ValueBox1.Text) & "');")
IF ERROR THEN
Message.Error("Imposible insertar el registro")
ELSE
Message.Info("Registro insertado")
limpiar
END IF
Modulo.rs = Modulo.cn.Exec("Select * from producto")
mostrar()
END

PUBLIC SUB mostrar()
Modulo.rs.MoveFirst
IF Modulo.rs.Count > 0 THEN
GridView1.Columns.Count = 4
GridView1.Rows.Count = Modulo.rs.Count + 2
GridView1.Columns[1].Width = 30
GridView1.Columns[1].Width = 30
GridView1[0, 0].Text = "Codigo"
GridView1[0, 1].Text = "Nombre"
GridView1[0, 2].Text = "Precio Unitario"
GridView1[0, 3].Text = "Cantidad"
fil = 1
Modulo.rs.MoveFirst
'con = Modulo.rs.Count
DO WHILE Modulo.rs.Available

GridView1[fil, 0].Text = Modulo.rs["codigo"]
GridView1[fil, 1].Text = Modulo.rs["nombre"]
GridView1[fil, 2].Text = Modulo.rs["precio"]
GridView1[fil, 3].Text = Modulo.rs["cantidad"]
fil = fil + 1
Modulo.rs.MoveNext()
LOOP
ENDIF
END

'ELIMINAR COMPLETADO
PUBLIC SUB Button4_Click()
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; Ingrese numero de Registro....! ")
limpiar
ELSE
Modulo.rs = Modulo.cn.Exec("select * from producto")
mostrar()

END IF
CASE 2
Message.Info("Registro no eliminado")
limpiar
CASE 3
END SELECT
limpiar()
END

'BUSCAR COMPLETADO
PUBLIC SUB Button6_Click()
DIM ban AS Integer
Button4.Enabled = TRUE
'Button5.Enabled = TRUE
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"]
ValueBox1.Value = Modulo.rs["cantidad"]
ban = 1
ENDIF
MODULO.rs.MoveNext()
LOOP
IF ban = 0 THEN
Message.Error("Registro Invalido; Ingrese Registro....! ")
limpiar()
END IF
END

'MODULO LIMPIAR COMPLETADO
PUBLIC SUB limpiar()
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox3.Text = 0
ValueBox1.Clear
TextBox1.SetFocus
END


'MODIFICAR COMPLETADO
PUBLIC SUB Button5_Click()
'TRY Modulo.cn.Exec("update producto set nombre='" & Trim(UCase(TextBox2.Text)) & "',precio='" & Trim(UCase(TextBox3.Text)) & "',cantidad='" & Trim(UCase(ValueBox1.Text)) & "' where=textbox1.text ")
TRY Modulo.cn.Exec("update producto set nombre='" & Trim(TextBox2.Text) & "',precio='" & Trim(TextBox3.Text) & "',cantidad='" & Trim(ValueBox1.Text) & "' where=textbox1.text ")
IF ERROR THEN
Message.Error("Imposible actualizar el registro")
ELSE
Message.Info("Registro actualizado")
END IF
mostrar
LIMPIAR
END



'finalizar
PUBLIC SUB TextBox2_KeyPress()

IF Key.Code = 65293 THEN
IF TextBox2.Text = "" THEN
Message.Info("Ingrese nombre del producto..")
TextBox2.SetFocus
ELSE
TextBox3.SetFocus
ENDIF
ENDIF
END

PUBLIC SUB TextBox1_KeyPress()

IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese codigo del producto")
TextBox1.SetFocus
ELSE
TextBox2.SetFocus
ENDIF
ENDIF
END



'LIMPIAR COMPLETO
PUBLIC SUB Button2_Click()
limpiar()
END

PUBLIC SUB GridView1_DblClick()
IF GridView1.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(GridView1.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")
CASE 3
END SELECT
GridView1.Columns.Width = 100
END

PUBLIC SUB Button1_Click()
'Message("finalizando")
FMain.Hide

menuprincipal.Show

'QUIT

END


PUBLIC SUB TextBox3_KeyPress()
IF Key.Code = 65293 THEN
IF TextBox3.Text = "" THEN
Message.Info("Ingrese nombre del producto..")
TextBox3.SetFocus
ELSE
ValueBox1.SetFocus
ENDIF
ENDIF
END



'ESTE ES EL DISEÑO PARA EL FORMULARIO CREACION DE USUARIOS



ESTE ES EL CODIGO DEL FORMULARIO COMPRAS DE USUARIO

' Gambas class file
PUBLIC con AS Integer
PUBLIC fil AS Integer
PUBLIC col AS Integer

PUBLIC SUB Form_Open()
Modulo.conectar
Modulo.rs = modulo.cn.Exec("select * from claves")
mostrar()
limpiar
END

PUBLIC SUB Button1_Click()
limpiar
END

'BOTON GUARDAR
PUBLIC SUB Button2_Click()
DIM id AS Integer

'Modulo.rs = Modulo.cn.Exec("select * from claves")
'DO WHILE Modulo.rs.Available

'IF modulo.rs["idclave"] = Trim(UCase(TextBox1.Text)) THEN
'Modulo.rs = Modulo.cn.Exec("select * from claves where idclave = '" & Trim(UCase(TextBox1.Text)) & "'")
'id = modulo.rs

IF id = TextBox1.Text THEN
Message("ingrese un idcliente que no exista")
limpiar
ELSE
TRY Modulo.cn.Exec("insert into claves values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "','" & Trim(TextBox3.Text) & "');")

IF ERROR THEN
Message.Error("Imposible insertar el registro")
ELSE
Message.Info("Registro insertado")
limpiar
END IF
Modulo.rs = Modulo.cn.Exec("Select * from claves")
mostrar()
ENDIF
'ban = 1
'ENDIF
'MODULO.rs.MoveNext()
'LOOP

END

PUBLIC SUB limpiar()
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox1.Enabled = TRUE
TextBox2.Enabled = TRUE
TextBox3.Enabled = TRUE
Button2.Enabled = FALSE
Button4.Enabled = FALSE
Button7.Enabled = FALSE
TextBox1.SetFocus
END


PUBLIC SUB mostrar()
Modulo.rs.MoveFirst
IF Modulo.rs.Count > 0 THEN
GridView1.Columns.Count = 3
GridView1.Rows.Count = Modulo.rs.Count + 2
GridView1.Columns[1].Width = 30
GridView1.Columns[1].Width = 30
GridView1[0, 0].Text = "idclave"
GridView1[0, 1].Text = "usuario"
GridView1[0, 2].Text = "contrasena"
fil = 1
Modulo.rs.MoveFirst
'con = Modulo.rs.Count
DO WHILE Modulo.rs.Available
GridView1[fil, 0].Text = Modulo.rs["idclave"]
GridView1[fil, 1].Text = Modulo.rs["usuario"]
GridView1[fil, 2].Text = Modulo.rs["contrasena"]
fil = fil + 1
Modulo.rs.MoveNext()
LOOP
ENDIF
END

'eliminar
PUBLIC SUB Button4_Click()
SELECT Message.Question("Desea eliminar el usuario ", "Si", "No")
CASE 1
TRY Modulo.cn.Exec("Delete from claves where usuario='" & Trim(UCase(TextBox2.Text)) & "'")
IF ERROR THEN
Message.Error("Imposible borrar el registro; Ingrese nombre del usuario....! ")
limpiar
ELSE
Modulo.rs = Modulo.cn.Exec("select * from claves")
mostrar()
END IF
CASE 2
Message.Info("Registro no eliminado")
limpiar
CASE 3
END SELECT
limpiar()
Button2.Enabled = FALSE
Button4.Enabled = FALSE
Button7.Enabled = FALSE
END

'buscar
PUBLIC SUB Button5_Click()
DIM ban AS Integer
GridView1.Visible = TRUE
Button7.Enabled = TRUE
Button4.Enabled = TRUE
Message("Ingrese Id de Usuario..")
TextBox1.SetFocus
Modulo.rs = Modulo.cn.Exec("select * from claves")
DO WHILE Modulo.rs.Available
IF modulo.rs["idclave"] = Trim(UCase(TextBox1.Text)) THEN
Modulo.rs = Modulo.cn.Exec("select * from claves where idclave = '" & Trim(UCase(TextBox1.Text)) & "'")
TextBox1.Text = Modulo.rs["idclave"]
TextBox2.Text = Modulo.rs["usuario"]
TextBox3.Text = Modulo.rs["contrasena"]
TextBox1.Enabled = FALSE
TextBox2.Enabled = FALSE
TextBox3.Enabled = FALSE
'TextBox3.Text = Modulo.rs["precio"]
ban = 1
ENDIF
MODULO.rs.MoveNext()
LOOP
IF ban = 0 THEN
Message.Error("Registro Invalido; Ingrese Registro....! ")
limpiar()
END IF
END

PUBLIC SUB Button6_Click()
QUIT
END

PUBLIC SUB TextBox2_KeyPress()
'DIM t AS Integer
't = Len(TextBox2.Text)

' IF t < 6 THEN
'IF TextBox2_Change = "32" THEN
Button2.Enabled = TRUE
'Button2.SetFocus
END

PUBLIC SUB TextBox1_KeyPress()
'IF TextBox1.Text <> "" THEN
'TextBox2.SetFocus
'ELSE
'message.Info(" ingrese registrio ")
'TextBox1.Text = ""
'TextBox1.SetFocus
'ENDIF
END

PUBLIC SUB Button7_Click()
Button4.Enabled = TRUE
TextBox1.Enabled = TRUE
TextBox2.Enabled = TRUE
TextBox3.Enabled = TRUE
END