clslendret.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsLendRet"
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 frmReturnBj2
Attribute mForm.VB_VarHelpID = -1
Public Event Move(StepLine As Long)

Private iBillListType As Byte

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 frmReturnBj2
   
End Sub

Private Sub Class_Terminate()
   Set mForm = Nothing
   
End Sub

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

Private Property Get clsAllInput_BillListType() As Byte
   clsAllInput.BillListType = iBillListType
   
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
   
   mForm.iReturnType = IIf((iBillListType = 0), 1, iBillListType)
   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