clsaccdef.cls

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

'            frmAccDef.txt(4).SetFocus                    'Cuidong 2000/08/16
'            Exit Sub                                     'Cuidong 2000/08/16
'        End If                                           'Cuidong 2000/08/16
'      End If                                             'Cuidong 2000/08/16
'
'      'cuidong YT.A 2001.10.20
'      '-------------------------------------------
'      '检查预提日（结息日）在刚才是否被删除
'      If frmAccDef.txt(9).Enabled Then
'        If Not CadCodeExist(frmAccDef.txt(9).Text) Then
'            MsgBox "预提日（结息日）代码不存在！", vbCritical, zjGl_Name
'            frmAccDef.txt(9).SetFocus
'            Exit Sub
'        End If
'      End If
'      '-------------------------------------------
'
'      ts = False
'  End If
'  Err = 0                                                'cuidong 2001.01.12
'  rsAcc.AddNew
'  rsAcc!cAccID = frmAccDef.txt(1)
'  rsAcc!CAccName = frmAccDef.txt(2)
'  rsAcc!cAccBank = IIf(frmAccDef.txt(8) = "", Null, frmAccDef.txt(8))
'  rsAcc!cUnitCode = frmAccDef.txt(0).Tag
'  rsAcc!cIntrID = frmAccDef.txt(3)
'  If frmAccDef.txt(4) <> "" Then
'    rsAcc!cCadID = frmAccDef.txt(4)
'  End If
'  rsAcc!Mb = IIf(frmAccDef.txt(5).Text = "", 0, frmAccDef.txt(5).Text)
'  rsAcc!Mh = IIf(frmAccDef.txt(6).Text = "", 0, frmAccDef.txt(6).Text)
'  rsAcc!iDataSrc = frmAccDef.cobSrc.ListIndex
'  rsAcc!iio = IIf(frmAccDef.optIE(0).Value, 0, 1)
'  rsAcc!iType = IIf(frmAccDef.optPC(0).Value, 0, 1)
'  rsAcc!cexch_name = frmAccDef.Combo1.Text
'  rsAcc!istate = IIf(frmAccDef.Flag2.Visible, 1, 0)
'  rsAcc!bDestroy = frmAccDef.UfKill.Visible
'  rsAcc!dOpenDate = dOpen
'  Put_iYt rsAcc   'cuidong YT.A 2001.10.20
'  Put_cYtID rsAcc 'cuidong YT.A 2001.10.20
'  rsAcc.Update
'  If Err.Number = 3022 Then GoTo saver1
'  If Err.Number = -2147220991 Then '帐户号冲突（并发）                            'cuidong 2001.01.12
'     MsgBox "其它用户正在增加相同的账户号，请重新输入。", vbCritical, zjGl_Name   'cuidong 2001.01.12
'     frmAccDef.txt(1).SetFocus                                                    'cuidong 2001.01.12
'     Exit Sub                                                                     'cuidong 2001.01.12
'  End If                                                                          'cuidong 2001.01.12
'
'  If TreeNodeGrade(cur_node.FullPath) = 1 Then
'    Set nodx = frmAccDef.tvAccDef.Nodes.Add("u" + cur_node.Tag, tvwChild, "i" + frmAccDef.txt(1), frmAccDef.txt(1) + Space(1) + frmAccDef.txt(2), "leaf", "leafsel")
'  ElseIf TreeNodeGrade(cur_node.FullPath) = 2 Then
'    Set nodx = frmAccDef.tvAccDef.Nodes.Add("u" + cur_node.Parent.Tag, tvwChild, "i" + frmAccDef.txt(1), frmAccDef.txt(1) + Space(1) + frmAccDef.txt(2), "leaf", "leafsel")
'  End If
'
'  nodx.Tag = frmAccDef.txt(1)
'  nodx.Selected = True
'
'  set_cur_node
'  GenMove
'ElseIf edstatus = Child_Edit Then
'sdel:  If Err.Number = 3167 Then
'       On Error Resume Next      'Cuidong 2000/07/19
'       If Pd_lldmer(frmAccDef.txt(3).Text, Format(CDate(frmAccDef.txt(7)), "yyyy-mm-dd"), True) Then 'Cuidong 2000/07/19
'          Exit Sub               'Cuidong 2000/07/19
'       End If                    'Cuidong 2000/07/19
''       On Error GoTo 0           'Cuidong 2000/07/19
'       rsAcc.AddNew
'       rsAcc!dOpenDate = frmAccDef.txt(7)
'  Else
'       On Error Resume Next      'Cuidong 2000/07/19
'       If Pd_lldmer(frmAccDef.txt(3).Text, Format(rsAcc!dOpenDate, "yyyy-mm-dd"), True) Then 'Cuidong 2000/07/19
'          Exit Sub               'Cuidong 2000/07/19
'       End If                    'Cuidong 2000/07/19
''       On Error GoTo 0           'Cuidong 2000/07/19
'       rsAcc.Edit
'       If Err.Number = 3167 Then GoTo sdel
'  End If
'  rsAcc!cAccID = frmAccDef.txt(1)
'  rsAcc!CAccName = frmAccDef.txt(2)
'  rsAcc!cAccBank = IIf(frmAccDef.txt(8) = "", Null, frmAccDef.txt(8))
'  rsAcc!cUnitCode = frmAccDef.txt(0).Tag
'  rsAcc!cIntrID = frmAccDef.txt(3)
'  rsAcc!cCadID = IIf(frmAccDef.txt(4) = "", Null, frmAccDef.txt(4))
'  rsAcc!Mb = IIf(frmAccDef.txt(5).Text = "", 0, frmAccDef.txt(5).Text)
'  rsAcc!Mh = IIf(frmAccDef.txt(6).Text = "", 0, frmAccDef.txt(6).Text)
'  rsAcc!iDataSrc = frmAccDef.cobSrc.ListIndex
'  rsAcc!iio = IIf(frmAccDef.optIE(0).Value, 0, 1)
'  rsAcc!iType = IIf(frmAccDef.optPC(0).Value, 0, 1)
'  rsAcc!cexch_name = frmAccDef.Combo1.Text
'  rsAcc!istate = IIf(frmAccDef.Flag2.Visible, 1, 0)
'  rsAcc!bDestroy = frmAccDef.UfKill.Visible
'  Put_iYt rsAcc   'cuidong YT.A 2001.10.20
'  Put_cYtID rsAcc 'cuidong YT.A 2001.10.20
'  rsAcc.Update
'  If Err.Number = 3022 Then GoTo saver1
'
'  cur_node.key = "i" + frmAccDef.txt(1)
'  cur_node.Text = frmAccDef.txt(1) + Space(1) + frmAccDef.txt(2)
'  cur_node.Tag = frmAccDef.txt(1)
'
'  set_cur_node
'  GenMove
'End If
'
'frmAccDef.tvAccDef.SetFocus

