



' Gambas class file


Public Sub Form_Open()

'-- Only for controls in the testing of the report project
'   DB.Debug = True

    FMain.Resizable = False
  
    If MBase.CheckDB() Then
       Print ("Unable to create database")
       Me.Close()
    Endif

End

Public Sub btnReportPreview_Click()

    Run()
    Catch
      Print Error.Text, Error.Code

End


Private Sub Run()
  
    FChart.Showmodal()
    Report1.Preview()
    FMain.Close()
  
End
