Spanish Tu APK debe incluir recursos de diseño personalizables para densidades de pantalla de tablet comunes

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
Sub Process_Globals
    Public CantidadBases As Int
End Sub
Sub Globals
    Private txtSQL As EditText
    Private TabHost1 As TabHost
    Private LblBasedeDatos As Label
    Private ComboBasesdeDatos As Spinner
    Private ComboTablas As Spinner
    Private ComboCampos As Spinner
    Private BotonDel As Button
    Private BotonSelectFrom As Button
    Private Telefono As Phone
    Private f As Funciones
    Private BotonInsertarTable As Button
    Private Texto As String
    Private TextoEncriptado As String
    Private Resultado As String
End Sub
#if java
public void _onCreate() {
    setTheme(16973931);
}
#end if
Sub Activity_Create(FirstTime As Boolean)
    f.Initialize
       Telefono.SetScreenOrientation(1)
    Activity.LoadLayout("Query")
    Activity.Title=" QUERY Editor"
    If FirstTime Then
       StateManager.ResetState("QUERY")   
    End If
    txtSQL.Text=""
    TabHost1.AddTab("DATA","DATA")
    TabHost1.AddTab("SQL","SQLButtons")
    TabHost1.AddTab("SYMBOLS","SYMBOLS")
   
    If StateManager.RestoreState(Activity, "QUERY", 60) = False Then
        ProgressDialogShow("Opening Query Manager")
        CargoBases
    End If
   
    Dim Eleccion As String
    Dim Valido As Boolean
   
    If MySQL.BaseSeleccionada.Length>0  Then
          If File.Exists(MySQL.Carpeta,"reg5.smql")=True Then
      
           TextoEncriptado=File.ReadString(MySQL.Carpeta,"sdata.smql")
           Texto=f.Decrypt(TextoEncriptado)
           Eleccion=Msgbox2("Last SQL Statement. " & CRLF & Texto,"SQL","Run","Ignore","Edit", Null)
           If Eleccion=DialogResponse.CANCEL Then
                 txtSQL.Text=""
              Return
           End If
           If Eleccion=DialogResponse.POSITIVE Then
              If MySQL.DbTableConectado=False Then
                 If CallSub2(MySQL,"ConectaTables",MySQL.BaseSeleccionada)=True Then
                        Valido=True
                 Else
                    Valido=False
                 End If    
              End If
              MySQL.TextoSQL=Texto
              If Valido=True Then
                     StartActivity("ResultadoSELECT")
                  Return
              End If
           End If
           If Eleccion=DialogResponse.NEGATIVE Then
              txtSQL.Text=Texto
           End If
       End If
    End If 
End Sub
Sub Activity_Resume
    MySQL.Dbtable.check_connection
End Sub
Sub Activity_Pause (UserClosed As Boolean)
    If UserClosed Then
        StateManager.ResetState("QUERY")
        Telefono.SetScreenOrientation(-1)
        Activity.Finish
    Else
        StateManager.SaveState(Activity, "QUERY")
    End If
    StateManager.SaveSettings
End Sub
#Region "Cargo Bases"

Sub CargoBases
    Dim t As String    
   
    t="SELECT DISTINCT(TABLE_SCHEMA) AS BASE, Count(DISTINCT(TABLE_SCHEMA)) as Registros FROM TABLES WHERE TABLE_SCHEMA<>'information_schema'"
    CallSub2(MySQL,"LeoMySQLSchema",CreateMap("TextoSQL":t,"Activity":"QUERY","Modulo":"Schema_LeoBases"))
End Sub
Public Sub SchemaLeoBases_Result(data As List, meta As Map)
    Dim m As Map, i As Int 
    If meta.Get("TaskID")="Schema_LeoBases" Then
        CantidadBases=0
        ComboBasesdeDatos.Clear
        If data.Size=1 Then
            m=data.Get(0)
            MySQL.BaseSeleccionada=m.Get("BASE")
            LblBasedeDatos.Visible=True
            LblBasedeDatos.Text=m.Get("BASE")
            ComboBasesdeDatos.Visible=False
            ComboTablas.Visible=True
            CargoTablas
        Else
            LblBasedeDatos.Visible=False
            For i = 0 To data.Size-1
                m=data.Get(i)
                MySQL.BaseSeleccionada=""
                ComboBasesdeDatos.Add(m.Get("BASE"))
            Next
            ComboBasesdeDatos.Visible=True
            ComboTablas.Visible=False
        End If
        If data.Size=0 Then
            Msgbox("No Databases to Query","No Data")
        End If
    End If
    ProgressDialogHide 
