clslistcashflowitem.cls

金算盘软件代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsListCashFlowItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private WithEvents mfrmCashFlowItem As frmAListTemplate '模版窗体
Attribute mfrmCashFlowItem.VB_VarHelpID = -1
Private clsListType As String
Public Function SetListType(ByVal strList As String)
    mfrmCashFlowItem.strListType = strList
    clsListType = strList
End Function
Private Sub cMsgBox(strMsg As String, Optional strTitle As String)
    If Trim(strTitle) = "" Then
        strTitle = "提示信息"
    End If
    ShowMsg mfrmCashFlowItem.hwnd, strMsg, MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL, strTitle
End Sub
Private Sub Class_Initialize()
    Set mfrmCashFlowItem = New frmAListTemplate
    mfrmCashFlowItem.mTitle = "现金流量项目列表"
    mfrmCashFlowItem.mHelpID = 40003
    
    mfrmCashFlowItem.Tabs = 1
    mfrmCashFlowItem.SpViewID(0) = 1230
    mfrmCashFlowItem.blnEditByRight(0) = IsCanDo(460, gclsBase.OperatorID)
    
    mfrmCashFlowItem.SpSelect(0) = "CashItem.lngCashItemID, ' ' AS ""作废"""
    mfrmCashFlowItem.SpPrintID(0) = 38
    mfrmCashFlowItem.SpPrintTitle(0) = "现金流量项目列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmCashFlowItem.MenuEnbaleOnPage(0) = 0
    mfrmCashFlowItem.MenuEnbaleOnPage(1) = 0
    mfrmCashFlowItem.MenuEnbaleOnPage(2) = 1
    mfrmCashFlowItem.MenuEnbaleOnPage(3) = 1
    mfrmCashFlowItem.MenuEnbaleOnPage(4) = 1
    mfrmCashFlowItem.MenuEnbaleOnPage(5) = 1
    mfrmCashFlowItem.MenuEnbaleOnPage(6) = 1
    mfrmCashFlowItem.MenuEnbaleOnPage(7) = 1
End Sub

Public Function Showlist()
    mfrmCashFlowItem.Show
    mfrmCashFlowItem.ZOrder 0
End Function

Private Sub mfrmCashFlowItem_ListChildActive()
    Dim vntMessage As Variant
    For Each vntMessage In mfrmCashFlowItem.mclsMainControl.Messages
        If vntMessage = Message.msgCashFlow Then
            mfrmCashFlowItem.ToolRefresh
            mfrmCashFlowItem.mclsMainControl.Messages.Remove CStr(vntMessage) '清除消息
        End If
    Next
    mfrmCashFlowItem.mclsMainControl.Messages.Clear
End Sub

Private Sub mfrmCashFlowItem_ListDel()
    Dim lngID As Long
    Dim blnSuccess As Boolean
    lngID = mfrmCashFlowItem.ListID
    If lngID = 0 Then Exit Sub
    blnSuccess = frmAddCashItem.DelCard(lngID)
    If blnSuccess Then
        mfrmCashFlowItem.ToolRefresh
    End If
    Unload frmAddCashItem
    Set frmAddCashItem = Nothing
End Sub

Private Sub mfrmCashFlowItem_ListEdite()
    Dim lngID As Long
    
    mfrmCashFlowItem.Enabled = False
    lngID = mfrmCashFlowItem.ListID
    If lngID = 0 Then Exit Sub
    frmAddCashItem.EditCard lngID, vbModal
    Unload frmAddCashItem
    Set frmAddCashItem = Nothing
    mfrmCashFlowItem.Enabled = True
End Sub

Private Sub mfrmCashFlowItem_ListNew()
    frmAddCashItem.AddCard
    Unload frmAddCashItem
    Set frmAddCashItem = Nothing
End Sub