module1.bas

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

Attribute VB_Name = "Module1"
Global fMainForm As MDIMain
Global Constring As String
Global curWork As String
Sub Main()
    Constring = "PROVIDER=MSDASQL;driver={SQL Server};server=wlf;uid=sa;pwd=;database=e_ms;"
    Set fMainForm = New MDIMain
    fMainForm.Show
End Sub


'Private Sub Form_Load()
'    Dim tmpNode As Node
'    Set tmpNode = TreeView1.Nodes.Add(Key:="First", Text:="合同部")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="First", Relationship:=tvwChild, Key:="SecondOne", Text:="销货合同交货情况")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="First", Relationship:=tvwChild, Key:="SecondTwo", Text:="销货合同收款情况")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="First", Relationship:=tvwChild, Key:="SecondThree", Text:="购货合同到货情况")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="First", Relationship:=tvwChild, Key:="SecondFour", Text:="购货合同付款情况")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="First", Relationship:=tvwChild, Key:="SecondFive", Text:="项目收款情况")
    
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="SecondOne", Relationship:=tvwChild, Key:="Third1", Text:="第三层第一节点")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="SecondOne", Relationship:=tvwChild, Key:="Third2", Text:="第三层第二节点")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="SecondOne", Relationship:=tvwChild, Key:="Third3", Text:="第三层第三节点")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="SecondOne", Relationship:=tvwChild, Key:="Third4", Text:="第三层第四节点")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="SecondOne", Relationship:=tvwChild, Key:="Third5", Text:="第三层第五节点")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="SecondOne", Relationship:=tvwChild, Key:="Third6", Text:="第三层第六节点")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="SecondOne", Relationship:=tvwChild, Key:="Third7", Text:="第三层第七节点")
'    Set tmpNode = TreeView1.Nodes.Add(Relative:="SecondOne", Relationship:=tvwChild, Key:="Third8", Text:="第三层第八节点")
'    tmpNode.EnsureVisible
    
'End Sub

'Private Sub TreeView1_DblClick()
'    Select Case TreeView1.SelectedItem.Text
'        Case "销货合同交货情况"
'            dlg_销货合同交货情况查询条件.Show (1)
'    End Select
'End Sub