͸

VB财务软件系统下载源代码提供自由下载使用学习

            Caption         =   "内部拆借"
         End
      End
      Begin VB.Menu m9 
         Caption         =   "-"
      End
      Begin VB.Menu external 
         Caption         =   "对外结算单(&J)"
      End
      Begin VB.Menu inside_settle1 
         Caption         =   "内部结算单(&K)"
      End
      Begin VB.Menu m10 
         Caption         =   "-"
      End
      Begin VB.Menu mnulxd 
         Caption         =   "利息单(&L)"
      End
      Begin VB.Menu advice1 
         Caption         =   "催款通知单(&M)"
      End
   End
   Begin VB.Menu demand0 
      Caption         =   "查询(&D)"
      Visible         =   0   'False
      Begin VB.Menu passbook2 
         Caption         =   "银行存款单(&A)"
      End
      Begin VB.Menu take2 
         Caption         =   "银行取款单(&B)"
      End
      Begin VB.Menu inside_deposit2 
         Caption         =   "内部存款单(&C)"
      End
      Begin VB.Menu intake2 
         Caption         =   "内部取款单(&D)"
      End
      Begin VB.Menu m12 
         Caption         =   "-"
      End
      Begin VB.Menu bankloan2 
         Caption         =   "银行贷款单(&E)"
      End
      Begin VB.Menu inloan2 
         Caption         =   "内部贷款单(&F)"
      End
      Begin VB.Menu inlend2 
         Caption         =   "内部拆借单(&G)"
      End
      Begin VB.Menu mn13 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCapital1 
         Caption         =   "本金还款单(&H)"
         Begin VB.Menu bankloanc 
            Caption         =   "银行贷款"
         End
         Begin VB.Menu inloanc 
            Caption         =   "内部贷款"
         End
         Begin VB.Menu inlendc 
            Caption         =   "内部拆借"
         End
      End
      Begin VB.Menu interste 
         Caption         =   "利息还款单(&I)"
         Begin VB.Menu bankloani 
            Caption         =   "银行贷款"
         End
         Begin VB.Menu inloani 
            Caption         =   "内部贷款"
         End
         Begin VB.Menu inlendi 
            Caption         =   "内部拆借"
         End
      End
      Begin VB.Menu m14 
         Caption         =   "-"
      End
      Begin VB.Menu inside_settle2 
         Caption         =   "对外结算单(&J)"
      End
      Begin VB.Menu external2 
         Caption         =   "内部结算单(&K)"
      End
      Begin VB.Menu m15 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInterestdoc 
         Caption         =   "利息单(&L)"
      End
      Begin VB.Menu mnuInterestadv 
         Caption         =   "利息通知单(&M)"
      End
      Begin VB.Menu advice2 
         Caption         =   "催款通知单(&N)"
      End
      Begin VB.Menu m16 
         Caption         =   "-"
      End
      Begin VB.Menu in_bill2 
         Caption         =   "内部对账单(&O)"
      End
      Begin VB.Menu mnu22 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCfind 
         Caption         =   "凭证查询(&P)"
      End
   End
   Begin VB.Menu mnuPrn 
      Caption         =   "打印(&P)"
      Visible         =   0   'False
      Begin VB.Menu mnuDocuPrn 
         Caption         =   "单据打印(&P)"
      End
   End
   Begin VB.Menu account 
      Caption         =   "账表(&A)"
      Visible         =   0   'False
      Begin VB.Menu mnuAccdefine 
         Caption         =   "账表定义(&F)..."
      End
      Begin VB.Menu mnu18 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFund 
         Caption         =   "资金状况表"
      End
      Begin VB.Menu mnuPassbook 
         Caption         =   "各银行存款余额动态表"
      End
      Begin VB.Menu mnuClientlist 
         Caption         =   "客户资金余额明细表"
      End
      Begin VB.Menu mnuClientgather 
         Caption         =   "客户资金动态汇总表"
      End
      Begin VB.Menu mnuAdaily 
         Caption         =   "账户余额日报表"
      End
      Begin VB.Menu mnuAlarm 
         Caption         =   "报警单"
      End
      Begin VB.Menu mnu17 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDays 
         Caption         =   "序时账"
      End
      Begin VB.Menu mnuBillBook 
         Caption         =   "日记表"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuInterestLoan 
         Caption         =   "贷款账"
      End
      Begin VB.Menu mnu19 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInterestlist 
         Caption         =   "账户利息明细表"
      End
      Begin VB.Menu mnuIterestgather 
         Caption         =   "账户利息汇总表"
      End
      Begin VB.Menu mnuInterSum 
         Caption         =   "单位利息汇总表"
      End
      Begin VB.Menu mnuALoan 
         Caption         =   "贷款利息表"
      End
   End
   Begin VB.Menu manage 
      Caption         =   "处理(&R)"
      Visible         =   0   'False
      Begin VB.Menu mnuDaybook 
         Caption         =   "日记账(&C)"
      End
      Begin VB.Menu mnuIccalculate 
         Caption         =   "利息计算(&D)"
      End
      Begin VB.Menu mnuVoucher 
         Caption         =   "凭证批处理(&V)"
      End
      Begin VB.Menu mnuAutoReturn 
         Caption         =   "自动还款(&A)"
      End
      Begin VB.Menu mmuLine21 
         Caption         =   "-"
      End
      Begin VB.Menu mnuUnbook 
         Caption         =   "反记账(&U)"
      End
      Begin VB.Menu mnuTuningJs 
         Caption         =   "调整积数(&T)"
      End
   End
   Begin VB.Menu tools 
      Caption         =   "工具(&T)"
      Begin VB.Menu blotter 
         Caption         =   "记事簿(&B)"
         Shortcut        =   {F11}
      End
      Begin VB.Menu counter 
         Caption         =   "计算器(&C)"
         Shortcut        =   {F9}
      End
      Begin VB.Menu mnuAcalendar 
         Caption         =   "会计日历(&K)"
         Shortcut        =   {F7}
      End
   End
   Begin VB.Menu windows 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuLever 
         Caption         =   "水平平铺(&H)"
      End
      Begin VB.Menu mnuApeak 
         Caption         =   "垂直平铺(&V)"
      End
      Begin VB.Menu mnuOverlap 
         Caption         =   "重叠(&C)"
      End
      Begin VB.Menu mnuArray 
         Caption         =   "排列图表(&A)"
      End
      Begin VB.Menu mnu33 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCmdWindow 
         Caption         =   "显示命令窗"
         Shortcut        =   {F12}
      End
      Begin VB.Menu mnuSwitchTb 
         Caption         =   "显示文本按钮"
      End
      Begin VB.Menu mnu_desktop 
         Caption         =   "显示桌面"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuMotif 
         Caption         =   "用友资金管理帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnu20 
         Caption         =   "-"
      End
      Begin VB.Menu mnuWeb 
         Caption         =   "网上用友(&W)"
      End
      Begin VB.Menu mnu21 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关于用友资金管理(&A)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 资金管理主界面
