clscadbill.cls

财务信息管理系统,适合做毕业论文的人使用

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsCadBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金计息8.0
'功能说明: 实现利息单显示与查询的类
'作者: 赵春立

Option Explicit

Implements clsAllInput

Private WithEvents mForm As frmCad
Attribute mForm.VB_VarHelpID = -1
Public Event Move(StepLine As Long)

Private bFindflag As Boolean
Private bUnionFindflag As Boolean

Private cFindString As String
Private cUnionKey As String
Private cTag As String

Private Sub Class_Initialize()
   Set mForm = New frmCad
   
End Sub

Private Sub Class_Terminate()
   Set mForm = Nothing
   
End Sub

Private Property Let clsAllInput_BillListType(ByVal RHS As Byte)
   
End Property

Private Property Get clsAllInput_BillListType() As Byte

End Property

Private Property Let clsAllInput_FindFlag(ByVal RHS As Boolean)
   bFindflag = RHS
   
End Property

Private Property Get clsAllInput_FindFlag() As Boolean
   clsAllInput.FindFlag = bFindflag
   
End Property

Private Property Let clsAllInput_FindString(ByVal RHS As String)
   cFindString = RHS
   
End Property

Private Property Get clsAllInput_FindString() As String
   clsAllInput.FindString = cFindString
   
End Property

Private Function clsAllInput_Show() As Boolean
   Dim i As Long
   
   For i = 0 To Forms.Count - 1
      If Forms(i).Tag = cTag Then
         BringWindowToTop Forms(i).hwnd
         Forms(i).WindowState = 0
         Exit Function
      End If
   Next i
   
   If bFindflag Then
      mForm.FindFlag = bFindflag
      mForm.sqlFind = cFindString
      If bUnionFindflag Then
         mForm.UnionFindflag = bUnionFindflag
         mForm.sqlUnionkey = cUnionKey
      End If
   End If
   Load mForm
   CenterForm mForm
   mForm.Show vbModal
   'mForm.Tag = cTag
   
End Function

Private Property Let clsAllInput_Tag(ByVal RHS As String)
   cTag = RHS
   
End Property

Private Property Get clsAllInput_Tag() As String
   clsAllInput.Tag = cTag
   
End Property

Private Property Get clsAllInput_UnionFindflag() As Boolean
   clsAllInput.UnionFindflag = bUnionFindflag
   
End Property

Private Property Let clsAllInput_UnionFindflag(ByVal RHS As Boolean)
   bUnionFindflag = RHS
   
End Property

Private Property Get clsAllInput_UnionFindkey() As String
   clsAllInput.UnionFindkey = cUnionKey
   
End Property

Private Property Let clsAllInput_UnionFindkey(ByVal RHS As String)
   cUnionKey = RHS
   
End Property

Private Function clsAllInput_Unload() As Boolean
   If mForm Is Nothing Then
   Else
      Unload mForm
   End If

End Function

Private Sub mForm_Move(StepRs As Long)
   RaiseEvent Move(StepRs)
   
End Sub