frmmain.frm

金算盘软件代码

         Caption         =   "固定资产(&X)"
      End
      Begin VB.Menu mnuAccountDepreciation 
         Caption         =   "计提折旧(&D)"
      End
      Begin VB.Menu mnuAccountFixedAssetVoucher 
         Caption         =   "固资凭证(&O)"
      End
      Begin VB.Menu mnuAccountTaskBar5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountTemplate 
         Caption         =   "通用转帐(&M)"
      End
      Begin VB.Menu mnuAccountCalcExchange 
         Caption         =   "期末调汇(&C)"
      End
      Begin VB.Menu mnuAccountProfitLoss 
         Caption         =   "损益结转(&T)"
      End
      Begin VB.Menu mnuAccountTaskBar6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountFinish 
         Caption         =   "期末结帐(&F)"
      End
   End
   Begin VB.Menu mnuReport 
      Caption         =   "帐表(&R)"
      Begin VB.Menu mnuReportAccount 
         Caption         =   "总分类帐(&A)"
      End
      Begin VB.Menu mnuReportAR 
         Caption         =   "应收帐款(&R)"
      End
      Begin VB.Menu mnuReportAP 
         Caption         =   "应付帐款(&P)"
      End
      Begin VB.Menu mnuReportCasher 
         Caption         =   "现金银行(&C)"
      End
      Begin VB.Menu mnuReportBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReportPurchase 
         Caption         =   "商品采购(&E)"
      End
      Begin VB.Menu mnuReportSale 
         Caption         =   "商品销售(&S)"
      End
      Begin VB.Menu mnuReportItem 
         Caption         =   "库存商品(&I)"
      End
      Begin VB.Menu mnuReportJob 
         Caption         =   "工程项目(&J)"
      End
      Begin VB.Menu mnuReportBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReportQuick 
         Caption         =   "快捷报表(&Q)"
         Enabled         =   0   'False
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuTool 
      Caption         =   "工具(&T)"
      Begin VB.Menu mnuToolRight 
         Caption         =   "财务分工(&P)"
      End
      Begin VB.Menu mnuToolLog 
         Caption         =   "操作日志(&L)"
      End
      Begin VB.Menu mnuToolBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToolCalc 
         Caption         =   "计算器(&C)"
      End
      Begin VB.Menu mnuToolNote 
         Caption         =   "备忘录(&M)"
      End
      Begin VB.Menu mnuToolAlert 
         Caption         =   "报警器(&A)"
      End
      Begin VB.Menu mnuToolBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToolReceipt 
         Caption         =   "单据格式(&Y)"
      End
      Begin VB.Menu mnuToolBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToolRefresh 
         Caption         =   "刷新(&R)"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWindowTileHorizontal 
         Caption         =   "水平平铺(&H)"
      End
      Begin VB.Menu mnuWindowTileVertical 
         Caption         =   "垂直平铺(&V)"
      End
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu mnuWindowArrangeIcons 
         Caption         =   "排列图标(&A)"
      End
      Begin VB.Menu mnuWindowCloseAll 
         Caption         =   "全部关闭(&L)"
      End
      Begin VB.Menu mnuWindowBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuWindowDiagram 
         Caption         =   "流程图(&D)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuWindowStatusBar 
         Caption         =   "状态栏(&B)"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuHelpContent 
         Caption         =   "目录(&C)"
      End
      Begin VB.Menu mnuHelpSearch 
         Caption         =   "搜索帮助主题(&S)..."
      End
      Begin VB.Menu mnuHelpHowToUse 
         Caption         =   "怎样使用帮助(&U)"
      End
      Begin VB.Menu mnuHelpInsideTip 
         Caption         =   "日积月累(&T)..."
      End
      Begin VB.Menu mnuHelpSupport 
         Caption         =   "技术支持(&O)..."
      End
      Begin VB.Menu mnuHelpBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "关于(&A)..."
      End
   End
   Begin VB.Menu mnuListEdit 
      Caption         =   "列表编辑"
      Visible         =   0   'False
      Begin VB.Menu mnuListEditMenu 
         Caption         =   "列表编辑菜单"
         Index           =   0
      End
   End
   Begin VB.Menu mnuListActivity 
      Caption         =   "列表业务  "
      Visible         =   0   'False
      Begin VB.Menu mnuListActivityMenu 
         Caption         =   "列表业务操作"
         Index           =   0
      End
   End
   Begin VB.Menu mnuListReport 
      Caption         =   "列表报表"
      Visible         =   0   'False
      Begin VB.Menu mnuListReportMenu 
         Caption         =   "列表报表菜单"
         Index           =   0
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  MDI主窗体
'  作者：黄涛
'  日期：1998.02.21
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit
    
Private Sub MDIForm_Load()
    '从系统注册表中加载最近打开文件
    Utility.LoadMRU
    
    '从系统注册表中加载窗体位置、大小
    Utility.LoadFormSetting Me
    
    If frmMain.mnuFileMRU(0).Visible Then
        mnuFileMRU_Click (0)
    Else
        UpdateMenuStatus
    End If
    UpdateStatus
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        '把窗体位置、大小存储到系统注册表
        Utility.SaveFormSetting Me
    End If
    Set gclsEniv = Nothing
    Set gclsSys = Nothing
    Set gclsBase = Nothing