'作者: 魏小黎

Option Explicit


Public Sub advice1_Click()
    If zjGen_arr.FD050227 = False Then
        If Not zjLogInfo.TaskExec("FD050227", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050227 = True
        zjLogInfo.ClearError
    End If
    frmcuiklr.Show 1
End Sub

Public Sub advice2_Click()
    If zjGen_arr.FD050427 = False Then
        If Not zjLogInfo.TaskExec("FD050427", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050427 = True
        zjLogInfo.ClearError
    End If
    frmccutj.Quitfs = True
    frmccutj.Show 1
End Sub

Public Sub bankloan1_Click()
    If zjLogInfo.TaskExec("FD020501", -1, zjLogInfo.cIYear) Then
        Dim frmCredOut As clsCred, aTemp As clsAllInput
        Set frmCredOut = New clsCred
        oV.voucherType = 银行贷款单
        Set aTemp = frmCredOut
        aTemp.BillListType = 1
        aTemp.Tag = "CredOut"
        aTemp.Show
        zjLogInfo.TaskExec "FD020501", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub bankloan11_Click()
    If zjLogInfo.TaskExec("FD020601", -1, zjLogInfo.cIYear) Then
        Dim frmCredOutRet As clsCredRet, aTemp As clsAllInput
        oV.voucherType = 本金还款单_银行贷款
        
        Set frmCredOutRet = New clsCredRet
        Set aTemp = frmCredOutRet
        aTemp.BillListType = 1
        aTemp.Tag = "CredOutRet"
        aTemp.Show
        zjLogInfo.TaskExec "FD020601", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub bankloan12_Click()
    If zjLogInfo.TaskExec("FD020701", -1, zjLogInfo.cIYear) Then
        Dim frmCredOutRetCad As clsCredRet, aTemp As clsAllInput
         oV.voucherType = 利息还款单_银行贷款
         
        Set frmCredOutRetCad = New clsCredRet
        Set aTemp = frmCredOutRetCad
        aTemp.BillListType = 3
        aTemp.Tag = "CredOutRetCad"
        aTemp.Show
        zjLogInfo.TaskExec "FD020701", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub bankloan2_Click()
    If zjGen_arr.FD020502 = False Then
        If Not zjLogInfo.TaskExec("FD020502", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD020502 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 银行贷款单
    frmFind.Quitfs = True
    frmFind.iFindtype = 0
    frmFind.Show vbModal
End Sub

Public Sub bankloanc_Click()
    If zjGen_arr.FD050218 = False Then
        If Not zjLogInfo.TaskExec("FD050218", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub