main.frm

金算盘软件代码

      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuHelpContent 
         Caption         =   "使用入门(&U)"
      End
      Begin VB.Menu mnuHelpSearch 
         Caption         =   "搜索帮助主题(&S)..."
      End
      Begin VB.Menu mnuHelpHowToUse 
         Caption         =   "怎样使用帮助(&U)"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuHelpInsideTip 
         Caption         =   "日积月累(&T)..."
      End
      Begin VB.Menu mnuHelpSupport 
         Caption         =   "技术支持(&O)..."
         Visible         =   0   'False
      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
Public intWaitCount As Integer
Private lngPos As Long      '帮助栏移动位置 Hebing 1999.4
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
   
Private Sub cMsgBox(strMsg As String, Optional strTitle As String)
    If Trim(strTitle) = "" Then
        strTitle = "提示信息"
    End If

    ShowMsg Me.hwnd, strMsg, MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL, strTitle
End Sub

Public Sub cmdFlow_Click()
    On Error GoTo Errsub
    If GetSetting(App.title, "Navigate", "WindowNavigateStyle", "3") = "1" Then
        mnuWindowDiagram_Click
    ElseIf GetSetting(App.title, "Navigate", "WindowNavigateStyle", "3") = "2" Then
        mnuWindowDiagram_Click
    Else
        mnuWindowDiagram_Click
    End If
Errsub:
End Sub

Private Sub lbHot_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
        Dim po As POINTAPI
        po.x = x / Screen.TwipsPerPixelX
        po.y = y / Screen.TwipsPerPixelY
        ClientToScreen PicBrower.hwnd, po
        ScreenToClient Me.hwnd, po
        Drawline po.x, False
    End If
End Sub

Private Sub lbHot_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   If Button = 1 Then
     Dim po As POINTAPI
     po.x = x / Screen.TwipsPerPixelX
     po.y = y / Screen.TwipsPerPixelY
     ClientToScreen PicBrower.hwnd, po
     ScreenToClient Me.hwnd, po
     Drawline po.x
   End If
End Sub

Private Sub lbHot_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   If Button = 1 Then
        Drawline lngPos, False
        PicBrower.width = PicBrower.width - x
   End If
End Sub

Private Sub MDIForm_Activate()
    If gExistIndog Then
        frmMain.stbMain.Panels("WorkState").AutoSize = sbrContents
        frmMain.stbMain.Panels("WorkState").Text = "金算盘软件公司版权所有"
        frmMain.stbMain.Panels("WorkState").Bevel = sbrInset
    Else
        frmMain.stbMain.Panels("WorkState").AutoSize = sbrContents
        If gclsBase.VersionType = 1 Then
            frmMain.stbMain.Panels("WorkState").Text = "[教学版]"
        Else
            frmMain.stbMain.Panels("WorkState").Text = "[演示版]"
        End If
        frmMain.stbMain.Panels("WorkState").Bevel = sbrInset
    End If
    If Not Me.ActiveForm Is Nothing Then
       On Error Resume Next
       gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hwnd))).MDIChildActive
    Else
        Dim strBuffer As String * 128
        Dim strURL As String
         Dim ret As Long
         ret = GetWindowsDirectory(strBuffer, 128)
         strURL = "mk:@MSITStore:" & Left(strBuffer, ret) & "\HELP\" & "Ac98Nav.chm" & "::/bzml01.htm"
         ShowDeskTopHelp strURL
    End If
    
End Sub

Private Sub MDIForm_Load()
   Dim strBuffer As String * 128
   Dim strURL As String
    Dim ret As Long
    ret = GetWindowsDirectory(strBuffer, 128)
    strURL = "mk:@MSITStore:" & Left(strBuffer, ret) & "\HELP\" & "Ac98Nav.chm" & "::/bzml01.htm"
    ShowDeskTopHelp strURL
    
    Me.Caption = App.title
    Me.mnuEnd.Visible = False
    '从系统注册表中加载最近打开文件
    Utility.LoadMRU
    
    '为所有的筛选和搜索初始化ImageList
    Filter.InitImageList ImageListFilter
    '根据版本类型组织菜单
    InitMenu
    
    '从系统注册表中加载窗体位置、大小
    Utility.LoadFormSetting Me
    
    Set Me.Icon = Utility.GetFormResPicture(139, vbResIcon)
    strURL = "mk:@MSITStore:" & App.HelpFile & "::/welcome.htm"
    ShowDeskTopHelp strURL

End Sub

