iform.cls

来自「人事档案管理系统(PB)/人事工资管理系统/干部信息管理系统/投标报价与合同管理」· CLS 代码 · 共 96 行

VERSION 1.0 CLASS
Begin
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
End
Attribute VB_Name = "iForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Enum ToolBarItems
    tbSave = 2
    tbDel = 4          
    tbAddNew = 8
    tbCancel = 16
    tbFind = 32
    tbRefresh = 64
    tbCloseMe = 128
    tbShowFormView = 256
    'tbQuit = 512
    tbOpen = 1024
    tbHelp = 2048
    tbPrint = 4096
    tbDeleteRow = 8192
    tbMainMenu = 16384
End Enum

Public Property Get FindSubTools() As cFindSubTools
    
End Property

Public Sub MainMenu()
    
End Sub

Public Sub DeleteRow()
    
End Sub
Public Function OpenDB() As Boolean
    
End Function

Public Sub HelpAbout()
    
End Sub

Public Function Save() As Boolean
    
End Function

Public Sub delete()

End Sub

Public Sub PrintOut()

End Sub

Public Sub AddNew()

End Sub

Public Sub Cancel()

End Sub

Public Sub Refresh()

End Sub

Public Sub Find(ByVal Key As String)

End Sub

Public Sub CloseMe()

End Sub

Public Sub ShowFormView()
    
End Sub

Public Property Get Attributes() As ToolBarItems

End Property

Public Property Get EnableAttributes() As ToolBarItems

End Property