Price: $39
 Screenshot
 Download
now
Click to buy
Description:
DC.DynamicReport comes with a lot of functions that enables you get a full control of your report
just define few methods of DC.DynamicReport , and that is all !!
Example:
Dim oRep As New DynamicComponents.DynamicReport()
Dim CN As New ADODB.Connection()
Dim oMaster As New ADODB.Recordset()
Dim SqlStatment As String
CN.Open("DCDR_NWind")
SqlStatment = "select OrderID,ProductID,ProductName,UnitPrice,Quantity "
' you must order your data by the field you willing to groub by
SqlStatment += "from OrderDetails where OrderId < '10270' order by OrderID"
oMaster.Open(SqlStatment, CN, oMaster.CursorType.adOpenKeyset, oMaster.LockType.adLockOptimistic)
oRep.InitReport(False) ' this must be your first assignment
oRep.SetTitle("Good Morning World")
oRep.LogoImage("Logo.bmp", VB6.GetPath + "\")
oRep.SetReportHeader("This is Dynamic Report v1.0", "It is powered by EgyFirst inc.", "Dynamic Components is a trade mark since 2004")
oRep.GroubBy("OrderID", True, True)
oRep.SetCaption("Order ID", "Product ID", "Product Name", "Unit Price", "Quantity", "Discount")
oRep.SumFields(oMaster, "Quantity")
oRep.ReadTheme(DynamicComponents.DynamicReport.Theme_ID.Classic) ' if ignored it is by default classic theme
oRep.SetReportFooter("This is your report footer Section", "you can add here as many lines as you want")
oRep.PopulateReport(oMaster) '' this must be your last assignment
|