frmshow.frm

用VB写的报表程序,看看吧.对写程序有好处的.

VERSION 5.00
Object = "{831FDD16-0C5C-11d2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0"; "SYSINFO.OCX"
Begin VB.Form frmShowReport 
   Caption         =   "数据报告"
   ClientHeight    =   1905
   ClientLeft      =   1335
   ClientTop       =   870
   ClientWidth     =   5355
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   1905
   ScaleWidth      =   5355
   Begin MSComCtlLib.Toolbar tlbReport 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5355
      _ExtentX        =   9446
      _ExtentY        =   1085
      ButtonWidth     =   1455
      ButtonHeight    =   926
      Appearance      =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   4
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "显示报告"
            Description     =   "显示报告"
            Object.ToolTipText     =   "显示报告"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "导出报告"
            Description     =   "导出报告"
            Object.ToolTipText     =   "导出报告"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "模板"
            Description     =   "打印模板"
            Object.ToolTipText     =   "打印模板"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Description     =   "退出程序"
            Object.ToolTipText     =   "退出"
         EndProperty
      EndProperty
   End
   Begin SysInfoLib.SysInfo sysInfo 
      Left            =   3960
      Top             =   720
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuShow 
         Caption         =   "显示报告(&S)"
      End
      Begin VB.Menu mnuExport 
         Caption         =   "导出报告"
      End
      Begin VB.Menu mnuPrintReport 
         Caption         =   "打印报告(&P)"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
      End
   End
End
Attribute VB_Name = "frmShowReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub mnuExit_Click()

    While rptNwind.AsyncCount > 0
        DoEvents
    Wend
    Unload rptNwind
    Unload frmShowReport
End Sub

Private Sub mnuExport_Click()
    ' 导出报告。代码显示导出报告
    ' 对话框。 ExportFormat
    ' 在数据报告的初始化事件中
    ' 被创建。
    
     rptNwind.ExportReport _
     FormatIndexOrKey:="DailyReport", _
     FileName:="C:\Temp\DailyRpt", _
     overwrite:=True, _
     showdialog:=True, _
     range:=rptRangeFromTo, _
     pagefrom:=1, _
     pageto:=3

End Sub

Private Sub mnuPrintReport_Click()
    rptNwind.PrintReport
End Sub

Private Sub mnuShow_Click()
    rptNwind.Show
End Sub

Private Sub tlbReport_ButtonClick(ByVal Button As MSComCtlLib.Button)
    Select Case Button.Caption
    Case "显示报告"
        rptNwind.Show
    Case "导出报告"
        mnuExport_Click
    Case "模板"
    
        ' 打印所有模板。
        Dim i As Integer
        For i = 1 To rptNwind.ExportFormats.Count
            Debug.Print "TEMPLATE " & i
            Debug.Print rptNwind.ExportFormats(i).Template
            Debug.Print ' Space
        Next i
        MsgBox "模板被打印到立即窗口。"
    Case "退出"
        mnuExit_Click
    End Select
End Sub