?? frmdataenv.frm
字號:
VERSION 5.00
Object = "{2DCFDEBF-F3C7-4735-B263-99E2ADF554F0}#1.0#0"; "ACRPTE~1.OCX"
Begin VB.Form frmDataEnv
Caption = "AC Report中式報表演示"
ClientHeight = 4890
ClientLeft = 2505
ClientTop = 1725
ClientWidth = 6000
LinkTopic = "Form1"
ScaleHeight = 4890
ScaleWidth = 6000
Begin ACRptEngineX.ACRptEngine ACRptEngine1
Height = 495
Left = 3240
TabIndex = 12
Top = 120
Width = 1335
Object.Visible = -1 'True
DoubleBuffered = 0 'False
Enabled = -1 'True
End
Begin VB.CommandButton Command4
Caption = "退出"
Height = 375
Left = 360
TabIndex = 11
Top = 3480
Width = 1695
End
Begin VB.OptionButton Option3
Caption = "打印"
Height = 255
Left = 3240
TabIndex = 10
Top = 2040
Width = 1215
End
Begin VB.CommandButton Command8
Caption = "分欄報表"
Height = 375
Left = 360
TabIndex = 9
Top = 2400
Width = 1695
End
Begin VB.CommandButton Command7
Caption = "圖表"
Height = 375
Left = 360
TabIndex = 8
Top = 2040
Width = 1695
End
Begin VB.CommandButton Command6
Caption = "子報表2"
Height = 375
Left = 360
TabIndex = 7
Top = 1680
Width = 1695
End
Begin VB.CommandButton Command5
Caption = "子報表1"
Height = 375
Left = 360
TabIndex = 6
ToolTipText = "一般的報表生成時都是一頁接一頁。在分欄報表中可以將多頁打印在同一頁，只不過轉到下一欄。這是報表中比較常見的格式。"
Top = 1320
Width = 1695
End
Begin VB.OptionButton Option2
Caption = "設計報表"
Height = 375
Left = 3240
TabIndex = 5
Top = 1440
Width = 2055
End
Begin VB.OptionButton Option1
Caption = "預覽報表"
Height = 375
Left = 3240
TabIndex = 4
Top = 960
Value = -1 'True
Width = 1935
End
Begin VB.CommandButton Command3
Caption = "分組報表"
Height = 375
Left = 360
TabIndex = 3
Top = 960
Width = 1695
End
Begin VB.TextBox Text1
Height = 375
Left = 120
TabIndex = 2
Text = "天方軟件工作室"
Top = 4320
Width = 4095
End
Begin VB.CommandButton Command2
Caption = "主從報表"
Height = 375
Left = 360
TabIndex = 1
ToolTipText = "主從表，自動按主表記錄分頁"
Top = 600
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "普通清單"
Height = 375
Left = 360
TabIndex = 0
ToolTipText = "一般的數據列表，可以自動匯總。"
Top = 240
Width = 1695
End
End
Attribute VB_Name = "frmDataEnv"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DataPath
Dim ReportPath
Private Sub Command1_Click()
ACRptEngine1.Init
ACRptEngine1.AddDataSet "animals", DataEnvironment1.rsAnimals
ACRptEngine1.AddDataSet "zlemployee", DataEnvironment1.rsZlemployee
ACRptEngine1.SetReportFile ReportPath + "list.apt"
If Option1.Value Then
ACRptEngine1.Preview
Else
If Option2.Value Then
ACRptEngine1.ShowDesigner
Else
ACRptEngine1.Print
End If
End If
End Sub
Private Sub Command2_Click()
ACRptEngine1.Init
ACRptEngine1.AddDataSet "Customer", DataEnvironment1.rsCustomer
ACRptEngine1.AddDataSet "Orders", DataEnvironment1.rsOrders
ACRptEngine1.AddDataSetRelation "Customer", "Orders", "CustNo=CustNo"
ACRptEngine1.SetReportFile ReportPath + "md.apt"
If Option1.Value Then
ACRptEngine1.Preview
Else
If Option2.Value Then
ACRptEngine1.ShowDesigner
Else
ACRptEngine1.Print
End If
End If
End Sub
Private Sub Command3_Click()
ACRptEngine1.Init
ACRptEngine1.AddDataSet "Customer", DataEnvironment1.rsCustomer
ACRptEngine1.AddDataSet "zlemployee", DataEnvironment1.rsZlemployee
ACRptEngine1.SetReportFile ReportPath + "group.apt"
If Option1.Value Then
ACRptEngine1.Preview
Else
If Option2.Value Then
ACRptEngine1.ShowDesigner
Else
ACRptEngine1.Print
End If
End If
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
ACRptEngine1.Init
ACRptEngine1.AddDataSet "Customer", DataEnvironment1.rsCustomer
ACRptEngine1.AddDataSet "Orders", DataEnvironment1.rsOrders
ACRptEngine1.AddDataSetRelation "Customer", "Orders", "CustNo=CustNo"
ACRptEngine1.SetReportFile ReportPath + "sub1.apt"
If Option1.Value Then
ACRptEngine1.Preview
Else
If Option2.Value Then
ACRptEngine1.ShowDesigner
Else
ACRptEngine1.Print
End If
End If
End Sub
Private Sub Command6_Click()
ACRptEngine1.Init
ACRptEngine1.AddDataSet "Customer", DataEnvironment1.rsCustomer
ACRptEngine1.AddDataSet "Orders", DataEnvironment1.rsOrders
ACRptEngine1.AddDataSet "Items", DataEnvironment1.rsItems
ACRptEngine1.AddDataSetRelation "Customer", "Orders", "CustNo=CustNo"
ACRptEngine1.AddDataSetRelation "Orders", "Items", "OrderNo=OrderNo"
ACRptEngine1.SetReportFile ReportPath + "sub2.apt"
If Option1.Value Then
ACRptEngine1.Preview
Else
If Option2.Value Then
ACRptEngine1.ShowDesigner
Else
ACRptEngine1.Print
End If
End If
End Sub
Private Sub Command7_Click()
ACRptEngine1.Init
ACRptEngine1.AddDataSet "zlemployee", DataEnvironment1.rsZlemployee
ACRptEngine1.AddDataSet "xueli", DataEnvironment1.rsXueli
ACRptEngine1.AddDataSet "XueLiEmp", DataEnvironment1.rsXueLiEmp
ACRptEngine1.AddDataSet "photos", DataEnvironment1.rsPhoto
ACRptEngine1.AddDataSet "animals", DataEnvironment1.rsAnimals
ACRptEngine1.AddDataSetRelation "customer", "orders", "CustNo=CustNo"
ACRptEngine1.SetReportFile ReportPath + "label.apt"
If Option1.Value Then
ACRptEngine1.Preview
Else
If Option2.Value Then
ACRptEngine1.ShowDesigner
Else
ACRptEngine1.Print
End If
End If
End Sub
Private Sub Command8_Click()
ACRptEngine1.Init
ACRptEngine1.AddDataSet "zlemployee", DataEnvironment1.rsZlemployee
ACRptEngine1.AddDataSet "animals", DataEnvironment1.rsAnimals
ACRptEngine1.AddDataSet "xueli", DataEnvironment1.rsXueli
ACRptEngine1.AddDataSet "photos", DataEnvironment1.rsPhoto
ACRptEngine1.SetReportFile ReportPath + "multcol.apt"
If Option1.Value Then
ACRptEngine1.Preview
Else
If Option2.Value Then
ACRptEngine1.ShowDesigner
Else
ACRptEngine1.Print
End If
End If
End Sub
Private Sub Form_Activate()
ACRptEngine1.Visible = False
End Sub
Private Sub Form_Load()
ACRptEngine1.AddSysVariable "使用單位", Text1.Text
DataPath = App.Path + "\..\..\data\"
ReportPath = App.Path + "\..\..\reports\"
DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + DataPath + "ReportDemo.mdb;Persist Security Info=False"
DataEnvironment1.Connection1.Open
DataEnvironment1.rsCustomer.Open
DataEnvironment1.rsOrders.Open
DataEnvironment1.rsItems.Open
DataEnvironment1.rsBiolife.Open
DataEnvironment1.rscountry.Open
DataEnvironment1.rsGroups.Open
DataEnvironment1.rsZlemployee.Open
DataEnvironment1.rsAnimals.Open
DataEnvironment1.rsPhoto.Open
DataEnvironment1.rsXueli.Open
DataEnvironment1.rsXueLiEmp.Open
End Sub
Private Sub ACRptEngine1_OnClick()
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -