main.frm

售楼信息管理系统 相当好的VB课程设计啊 ,

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form main 
   BackColor       =   &H00FF8080&
   BorderStyle     =   0  'None
   Caption         =   "售楼信息管理系统——客户及收费管理"
   ClientHeight    =   8970
   ClientLeft      =   1815
   ClientTop       =   780
   ClientWidth     =   11670
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8970
   ScaleWidth      =   11670
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   1200
      Left            =   0
      Picture         =   "main.frx":0000
      ScaleHeight     =   1140
      ScaleWidth      =   11565
      TabIndex        =   1
      Top             =   0
      Width           =   11625
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   7575
      Left            =   120
      TabIndex        =   0
      Top             =   1320
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   13361
      _Version        =   393217
      Style           =   7
      Appearance      =   1
   End
   Begin VB.Image Image1 
      Height          =   7500
      Left            =   2280
      Picture         =   "main.frx":3125
      Stretch         =   -1  'True
      Top             =   1320
      Width           =   9240
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ADD_Click()
    adduser.Show
End Sub

Private Sub EXIT_Click()
    Unload Me
End Sub

Private Sub Form_Load()
Dim myNod As Node
TreeView1.LineStyle = tvwTreeLines
Set myNod = TreeView1.Nodes.Add(, tvwChild, "sg", "文件")
Set myNod = TreeView1.Nodes.Add("sg", tvwChild, "adduser", "注册新用户")
Set myNod = TreeView1.Nodes.Add("sg", tvwChild, "exit", "退出")
Set myNod = TreeView1.Nodes.Add(, tvwChild, "cn", "数据管理")
Set myNod = TreeView1.Nodes.Add("cn", tvwChild, "browsecum", "浏览客户信息")
Set myNod = TreeView1.Nodes.Add("cn", tvwChild, "browsecost", "浏览收费信息")
Set myNod = TreeView1.Nodes.Add("cn", tvwChild, "addcuminfo", "客户信息登记")
Set myNod = TreeView1.Nodes.Add("cn", tvwChild, "addcostinfo", "收费信息处理")
Set myNod = TreeView1.Nodes.Add(, tvwChild, "bu", "数据查询")
Set myNod = TreeView1.Nodes.Add("bu", tvwChild, "findcum", "查询客户信息")
Set myNod = TreeView1.Nodes.Add("bu", tvwChild, "findcostinfo", "查询收费信息")
Set myNod = TreeView1.Nodes.Add(, tvwChild, "bj", "打印报表")
Set myNod = TreeView1.Nodes.Add("bj", tvwChild, "DataReport1", "打印客户信息")
Set myNod = TreeView1.Nodes.Add("bj", tvwChild, "DataReport2", "打印收费信息")
Set myNod = TreeView1.Nodes.Add(, tvwChild, "goods", "样品间展示")
Set myNod = TreeView1.Nodes.Add("goods", tvwChild, "keting", "客厅")
Set myNod = TreeView1.Nodes.Add("goods", tvwChild, "woshi", "卧室")
Set myNod = TreeView1.Nodes.Add("goods", tvwChild, "shufang", "书房")
Set myNod = TreeView1.Nodes.Add("goods", tvwChild, "chufang", "厨房")
End Sub

Private Sub TreeView1_DblClick()
Select Case TreeView1.SelectedItem.Key
    Case "adduser"
        adduser.Show
    Case "exit"
        Unload Me
        Unload MDIMenu
    Case "browsecum"
        browsecum.Show
    Case "browsecost"
        browsecost.Show
    Case "addcuminfo"
        addcuminfo.Show
    Case "addcostinfo"
        addcostinfo.Show
    Case "findcum"
        findcum.Show
    Case "DataReport1"
        DataReport1.Show
    Case "DataReport2"
        DataReport2.Show
    Case "findcostinfo"
        findcostinfo.Show
    Case "keting"
        Image1.Picture = LoadPicture("" & App.Path & "\pic\客厅.jpg")
    Case "woshi"
        Image1.Picture = LoadPicture("" & App.Path & "\pic\卧室.jpg")
    Case "shufang"
        Image1.Picture = LoadPicture("" & App.Path & "\pic\书房.jpg")
    Case "chufang"
        Image1.Picture = LoadPicture("" & App.Path & "\pic\厨房.jpg")
    
End Select
End Sub
Private Sub Form_Activate()
     Me.ZOrder 1
End Sub