End Sub
Public Sub SchemaLeoBases_SqlError(meta As Map)
    Msgbox("An error Occurs retrieving the Structure Info","Error")
    Log(meta)
End Sub

#end region
Sub ComboBasesdeDatos_ItemClick (Position As Int, Value As Object)
    MySQL.BaseSeleccionada=ComboBasesdeDatos.GetItem(Position)
    CargoTablas
    ComboCampos.Clear
    ComboCampos.Visible=False
End Sub
#region "Cargo Tablas"
Sub CargoTablas
    Dim t As String
    If MySQL.BaseSeleccionada.Length>0 Then
       ComboTablas.Clear
       ProgressDialogShow("Reading Tables")
       t="SELECT TABLE_NAME FROM TABLES WHERE TABLE_SCHEMA='" & MySQL.BaseSeleccionada & "'"
       CallSub2(MySQL,"LeoMySQLSchema",CreateMap("TextoSQL":t,"Activity":"QUERY","Modulo":"Schema_LeoTablas"))
    End If   
End Sub
Sub SchemaLeoTablas_Result(data As List, meta As Map)
    ComboTablas.Clear
    Dim m As Map
    For i = 0 To data.Size-1
        m=data.Get(i)
        ComboTablas.Add(m.Get("TABLE_NAME"))
    Next
    ComboTablas.Visible=True
    ProgressDialogHide
End Sub

Sub SchemaLeoTablas_SqlError(data As Map)
    Msgbox("Unable to read Tables in this Database. Error : " & data.Get("Exception"),"Error")
End Sub
#end region
Sub ComboTablas_ItemClick (Position As Int, Value As Object)
    Dim t As String
    ProgressDialogShow("Reading Fields")
    ComboCampos.Clear
    ComboCampos.Visible=True
   
    MySQL.Tabla=ComboTablas.GetItem(Position)
    ComboCampos.Add(MySQL.Tabla)
   
    t="SELECT COLUMN_NAME FROM COLUMNS WHERE TABLE_SCHEMA='" & MySQL.BaseSeleccionada & "' AND TABLE_NAME='" & MySQL.Tabla & "'"
    CallSub2(MySQL,"LeoMySQLSchema",CreateMap("TextoSQL":t,"Activity":"QUERY","Modulo":"Schema_LeoCampos"))
End Sub
Sub BotonEjecutarSQL_Click
    Dim Valido As Boolean, t As String
    ProgressDialogShow("Running")
    Valido=True
   
    If txtSQL.Text.Trim.Length=0 Then
        Valido=False
        ProgressDialogHide
        Msgbox("You must Enter an SQL Statement","Data Required")
        Return
    End If
    If CantidadBases>1 And ComboBasesdeDatos.SelectedIndex=-1 Then
        Valido=False
        ProgressDialogHide
        Msgbox("You must Select a DataBase before","Database Required")
        Return
    End If
    MejoroSintaxis
    If ValidoComando=False Then
        Valido=False
        ProgressDialogHide
        Msgbox("Sintax Error, Check your SQL Stattement","Incorrect SQL Sintax")
        Return
    End If
    If Valido=True Then
        If MySQL.DbTableConectado=False Then
           If CallSub2(MySQL,"ConectaTables",MySQL.BaseSeleccionada)=True Then
                 Valido=True
           Else
              Valido=False
           End If    
        End If
        If Valido=True Then
           t=txtSQL.Text.ToUpperCase
           If t.StartsWith("SELECT ") Then
              MySQL.TextoSQL=txtSQL.Text
              If Msgbox2("Note that an SQL query to read several thousand records, you could hang your mobile. Confirm ?","Confirmation Required","YES","NO","CANCEL",Null)=DialogResponse.POSITIVE Then
                 StartActivity("ResultadoSELECT")
              End If
           Else
              CallSub2(MySQL,"EjecutoMySQLTables",CreateMap("TextoSQL":txtSQL.Text,"Activity":"QUERY","Modulo":"Tables_EjecutoSQL"))
           End If
        End If
    End If
    ProgressDialogHide
End Sub
#region "Tables_EjecutoSQL"
Sub Tables_EjecutoSQL(meta As Map)
    ProgressDialogHide
    Msgbox("Process OK","Done")
