main.frm

大量优秀的vb编程

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "DAO数据库实例"
   ClientHeight    =   3720
   ClientLeft      =   132
   ClientTop       =   708
   ClientWidth     =   4860
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu menuFile 
      Caption         =   "菜单"
      Begin VB.Menu menuBase 
         Caption         =   "基本信息"
      End
      Begin VB.Menu menuGroup 
         Caption         =   "工作组"
      End
      Begin VB.Menu menuProduct 
         Caption         =   "产品信息"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出程序"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Set db = OpenDatabase(App.Path & "\Stuff.mdb")

End Sub

Private Sub menuBase_Click()
frmDomenii.Show

End Sub

Private Sub menuExit_Click()
db.Close
Set db = Nothing
Unload Me

End Sub

Private Sub menuGroup_Click()
frmGrupe.Show

End Sub

Private Sub menuProduct_Click()
frmProduse.Show

End Sub