mirror of
https://github.com/KeymonSoft/MarketPlace.git
synced 2026-04-17 21:06:19 +00:00
76 lines
2.2 KiB
QBasic
76 lines
2.2 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=9.85
|
|
@EndOfDesignText@
|
|
#Region Shared Files
|
|
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
|
|
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
|
|
#End Region
|
|
|
|
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
|
|
|
|
Sub Class_Globals
|
|
Private Root As B4XView
|
|
Private xui As XUI
|
|
Public principal As C_Principal
|
|
Private i_logo As ImageView
|
|
Private p_configuracion As Panel
|
|
Private p_login As Panel
|
|
Private b_regresar As Button
|
|
Private b_entrar As Button
|
|
Private b_envioBD As Button
|
|
Private B_SERVER As Button
|
|
Private ImageView4 As ImageView
|
|
Private ImageView2 As ImageView
|
|
Private Panel3 As Panel
|
|
Private Label1 As Label
|
|
End Sub
|
|
|
|
Public Sub Initialize
|
|
' B4XPages.GetManager.LogEvents = True
|
|
End Sub
|
|
|
|
'This event will be called once, before the page becomes visible.
|
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
|
Root = Root1
|
|
Root.LoadLayout("login")
|
|
principal.Initialize
|
|
B4XPages.AddPage("Principal", principal)
|
|
p_login.Width = Root.Width
|
|
p_login.Height = Root.Height
|
|
Subs.agregaColumna("cat_gunaprod", "CAT_PT_DESC", "TEXT")
|
|
Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
|
|
Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
|
|
Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA", "TEXT")
|
|
Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA_MOD", "TEXT")
|
|
Starter.skmt.ExecNonQuery("delete from cuentaa")
|
|
Starter.skmt.ExecNonQuery("insert into cuentaa (cuenta) values ('123456')")
|
|
Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
|
Starter.skmt.ExecNonQuery("insert into cat_almacen (id_almacen) values ('1')")
|
|
End Sub
|
|
|
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
|
|
|
Private Sub i_logo_Click
|
|
p_configuracion.Width = Root.Width
|
|
p_configuracion.Height = Root.Height
|
|
Subs.panelVisible(p_configuracion, 0, 0)
|
|
End Sub
|
|
|
|
Private Sub b_regresar_Click
|
|
Subs.panelVisible(p_login, 0, 0)
|
|
End Sub
|
|
|
|
Private Sub b_entrar_Click
|
|
B4XPages.ShowPage("principal")
|
|
End Sub
|
|
|
|
Private Sub B_SERVER_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub b_envioBD_Click
|
|
|
|
End Sub |