mdimain.frm

这是个很好比较齐全的合同管理系统大家可以下载有很多用途

      End
      Begin VB.Menu menuEditInsertObject 
         Caption         =   "插入对象"
      End
      Begin VB.Menu menuEditObject 
         Caption         =   "编辑对象"
      End
   End
   Begin VB.Menu menuView 
      Caption         =   "查看[&V]"
      Begin VB.Menu menuViewInfo 
         Caption         =   "最新信息"
      End
      Begin VB.Menu menuViewOther 
         Caption         =   "其他......"
      End
   End
   Begin VB.Menu menuExcute 
      Caption         =   "执行[&E]"
      Begin VB.Menu menuExcuteA 
         Caption         =   "工程设备交款情况"
      End
      Begin VB.Menu menuExcuteB 
         Caption         =   "工程合同收款情况"
      End
      Begin VB.Menu menuExcuteC 
         Caption         =   "工程进度人员配置"
      End
      Begin VB.Menu menuExcuteD 
         Caption         =   "签约项目登记"
      End
      Begin VB.Menu menuExcuteE 
         Caption         =   "签约合同登记"
      End
      Begin VB.Menu menuExcuteF 
         Caption         =   "付款记录"
      End
      Begin VB.Menu menuExcuteG 
         Caption         =   "到货记录"
      End
      Begin VB.Menu menuExcuteH 
         Caption         =   "交货记录"
      End
      Begin VB.Menu menuExcuteI 
         Caption         =   "收款记录"
      End
   End
   Begin VB.Menu menuTool 
      Caption         =   "工具[&T]"
      Begin VB.Menu menuToolTemplate 
         Caption         =   "模板管理"
      End
      Begin VB.Menu menuToolEmployee 
         Caption         =   "职员管理"
      End
      Begin VB.Menu menuToolApply 
         Caption         =   "职位管理"
      End
      Begin VB.Menu menuToolPermission 
         Caption         =   "权限管理"
      End
      Begin VB.Menu menuToolType 
         Caption         =   "文件类型管理"
      End
      Begin VB.Menu menuToolToExcel 
         Caption         =   "传递到EXCEL"
      End
      Begin VB.Menu menuToolOption 
         Caption         =   "选项......"
      End
   End
   Begin VB.Menu menuWindow 
      Caption         =   "窗口[&W]"
      WindowList      =   -1  'True
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助[&H]"
      Begin VB.Menu menuHelpAbout 
         Caption         =   "关于"
      End
      Begin VB.Menu menuHelpInfo 
         Caption         =   "有关信息"
      End
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub MDIForm_Load()
    Dim code As String
    code = GetSetting("e_ms", "personal", "职员编号", Default:="")
    If code = "" Then
        dlgRegister.Show (1)
    End If
    Picture1.Align = vbAlignLeft
    Picture1.Width = TreeView1.Width
    
    Picture2.Align = vbAlignRight
    Fill_Tree
End Sub


Private Sub MDIForm_Resize()
Picture2.Width = Me.Width - Picture1.Width
End Sub

Private Sub menuEditAdd_Click()
    Me.ActiveForm.cmdAdd.Value = True
End Sub

Private Sub menuEditDelete_Click()
    Call Me.ActiveForm.cmdDelete_Click
End Sub

Private Sub menuEditRefresh_Click()
    Call Me.ActiveForm.cmdRefresh_Click
End Sub

Private Sub menuEditUpdate_Click()
    Call Me.ActiveForm.cmdUpdate_Click
End Sub

Private Sub menuExcuteA_Click()
    frm_设备交款情况.Show
End Sub

Private Sub menuExcuteI_Click()
    frm_合同收款情况.Show
End Sub

Private Sub menuFileClose_Click()
    Unload Me.ActiveForm
End Sub

Private Sub menuFileNew_Click()
    dlgNew.Show (1)
    Select Case curWork
        Case "销货合同"
            frm_销货合同.Show
        Case "购货合同"
            frm_购货合同.Show
    End Select
End Sub

Private Sub menuFileOpen_Click()
    dlgOpen.Show (1)
    Select Case curWork
        Case "统计报表"
            prjEMS.frmReport.Show
        Case "收款情况报表"
            prjEMS.frm_销货合同收款情况.Show
        Case "付款情况报表"
            prjEMS.frm_购货合同付款情况.Show
        Case "销货合同执行情况报表"
            prjEMS.frm_销货合同交货情况.Show
        Case "购货合同执行情况报表"
        Case "销货合同完成情况报表"
        Case "购货合同完成情况报表"

    End Select
End Sub

