Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Type Settings(DbTableName As String, ColsToNode As Map)
Private SetMole As Settings
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Main") 'Load the layout file.
InitializeNode
MainForm.Show
End Sub
Private Sub InitializeNode
SetMole.Initialize
SetMole.DbTableName = "Mole"
SetMole.ColsToNode.Initialize
SetMole.colstoNode.put("ID", "NULL")
SetMole.colstoNode.put("Codice", "TXF" )
SetMole.colstoNode.put("Descrizione", "TXF" )
SetMole.colstoNode.put("Legante", "CMBX" )
SetMole.colstoNode.put("Volume", "TXF" )
SetMole.colstoNode.put("Area", "TXF" )
SetMole.colstoNode.put("Concentrazione", "TXF" )
SetMole.colstoNode.put("Densità", "TXF" )
SetMole.colstoNode.put("Disegno", "TXF" )
SetMole.colstoNode.put("Note", "TXA" )
SetMole.colstoNode.put("Corpo", "TXF" )
SetMole.colstoNode.put("Stampo", "TXF" )
SetMole.colstoNode.put("Tappi", "TXF" )
SetMole.colstoNode.put("°C Forno", "TXF" )
SetMole.colstoNode.put("°C Stampo", "TXF" )
SetMole.colstoNode.put("Tempo Cottura (min)", "TXF" )
SetMole.colstoNode.put("Tempo Cottura Sing. (min)", "TXF" )
SetMole.colstoNode.put("Pressione Caldo (Kg/cm^2)", "TXF" )
SetMole.colstoNode.put("Pressione Freddo (Kg/cm^2)", "TXF" )
SetMole.colstoNode.put("Carati Totali (Kt)", "TXF" )
SetMole.colstoNode.put("Diamante Totale (Kt)", "TXF" )
SetMole.colstoNode.put("Tipo Diamante", "TXF" )
SetMole.colstoNode.put("Grana", "TXF" )
SetMole.colstoNode.put("Grafite", "TXF" )
SetMole.colstoNode.put("Data Inserimento", "LB")
SetMole.colstoNode.put("Data Ultima Modifica", "LB")
End Sub