armonreport.dsr

VB数据库设计的代码。需要根据自己的数据库再作调整

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} arMonReport 
   Caption         =   "月销售报表"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "arMonReport.dsx":0000
End
Attribute VB_Name = "arMonReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'报表数据
Public g_MonReport As clsMonReport
'店名
Public g_shopName As String
'日期
Public g_reportDate As String

'***********************************************************************
'* 过程名：ActiveReport_FetchData
'* 功  能：取得明细数据
'* 参  数：Boolean                      数据是否已取完
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub ActiveReport_FetchData(EOF As Boolean)
    Static i As Integer
    i = i + 1
    If i > g_MonReport.Count Then
        EOF = True
        Exit Sub
    Else
        EOF = False
    End If
    
    txtMerchandise.Text = g_MonReport.Item(i).merchandiseName
    txtKind.Text = g_MonReport.Item(i).kindName
    txtCount.Text = CStr(g_MonReport.Item(i).merchandiseCount)
End Sub

'***********************************************************************
'* 过程名：ActiveReport_Initialize
'* 功  能：初始化报表
'* 参  数：
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub ActiveReport_Initialize()
    Language2CN
End Sub

'***********************************************************************
'* 过程名：Language2CN
'* 功  能：汉化报表
'* 参  数：
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub Language2CN()
    Me.Toolbar.Tools.Item(0).Tooltip = "各页目录"
    Me.Toolbar.Tools.Item(2).Caption = "打印..."
    Me.Toolbar.Tools.Item(2).Tooltip = "打印报表"
    Me.Toolbar.Tools.Item(4).Tooltip = "拷贝"
    Me.Toolbar.Tools.Item(6).Tooltip = "查找"
    Me.Toolbar.Tools.Item(8).Tooltip = "单页显示"
    Me.Toolbar.Tools.Item(9).Tooltip = "多页显示"
    Me.Toolbar.Tools.Item(11).Tooltip = "缩小"
    Me.Toolbar.Tools.Item(12).Tooltip = "放大"
    Me.Toolbar.Tools.Item(15).Tooltip = "上一页"
    Me.Toolbar.Tools.Item(16).Tooltip = "下一页"
    Me.Toolbar.Tools.Item(19).Tooltip = "后退"
    Me.Toolbar.Tools.Item(19).Caption = "后退"
    Me.Toolbar.Tools.Item(20).Tooltip = "前进"
    Me.Toolbar.Tools.Item(20).Caption = "前进"
End Sub

'***********************************************************************
'* 过程名：ActiveReport_ReportStart
'* 功  能：设定页头页脚
'* 参  数：
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub ActiveReport_ReportStart()
    lblMakeMan.Caption = g_currentUser.UserName
    lblMakeDate.Caption = CStr(Date)
    lblShopName.Caption = g_shopName
    lblQueryDate.Caption = g_reportDate
End Sub