Private Sub InitMenu()
    '标准版
    #If conVersionType = 1 Then
           Me.mnuFileExport.Visible = True   '引出
           Me.mnuFileImport.Visible = True    '引入
           Me.mnuTaskBar7.Visible = False
           Me.mnuTaskItemVoucher.Visible = False
           Me.mnuInventoryBar6.Visible = False
           Me.mnuInventoryVoucher.Visible = False
           Me.mnuAccountRPVoucher.Visible = False
           Me.mnuReporAudit.Visible = False
           Me.mnuEnd.Visible = False
           
           Me.mnuTaskPurchaseExpense.Visible = True   '采购分摊
           Me.mnuTaskLendPosition.Visible = True      '代销调拨
           Me.mnuTaskStageOut.Visible = True          '分期出库
           Me.mnuTaskStageSale.Visible = True         '分期结算
           Me.mnuTaskBar5.Visible = True
           Me.mnuInventoryEntrustIn.Visible = True    '加工入库
           Me.mnuInventoryEntrustOut.Visible = True   '加工出库
           Me.mnuInventoryEntrustExpense.Visible = True       '加工费用
           Me.mnuInventoryEntrustApportion.Visible = True     '加工分摊
           Me.mnuInventoryBar1.Visible = True
           Me.mnuInventoryIn.Visible = True            '自制入库
           Me.mnuInventoryOut.Visible = True           '领用出库
           Me.mnuInventoryBar2.Visible = True
           Me.mnuInventoryItemPrice.Visible = True            '商品调价
           Me.mnuInventoryCostPrice.Visible = True            '入库成本
           Me.mnuAccountFinanceCharge.Visible = True          '应收计息
           Me.mnuAccountTemplate.Visible = True               '通用转帐
''           Me.mnuToolArrange.Visible = True                   '业务重组
           Me.mnuReporAnalysis.Visible = True
           Me.mnuReporFareAnalysis.Visible = True
           Me.mnuReportHead.Visible = True
           Me.mnuReportWt.Visible = True
           Me.mnuReportBar5.Visible = True
           Me.mnuReportBar5.Visible = True
           Me.mnuEditSearch.Visible = True             '搜索
           Me.mnuEditBar7.Visible = True
           Me.mnuListBar6.Visible = True
    #Else
        '行政事业版
        #If conVersionType = 2 Then
        #Else
           '实达专用版
           #If conVersionType = 4 Then
                Me.mnuAccountPurchase.Visible = False        '商品采购(财务版)
                Me.mnuAccountSale.Visible = False            '商品销售(财务版)
                Me.mnuAccountTaskBar7.Visible = False        '应收计息与采购发票间的分隔符
                Me.mnuAccountTaskBar0.Visible = False
'                Me.mnuFileExport.Visible = False    '引出
'                Me.mnuFileImport.Visible = False    '引入
                Me.mnuFileBar6.Visible = False
                Me.mnuTaskPurchaseExpense.Visible = False   '采购分摊
                Me.mnuTaskLendPosition.Visible = False      '代销调拨
                Me.mnuTaskStageOut.Visible = False          '分期出库
                Me.mnuTaskStageSale.Visible = False         '分期结算
                Me.mnuTaskBar5.Visible = False
                Me.mnuInventoryEntrustIn.Visible = False    '加工入库
                Me.mnuInventoryEntrustOut.Visible = False   '加工出库
                Me.mnuInventoryEntrustExpense.Visible = False       '加工费用
                Me.mnuInventoryEntrustApportion.Visible = False     '加工分摊
                Me.mnuInventoryBar1.Visible = False
                Me.mnuInventoryIn.Visible = False            '自制入库
                Me.mnuInventoryOut.Visible = False           '领用出库
                Me.mnuInventoryBar2.Visible = False
                Me.mnuInventoryItemPrice.Visible = False            '商品调价
                Me.mnuInventoryCostPrice.Visible = False            '入库成本
                Me.mnuAccountFinanceCharge.Visible = False          '应收计息
                Me.mnuAccountTemplate.Visible = False               '通用转帐
''                Me.mnuToolArrange.Visible = False                   '业务重组
                Me.mnuReporAnalysis.Visible = False          '财务分析
                Me.mnuReporFareAnalysis.Visible = False          '经营分析
                Me.mnuReporAudit.Visible = True              '内部稽查
                Me.mnuReportHead.Visible = False             '领导查询
                Me.mnuReportBar5.Visible = False
                Me.mnuEditSearch.Visible = False             '搜索
                Me.mnuEditBar7.Visible = False
'                Me.mnuListBudget.Visible = False
                Me.mnuListBar6.Visible = False
                Me.mnuListClass1.Visible = False             '统计
                Me.mnuListClass2.Visible = False             '项目
                Me.mnuListJob.Visible = False                '工程
                Me.mnuListCustom.Visible = False             '自定义项目
                Me.mnuListCurrency.Visible = False           '币种汇率
                Me.mnuAccountCalcExchange.Visible = False    '期末调汇
                Me.mnuAccountMoneyRate.Visible = False       '资金计息
                Me.mnuTaskPurchaseInvoice.Visible = False    '采购发票
                Me.mnuTaskSaleInvoice.Visible = False        '销售发票
                Me.mnuTaskBar7.Visible = False
           #Else
                '商务标准版
                #If conVersionType = 8 Then
                    Me.mnuAccountPurchase.Visible = False        '商品采购(财务版)
                    Me.mnuAccountSale.Visible = False            '商品销售(财务版)
                    Me.mnuAccountTaskBar0.Visible = False
                    Me.mnuListFixedAsset.Visible = False        '固资类别
                    Me.mnuListFixedMethod.Visible = False       '变动方式
                    Me.mnuListBar4.Visible = False
                    Me.mnuAccountSalary.Visible = False         '工资发放
                    Me.mnuAccountSalaryVoucher.Visible = False  '工资凭证
                    Me.mnuAccountTaskBar4.Visible = False
                    Me.mnuAccountFixedAsset.Visible = False                 '固定资产
                    Me.mnuAccountFixedAssetVoucher.Visible = False          '固资凭证
                    Me.mnuAccountDepreciation.Visible = False               '计提折旧
                    Me.mnuAccountTaskBar5.Visible = False