End Sub
Sub Tables_EjecutoSQL_SqlError(meta As Map)
    ProgressDialogHide
    Dim ErrDescription As String
    ErrDescription=meta.Get("Exception")
    If ErrDescription.Contains("java.sql.Timestamp")=True Then
       Msgbox("You have an error : To avoid Null DateTime Error , you must use 'NULLIF(DTime," & Chr(34) & "0000-00-00 00:00:00" & Chr(34) & ")  AS DTime " & ErrDescription,"Error")   
    Else
        Msgbox("Your SQL Stattement has thrown the following error " & ErrDescription,"Error")
    End If
    Log(meta)
End Sub
#end region
Sub ValidoComando As Boolean
    Dim valido As Boolean, t As String
    valido=False
    t=txtSQL.Text.Trim.ToUpperCase
   
    If t.StartsWith("SELECT ")=True Then valido=True
    If t.StartsWith("DELETE ")=True Then valido=True
    If t.StartsWith("UPDATE ")=True Then valido=True
    If t.StartsWith("INSERT ")=True Then valido=True
    If t.StartsWith("CREATE ")=True Then valido=True
    If t.StartsWith("ALTER ")=True Then valido=True
   
    Return valido
End Sub
Sub MejoroSintaxis
    txtSQL.Text=txtSQL.Text.Replace("select ","SELECT")
    txtSQL.Text=txtSQL.Text.Replace("Select ","SELECT")
    txtSQL.Text=txtSQL.Text.Replace("update ","UPDATE")
    txtSQL.Text=txtSQL.Text.Replace("Update ","UPDATE")
    txtSQL.Text=txtSQL.Text.Replace("insert ","INSERT")
    txtSQL.Text=txtSQL.Text.Replace("Insert ","INSERT")
    txtSQL.Text=txtSQL.Text.Replace("delete ","DELETE")
    txtSQL.Text=txtSQL.Text.Replace("Delete ","DELETE")
End Sub
#region "LeoCampos"
Sub Schema_LeoCamposResult(data As List, meta As Map)
    Dim m As Map, i As Int
    For i = 0 To data.Size-1
        m=data.Get(i)
        ComboCampos.Add(m.Get("COLUMN_NAME"))
    Next
    ProgressDialogHide
End Sub
Sub Schema_LeoCamposError(meta As Map)
    Msgbox("Unable to Read Field for the Table " & MySQL.Tabla & " Error : " & meta.Get("Exception"),"Error")
End Sub
#end region
Sub ComboCampos_ItemClick (Position As Int, Value As Object)
    txtSQL.Text=txtSQL.Text & ComboCampos.GetItem(Position) & " "
End Sub
#region "Botones Pantalla"
Sub BotonClear_Click
    txtSQL.Text=""
End Sub
Sub BotonDel_Click
    txtSQL.Text=txtSQL.Text.SubString2(0,txtSQL.Text.Length-1)
End Sub
#end region
#region "Botones Symbols"
Sub BotonSimbolSpace_Click
    txtSQL.Text=txtSQL.Text & " "   
End Sub
Sub BotonSimboloPunto_Click
    txtSQL.Text=txtSQL.Text & "."   
End Sub
Sub BotonSimboloPorcentaje_Click
    txtSQL.Text=txtSQL.Text & "%"   
End Sub
Sub BotonSimboloParentesisCierra_Click
    txtSQL.Text=txtSQL.Text & ") "   
End Sub
Sub BotonSimboloParentesisAbre_Click
    txtSQL.Text=txtSQL.Text & "( "   
End Sub
Sub BotonSimboloMenor_Click
    txtSQL.Text=txtSQL.Text & "< "   
End Sub
Sub BotonSimboloMayor_Click
    txtSQL.Text=txtSQL.Text & "> "   
End Sub
Sub BotonSimboloMas_Click
    txtSQL.Text=txtSQL.Text & "+ "   
End Sub
Sub BotonSimboloIgual_Click
    txtSQL.Text=txtSQL.Text & "= "   
End Sub
Sub BotonSimboloGuionMedio_Click
    txtSQL.Text=txtSQL.Text & "-"   
End Sub
Sub BotonSimboloDividir_Click
    txtSQL.Text=txtSQL.Text & "/ "   
End Sub
Sub BotonSimboloComillaSimple_Click
    txtSQL.Text=txtSQL.Text & "'"   
