21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
41 lines
496 B
Text
41 lines
496 B
Text
' Gambas class file
|
|
|
|
Private $hReport As Report
|
|
|
|
Public Sub _new()
|
|
|
|
Application.MainWindow = Me
|
|
|
|
End
|
|
|
|
Public Sub Form_Open()
|
|
|
|
Me.Center
|
|
|
|
End
|
|
|
|
Public Sub btnReport_Click()
|
|
|
|
$hReport = New Report1(LCase(cmbServer.Text))
|
|
$hReport.Preview()
|
|
|
|
End
|
|
|
|
Public Sub btnAbout_Click()
|
|
|
|
Message.Info("A simple report example by Fabien Bodard")
|
|
|
|
End
|
|
|
|
Public Sub btnClose_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|
|
|
|
Public Sub btnReport2_Click()
|
|
|
|
$hReport = New Report3(LCase(cmbServer.Text))
|
|
$hReport.Preview()
|
|
|
|
End
|