cheveguerra/Nuevo_Torrado_V2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Nuevo_Torrado_V2.git synced 2026-04-20 22:29:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

commit inicial

Browse Source
This commit is contained in:
cvaldes1201
2023-09-25 11:10:31 -06:00
parent 0cf913791f
commit b90343cf13
40 changed files with 4130 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
B4XMainPage.bas
View File

@@ -110,20 +110,20 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub b_iniciar_Click
If Usuario.Text <> "" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_usuario_torra"
cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
reqManager.ExecuteQuery(cmd , 0, "usuario")
user = Usuario.Text
Else
MsgboxAsync("Llena los datos de acceso","Atención")
' B4XPages.ShowPage ("principal")
End If
' B4XPages.ShowPage ("principal")
' If Usuario.Text <> "" Then
'
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "select_usuario_torra"
' cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
' reqManager.ExecuteQuery(cmd , 0, "usuario")
' user = Usuario.Text
' Else
' MsgboxAsync("Llena los datos de acceso","Atención")
'' B4XPages.ShowPage ("principal")
' End If
'
B4XPages.ShowPage ("principal")
Log(Starter.latitud & Starter.longitud)
End Sub