End Sub
Sub BotonSimboloComillaDoble_Click
    txtSQL.Text=txtSQL.Text & Chr(34)   
End Sub
Sub BotonSimboloComa_Click
    txtSQL.Text=txtSQL.Text & ","   
End Sub
Sub BotonSimboloAsterisco_Click
    txtSQL.Text=txtSQL.Text & "* "   
End Sub
Sub BotonSimbolo9_Click
    txtSQL.Text=txtSQL.Text & "9"   
End Sub
Sub BotonSimbolo8_Click
    txtSQL.Text=txtSQL.Text & "8"   
End Sub
Sub BotonSimbolo7_Click
    txtSQL.Text=txtSQL.Text & "7"   
End Sub
Sub BotonSimbolo6_Click
    txtSQL.Text=txtSQL.Text & "6"   
End Sub
Sub BotonSimbolo5_Click
    txtSQL.Text=txtSQL.Text & "5"   
End Sub
Sub BotonSimbolo4_Click
    txtSQL.Text=txtSQL.Text & "4"   
End Sub
Sub BotonSimbolo3_Click
    txtSQL.Text=txtSQL.Text & "3"   
End Sub
Sub BotonSimbolo2_Click
    txtSQL.Text=txtSQL.Text & "2"   
End Sub
Sub BotonSimbolo1_Click
    txtSQL.Text=txtSQL.Text & "1"   
End Sub
Sub BotonSimbolo0_Click
    txtSQL.Text=txtSQL.Text & "0"   
End Sub
Sub BotonGuionBajo_Click
    txtSQL.Text=txtSQL.Text & "_"   
End Sub
#end region
#region "Botones SQL "
Sub BotonWhere_Click
    txtSQL.Text=txtSQL.Text & "WHERE "   
End Sub
Sub BotonVALUES_Click
    txtSQL.Text=txtSQL.Text & "VALUES "   
End Sub
Sub BotonUpdate_Click
    txtSQL.Text=txtSQL.Text & "UPDATE "   
End Sub
Sub BotonSET_Click
    txtSQL.Text=txtSQL.Text & "SET "   
End Sub
Sub BotonSelect_Click
    txtSQL.Text=txtSQL.Text & "SELECT "   
End Sub
Sub BotonOrder_Click
    txtSQL.Text=txtSQL.Text & "ORDER BY "   
End Sub
Sub BotonOR_Click
    txtSQL.Text=txtSQL.Text & "OR "   
End Sub
Sub BotonLike_Click
    txtSQL.Text=txtSQL.Text & "LIKE "   
End Sub
Sub BotonJoin_Click
    txtSQL.Text=txtSQL.Text & "JOIN "   
End Sub
Sub BotonINTO_Click
    txtSQL.Text=txtSQL.Text & "INTO "   
End Sub
Sub BotonInsert_Click
    txtSQL.Text=txtSQL.Text & "INSERT INTO "   
End Sub
Sub BotonIN_Click
    txtSQL.Text=txtSQL.Text & "IN "   
End Sub
Sub BotonGroupBy_Click
    txtSQL.Text=txtSQL.Text & "GROUP BY "   
End Sub
Sub BotonFROM_Click
    txtSQL.Text=txtSQL.Text & "FROM "   
End Sub
Sub BotonDelete_Click
    txtSQL.Text=txtSQL.Text & "DELETE FROM "   
End Sub
Sub BotonBetween_Click
    txtSQL.Text=txtSQL.Text & "BETWEEN "   
End Sub
Sub BotonAND_Click
    txtSQL.Text=txtSQL.Text & "AND "   
End Sub
Sub BotonSelectFrom_Click
    txtSQL.Text=txtSQL.Text & "SELECT * FROM "
End Sub
#end region

Sub BotonInsertarTable_Click
    If ComboTablas.SelectedIndex=-1 Then
        If txtSQL.Text.Length=0 Then
            txtSQL.Text="SELECT * FROM " & ComboTablas.GetItem(0)
        Else
            txtSQL.Text=txtSQL.Text & ComboTablas.GetItem(0)
        End If
    Else
        If txtSQL.Text.Length=0 Then
            txtSQL.Text="SELECT * FROM " & ComboTablas.SelectedItem
        Else
            txtSQL.Text=txtSQL.Text & ComboTablas.SelectedItem
        End If
    End If
End Sub