'                    Me.mnuFileExport.Visible = False    '引出
'                    Me.mnuFileImport.Visible = False    '引入
                    Me.mnuFileBar6.Visible = False
                    Me.mnuTaskLendPosition.Visible = False      '代销调拨
                    Me.mnuTaskPurchaseExpense.Visible = False   '采购分摊
                    Me.mnuTaskStageOut.Visible = True          '分期出库
                    Me.mnuTaskStageSale.Visible = True         '分期结算
                    Me.mnuTaskBar5.Visible = True
                    Me.mnuInventoryEntrustIn.Visible = False    '加工入库
                    Me.mnuInventoryEntrustOut.Visible = False   '加工出库
                    Me.mnuInventoryEntrustExpense.Visible = False       '加工费用
                    Me.mnuInventoryEntrustApportion.Visible = False     '加工分摊
                    Me.mnuInventoryBar1.Visible = False
                    Me.mnuInventoryIn.Visible = True            '自制入库
                    Me.mnuInventoryOut.Visible = True           '领用出库
                    Me.mnuInventoryBar2.Visible = True
                    Me.mnuInventoryItemPrice.Visible = False            '商品调价
                    Me.mnuInventoryCostPrice.Visible = False            '入库成本
                    Me.mnuAccountFinanceCharge.Visible = False          '应收计息
                    Me.mnuAccountTemplate.Visible = False               '通用转帐
''                    Me.mnuToolArrange.Visible = False                   '业务重组
                    Me.mnuReportFixed.Visible = False           '固资报表
                    Me.mnuReportSalary.Visible = False          '工资报表
                    Me.mnuReporAnalysis.Visible = True          '经营分析
                    Me.mnuReporFareAnalysis.Visible = True          '财务分析
                    Me.mnuReporAudit.Visible = True             '内部稽查
                    Me.mnuReportHead.Visible = True             '领导查询
                    Me.mnuReportBar5.Visible = True
                    Me.mnuEditSearch.Visible = True             '搜索
                    Me.mnuEditBar7.Visible = True
'                    Me.mnuListBudget.Visible = True
                    Me.mnuListBar6.Visible = True
                '财务版
                #Else
                    Me.mnuAccountRPVoucher.Visible = False '收支凭证
'                    Me.mnuFileExport.Visible = False       '引出
'                    Me.mnuFileImport.Visible = False       '引入
'                    Me.mnuFileBar6.Visible = False
                    Me.mnuAccountFinanceCharge = False
                    Me.mnuTask.Visible = False
                    Me.mnuInventory.Visible = False
                    Me.mnuListTerm.Visible = False       '付款条件
                    Me.mnuListItemInit.Visible = False
                    Me.mnuListBar3.Visible = False
                    Me.mnuReportWt.Visible = False       '委托加工
                    Me.mnuReportPurchase.Visible = False
                    Me.mnuReportSale.Visible = False
                    Me.mnuReportStorage.Visible = False
                    Me.mnuReportBar2.Visible = False
                    Me.mnuListCustom.Visible = False     '自定项目
'                    Me.mnuFileCondense.Visible = True
                    Me.mnuAccountRPVoucher.Visible = False
                    Me.mnuAccountTemplate.Visible = False
                    Me.mnuAccountCalcExchange.Visible = False
                    Me.mnuAccountMoneyRate.Visible = False
                    Me.mnuAccountProfitLoss.Visible = False
                    Me.mnuAccountFinish.Visible = False
                    Me.mnuAccountUnFinish.Visible = False
                    Me.mnuAccountTaskBar6.Visible = False
                    Me.mnuAccountTemplate.Visible = False               '通用转帐
                    Me.mnuAccountTaskBar9.Visible = False               '通用转帐后的分隔符
                    Me.mnuReporAudit.Visible = False
                    Me.mnuReporFareAnalysis.Visible = False
                    Me.mnuListFance.Visible = False
                    
                    Me.mnuAccountFixedAssetVoucher.Visible = True      '固资凭证
                    Me.mnuAccountSalaryVoucher.Visible = True          '工资凭证
                    Me.mnuAccountTaskBar5.Visible = True               '工资凭证后的分隔符
                    Me.mnuAccountFinanceCharge.Visible = True          '应收计息
''                    Me.mnuToolArrange.Visible = True                   '业务重组
                    Me.mnuReporAnalysis.Visible = True
                    Me.mnuReportHead.Visible = True                    '领导查询
                    Me.mnuReportBar5.Visible = True
                    Me.mnuEditSearch.Visible = True             '搜索
                    Me.mnuEditBar7.Visible = True
                    Me.mnuListBar6.Visible = True