mdiform1.frm

通过实现数据绑定的功能

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "产品入库和查询系统"
   ClientHeight    =   5070
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7455
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu ProductManagement 
      Caption         =   "产品管理"
      Begin VB.Menu ProductInput 
         Caption         =   "产品入库"
      End
      Begin VB.Menu productEdit 
         Caption         =   "产品修改"
      End
      Begin VB.Menu ProductDelete 
         Caption         =   "产品删除"
      End
      Begin VB.Menu ProductQuery 
         Caption         =   "产品查询"
      End
   End
   Begin VB.Menu System 
      Caption         =   "系统"
      Begin VB.Menu Exit 
         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 Exit_Click()
    '退出
    End
End Sub

Private Sub MDIForm_Load()
    '载入产品输入窗体并显示
    Load frmInput
    frmInput.Show
End Sub

Private Sub ProductDelete_Click()
    '载入产品删除窗体并显示
    Load frmDelete
    frmDelete.Show
End Sub

Private Sub productEdit_Click()
    '载入产品修改窗体并显示
    Load frmEdit
    frmEdit.Show
End Sub

Private Sub ProductInput_Click()
    '载入产品输入窗体并显示
    Load frmInput
    frmInput.Show
    
End Sub

Private Sub ProductQuery_Click()
    '载入产品查询窗体并显示
    Load frmQuery
    frmQuery.Show
End Sub