End Sub

'cuidong YT.A 2001.10.20
Private Sub Put_iYt(oRs As Object)
'    On Error GoTo Err_Put_iYt
'    oRs!iYt = IIf(frmAccDef.Chk_LxYt.Value = 0, 0, 1)
'
'Err_Put_iYt:
End Sub

'cuidong YT.A 2001.10.20
Private Sub Put_cYtID(oRs As Object)
'    On Error GoTo Err_Put_cYtID
'    oRs!cYtID = IIf(frmAccDef.txt(9).Text = vbNullString, Null, frmAccDef.txt(9).Text)
'
'Err_Put_cYtID:
End Sub

Private Function Valid() As Boolean

'  Valid = False
'
'  If frmAccDef.txt(1) = "" Then
'    MsgBox "账户号不能为空!", vbCritical, zjGl_Name
'    frmAccDef.txt(1).SetFocus
'    Exit Function
'  End If
'
'  If frmAccDef.txt(2) = "" Then
'    MsgBox "账户名称不能为空!", vbCritical, zjGl_Name
'    frmAccDef.txt(2).SetFocus
'    Exit Function
'  End If
'
'  If frmAccDef.txt(3) = "" Then
'    MsgBox "利率代码不能为空!", vbCritical, zjGl_Name
'    frmAccDef.txt(3).SetFocus
'    Exit Function
'  End If
'
'  If frmAccDef.txt(4).Enabled And frmAccDef.txt(4) = "" Then
'    MsgBox "结息日不能为空!", vbCritical, zjGl_Name
'    frmAccDef.txt(4).SetFocus
'    Exit Function
'  End If
'
'  'cuidong YT.A 2001.10.20
'  '--------------------------------
'  If frmAccDef.txt(9).Enabled And frmAccDef.txt(9) = "" Then
'    MsgBox "预提日（结息日）不能为空!", vbCritical, zjGl_Name
'    frmAccDef.txt(9).SetFocus
'    Exit Function
'  End If
'  '--------------------------------
'
'  If frmAccDef.cobSrc.ListIndex = 0 And frmAccDef.txt(5).Enabled Then
'     If frmAccDef.txt(5) = "" Then
'         MsgBox "期初余额不能为空!", vbCritical, zjGl_Name
'         frmAccDef.txt(5).SetFocus
'         Exit Function
'     ElseIf Not IsNumeric(frmAccDef.txt(5)) Then
'         MsgBox "期初余额输入有误!", vbCritical, zjGl_Name
'         SetTxtFocus frmAccDef.txt(5)
'         Exit Function
'     End If
'  End If
'
'  If frmAccDef.txt(6).Enabled Then
'      If frmAccDef.txt(6) = "" Then
'         MsgBox "期初积数不能为空!", vbCritical, zjGl_Name
'         frmAccDef.txt(6).SetFocus
'         Exit Function
'      ElseIf Not IsNumeric(frmAccDef.txt(6)) Then
'         MsgBox "期初积数输入有误!", vbCritical, zjGl_Name
'         SetTxtFocus frmAccDef.txt(6)
'         Exit Function
'      End If
'  End If
'
'  If Not IntrCodeExist(frmAccDef.txt(3).Text) Then
'    MsgBox "利率代码不存在！", vbCritical, zjGl_Name
'    frmAccDef.txt(3).SetFocus
'    Exit Function
'  End If
'
'  If frmAccDef.txt(4).Enabled Then
'    If Not CadCodeExist(frmAccDef.txt(4).Text) Then
'        MsgBox "结息日代码不存在！", vbCritical, zjGl_Name
'        frmAccDef.txt(4).SetFocus
'        Exit Function
'    End If
'  End If
'
'  If AccCodeCrash Then
'    MsgBox "账户编码设置冲突！", vbCritical, zjGl_Name
'    frmAccDef.txt(1).SetFocus
'    Exit Function
'  End If
'
'  Valid = True
  
