mdiform1.frm

ACCESS数据库开发例子

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu L 
      Caption         =   "登陆"
      Begin VB.Menu DR 
         Caption         =   "登陆"
      End
      Begin VB.Menu LR 
         Caption         =   "维修数据录入"
      End
      Begin VB.Menu ZX 
         Caption         =   "注销"
      End
      Begin VB.Menu quit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu GL 
      Caption         =   "管理"
      Begin VB.Menu CX 
         Caption         =   "维修数据查询"
      End
      Begin VB.Menu DEL 
         Caption         =   "维修数据删除"
      End
      Begin VB.Menu XZYF 
         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 CX_Click()
Form3.Show
End Sub

Private Sub DR_Click()
Form1.Show
Unload Form2
Unload Form3
  MDIForm1.L = False
  MDIForm1.GL = False
End Sub

Private Sub LR_Click()
 Form2.Show
End Sub

Private Sub MDIForm_Load()
 MDIForm1.L = False
  MDIForm1.GL = False
End Sub

Private Sub quit_Click()
  End
End Sub

Private Sub ZX_Click()
ok = MsgBox("   确定注销吗？", vbOKCancel + vbOKOnly)
If ok = 1 Then
   Unload Form2
   Unload Form3
   MDIForm1.L = False
   MDIForm1.GL = False
   Form1.Show
Else
  Exit Sub
End If
End Sub