frmmain.frm

vb与access数据库的操作实例

VERSION 5.00
Begin VB.Form FrmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图书借阅管理系统"
   ClientHeight    =   9000
   ClientLeft      =   60
   ClientTop       =   660
   ClientWidth     =   12000
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "FrmMain.frx":0442
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu mn_1 
      Caption         =   "基本信息管理"
      Begin VB.Menu mn_BookType 
         Caption         =   "图书分类管理"
      End
      Begin VB.Menu mn_BookInfo 
         Caption         =   "图书信息管理"
      End
      Begin VB.Menu mn_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_2 
      Caption         =   "图书库存管理"
      Begin VB.Menu mn_Storein 
         Caption         =   "图书入库管理"
      End
      Begin VB.Menu mn_Check 
         Caption         =   "图书盘点管理"
      End
   End
   Begin VB.Menu mn_3 
      Caption         =   "图书借阅管理"
      Begin VB.Menu mn_CardType 
         Caption         =   "借阅证类型管理"
      End
      Begin VB.Menu mn_Cards 
         Caption         =   "借阅证件管理"
      End
      Begin VB.Menu mn_Borrow 
         Caption         =   "图书借阅管理"
      End
   End
   Begin VB.Menu mn_4 
      Caption         =   "系统用户管理"
      Begin VB.Menu mn_Users 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_Pwd 
         Caption         =   "修改密码"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  FrmLogin.Show 1
End Sub

Private Sub Label1_Click()

End Sub

Private Sub lbl_CardType_Click()

End Sub

Private Sub lblborrow_Click()

End Sub

Private Sub lblcards_Click()

End Sub

Private Sub lbluser_Click()
    '如果当前用户为Admin，则打开用户管理窗体
  If Trim(CurUser.UserName) = "Admin" Then
    FrmUserMan.Show 1
  Else
  '如果当前用户是普通用户，则打开用户编辑窗体，编辑自己的用户信息
    With FrmUserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.Pwd
    .txtPass2 = CurUser.Pwd
    .Modify = True
    .Show 1
    End With
  End If
End Sub

Private Sub mn_BookInfo_Click()
  FrmBooks.Show 1
End Sub

Private Sub mn_BookType_Click()
  FrmBookType.Show 1
End Sub

Private Sub mn_Borrow_Click()
  FrmBorrow.Show 1
End Sub

Private Sub mn_Cards_Click()
  FrmCards.Show 1
End Sub

Private Sub mn_CardType_Click()
  FrmCardType.Show 1
End Sub

Private Sub mn_Check_Click()
  FrmCheckStore.Show 1
End Sub

Private Sub mn_Exit_Click()
  DBapi_Disconnect
  End
End Sub

Private Sub mn_pwd_Click()
  With FrmUserEdit
  .OriUser = CurUser.UserName
  .txtUserName = CurUser.UserName
  .Modify = True
  .Show 1
  End With
End Sub

Private Sub mn_Storein_Click()
  FrmStoreIn.Show 1
End Sub

Private Sub mn_Users_Click()
  If CurUser.User_type = 1 Then
    FrmUserMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub