maincontrol.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 = "MainControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'  主控类
'  作者：黄涛
'  日期：1998.02.21
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

'主控对象拥有的消息集合
Private mcolMessages As New Messages

'主控对象拥有的窗口
Private mfrmForm As Form
Attribute mfrmForm.VB_VarHelpID = -1

'主控对象拥有窗口的上机日志ID
Private mlngLogID As Long

'
'MDI主窗口菜单通过clsMainControls引发的事件
'
Public Event EditUndo()
Public Event EditCut()
Public Event EditCopy()
Public Event EditPaste()
Public Event EditInsLine()
Public Event EditDelLine()
Public Event EditEdit()
Public Event EditNew()
Public Event EditDel()
Public Event EditInactive()
Public Event EditShowAll()
Public Event EditShowList()
Public Event EditUse()
Public Event EditNotepad()
Public Event ReceiptList()
Public Event ReceiptPosition()
Public Event EditFilter()
Public Event EditSearch()
Public Event EditColumn()
Public Event FilePrint()
Public Event FilePrintSetup()
Public Event ReportQuick()
Public Event ToolRefresh()
Public Event ChildActive()
Public Event FilePrintReceipt()

Public Event ListEditMenu(ByVal intIndex As Integer)
Public Event ListActivityMenu(ByVal intIndex As Integer)
Public Event ListReportMenu(ByVal intIndex As Integer)

'主控对象拥有的窗口
Public Property Get Form() As Form
    Set Form = mfrmForm
End Property

Public Property Let Form(ByVal frmForm As Form)
    Set mfrmForm = frmForm
End Property

'主控对象拥有的上机日志ID
Public Property Get LogID() As Long
    LogID = mlngLogID
End Property

Public Property Let LogID(ByVal lngLogID As Long)
    mlngLogID = lngLogID
End Property

'MainControl类拥有的消息集合
Public Property Get Messages() As Messages
    Set Messages = mcolMessages
End Property

'
' MDI主窗口菜单事件
'
Public Sub MDIEditUndo()
    RaiseEvent EditUndo
End Sub

Public Sub MDIEditCut()
    RaiseEvent EditCut
End Sub

Public Sub MDIEditCopy()
    RaiseEvent EditCopy
End Sub

Public Sub MDIEditPaste()
    RaiseEvent EditPaste
End Sub

Public Sub MDIEditInsLine()
    RaiseEvent EditInsLine
End Sub

Public Sub MDIEditDelLine()
    RaiseEvent EditDelLine
End Sub

Public Sub MDIEditEdit()
    RaiseEvent EditEdit
End Sub

Public Sub MDIEditNew()
    RaiseEvent EditNew
End Sub

Public Sub MDIEditDel()
    RaiseEvent EditDel
End Sub

Public Sub MDIEditInactive()
    RaiseEvent EditInactive
End Sub

Public Sub MDIEditShowAll()
    RaiseEvent EditShowAll
End Sub

Public Sub MDIEditShowList()
    RaiseEvent EditShowList
End Sub

Public Sub MDIEditUse()
    RaiseEvent EditUse
End Sub

Public Sub MDIEditNotepad()
    RaiseEvent EditNotepad
End Sub

Public Sub MDIReceiptList()
    RaiseEvent ReceiptList
End Sub

Public Sub MDIReceiptPosition()
    RaiseEvent ReceiptPosition
End Sub


Public Sub MDIEditFilter()
    RaiseEvent EditFilter
End Sub

Public Sub MDIEditSearch()
    RaiseEvent EditSearch
End Sub

Public Sub MDIEditColumn()
    RaiseEvent EditColumn
End Sub

Public Sub MDIFilePrint()
    RaiseEvent FilePrint
End Sub

Public Sub MDIFilePrintSetup()
    RaiseEvent FilePrintSetup
End Sub
Public Sub MDIFilePrintReceipt()
    RaiseEvent FilePrintReceipt
End Sub

Public Sub MDIReportQuick()
    RaiseEvent ReportQuick
End Sub

Public Sub MDIToolRefresh()
    RaiseEvent ToolRefresh
End Sub

Public Sub MDIChildActive()
    RaiseEvent ChildActive
End Sub

Public Sub ListEditMenu(ByVal intIndex As Integer)
    RaiseEvent ListEditMenu(intIndex)
End Sub

Public Sub ListActivityMenu(ByVal intIndex As Integer)
    RaiseEvent ListActivityMenu(intIndex)
End Sub

Public Sub ListReportMenu(ByVal intIndex As Integer)
    RaiseEvent ListReportMenu(intIndex)
End Sub