End Sub
'固定资产
Private Sub mnuAccountFixedAsset_Click()

End Sub

Private Sub mnuAccountSalary_Click()
    frmSalaryList.Show
End Sub

Private Sub mnuEdit_Click()
    SetEditEnabled
End Sub

'
'以下是对文件菜单的处理......
'
    
'新建帐套
Private Sub mnuFileNew_Click()
    frmNewAccount.Show vbModal
End Sub

'打开帐套
Private Sub mnuFileOpen_Click()
   gclsBase.OpenBase
   UpdateMenuStatus
End Sub
    
'关闭帐套
Private Sub mnuFileClose_Click()
   Dim i As Integer
   
   If MsgBox("确信关闭当前帐套？", vbOKCancel) = vbOK Then
      'Close MDI Windows
      For i = 1 To gclsSys.MainControls.Count
         Unload gclsSys.MainControls(1).Form
      Next
      
      '关闭帐套数据
      gclsBase.CloseDatabase
   
      '更新菜单
      UpdateMenuStatus
   End If
End Sub

'设置帐套属性
Private Sub mnuFileProperty_Click()
   frmOptions.Show vbModal
End Sub

'以下部分是文件菜单的数据部分...

'数据备份
Private Sub mnuFileBackup_Click()

End Sub

'数据恢复
Private Sub mnuFileRestore_Click()

End Sub

'数据引入
Private Sub mnuFileImport_Click()

End Sub
    
'数据引出
Private Sub mnuFileExport_Click()

End Sub

'帐套整理
Private Sub mnuFilePack_Click()

End Sub

'帐套结转
Private Sub mnuFileCondense_Click()

End Sub

'以下是打印部份......

'打印设置
Private Sub mnuFilePrintSetup_Click()
    If Not frmMain.ActiveForm Is Nothing Then
       gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIFilePrintSetup
    End If
End Sub

'打印...
Private Sub mnuFilePrint_Click()
    If Not frmMain.ActiveForm Is Nothing Then
        gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIFilePrint
    End If
End Sub

'打印单据
Private Sub mnuFilePrintReceipt_Click()

End Sub

'系统注册
Private Sub mnuFileLogin_Click()
    frmLogin.Show vbModal
End Sub

'保存最近使用的帐套...(4个,index:从 0 到 3 )
Private Sub mnuFileMRU_Click(intIndex As Integer)
    '打开帐套数据
    gclsBase.OpenDatabase Mid(frmMain.mnuFileMRU(intIndex).Caption, 4)
    
    '更新菜单
    UpdateMenuStatus
End Sub

'退出
Private Sub mnuFileExit_Click()
    '卸载窗体
    Unload Me
End Sub


'
'以下是编辑菜单列内容...
'

Private Sub mnuEditCut_click()
    SendKeys "^X"
End Sub

Private Sub mnuEditCopy_click()
    SendKeys "^C"
End Sub

Private Sub mnuEditPaste_click()
    SendKeys "^V"
End Sub


'插入行
Private Sub mnuEditInsLine_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditInsLine
End Sub

'删除行
Private Sub mnuEditDelLine_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditDelLine
End Sub

'编辑
Private Sub mnuEditEdit_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditEdit
End Sub

'新增
Private Sub mnuEditNew_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditNew
End Sub

'删除
Private Sub mnuEditDel_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditDel
End Sub

'封存
Private Sub mnuEditInActive_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditInactive
End Sub

'全部显示
Private Sub mnuEditShowAll_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditShowAll
End Sub

'关联编码
Private Sub mnuEditShowList_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditShowList
End Sub

'引用
Private Sub mnuEditUse_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditUse
End Sub

'记事薄
Private Sub mnuEditNotepad_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditNotepad
End Sub

'筛选
Private Sub mnuEditFilter_Click()
    MsgBox (TreeFilter.ShowFilter(73, 2))
    'gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditFilter
End Sub

'栏目设置
Private Sub mnuEditColumn_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIEditColumn
End Sub

'搜索
Private Sub mnuEditSearch_Click()
    'gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hwnd))).MDIEditSearch
End Sub


Private Sub mnuHelpInsideTip_Click()
    Dim clsX As New BaseFunction
    clsX.ShowFuncWizard
End Sub

'
'以下是编码字典的内容...
'

'会计科目
Private Sub mnuListAccount_Click()
    With frmAccountList
        .Show
        .ZOrder 0
    End With
End Sub

'往来单位
Private Sub mnuListCustomer_Click()
    With frmCustomerList
        .Show
        .ZOrder 0
    End With
End Sub

'部门职员
Private Sub mnuListDepartment_Click()
    Me.MousePointer = vbHourglass
    With frmEmployeeList
        Debug.Print "Main Menu Call Start:" & Timer
        .Show
        Debug.Print "Main Menu Call End:" & Timer
        .ZOrder 0
    End With
    Me.MousePointer = vbDefault
End Sub

Private Sub mnuListFixedAsset_Click()
    'debug Code
    With frmFixedTypeList
        .Show
        .ZOrder 0
    End With