clscad.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 = "clsCAD"
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"

'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金计息8.0
'功能说明: 结息日类模块
'作者: 魏小黎
Option Explicit
Private rsCad As New UfRecordset
Private rsCads As New UfRecordset

Private RsNull As Boolean
Private RssNull As Boolean

Public edstatus As Ed_Status

Dim curNode As Node
'局部变量保存属性值
Private mvarStAdd2 As Byte '本地复本
Dim StrOldDate As String '修改前的日期 'Cuidong

Public Sub load_data()

'Dim key As String
'Dim nodx As Node
'Dim bFirst As Boolean
'On Error Resume Next
'Screen.MousePointer = vbHourglass
'Set rsCad = dbsZJ.OpenRecordset("FD_CadSet", dbOpenDynaset)
'Set rsCads = dbsZJ.OpenRecordset("FD_CadSets", dbOpenDynaset)
'frmCadSet.tvwCad.Nodes.Clear
'
'    If rsCad.EOF Then
'      Set_rsnull_true
'    Else
'      Set_rsnull_false
'    End If
'
'    If RsNull Then
'      GenAdd2
'      Screen.MousePointer = vbDefault
'      Exit Sub
'    End If
'
'    If Not rsCad.EOF Then rsCad.MoveFirst
'
'    While Not rsCad.EOF
'
'      key = rsCad!cCadID
'      If rsCad!iType = 0 Then
'        Set nodx = frmCadSet.tvwCad.Nodes.Add(, , "o" + key, key, "tree", "seltree")
'      Else
'        Set nodx = frmCadSet.tvwCad.Nodes.Add(, , "o" + key, key, "tree", "seltree")
'      End If
'      nodx.Tag = key
'      nodx.Sorted = True
'      rsCad.MoveNext
'    Wend
'    rsCad.MoveFirst
'
'    bFirst = True
'    If Not rsCads.EOF Then rsCads.MoveFirst
'    While Not rsCads.EOF
'      key = rsCads!iID
'      Set nodx = frmCadSet.tvwCad.Nodes.Add("o" + CStr(rsCads!cCadID), tvwChild, "t" + key, Format(rsCads!dClosDate, "yyyy-mm-dd"), "leaf", "leafsel")
'      nodx.Tag = key
'      nodx.Sorted = True
'      If bFirst Then nodx.Selected = True: bFirst = False
'      rsCads.MoveNext
'    Wend
'    SetCurNode
'    GenMove
'    Screen.MousePointer = vbDefault

End Sub

Private Sub Set_rsnull_true()
'    RsNull = True
'    With frmCadSet.Toolbar1
'        .Buttons("del2").Enabled = False
'    End With
'    frmRightMenu.mnuC_Del2R.Enabled = False
End Sub

Private Sub Set_rsnull_false()
'    RsNull = False
'    With frmCadSet.Toolbar1
'        .Buttons("del2").Enabled = True
'    End With
'    frmRightMenu.mnuC_Del2R.Enabled = True
End Sub

Private Sub set_edstatus_false_1()
'frmCadSet.txt(1) = ""
'StrOldDate = frmCadSet.txt(1) 'Cuidong 2000/08/15
'edstatus = Child_Add
End Sub

Public Sub GenAdd2()
set_used_false
Beadd_2
set_edstatus_false_2
End Sub

Private Sub set_edstatus_false_2()
edstatus = Parent_Add
End Sub

Private Sub Beadd_2()

'  With frmCadSet
'    .txt(0).Enabled = True
'    .txt(0).BackColor = &H80000005
'    .txt(0).Text = ""
'    SetEdtTxtFocus .txt(0)
'    .txt(1).Text = ""
'    StrOldDate = frmCadSet.txt(1) 'Cuidong 2000/08/15
'    .txt(2).Text = ""
'    .txt(3).Text = ""
'    .txt(5).Text = ""
'    .Toolbar1.Buttons("del2").Enabled = False
'    .UsedFlag1.Visible = False
'  End With
'  frmRightMenu.mnuC_Del2R.Enabled = False
End Sub

Private Sub set_used_true()
'    Dim i
'    With frmCadSet
'        .txt(1).Locked = True
'        .txt(5).Locked = True
'        .UpDown1.Enabled = False
'        '.UpDown3.Enabled = False
'        .cmdCz.Enabled = False
'    End With
End Sub

