DC Dynamic Report
DC.DynamicReportruns as a COM class for included in any developing langauge support COM based application as Visual Basic , Visual C++ , Borland C++ , Delphi and others ..
The DC.DynamicReport setup program will automatically register theDC_DynamicReport10.dll file on your system.
There is no need to manually run RegSvr32.exe on your development system.
To include DC.DynamicReport in your project
- From Project menu select add reference
- Push Browse button to locate your DC_DynamicReport10.DLL file which by default located in c:\windows\system32 , now the specific DLL included in your references
There are two only files need to be distributed withDC.Num2TextCOM based applications
- DC_Dynamic Report10.dll
this files should be copied to the WinSystem directory which by default is C:\Windows\System32
InitReport Function , must be your first assignment , an error may occur if you do not
We support eastern languages in all of our components , so Dynamic Report comes with support for right to left orientation
Syntax: Public Sub InitReport(ByVal Right2Left As Boolean) it takes 1 parameter 1-Right2Left define orientation , if true , this is usuful for eastern language use right orientation
ReadTheme function enables you to select from 7 diffrent themes by chanhing theme you change whole appearance of report**
Public Sub ReadTheme(ByVal int_ThemeID As Theme_ID) int_ThemeID may take any value from 1 to 6 Classic = 1 Blue = 2 Red = 3 Green = 4 Simple = 5 Transparent = 6
oRep.ReadTheme(DynamicComponents.DynamicReport.Theme_ID.Classic) ' if ignored it is by default classic theme
LogoImage enables you set your company logo
Syntax: Public Sub LogoImage(ByVal str_LogoFile As String, ByVal str_LogoPath As String) it takes 2 parameters 1-str_LogoFile is logo file name 2- str_LogoPath is logo file path
Example: oRep.LogoImage("Logo.bmp", "C:\Images\")
SetTitle enables you set the title of the report
Syntax: Public Sub SetTitle(ByVal str_Title As String)
Example: oRep.SetTitle("Customers List")
SetReportHeader enables you set your report header lines , you can add as many lines as you want
Syntax: Public Sub SetReportHeader(ByVal ParamArray str_Line() As String) it takes a parameter array , so you can add as many header line as you want , delimetered by comma ","
Example: oRep.SetReportHeader("This is Dynamic Report v1.0", "It is powered by EgyFirst inc.", "Dynamic Components is a trade mark since 2004")
GroupBy function enables you set grouping data , you can add as many lines as you want
Syntax: Public Sub GroubBy(ByVal str_GroupField As String, ByVal ShowGroupNavigator As Boolean, ByVal ForceNewPage As Boolean)
it takes 3 parameters 1-str_GroupField parameter is the field used to grouping data 2- ShowGroupNavigator parameter determine if you want to show a group navigator or not group navigator enables you to go to directly to selected group 3- ForceNewPage parameter , if true , every group will be viewing and printing in a new page
Example: oRep.GroubBy("OrderID", True, True)
SumFields function enables you to sum defined fields**
Public Sub SumFields(ByRef ReportTable As ADODB.Recordset, ByVal ParamArray str_Line() As String) it takes 2 parameters 1-ReportTable parameter is a recordset used to populate report 2- str_Line is a parameter array , so you can add as many summed fields as you want , delimetered by comma ","
Dim oMaster As New ADODB.Recordset() Dim CN As New ADODB.Connection()
CN.Open("DCDR_NWind") oMaster.Open("Selelct * from orders", CN, oMaster.CursorType.adOpenKeyset, oMaster.LockType.adLockOptimistic)
SetCaption function enables you set caption for fields which may differ from its names this mean a field named "ID" may get a new caption like "Customer ID"
Syntax: Public Sub SetCaption(ByVal ParamArray str_Line() As String) it takes a parameter array , so you can add as many caption as you want , delimetered by comma ","
Example: oRep.SetCaption("Order ID", "Product ID", "Product Name", "Unit Price", "Quantity", "Discount")
SetReportFooter enables you set your report footer lines , you can add as many lines as you want
Syntax: Public Sub SetReportFooter(ByVal ParamArray str_Line() As String) it takes a parameter array , so you can add as many header line as you want , delimetered by comma ","
Example: oRep.SetReportFooter("This is your report footer Section", "you can add here as many lines as you want")
PopulateReport function is the function responsible for viewing report , so it must be your last assignment
Public Sub PopulateReport(ByRef ReportTable As ADODB.Recordset) ReportTable parameter is a recordset used to populate report **Example:** Dim oMaster As New ADODB.Recordset() Dim CN As New ADODB.Connection() CN.Open("DCDR\_NWind") oMaster.Open("Selelct \* from orders", CN, oMaster.CursorType.adOpenKeyset, oMaster.LockType.adLockOptimistic) oRep.PopulateReport(oMaster) '' this must be your last assignment