B4J Library JStimulReport Library

Hello everyone,

Based on my own needs, I have created a B4J library that allows you to use Stimulsoft Reports inside your B4J applications.
With this library, you can easily design, render, show and print reports directly in your app.

I tested it on Windows, macOS, and Linux – it works perfectly on all platforms.

---

How to use:
1. Copy the files from the lib folder into your B4J Libraries folder.
2. Design your report with Stimulsoft Designer.
3. Load the report file in your code using the LoadReport method.

The library is very simple and practical, you just need to check the available methods.

---

#Region Project Attributes 
    #MainFormWidth: 600
    #MainFormHeight: 600 
    #AdditionalJar: sqlite-jdbc-3.7.2
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private tblCustomers As TableView
    Private txtTitle As TextField
    Private sql As SQL
    Private ReportData As List
    Dim rep As StimulReport
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    
    If File.Exists(File.DirApp ,"db.db") = False Then File.Copy(File.DirAssets ,"db.db",File.DirApp ,"db.db")
    sql.InitializeSQLite(File.DirApp ,"db.db",False)
    
    ReportData.Initialize
    
    rep.Initialize
    rep.LicenseKey  = "YOUR_LICENSE_KEY" 
    
    
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
     
    tblCustomers.SetColumns(Array As String( "ID", "Name", "Phone", "Address"))
    tblCustomers.SetColumnWidth(0,50)
    tblCustomers.SetColumnWidth(1,150)
    tblCustomers.SetColumnWidth(3,300)
    
    
    MainForm.Show
    
    Dim res As ResultSet
    res= sql.ExecQuery("select *  from Customers")
    
    Do While res.NextRow
        tblCustomers.Items.Add(Array (res.GetInt("CustomerID"),res.GetString("CustomerName"),res.GetString("CustomerPhone"),res.GetString("CustomerAddress")))
        Dim mp As Map = CreateMap("CustomerID":res.GetInt("CustomerID"),"CustomerName":res.GetString("CustomerName"),"CustomerPhone":res.GetString("CustomerPhone"),"CustomerAddress":res.GetString("CustomerAddress"))
        ReportData.Add(mp) 'fill report data
    Loop
End Sub

Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub btnShowReport_Click
    rep.LoadReport(File.Combine(File.DirApp ,"Report.mrt"))
    rep.SetVariable("ReportLogo",fx.LoadImage(File.DirAssets , "logo.png"))
    rep.SetVariable("ReportTitle",txtTitle.Text)
    rep.SetVariable("ReportDate","Date: " & DateTime.Date(DateTime.Now))
    
    rep.RegData(ReportData,"Data","Customers")
    rep.Render (True)
    rep.ShowReport("Stimulsoft Report Viewer")
    rep.Reset 
End Sub

Sub btnDirectPrint_Click
    rep.LoadReport(File.Combine(File.DirApp ,"Report.mrt"))
    rep.SetVariable("ReportLogo",fx.LoadImage(File.DirAssets , "logo.png"))
    rep.SetVariable("ReportTitle",txtTitle.Text)
    rep.SetVariable("ReportDate","Date: " & DateTime.Date(DateTime.Now))
    
    rep.RegData(ReportData,"Data","Customers")
    rep.Render (True)
    rep.PrintReport(True)
    rep.Reset
End Sub

Sub btnJsonData_Click
    rep.LoadReport(File.Combine(File.DirApp ,"Report.mrt"))
    rep.SetVariable("ReportLogo",fx.LoadImage(File.DirAssets , "logo.png"))
    rep.SetVariable("ReportTitle","Customers 1list From Json")
    rep.SetVariable("ReportDate","Date: " & DateTime.Date(DateTime.Now))
    
    rep.RegJsonData(File.ReadString(File.DirAssets,"Customers.json"),"Data")
    rep.Render (True)
    rep.ShowReport("Stimulsoft Report Viewer From Json")
    rep.Reset
End Sub

Thanks to the B4X team and community

 

[shahryarifar]

Update v1.3 — New Features & Bug Fixes


Added:

• Export reports to popular formats such as PNG, PDF, and more.
• Printer settings: choose printer name and set number of copies.

Fixed:

• Issue where images were not displayed in reports.

Thanks to the B4X team and community

 

[Gianni M]

good job, but license is very expensive (it's my opinion)

 

[zhangbao]

Hello, could you please upload the code example? Thank you

 

[shahryarifar]

good job, but license is very expensive (it's my opinion)

You’re absolutely right, the license is expensive. However, the tool is powerful and lightweight, and in my opinion, it’s definitely worth using for commercial applications

 

[zhangbao]

Hello, I get an error when compiling using JDK19


Waiting for debugger to connect...
Program started.
Error occurred on line: 76 (Main)
java.lang.IllegalAccessException: class anywheresoftware.b4j.object.JavaObject cannot access class sun.awt.SunToolkit (in module java.desktop) because module java.desktop does not export sun.awt to unnamed module @6111303c
at java.base/jdk.internal.reflect.Reflection.newIllegalAccessException(Reflection.java:420)
at java.base/java.lang.reflect.AccessibleObject.checkAccess(AccessibleObject.java:709)
at java.base/java.lang.reflect.Method.invoke(Method.java:569)
at anywheresoftware.b4j.object.JavaObject.RunMethod(JavaObject.java:132)
at com.arazsoft.stimulreport._getscreensize(stimulreport.java:81)
at com.arazsoft.stimulreport._showreport(stimulreport.java:308)
at b4j.example.main._button1_click(main.java:195)
at java.base/jdk.internal.reflect.DirectMethodHandleAccessor.invoke(DirectMethodHandleAccessor.java:104)
at java.base/java.lang.reflect.Method.invoke(Method.java:578)
at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:629)
at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:234)
at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:167)
at java.base/jdk.internal.reflect.DirectMethodHandleAccessor.invoke(DirectMethodHandleAccessor.java:104)
at java.base/java.lang.reflect.Method.invoke(Method.java:578)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:111)
at anywheresoftware.b4a.shell.ShellBA.raiseEvent2(ShellBA.java:100)
at anywheresoftware.b4a.BA$1.run(BA.java:236)
at javafx.graphics/com.sun.javafx.application.PlatformImpl.lambda$runLater$10(PlatformImpl.java:457)
at java.base/java.security.AccessController.doPrivileged(AccessController.java:399)
at javafx.graphics/com.sun.javafx.application.PlatformImpl.lambda$runLater$11(PlatformImpl.java:456)
at javafx.graphics/com.sun.glass.ui.InvokeLaterDispatcher$Future.run(InvokeLaterDispatcher.java:96)
at javafx.graphics/com.sun.glass.ui.win.WinApplication._runLoop(Native Method)
at javafx.graphics/com.sun.glass.ui.win.WinApplication.lambda$runLoop$3(WinApplication.java:184)
at java.base/java.lang.Thread.run(Thread.java:1589)

 

