frmmain.frm

图书管理系统阿

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "图书管理"
   ClientHeight    =   6225
   ClientLeft      =   2385
   ClientTop       =   1710
   ClientWidth     =   7350
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   840
      Top             =   2520
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnuOperate 
      Caption         =   "操作(&O)"
      Begin VB.Menu mnuPerson 
         Caption         =   "人员管理(&P)"
      End
      Begin VB.Menu mnuBook 
         Caption         =   "图书管理(&B)"
      End
      Begin VB.Menu mnuBorrow 
         Caption         =   "借书(&B)"
      End
      Begin VB.Menu mnuReturn 
         Caption         =   "还书(&R)"
      End
      Begin VB.Menu mnuSeperator 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBrowse 
         Caption         =   "浏览(&B)"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)"
      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 MDIForm_Load()
frmMain.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show
End Sub

Private Sub mnuBook_Click()
    frmBook.Show
End Sub

Private Sub mnuBorrow_Click()
    frmBorrow.Show
End Sub

Private Sub mnuBrowse_Click()
    frmBrowse.Show
End Sub

Private Sub mnuExit_Click()
    Unload Me
    End
End Sub

Private Sub mnuPerson_Click()
    frmPerson.Show
End Sub

Private Sub mnuReturn_Click()
    frmReturn.Show
End Sub

Private Sub Timer1_Timer()
frmMain.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
End Sub