form1.frm

图书管理系统（VB+ACESS） 满不错的~你们

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   3525
   ClientLeft      =   5475
   ClientTop       =   4065
   ClientWidth     =   4050
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   3525
   ScaleWidth      =   4050
   ShowInTaskbar   =   0   'False
   Begin VB.Menu 管理 
      Caption         =   "管理(&D)"
      Begin VB.Menu 管理员 
         Caption         =   "管理员登陆(&A)"
         Shortcut        =   ^D
      End
      Begin VB.Menu 退出应用程序 
         Caption         =   "退出(&X)"
         Index           =   0
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu 普通 
      Caption         =   "普通(&U)"
      Begin VB.Menu 普通用户登陆 
         Caption         =   "普通用户登陆(&U)"
         Shortcut        =   ^U
      End
      Begin VB.Menu 退出程序 
         Caption         =   "退出(&X)"
         Index           =   1
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助(&H)"
      Begin VB.Menu 帮助主题 
         Caption         =   "帮助主题(&H)"
         Shortcut        =   ^H
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Form1.Caption = "图书管理系统"
End Sub

Private Sub 帮助主题_Click()
Form1.Hide
Form2.Hide
Form3.Hide
Load help
help.Show
user.Hide
End Sub

Private Sub 管理员_Click()
Form1.Hide
Form2.Show
Form3.Hide
Unload help
user.Hide
Form2.Text1.Text = ""
Form2.Text2.Text = ""
End Sub

Private Sub 普通用户登陆_Click()
user.Text1.Text = ""
Form1.Hide
Form2.Hide
Form3.Hide
Unload help
user.Show
End Sub

Private Sub 退出程序_Click(Index As Integer)
End
End Sub

Private Sub 退出应用程序_Click(Index As Integer)
End
End Sub