Private Sub menuFileSend_Click()
    dlgSend.Show (1)
End Sub

Private Sub menuToolOption_Click()
    dlgOption.Show (1)
End Sub

Private Sub menuViewInfo_Click()
    dlgReply.Show (1)
End Sub

Function Fill_Tree()
    Dim i1 As Long, i2 As Long, i3 As Long
    Dim no1 As Node, no2 As Node
    Dim roots(6), childs(6, 8) As String
    
    roots(0) = "辅助信息"
    childs(0, 0) = "供应商信息"
    childs(0, 1) = "客户信息"
    childs(0, 2) = "币种信息"
    childs(0, 3) = "收款类别信息"
    childs(0, 4) = "职员信息"
    childs(0, 5) = "设备分类信息"
    childs(0, 6) = "设备清单表"
    childs(0, 7) = "设备目录"
    roots(1) = "付款信息"
    childs(1, 0) = "付款申请表"
    childs(1, 1) = "付款方式信息"
    childs(1, 2) = "付款类别信息"
    roots(2) = "购货合同处理"
    childs(2, 0) = "购货合同"
    childs(2, 1) = "购货合同付款审定单"
    childs(2, 2) = "购货合同付款情况"
    childs(2, 3) = "购货合同供应商表"
    childs(2, 4) = "购货合同到货情况"
    childs(2, 5) = "购货合同登记表"
    roots(3) = "销货合同处理"
    childs(3, 0) = "销货合同"
    childs(3, 1) = "销售合同收款审定单"
    childs(3, 2) = "销货合同交货情况"
    childs(3, 3) = "销货合同交货方式"
    childs(3, 4) = "销货合同客户资料表"
    childs(3, 5) = "销货合同收款情况"
    childs(3, 6) = "销货合同登记表"
    roots(4) = "工程施工管理"
    childs(4, 0) = "工程进度和人员配置情况"
    childs(4, 1) = "施工队档案"
    roots(5) = "项目管理"
    childs(5, 0) = "项目信息"
        
    For i1 = 0 To 5
        Set no1 = TreeView1.Nodes.Add(, , , roots(i1), 2)
        no1.Tag = roots(i1)
        For i2 = 0 To 7
            If childs(i1, i2) = "" Then
                Exit For
            End If
            Set no2 = TreeView1.Nodes.Add(no1.Index, tvwChild, , childs(i1, i2), 1)
            no2.Tag = childs(i1, i2)
            no2.ForeColor = vbBlue
        Next
    Next
    ' set properties common to all nodes
    For i1 = 1 To TreeView1.Nodes.Count
        TreeView1.Nodes(i1).ExpandedImage = 2
    Next

End Function

Private Sub menuViewOther_Click()
    Picture2.Visible = True
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Select Case Node.Tag
        Case "供应商信息", "客户信息", "币种信息", "收款类别信息", "职员信息", "设备分类信息", "设备清单表", "设备目录"
            Picture2.Visible = False
            dlgOption.Show
        Case "付款申请表"
            prjEMS.frm付款申请表.Show
        Case "付款方式信息", "付款类别信息"
            Picture2.Visible = False
            dlgOption.Show
        Case "购货合同"
            Picture2.Visible = False
            frm_购货合同.Show
        Case "购货合同付款审定单"
            prjEMS.frm购货合同付款审定单.Show
        Case "购货合同付款情况"
            prjEMS.frm_购货合同付款情况.Show
        Case "购货合同供应商表"
            prjEMS.frm购货合同供应商表.Show
        Case "购货合同到货情况"
            prjEMS.frm_购货合同到货情况.Show
        Case "购货合同登记表"
            prjEMS.frm购货合同登记表.Show
        Case "销货合同"
            prjEMS.frm_销货合同.Show
        Case "销售合同收款审定单"
            prjEMS.frm销售合同收款审定单.Show
        Case "销货合同交货情况"
            prjEMS.frm_销货合同交货情况.Show
        Case "销货合同交货方式"
            prjEMS.frm销货合同交货方式.Show
        Case "销货合同客户资料表"
            prjEMS.frm销货合同客户资料表.Show
        Case "销货合同收款情况"
            prjEMS.frm_销货合同收款情况.Show
        Case "销货合同登记表"
            prjEMS.frm销货合同登记表.Show
        Case "工程进度和人员配置情况"
            prjEMS.frm_工程进度和人员配置情况.Show
        Case "施工队档案"
            Picture2.Visible = False
            dlgOption.Show
        Case "项目信息"
            Picture2.Visible = False
            dlgOption.Show
    End Select
End Sub