sysmain.frm

图书馆管理系统,功能有对图书进行管理

VERSION 5.00
Begin VB.Form sysMain 
   BackColor       =   &H00FFC0C0&
   Caption         =   "图书馆管理系统"
   ClientHeight    =   7305
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10920
   LinkTopic       =   "Form1"
   ScaleHeight     =   7305
   ScaleWidth      =   10920
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "right by hlj"
      ForeColor       =   &H00DD7142&
      Height          =   495
      Left            =   3600
      TabIndex        =   2
      Top             =   6720
      Width           =   4215
      Begin VB.Label Label1 
         BackColor       =   &H00FFC0C0&
         Caption         =   "hlj   版权所有"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00DD7142&
         Height          =   255
         Left            =   1560
         TabIndex        =   3
         Top             =   120
         Width           =   1095
      End
   End
   Begin VB.Frame Frame1 
      Height          =   255
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11055
   End
   Begin VB.PictureBox Picture1 
      Height          =   6255
      Left            =   0
      Picture         =   "sysMain.frx":0000
      ScaleHeight     =   6195
      ScaleWidth      =   10875
      TabIndex        =   0
      Top             =   240
      Width           =   10935
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00DD7142&
      X1              =   0
      X2              =   10800
      Y1              =   6840
      Y2              =   6840
   End
   Begin VB.Line Line2 
      X1              =   0
      X2              =   10800
      Y1              =   240
      Y2              =   240
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   10920
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Menu MsysMag 
      Caption         =   "系统管理"
      Index           =   1
      WindowList      =   -1  'True
      Begin VB.Menu Mmanager 
         Caption         =   "管理员管理"
         Begin VB.Menu MaddMager 
            Caption         =   "增加管理员"
         End
         Begin VB.Menu MdelMager 
            Caption         =   "删除管理员"
         End
         Begin VB.Menu MvaliyCode 
            Caption         =   "更改密码"
         End
      End
      Begin VB.Menu MuserMag 
         Caption         =   "用户管理"
         Begin VB.Menu MaddlUser 
            Caption         =   "增加用户"
         End
         Begin VB.Menu MAlterDelUser 
            Caption         =   "删改用户"
         End
      End
      Begin VB.Menu Mlogout 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu MbookMag 
      Caption         =   "图书管理"
      Index           =   1
      Begin VB.Menu MaddBook 
         Caption         =   "增加图书"
         Index           =   1
      End
      Begin VB.Menu Mdelbook 
         Caption         =   "删除图书"
         Index           =   1
      End
   End
   Begin VB.Menu MRecMag 
      Caption         =   "信用记录管理"
      Index           =   1
      Begin VB.Menu MaddRec 
         Caption         =   "增加记录"
         Index           =   1
      End
      Begin VB.Menu MvaliyRec 
         Caption         =   "查改记录"
         Index           =   1
      End
   End
   Begin VB.Menu MboReBook 
      Caption         =   "借还书管理"
      Index           =   1
   End
   Begin VB.Menu Mfindbook 
      Caption         =   "图书查找"
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
   End
End
Attribute VB_Name = "sysMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_unLoad(cancel As Integer)
End
End Sub

Private Sub help_Click()
help1.Show
End Sub

Private Sub MaddBook_Click(Index As Integer)
addBook.Show

End Sub


Private Sub MaddlUser_Click()
addUser.Show
End Sub

Private Sub MaddMager_Click()
addMager.Show

End Sub

Private Sub MaddRec_Click(Index As Integer)
addRec.Show
End Sub

Private Sub MAlterDelUser_Click()
AlterDelUser.Show
End Sub

Private Sub MboReBook_Click(Index As Integer)
boReBook.Show
End Sub

Private Sub Mdelbook_Click(Index As Integer)
delBook.Show
End Sub

Private Sub MdelMager_Click()
delMager.Show
End Sub

Private Sub Mfindbook_Click()
findBook.Show
End Sub

Private Sub Mlogout_Click()
End
End Sub

Private Sub Muserbo_Click()

End Sub

Private Sub MvaliyCode_Click()
valiyCode.Show
End Sub

Private Sub MvaliyRec_Click(Index As Integer)
valiyRec.Show
End Sub

Private Sub SSTab1_DblClick()

End Sub

Private Sub UpDown1_Change()

End Sub