rptlock.dsr

来自「这是一个银行IC卡门禁系统软件」· DSR 代码 · 共 51 行

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} rptLock 
   Caption         =   "ActiveReport1"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "rptLock.dsx":0000
End
Attribute VB_Name = "rptLock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private iRow As Integer

Private Sub ActiveReport_FetchData(EOF As Boolean)
    If iRow > UBound(colKR) Then
        EOF = True
        Exit Sub
    End If
    Fields("ID") = colKR(iRow).ID
    Fields("KDateTime") = colKR(iRow).KDatetime
    Fields("CardNo") = colKR(iRow).CardNo
    Fields("CardType") = colKR(iRow).CardType
    Fields("LockID") = colKR(iRow).LockID
    Fields("UserName") = colKR(iRow).UserName
    Fields("LockArea") = colKR(iRow).LockArea
    EOF = False
    iRow = iRow + 1
End Sub

Private Sub ActiveReport_Initialize()
    Fields.Add "ID"
    Fields.Add "KDateTime"
    Fields.Add "CardNo"
    Fields.Add "CardType"
    Fields.Add "LockID"
    Fields.Add "UserName"
    Fields.Add "LockArea"
    iRow = LBound(colKR)
    
End Sub

Private Sub PageFooter_Format()
    lblDate = Format$(Now, "yyyy-mm-dd hh:mm")
End Sub