mainpost.frm

金算盘软件代码

      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 mnuToolArrange 
         Caption         =   "业务重组(&J)"
         Enabled         =   0   'False
      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)"
      End
      Begin VB.Menu mnuWindowStatusBar 
         Caption         =   "状态栏(&B)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuHelpBar 
         Caption         =   "帮助栏(&E)"
         Checked         =   -1  'True
      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
    Me.mnuAccount2.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.mnuAccountPurchase.Visible = False        '商品采购(财务版)
           Me.mnuAccountSale.Visible = False            '商品销售(财务版)
           Me.mnuAccountTaskBar7.Visible = False        '应收计息与采购发票间的分隔符
           Me.mnuFileExport.Visible = True   '引出
           Me.mnuFileImport.Visible = True    '引入
           'Me.mnuFileBar6.Visible = True
           Me.mnuTaskBar7.Visible = False
           Me.mnuTaskItemVoucher.Visible = False
           Me.mnuInventoryBar6.Visible = False
           Me.mnuInventoryVoucher.Visible = False
           Me.mnuAccountSale.Visible = False
           Me.mnuAccountPurchase.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  '工资凭证