VB开发的ERP系统

            HX_FrmHxlbcxjg.HelpContextID = 30502
            HX_FrmHxlbcxjg.Show
            HX_FrmHxlbCxtj.HelpContextID = 30502
            HX_FrmHxlbCxtj.Show 1
            
        '*************应付单据*************
        Case "Ap_InvPostAcc"                    '发票过帐
            If Not Security_Log("Ap_InvPostAcc", Xtczybm, 1) Then
                Exit Sub
            End If
            ApNote_FrmFpgzCxjg.HelpContextID = 30301
            ApNote_FrmFpgzCxjg.Show
            ApNote_FrmFpgzcxtj.HelpContextID = 30301
            ApNote_FrmFpgzcxtj.Show 1
        Case "Ap_OtherBill"                     '其它应付单录入-陈
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Ap_OtherBill_Edit", Xtczybm, 1) Then
                Exit Sub
            End If
            Xtcdcs = "1"
            ApNote_FrmOtherBill.HelpContextID = 30302
            ApNote_FrmOtherBill.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志

        Case "Ap_OtherBillList"                 '其它应付单列表-陈
            If Not Security_Log("Ap_OtherBillList", Xtczybm, 1) Then
                Exit Sub
            End If
            ApNote_FrmOtherBillList.HelpContextID = 30303
            ApNote_FrmOtherBillList.Show
            ApNote_FrmOtherBillQuery.HelpContextID = 30303
            ApNote_FrmOtherBillQuery.Show 1
                    
        '*****************统计报表****************
        Case "Ap_SuppBalance"                   '供应商余额表-陈
            If Not Security_Log("Ap_SuppBalance", Xtczybm, 1) Then
                Exit Sub
            End If
            Report_FrmSuppList.HelpContextID = 30703
            Report_FrmSuppList.Show
            Report_FrmSuppQuery.HelpContextID = 30703
            Report_FrmSuppQuery.Show 1
        Case "Ap_AccSum"                        '应收总帐列表-陈
            If Not Security_Log("Ap_AccSum", Xtczybm, 1) Then
                Exit Sub
            End If
            Report_FrmAccSumList.HelpContextID = 30702
            Report_FrmAccSumList.Show
            Report_FrmAccSumQuery.HelpContextID = 30702
            Report_FrmAccSumQuery.Show 1
        Case "Ap_AccList"                       '应收明细帐列表-陈
            If Not Security_Log("Ap_AccList", Xtczybm, 1) Then
                Exit Sub
            End If
            Report_FrmAccMxList.HelpContextID = 30701
            Report_FrmAccMxList.Show
            Report_FrmAccMxQuery.HelpContextID = 30701
            Report_FrmAccMxQuery.Show 1
        Case "Ap_AccAgeAnalyse"                 '账龄分析-陈
            If Not Security_Log("Ap_AccAgeAnalyse", Xtczybm, 1) Then
                Exit Sub
            End If
            Report_FrmAccAgeList.HelpContextID = 30704
            Report_FrmAccAgeList.Show
            Report_FrmAccAgeQuery.HelpContextID = 30704
            Report_FrmAccAgeQuery.Show 1
        
        '***************制作凭证******************
        
        Case "Ap_InvoiceVouch"                  '采购发票制作凭证
            If Not Security_Log("Ar_InvoiceVouch", Xtczybm, 1) Then
                Exit Sub
            End If
            ItemType = "7"
            PZ_FrmInvoiceList.HelpContextID = 30601
            PZ_FrmInvoiceList.Show
            PZ_FrmInvoiceFilter.HelpContextID = 30601
            PZ_FrmInvoiceFilter.Show 1
          
        Case "Ap_OtherVouch"                    '其它应付单制作凭证
            If Not Security_Log("Ar_OtherVouch", Xtczybm, 1) Then
                Exit Sub
            End If
            ItemType = "8"                      '其它应付单票据大类型
            PZ_FrmOCBillList.HelpContextID = 30602
            PZ_FrmOCBillList.Show
            PZ_FrmOCBillFilter.HelpContextID = 30602
            PZ_FrmOCBillFilter.Show 1
        Case "Ap_PayVouch"                      '付款单制作凭证
            If Not Security_Log("Ar_CloseVouch", Xtczybm, 1) Then
                Exit Sub
            End If
            ItemType = "9"                      '付款的票据大类型
            PZ_FrmOCBillList.HelpContextID = 30603
            PZ_FrmOCBillList.Show
            PZ_FrmOCBillFilter.HelpContextID = 30603
            PZ_FrmOCBillFilter.Show 1
        Case "Ap_NoteVouch"                     '应付票据制凭证
            If Not Security_Log("Ar_NoteVouch", Xtczybm, 1) Then
                Exit Sub
            End If
            ItemType = "B"
            PZ_FrmNoteList.HelpContextID = 30604
            PZ_FrmNoteList.Show
            PZ_FrmNoteFilter.HelpContextID = 30604
            PZ_FrmNoteFilter.Show 1
        Case "Ap_NoteChangeVouch"               '票据变动
            If Not Security_Log("Ar_NoteChangeVouch", Xtczybm, 1) Then
                Exit Sub
            End If
            ItemType = "C"                      '票据变动的票据大类型
            PZ_FrmNoteChList.HelpContextID = 30605
            PZ_FrmNoteChList.Show
            PZ_FrmNoteChFilter.HelpContextID = 30605
            PZ_FrmNoteChFilter.Show 1
        Case "Ap_CancelVouch"                   '核销制凭证
            If Not Security_Log("Ar_CancelVouch", Xtczybm, 1) Then
                Exit Sub
            End If
            ItemType = "A2"                     '应付冲应收
            PZ_FrmCancelList.HelpContextID = 30606
            PZ_FrmCancelList.Show
            PZ_FrmCancelFilter.HelpContextID = 30606
            PZ_FrmCancelFilter.Show 1
        
        '**************月末结帐**************
        Case "Ap_EOMMana"                       '月末结帐
            If Not Security_Log("Ap_EOMMana", Xtczybm, 1) Then
                Exit Sub
            End If
            RP_FrmYmjz.HelpContextID = 30801
            RP_FrmYmjz.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        '***************工具****************
        Case "Ap_gnbmkjrl"                      '会计日历
            XT_kjrlFrm.HelpContextID = 30902
            XT_kjrlFrm.Show 1
        Case "Ap_gnbmjsq"                       '计算器
            Shell "calc.exe", vbNormalFocus
        
        '***************帮助****************
        Case "Ap_xtbz"                         '系统帮助
            Call F1bz
        Case "Ap_gy"                           '关于
            XT_frmAbout.Show
        
    End Select
    
    Exit Sub