[shahryarifar]

Hello, could you please upload the code example? Thank you

Hello, you can download the code example along with the latest version of the library from here

 

[zhangbao]

To resolve the error, add the following to the #VirtualMachineArgs: --add-exports java.desktop/sun.awt=ALL-UNNAMED

 

[Gianni M]

You’re absolutely right, the license is expensive. However, the tool is powerful and lightweight, and in my opinion, it’s definitely worth using for commercial applications

my old post:

make with B4J and openPDF

a little example with openPDF class code coming soon

www.b4x.com

 

[bsetiadi]

Hello everyone,

Based on my own needs, I have created a B4J library that allows you to use Stimulsoft Reports inside your B4J applications.
With this library, you can easily design, render, show and print reports directly in your app.

I tested it on Windows, macOS, and Linux – it works perfectly on all platforms.

---

How to use:
1. Copy the files from the lib folder into your B4J Libraries folder.
2. Design your report with Stimulsoft Designer.
3. Load the report file in your code using the LoadReport method.

The library is very simple and practical, you just need to check the available methods.

---

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
    #AdditionalJar: sqlite-jdbc-3.7.2
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private tblCustomers As TableView
    Private txtTitle As TextField
    Private sql As SQL
    Private ReportData As List
    Dim rep As StimulReport
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   
    If File.Exists(File.DirApp ,"db.db") = False Then File.Copy(File.DirAssets ,"db.db",File.DirApp ,"db.db")
    sql.InitializeSQLite(File.DirApp ,"db.db",False)
   
    ReportData.Initialize
   
    rep.Initialize
    rep.LicenseKey  = "YOUR_LICENSE_KEY"
   
   
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    
    tblCustomers.SetColumns(Array As String( "ID", "Name", "Phone", "Address"))
    tblCustomers.SetColumnWidth(0,50)
    tblCustomers.SetColumnWidth(1,150)
    tblCustomers.SetColumnWidth(3,300)
   
   
    MainForm.Show
   
    Dim res As ResultSet
    res= sql.ExecQuery("select *  from Customers")
   
    Do While res.NextRow
        tblCustomers.Items.Add(Array (res.GetInt("CustomerID"),res.GetString("CustomerName"),res.GetString("CustomerPhone"),res.GetString("CustomerAddress")))
        Dim mp As Map = CreateMap("CustomerID":res.GetInt("CustomerID"),"CustomerName":res.GetString("CustomerName"),"CustomerPhone":res.GetString("CustomerPhone"),"CustomerAddress":res.GetString("CustomerAddress"))
        ReportData.Add(mp) 'fill report data
    Loop
End Sub

Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub btnShowReport_Click
    rep.LoadReport(File.Combine(File.DirApp ,"Report.mrt"))
    rep.SetVariable("ReportLogo",fx.LoadImage(File.DirAssets , "logo.png"))
    rep.SetVariable("ReportTitle",txtTitle.Text)
    rep.SetVariable("ReportDate","Date: " & DateTime.Date(DateTime.Now))
   
    rep.RegData(ReportData,"Data","Customers")
    rep.Render (True)
    rep.ShowReport("Stimulsoft Report Viewer")
    rep.Reset
End Sub

Sub btnDirectPrint_Click
    rep.LoadReport(File.Combine(File.DirApp ,"Report.mrt"))
    rep.SetVariable("ReportLogo",fx.LoadImage(File.DirAssets , "logo.png"))
    rep.SetVariable("ReportTitle",txtTitle.Text)
    rep.SetVariable("ReportDate","Date: " & DateTime.Date(DateTime.Now))
   
    rep.RegData(ReportData,"Data","Customers")
    rep.Render (True)
    rep.PrintReport(True)
    rep.Reset
End Sub

Sub btnJsonData_Click
    rep.LoadReport(File.Combine(File.DirApp ,"Report.mrt"))
    rep.SetVariable("ReportLogo",fx.LoadImage(File.DirAssets , "logo.png"))
    rep.SetVariable("ReportTitle","Customers 1list From Json")
    rep.SetVariable("ReportDate","Date: " & DateTime.Date(DateTime.Now))
   
    rep.RegJsonData(File.ReadString(File.DirAssets,"Customers.json"),"Data")
    rep.Render (True)
    rep.ShowReport("Stimulsoft Report Viewer From Json")
    rep.Reset
End Sub

Thanks to the B4X team and community

Very helpful !
Thanks.
Anyway... is there any Stimulsoft or Crystal Reports like, which is free/open source, so then we can use to easily design report in B4X?