VB开发的ERP系统

        End If
        
        ZF_Gr_Frmslzzjg.HelpContextID = "011702004"
        ZF_Gr_Frmslzzjg.Show
        ZF_Gr_Frmslzztj.Show 1
        
        '3.客户往来
    Case "Cwzz_fzkhwl_kmyeb"                   '科目余额表
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        ZF_Kh_Frmkmyebjg.HelpContextID = "011703001"
        ZF_Kh_Frmkmyebjg.Show
        ZF_Kh_FrmKmyebtj.Show 1
    Case "Cwzz_fzkhwl_khyeb"                   '客户余额表
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        ZF_Kh_FrmKhyebjg.HelpContextID = "011703002"
        ZF_Kh_FrmKhyebjg.Show
        ZF_Kh_FrmKhyebtj.Show 1
    Case "Cwzz_fzkhwl_khslmxz"                 '三栏明细帐
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        ZF_Kh_Frmslmxzjg.HelpContextID = "011703003"
        ZF_Kh_Frmslmxzjg.Show
        ZF_Kh_Frmslmxztj.Show 1
    Case "Cwzz_fzkh_khslzz"                    '三栏式总帐
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        ZF_Kh_Frmslzzjg.HelpContextID = "011703004"
        ZF_Kh_Frmslzzjg.Show
        ZF_Kh_Frmslzztj.Show 1
        
        '4.供应商往来
    Case "Cwzz_fzgyswl_kmyeb"                  '科目余额表
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        ZF_Gys_FrmKmyebjg.HelpContextID = "011704001"
        ZF_Gys_FrmKmyebjg.Show
        ZF_Gys_FrmKmyebtj.Show 1
    Case "Cwzz_fzgyswl_gysyeb"                 '供应商余额表
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        ZF_Gys_FrmGysyebjg.HelpContextID = "011704002"
        ZF_Gys_FrmGysyebjg.Show
        ZF_Gys_FrmGysyebtj.Show 1
    Case "Cwzz_fzgyswl_gysslmxz"               '三栏明细帐
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        ZF_Gys_Frmslmxzjg.HelpContextID = "011704003"
        ZF_Gys_Frmslmxzjg.Show
        ZF_Gys_Frmslmxztj.Show 1
    Case "Cwzz_fzgys_gysslzz"                  '三栏式总帐
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        ZF_Gys_Frmslzzjg.HelpContextID = "011704004"
        ZF_Gys_Frmslzzjg.Show
        ZF_Gys_Frmslzztj.Show 1
        
        '月末处理
    Case "Cwzz_ymcl_ymjz"                       '月末结帐
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        YM_FrmYmjz.HelpContextID = "0120001"
        YM_FrmYmjz.Show 1
    Case "Cwzz_ymcl_ymfjz"
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        YM_FrmYmfjz.HelpContextID = "0120002"
        YM_FrmYmfjz.Show 1
    Case "Cwzz_ymcl_nmjz"
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        YM_FrmNmjz.HelpContextID = "0120003"
        YM_FrmNmjz.Show 1
        
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ''奚俊峰  End
        ''
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        '现金流量
        
    Case "Cwzz_xjllbbxm"                       '报表项目设置
    
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
    
        XJ_FrmXjllbbxm.HelpContextID = "0119001"
        XJ_FrmXjllbbxm.Show 1
    Case "Cwzz_xjllsjfp"                       '现金流量分配
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        XJ_FrmXjllfpjg.HelpContextID = "0119002"
        XJ_FrmXjllfpjg.Show
        XJ_FrmXjllfptj.Show 1
    Case "Cwzz_xjllbcx"                        '现金流量表查询
        
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        XJ_FrmXjllbcxjg.HelpContextID = "0119003"
        XJ_FrmXjllbcxjg.Show
        XJ_FrmXjllbcxtj.Show 1
        
        
        '工具
    Case "Cwzz_gnbmkmrl"                       '会计日历
        XT_kjrlFrm.HelpContextID = "0121001"
        XT_kjrlFrm.Show 1
        
    Case "Cwzz_gnbmjsq"                        '计算器
        Shell "calc.exe", vbNormalFocus
        
        '帮助
    Case "Cwzz_wshxxd"                         '网上华夏新达
        ShellExecute 0, "open", "www.hxxd.com", "", "", 0
    Case "Cwzz_xtbz"                           '系统帮助
        Call F1bz
    Case "Cwzz_gy"                             '关于
        XT_frmAbout.Show
        
        
        '银行对帐
    Case "Cwzz_yhdzqc"                          '银行对帐期初
        Glo_Variable.YH_XTXZ = gnsy
        Glo_Variable.Unload_TF = True
        YH_FrmXzkm.Show 1
    Case "Cwzz_yhdzd"                           '银行对帐单
        Glo_Variable.YH_XTXZ = gnsy
        Glo_Variable.Unload_TF = True
        YH_FrmXzkm.Show 1
    Case "Cwzz_yhDzdCx"                         '银行对帐单查询
        Glo_Variable.YH_XTXZ = gnsy
        Glo_Variable.Unload_TF = True
        YH_FrmXzkm.Show 1
    Case "Cwzz_yhzddz"                          '银行自动对帐
        Glo_Variable.YH_XTXZ = gnsy
        Glo_Variable.Unload_TF = True
        YH_FrmXzkm.Show 1
    Case "Cwzz_yhye"                            '银行余额调节表
        YH_FrmYeb.HelpContextID = "0115005"
        Call XtWaitMess("c_yhye")
    Case "Cwzz_yhgdqk"                          '银行勾对情况
        Glo_Variable.YH_XTXZ = gnsy
        Glo_Variable.Unload_TF = True
        YH_FrmXzkm.Show 1
    Case "Cwzz_hxyhz"                           '核销银行帐
        YH_FrmHx.HelpContextID = "0115007"
        YH_FrmHx.Show 1
        
        '自动转帐
    Case "Cwzz_UserDefineTran"
    
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        AutoTran_TranList.TranClassCode = "01"
        AutoTran_TranList.HelpContextID = "0118001"
        AutoTran_TranList.Caption = "自定义转帐凭证"
        AutoTran_TranList.Show 1            '自定义转帐列表
        
    Case "Cwzz_ProfitTran"
    
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        AutoTran_TranList.TranClassCode = "04"
        AutoTran_TranList.HelpContextID = "0118003"
        AutoTran_TranList.Caption = "期间损益转帐凭证"
        AutoTran_TranList.Show 1            '期间损益转帐列表
        
    Case "Cwzz_ModelTran"
    
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        AutoTran_TranList.TranClassCode = "05"
        AutoTran_TranList.HelpContextID = "0118002"
        AutoTran_TranList.Caption = "模式转帐凭证"
        AutoTran_TranList.Show 1            '模式凭证帐转列表
        
    Case "Cwzz_ExchangeTran"
    
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        AutoTran_TranList.TranClassCode = "03"
        AutoTran_TranList.Caption = "汇兑损益凭证"
        AutoTran_TranList.Chk_Vouch = False
        AutoTran_TranList.Chk_Vouch.Enabled = False
        AutoTran_TranList.HelpContextID = "0118004"
        
        AutoTran_TranList.Show 1            '汇兑损益凭证列表
        
    Case "Cwzz_ImportVouch"
    
        '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(gnsy, Xtczybm, 1) Then
            Exit Sub
        End If
        
        AutoTran_ImportVouch.Show 1            '引入外部凭证
        If Glo_VouchSource = "" Then
            Exit Sub
        End If
        AutoTran_Importpz.HelpContextID = "0118005"
        AutoTran_Importpz.Show 1
        
    End Select
    
    '用户退出时写上机日志
    Security_Log gnsy, Xtczybm, 2, False
    
    Exit Sub
ErrHandle:
    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.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