main_frm.frm

一个完整的图书管理系统

      Image           =   "main_frm.frx":2F38
      ImageSize       =   32
      ColorPnormal    =   16777215
      ColorPmove      =   8388608
      ColorPdown      =   16776960
      ColorTnormal    =   8388608
      ColorTmove      =   16777215
      ColorTdown      =   16777215
      BorderColor     =   8388608
      ColorFnormal    =   16777088
      ColorFmove      =   8388608
      ColorFdown      =   8388608
      Caption         =   "统计报表"
      BorderStyleOut  =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TipText         =   ""
   End
   Begin colbotton.tjcolbotton cmdUserManage 
      Height          =   795
      Left            =   3360
      TabIndex        =   9
      Top             =   0
      Visible         =   0   'False
      Width           =   840
      _ExtentX        =   1482
      _ExtentY        =   1402
      Persent         =   70
      Style           =   1
      Image           =   "main_frm.frx":3812
      ImageSize       =   32
      ColorPnormal    =   16777215
      ColorPmove      =   8388608
      ColorPdown      =   16776960
      ColorTnormal    =   8388608
      ColorTmove      =   16777215
      ColorTdown      =   16777215
      BorderColor     =   8388608
      ColorFnormal    =   16777088
      ColorFmove      =   8388608
      ColorFdown      =   8388608
      Caption         =   "用户管理"
      BorderStyleOut  =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TipText         =   ""
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   9000
      Left            =   0
      Picture         =   "main_frm.frx":40EC
      ScaleHeight     =   9000
      ScaleWidth      =   12000
      TabIndex        =   1
      Top             =   -720
      Width           =   12000
   End
   Begin VB.Menu mnuSystem 
      Caption         =   "系统"
      NegotiatePosition=   1  'Left
      Begin VB.Menu mnuRelogin 
         Caption         =   "重新登录"
      End
      Begin VB.Menu mnuSpr1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuLibraryInfoQuery 
      Caption         =   "图书馆信息查询"
      Begin VB.Menu mnuQuery 
         Caption         =   "图书查询"
      End
      Begin VB.Menu mnuReaderQuery 
         Caption         =   "读者查询"
      End
   End
   Begin VB.Menu mnuSystemManage 
      Caption         =   "系统管理"
      Begin VB.Menu mnuLibraryCard 
         Caption         =   "图书证管理"
      End
      Begin VB.Menu mnuBookIn 
         Caption         =   "图书入库管理"
      End
      Begin VB.Menu mnuBorrowReturn 
         Caption         =   "借书与还书管理"
      End
      Begin VB.Menu mnuUserManage 
         Caption         =   "系统用户权限管理"
      End
      Begin VB.Menu mnuModifyPassword 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnuBackup 
         Caption         =   "数据备份"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuReport 
      Caption         =   "统计报表"
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助"
      Begin VB.Menu mnuIndex 
         Caption         =   "快速入门"
      End
      Begin VB.Menu mnuSpr2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdBookManage_Click()
    mnuBookIn_Click
End Sub

Private Sub cmdBorrowReturn_Click()
    mnuBorrowReturn_Click
End Sub

Private Sub cmdExit_Click()
    mnuExit_Click
End Sub

Private Sub cmdHelp_Click()
    SendKeys "{F1}"
End Sub

Private Sub cmdLabraryCard_Click()
    mnuLibraryCard_Click
End Sub

Private Sub cmdQuery_Click()
    mnuQuery_Click
End Sub

Private Sub cmdReport_Click()
    mnuReport_Click
End Sub

Private Sub cmdUserManage_Click()
    mnuUserManage_Click
    
End Sub

Private Sub Form_Load()
    ss (right)
    statbar.Panels(1).Text = "当前用户ID：" & operatorid
    App.HelpFile = "Library.chm"
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show vbModal, main '打开关于窗口
End Sub

Private Sub mnuBookIn_Click()
    frmLibMan.Show vbModal, main
End Sub

Private Sub mnuBorrowReturn_Click()
    borrowandreturn.Show vbModal, main '打开借书与还书管理窗口
End Sub

Private Sub mnuExit_Click()
    If MsgBox("真的要退出吗？", vbYesNo) = vbYes Then
        End '退出图书管理系统
    End If
End Sub

Private Sub mnuIndex_Click()
    SendKeys "{F1}"
End Sub

Private Sub mnuLibraryCard_Click()
    librarycard.Show vbModal, main '打开图书证管理窗口
End Sub

Private Sub mnuModifyPassword_Click()
    frmPassAmend.Show 1, main
    
End Sub

Private Sub mnuQuery_Click()
    query.Show vbModal, main '打开图书检索窗口
End Sub

Private Sub mnuRelogin_Click()
    login.Show
    
    Unload Me
    
End Sub

Private Sub mnuReport_Click()
    report.Show vbModal, main '打开统计报表窗口
End Sub

Private Sub mnuUserManage_Click()
    frmUserQuery.Show vbModal, main
    
End Sub
Sub ss(s As String)
    Dim posX As Integer
    posX = 0
    Dim i As Integer
    Dim ii(1 To 7) As Integer
    For i = 1 To 7
    ii(i) = Val(Mid(s, i, 1))
    Next i
    cmdQuery.Visible = ii(2)
    main.mnuQuery.Visible = ii(2)
    If mnuQuery.Visible Then
    cmdQuery.Left = posX
    posX = posX + 840
    End If
    
    main.cmdBookManage.Visible = ii(5)
    main.mnuBookIn.Visible = ii(5)
    If mnuBookIn.Visible Then
    cmdBookManage.Left = posX
    posX = posX + 840
    End If
    
    main.cmdBorrowReturn.Visible = ii(6)
    main.mnuBorrowReturn.Visible = ii(6)
    If mnuBorrowReturn.Visible Then
    cmdBorrowReturn.Left = posX
    posX = posX + 840
    End If
    
    main.cmdLabraryCard.Visible = ii(4)
    main.mnuLibraryCard.Visible = ii(4)
    If mnuLibraryCard.Visible Then
    cmdLabraryCard.Left = posX
    posX = posX + 840
    End If
    
    cmdUserManage.Visible = ii(1)
    main.mnuUserManage.Visible = ii(1)
    If mnuUserManage.Visible Then
    cmdUserManage.Left = posX
    posX = posX + 840
    End If
    
    main.cmdReport.Visible = ii(3)
    main.mnuReport.Visible = ii(3)
    If mnuReport.Visible Then
    cmdReport.Left = posX
    posX = posX + 840
    End If
    
    cmdHelp.Left = posX
    
    
    
    
End Sub