Private Sub set_used_false()
'    Dim i
'    With frmCadSet
'
'        .txt(1).Locked = False
'        .txt(5).Locked = False
'        .UpDown1.Enabled = True
'        '.UpDown3.Enabled = True
'        .cmdCz.Enabled = True
'    End With
End Sub

Public Sub GenMove()
'On Error Resume Next
'With rsCad
'    .MoveFirst
'    If .EOF Then
'        Set_rsnull_true
'        GenAdd2
'        Exit Sub
'    Else
'        Set_rsnull_false
'    End If
'End With
'
'SetCurNode
'If Left(curNode.key, 1) = "o" Then
'
'   rsCad.FindFirst "cCadID = '" & curNode.Tag & "'"
'
'  If rsCad.NoMatch Then
'    load_data
'    Exit Sub
'  End If
'  frmCadSet.txt(0) = rsCad!cCadID
'  frmCadSet.txt(2) = rsCad!iDelay
'  frmCadSet.txt(3) = IIf(IsNull(rsCad!cMark), "", rsCad!cMark)
'  frmCadSet.txt(5) = rsCad!iMonth
'  frmCadSet.Toolbar1.Buttons("del2").Enabled = True
'  frmRightMenu.mnuC_Del2R.Enabled = True
'  set_edstatus_true_1
'Else
'   rsCads.FindFirst "iid = " & curNode.Tag
'  If rsCads.NoMatch Then
'    load_data
'    Exit Sub
'  End If
'  frmCadSet.txt(0) = rsCads!cCadID
'  frmCadSet.txt(1) = Format(rsCads!dClosDate, "yyyy-mm-dd")
'  StrOldDate = frmCadSet.txt(1) 'Cuidong 2000/08/15
'   rsCad.FindFirst "cCadID = '" & rsCads!cCadID & "'"
'
'  frmCadSet.txt(2) = rsCad!iDelay
'  frmCadSet.txt(3) = IIf(IsNull(rsCad!cMark), "", rsCad!cMark)
'  frmCadSet.txt(5) = rsCad!iMonth
'  frmCadSet.Toolbar1.Buttons("del2").Enabled = False
'  frmRightMenu.mnuC_Del2R.Enabled = False
'  set_edstatus_true_1
'End If
'frmCadSet.UsedFlag1.Visible = CadCodeUsed(frmCadSet.txt(0).Text)
'
'If frmCadSet.UsedFlag1.Visible Then 'Cuidong 2000/08/14
'   set_used_true
'Else                                'Cuidong 2000/08/14
'   set_used_false                   'Cuidong 2000/08/14
'End If                              'Cuidong 2000/08/14

End Sub

Private Sub SetCurNode()
'Set curNode = frmCadSet.tvwCad.SelectedItem
End Sub

Public Sub genadd1()
set_edstatus_false_1
End Sub

Private Function Valid() As Boolean

'  Valid = False
'
'  With frmCadSet
'    If .txt(0) = "" Then
'      MsgBox "结息日编码不能为空!", vbCritical, zjGl_Name
'      .txt(0).SetFocus
'      Exit Function
'    End If
'
'    .txt(1).Text = ForDate(.txt(1).Text)
'    If Not IsDate(.txt(1).Text) Then
'      MsgBox "结息日是非法日期!", vbCritical, zjGl_Name
'      SetTxtFocus .txt(1)
'      Exit Function
'    End If
'
'    If .txt(5) = "" Then
'      MsgBox "结息周期不能为空!", vbCritical, zjGl_Name
'      .txt(5).SetFocus
'      Exit Function
'    End If
'
'    If Val(.txt(5)) = 0 Then
'      MsgBox "结息周期不能为0!", vbCritical, zjGl_Name
'      SetTxtFocus .txt(5)
'      Exit Function
'    End If
'
'    Select Case edstatus
'      Case Parent_Add
'        Dim jxrst As New UfRecordset
'        Set jxrst = dbsZJ.OpenRecordset("select * from FD_CadSet where cCadID='" & .txt(0).Text & "'", dbOpenSnapshot)
'        If Not jxrst.EOF Then
'            jxrst.oClose