Sub Process_Globals
Private MODELO_LISTA="modelo_lista", MODELO_EXISTENCIA="modelo_existencia" As String
Dim SQL1 As SQL
Dim cursor1 As Cursor
End Sub
Sub Globals
Dim TxtID As EditText
Dim TxtTipo As EditText
Dim TxtModelo As EditText
Dim TxtStock As EditText
Dim TxtUsuario As EditText
Dim Enviar As Button
Dim Guardar As Button
Dim IDCARTUCHO, TIPOCARTUCHO,MODELOCARTUCHO, STOCKCARTUCHO, USUARIOCARTUCHO As Cursor
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("AndroidPhp")
Enviar.Text="Guardar"
If File.Exists(File.DirDefaultExternal,"adb.db")=False Then
File.Copy(File.DirAssets, "adb.db", File.DirDefaultExternal, "adb.db")
End If
If SQL1.IsInitialized=False Then
SQL1.Initialize(File.DirDefaultExternal, "adb.db",False)
End If
End Sub
Sub EjecutarConsulta
End Sub
Sub ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("http://192.168.2.142/Info.php", Query)
End Sub
Sub JobDone(Job As HttpJob)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ForID
IDCARTUCHO=SQL1.ExecQuery("SELECT id_cartucho FROM cartuchos")
For i = 0 To IDCARTUCHO.RowCount -1
IDCARTUCHO.Position = i
Next
IDCARTUCHO.Close
End Sub
Sub ForTipo
TIPOCARTUCHO=SQL1.ExecQuery("SELECT tipo_cartucho FROM cartuchos")
For i = 0 To TIPOCARTUCHO.RowCount -1
TIPOCARTUCHO.Position = i
Next
TIPOCARTUCHO.Close
End Sub
Sub ForModelo
SQL1.ExecQuery("SELECT modelo_cartucho FROM cartuchos")
For i = 0 To MODELOCARTUCHO.RowCount -1
MODELOCARTUCHO.Position = i
Next
MODELOCARTUCHO.Close
End Sub
Sub ForStock
STOCKCARTUCHO=SQL1.ExecQuery("SELECT stock_cartucho from cartuchos")
For i = 0 To STOCKCARTUCHO.RowCount -1
STOCKCARTUCHO.Position = i
Next
STOCKCARTUCHO.Close
End Sub
Sub ForUsuario
USUARIOCARTUCHO=SQL1.ExecQuery("SELECT usuario_cartucho FROM cartuchos")
For i = 0 To USUARIOCARTUCHO.RowCount -1
USUARIOCARTUCHO.Position = i
Next
USUARIOCARTUCHO.Close
End Sub
Sub Enviar_Click
ExecuteRemoteQuery("INSERT INTO cartuchos(ID_Cartucho, tipo_cartucho, modelo_cartucho, stock_cartucho, usuario_cartucho) VALUES('" & ForID & "','" & ForTipo & "','" & ForModelo & "','" & ForStock & "','" & ForUsuario & "')",MODELO_LISTA)
TxtID.Text=""
TxtTipo.Text=""
TxtStock.Text=""
TxtModelo.Text=""
TxtUsuario.Text=""
TxtID.RequestFocus
End Sub