Cwcl:
    Tsxx = "此项系统功能有待完善!"
    Call Xtxxts(Tsxx, 0, 4)
    Exit Sub

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)        '用户关闭窗体
  
    If Unload_TF = False Then
        Cancel = 1
        Me.WindowState = 1
    End If

End Sub

Private Sub Form_Load()
    
    '设置窗体图标
    Me.Icon = XT_Main.Icon
    
    '设置窗体位置大小,并调入系统功能树
    Me.Left = 0
    Me.Top = 0
    Me.Width = XT_Main.Width - 60
    Me.Height = XT_Main.Height - 760 - 690
    Call Cshgns
    
    '启动调入数据等待提示
    Load Xt_Wait
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    On Error Resume Next
    
    Dim i As Integer
    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    SaveSetting App.Title, "Settings", "ViewMode", lvListView.View

End Sub

Private Sub Form_Resize()
    
    On Error Resume Next
    If Me.Width < 3000 Then Me.Width = 3000
    SizeControls imgSplitter.Left

End Sub

Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    With imgSplitter
        picSplitter.Move .Left, .Top, .Width \ 2, .Height - 20
    End With
    picSplitter.Visible = True
    mbMoving = True

End Sub

Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    Dim sglPos As Single
    If mbMoving Then
        sglPos = x + imgSplitter.Left
        If sglPos < sglSplitLimit Then
            picSplitter.Left = sglSplitLimit
        ElseIf sglPos > Me.Width - sglSplitLimit Then
            picSplitter.Left = Me.Width - sglSplitLimit
        Else
            picSplitter.Left = sglPos
        End If
    End If

End Sub

Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    SizeControls picSplitter.Left
    picSplitter.Visible = False
    mbMoving = False
    lvListView.Refresh

End Sub

Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
    
    If Source = imgSplitter Then
        SizeControls x
    End If

End Sub

Sub SizeControls(x As Single)
    
    On Error Resume Next

    '设置 Width 属性
    If x < 3500 Then x = 3500
    If x > (Me.Width - 1500) Then x = Me.Width - 1500
    tvTreeView.Width = x
    imgSplitter.Left = x
    lvListView.Left = x + 40
    lvListView.Width = Me.Width - (tvTreeView.Width + 140)
    lblTitle(0).Width = tvTreeView.Width
    lblTitle(1).Left = lvListView.Left + 20
    lblTitle(1).Width = lvListView.Width - 40

    '设置 Top 属性

    tvTreeView.Top = tbToolBar.Height + picTitles.Height

    lvListView.Top = tvTreeView.Top

    '设置 height 属性
    tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)
    
    lvListView.Height = tvTreeView.Height
    imgSplitter.Top = tvTreeView.Top
    imgSplitter.Height = tvTreeView.Height

End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    
    On Error Resume Next
    
    Select Case Button.Key
        Case "返回"
            tvTreeView.SetFocus
              SendKeys "{up}", True
        Case "向前"
             tvTreeView.SetFocus
              SendKeys "{DOWN}", True
        Case "大图标"
            lvListView.View = lvwIcon
        Case "小图标"
            lvListView.View = lvwSmallIcon
        Case "列表"
            lvListView.View = lvwList
        Case "详细资料"
            lvListView.View = lvwReport
    End Select

End Sub