frmdataenv.frm

用于实现C/S架构下的表单打印 支持清单打印 还支持多种模式下的打印

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