frmmain.frm

在线图书馆系统 包括VB程序设计的后台与ASP的网页

VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "数字图书馆管理系统"
   ClientHeight    =   7890
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   11925
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7890
   ScaleWidth      =   11925
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image Image1 
      Height          =   7920
      Left            =   0
      Picture         =   "FrmMain.frx":0000
      Stretch         =   -1  'True
      Top             =   0
      Width           =   11880
   End
   Begin VB.Menu File 
      Caption         =   "文件"
      Begin VB.Menu Login 
         Caption         =   "登录"
      End
      Begin VB.Menu ChangePasswprd 
         Caption         =   "修改口令"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu SysManage 
      Caption         =   "系统管理"
      Begin VB.Menu BookManage 
         Caption         =   "图书管理"
      End
      Begin VB.Menu ReaderManage 
         Caption         =   "读者管理"
      End
      Begin VB.Menu ReaderPopdemmanage 
         Caption         =   "读者类别管理"
      End
      Begin VB.Menu operatorManage 
         Caption         =   "操作员管理"
      End
   End
   Begin VB.Menu BookInOut 
      Caption         =   "流通管理"
      Begin VB.Menu Borrowmanage 
         Caption         =   "借阅管理"
      End
      Begin VB.Menu ReturnManage 
         Caption         =   "归还管理"
      End
      Begin VB.Menu BoookMangle 
         Caption         =   "图书报损"
      End
      Begin VB.Menu Fee 
         Caption         =   "罚款管理"
      End
   End
   Begin VB.Menu mHelp 
      Caption         =   "帮助"
      Begin VB.Menu About 
         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 About_Click()
    Dim f As New FrmAbout
    f.Show 1
End Sub

Private Sub BookManage_Click()
    Dim f As New FrmBookmanage
    FirstEnter = True
    f.Show 1
End Sub

Private Sub BoookMangle_Click()
    Dim f As New frmMangle
    f.Show 1
End Sub

Private Sub Borrowmanage_Click()
    Dim f As New FrmBorrowManage
    f.Show 1
End Sub

Private Sub ChangePasswprd_Click()
    FrmChangePass.Show 1
End Sub

Private Sub Exit_Click()
    End
End Sub

Private Sub Fee_Click()
    Dim frm As New FrmPenaltyManage
    ReaderID = ""
    frm.Show 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

Private Sub Login_Click()
    OK = False
    FrmLogin.Show 1
End Sub

Private Sub operatorManage_Click()
    If OperatorPopedom <> "管理员" Then
        MsgBox ("你没有权利修改、增加操作员")
    Else
        Dim f As New FrmOperator
        f.Show 1
    End If
End Sub

Private Sub ReaderManage_Click()
    Dim f As New FrmReaderManage
    f.Show 1
End Sub

Private Sub ReaderPopdemmanage_Click()
    Dim f As New frmReaderPopedom
    f.Show 1
End Sub

Private Sub ReturnManage_Click()
    Dim f As New FrmReturnBook
    f.Show 1
End Sub