End Function

Private Function AccCodeCrash() As Boolean
'    AccCodeCrash = False
'    Dim dwrst As New UfRecordset
'    With frmAccDef
'        If edstatus = Child_Add Then
'            Set dwrst = dbsZJ.OpenRecordset("select * from FD_AccDef where cAccID='" & .txt(1) & "'", dbOpenSnapshot)
'            If Not dwrst.EOF Then
'                AccCodeCrash = True
'            End If
'            dwrst.oClose
'        ElseIf edstatus = Child_Edit Then
'            If .txt(1) <> Left(cur_node.Text, InStr(1, cur_node.Text, " ") - 1) Then
'                Set dwrst = dbsZJ.OpenRecordset("select * from FD_AccDef where cAccID='" & .txt(1) & "'", dbOpenSnapshot)
'                If Not dwrst.EOF Then
'                    AccCodeCrash = True
'                End If
'                dwrst.oClose
'            End If
'        End If
'    End With
End Function

Public Sub GenExit()

Unload frmAccDef

End Sub

Public Sub GenFind()
    frmAccFind.Show 1
End Sub

Public Sub GenDel()
'On Error Resume Next
'If frmAccDef.Flag1.Visible Then
'    MsgBox "账户已被使用，不能删除!", vbCritical, zjGl_Name
'    Exit Sub
'End If
'
'If MsgBox("请确认是否删除此账户?", vbQuestion + vbOKCancel, zjGl_Name) = vbCancel Then Exit Sub
'
'rsAcc.Delete
'frmAccDef.tvAccDef.Nodes.Remove cur_node.Index
'
'If rsAcc.EOF Then
'  Set_rsnull_true
'Else
'  Set_rsnull_false
'End If
'
'If RsNull Then
'  set_edstatus_false
'Else
'  GenMove
'End If

