#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#AdditionalJar: mysql-connector-java-5.1.27-bin.jar
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Public TabPane1 As TabPane
Private txtSenha As TextField
Private lblTit As Label
Private lblVersao As Label
Private XUI As XUI
Private txtUsuario As campo
Dim MySQL As SQL
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Login")
lblTit.Text = "JTicketPRO - Controle de Gratuidade em Coletivos"
lblVersao.Text = "versão 1.0.0"
MainForm.Show
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Private Sub btnEntrar_Click
MySQL.Initialize2("com.mysql.jdbc.Driver", "jdbc:mysql://192.168.0.202/ticketpro?characterEncoding=utf8", txtCampo.text, txtSenha.text)
XUI.MsgboxAsync("Bem-vindo", "")
End Sub