End Sub

Private Sub Set_rsnull_true()
'    With frmAccDef.tlb_dwdy
'        .Buttons("add").Enabled = False
'        .Buttons("del").Enabled = False
'        .Buttons("find").Enabled = False
'        .Buttons("fre").Enabled = False
'        .Buttons("kill").Enabled = False
'        frmAccDef.cmdOk.Enabled = False
'    End With
'    With frmRightMenu
'        .mnuA_AddR.Enabled = False
'        .mnuA_DelR.Enabled = False
'        .mnuA_FreezeR.Enabled = False
'        .mnuA_DestoryR.Enabled = False
'        .mnuA_FindR.Enabled = False
'    End With
'    RsNull = True
End Sub

Private Sub Set_rsnull_false()
'    With frmAccDef.tlb_dwdy
'        .Buttons("add").Enabled = True
'        .Buttons("del").Enabled = True
'        .Buttons("find").Enabled = True
'        .Buttons("fre").Enabled = True
'        frmAccDef.cmdOk.Enabled = True
'    End With
'    With frmRightMenu
'        .mnuA_AddR.Enabled = True
'        .mnuA_DelR.Enabled = True
'        .mnuA_FreezeR.Enabled = True
'        .mnuA_DestoryR.Enabled = True
'    End With
'    RsNull = False
End Sub

Public Sub GenKill()
    
'    With frmAccDef
'        .cmdOk.Enabled = True
'        .UfKill.Visible = True
'    End With
    
End Sub

Public Sub GenFre()

'    With frmAccDef
'        .cmdOk.Enabled = True
'        .Flag2.Visible = Not .Flag2.Visible
'    End With
    
End Sub

Private Sub setAccType(isrc As Acc_Src, iio As Acc_IO, ipc As Acc_PC)
  
'Dim i
'
'  With frmAccDef
'    .cobSrc.ListIndex = isrc
'
'    For i = 0 To 1
'
'      .optPC(i).Enabled = True
'    Next i
'
'    If isrc = zj Then
'      If iio = InSide Then
'        .optIE(0).Value = True
'      Else
'        .optIE(1).Value = True
'      End If
'
'      If ipc = current Then
'        .optPC(1).Value = True
'      Else
'        .optPC(0).Value = True
'      End If
'    Else
'      For i = 0 To 1
'        .optPC(i).Enabled = False
'      Next i
'    End If
'  End With
  
End Sub

Public Sub GenFindNext()

'Dim nodx As Node
'
'  If Not FindNode(frmAccDef.tvAccDef, False, EntCodeToName(rsFind!cUnitCode), rsFind!cAccID & " " & rsFind!CAccName) Then
'    MsgBox "未找到符合条件的账户!", vbInformation, zjGl_Name
'    Exit Sub
'  End If
'
'  set_cur_node
'  GenMove
  
End Sub

Private Sub set_used_true(fsk As Boolean)
'    If frmAccDef.txt(0) = "" Then Exit Sub
'    Dim dqbz As Boolean
'    With frmAccDef
'        .txt(1).Locked = fsk
'
'        '---账户名称可以修改
'        '.txt(2).Locked = fsk
'
'        .txt(3).Locked = fsk
'
'        .Combo1.Locked = fsk
'        .cobSrc.Locked = fsk
'        .cobSrc.Enabled = Not .cobSrc.Locked 'Cuidong 2000/05/13
'
'        If .cobSrc.List(0) = .cobSrc.Text Then
'            .optPC(0).Enabled = Not fsk
'            .optPC(1).Enabled = Not fsk
'             dqbz = .optPC(0).Value Or fsk
'            .txt(4).Locked = dqbz
'            .RefCmd2.Enabled = Not dqbz
'        Else
'            .txt(4).Locked = fsk
'            .RefCmd2.Enabled = Not fsk
'        End If
'        .Chk_LxYt.Enabled = .optPC(0).Enabled
'        .txt(9).Locked = Not .optPC(0).Enabled 'cuidong YT.A 2001.10.20
'        .RefCmd3.Enabled = .optPC(0).Enabled   'cuidong YT.A 2001.10.20
'
'        .RefCmd1.Enabled = Not fsk
'    End With
    
End Sub