frmmain.frm

图书管理系统 欢迎大家来使用 谢谢!

      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   10080
      Width           =   11400
      _ExtentX        =   20108
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   2
            Bevel           =   2
            Object.Width           =   3122
            MinWidth        =   2469
            Picture         =   "FrmMain.frx":32249
            Object.ToolTipText     =   "点击这里开始"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "19:17"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   11298
         EndProperty
      EndProperty
      MousePointer    =   4
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Height          =   615
      Left            =   0
      MouseIcon       =   "FrmMain.frx":35D1B
      MousePointer    =   99  'Custom
      TabIndex        =   10
      Top             =   9840
      Width           =   1695
   End
   Begin VB.Menu mainmenu 
      Caption         =   "（Main:）"
   End
   Begin VB.Menu teachermenu 
      Caption         =   "（管理员区）"
   End
   Begin VB.Menu bookmenu 
      Caption         =   "图书信息"
      Begin VB.Menu bookmesssagemenu 
         Caption         =   "图书资料管理"
      End
      Begin VB.Menu booktypemenu 
         Caption         =   "图书类别管理"
      End
      Begin VB.Menu bookborrow 
         Caption         =   "图书借出情况"
      End
   End
   Begin VB.Menu studentmessagemenu 
      Caption         =   "学生信息"
      Begin VB.Menu studentmessagemenu1 
         Caption         =   "学生资料管理"
      End
      Begin VB.Menu lookstudentbook 
         Caption         =   "查看学生借书情况"
      End
   End
   Begin VB.Menu usermenu 
      Caption         =   "用户信息"
      Begin VB.Menu lookuse 
         Caption         =   "浏览用户信息"
      End
      Begin VB.Menu edituse 
         Caption         =   "管理用户"
         Begin VB.Menu adduse 
            Caption         =   "添加用户"
         End
         Begin VB.Menu modyuse 
            Caption         =   "修改用户"
         End
         Begin VB.Menu delectuse 
            Caption         =   "删除用户"
         End
      End
      Begin VB.Menu editpasswore 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu windowset 
      Caption         =   "系统设置"
      Begin VB.Menu lookwindowset 
         Caption         =   "查看当前系统参数"
      End
      Begin VB.Menu setwindowno 
         Caption         =   "设置系统参数"
      End
   End
   Begin VB.Menu studentmenu 
      Caption         =   "（学生区）"
   End
   Begin VB.Menu bookfindmenu 
      Caption         =   "图书查询"
      Begin VB.Menu bookfindmenu1 
         Caption         =   "查询图书信息"
      End
   End
   Begin VB.Menu borrowmenu 
      Caption         =   "借阅查询"
      Begin VB.Menu borrowmenu1 
         Caption         =   "查询借书情况"
      End
   End
   Begin VB.Menu borrowreturn 
      Caption         =   "借还操作"
      Begin VB.Menu borrowbook 
         Caption         =   "借书"
      End
      Begin VB.Menu returnbook 
         Caption         =   "还书"
      End
   End
   Begin VB.Menu ynmoney 
      Caption         =   "欠费情况"
      Begin VB.Menu findmoney 
         Caption         =   "查看欠费情况"
      End
      Begin VB.Menu returnmoney 
         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 Command2_Click()
frmBrowser.Show
End Sub



Private Sub adduse_Click()
Frmteachermessage.Command1.Visible = True
Frmteachermessage.Command2.Visible = False
Frmteachermessage.Command3.Visible = False
Frmteachermessage.Show
End Sub

Private Sub bookborrow_Click()
Frmfindbookyn.Show
End Sub

Private Sub bookfindmenu1_Click()
Frmbookfind.Show
End Sub

Private Sub bookmesssagemenu_Click()
Frmbookmessage.Show
End Sub

Private Sub booktypemenu_Click()
Frmbooktype.Show
End Sub

Private Sub borrowbook_Click()
Frmborrowbook.Show
End Sub

Private Sub borrowmenu1_Click()
Frmborrowfind.Show
End Sub

Private Sub delectuse_Click()
Frmteachermessage.Command3.Visible = True
Frmteachermessage.Command2.Visible = False
Frmteachermessage.Command1.Visible = False
Frmteachermessage.Show
End Sub

Private Sub editpasswore_Click()
Frmmodypassword.Show
End Sub

Private Sub findmoney_Click()
FrmYnmoney.Show
End Sub

Private Sub Form_Load()

Picture1.Visible = False
borrowreturn.Visible = False
'file.Visible = False
bookmenu.Visible = False
windowset.Visible = False
studentmessagemenu.Visible = False
usermenu.Visible = False
bookfindmenu.Visible = False
borrowmenu.Visible = False
ynmoney.Visible = False
If Typeuser = "student" Then

Toolbar1.Visible = False
Toolbar2.Visible = True
End If
If Typeuser = "teacher" Then
Toolbar1.Visible = True
Toolbar2.Visible = False
End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Picture1.Visible = False

If Button = 2 Then
FrmPopuMenu.Left = x
FrmPopuMenu.Top = Y + 650
FrmPopuMenu.Show
'PopupMenu teachermenu, vbPopupMenuLeftAlign
Else

FrmPopuMenu.Hide

End If


End Sub

Private Sub Image1_Click()
Picture1.Visible = True
End Sub

Private Sub Label1_Click()
End
End Sub

Private Sub Label10_Click()

Picture1.Visible = False
Frmborrowfind.Show
End Sub

Private Sub Label11_Click()
Frmborrowbook.Show
Picture1.Visible = False
End Sub

Private Sub Label12_Click()
Frmbookreturn.Show
Picture1.Visible = False
End Sub

Private Sub Label13_Click()

FrmYnmoney.Show
Picture1.Visible = False
End Sub

Private Sub Label14_Click()
Frmmoney.Show
Picture1.Visible = False
End Sub

Private Sub Label2_Click()
Picture1.Visible = False
borrowreturn.Visible = False
'file.Visible = False
bookmenu.Visible = False
windowset.Visible = False
studentmessagemenu.Visible = False
usermenu.Visible = False
bookfindmenu.Visible = False
borrowmenu.Visible = False
ynmoney.Visible = False


frmSplash.Show
FrmMain.Hide

End Sub

Private Sub Label3_Click()
Frmbookmessage.Show
Picture1.Visible = False
End Sub

Private Sub Label4_Click()
Picture1.Visible = False
Frmstudentmessage.Show
End Sub

Private Sub Label5_Click()
Frmteachermessage.Show
Picture1.Visible = False
End Sub

Private Sub Label6_Click()
Frmlookstudentborrow.Show
Picture1.Visible = False
End Sub

Private Sub Label8_Click()
Frmwindowset.Show
Picture1.Visible = False
End Sub

Private Sub Label9_Click()
Frmbookfind.Show
Picture1.Visible = False
End Sub

Private Sub lookstudentbook_Click()
Frmlookstudentborrow.Show
End Sub

Private Sub lookuse_Click()
Frmteachermessage.Show
End Sub

Private Sub lookwindowset_Click()
Frmlookwindow.Show
End Sub

Private Sub mainmenu_Click()
borrowreturn.Visible = False
ynmoney.Visible = False
bookmenu.Visible = False
studentmessagemenu.Visible = False
usermenu.Visible = False
bookfindmenu.Visible = False
borrowmenu.Visible = False
windowset.Visible = False
End Sub

Private Sub modyuse_Click()
Frmteachermessage.Command2.Visible = True
Frmteachermessage.Command1.Visible = False
Frmteachermessage.Command3.Visible = False
Frmteachermessage.Show
End Sub

Private Sub returnbook_Click()
Frmbookreturn.Show
End Sub

Private Sub returnmoney_Click()
Frmmoney.Show
End Sub

Private Sub setwindowno_Click()
Frmwindowset.Show
End Sub

Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
 StatusBar1.Panels(4).Text = "sdfsdfs"
 If Panel.Index = 1 Then
Picture1.Visible = True
 End If
End Sub

Private Sub studentmenu_Click()
ynmoney.Visible = True
bookfindmenu.Visible = True
borrowmenu.Visible = True
borrowreturn.Visible = True
If Typeuser = "teacher" Then
bookfindmenu.Enabled = False
borrowmenu.Enabled = False
borrowreturn.Enabled = False
ynmoney.Enabled = False
Typeuser = "qqqq"
End If
End Sub

Private Sub studentmessagemenu1_Click()
Frmstudentmessage.Show
End Sub

Private Sub teachermenu_Click()
windowset.Visible = True
bookmenu.Visible = True
studentmessagemenu.Visible = True
usermenu.Visible = True
If Typeuser = "student" Then
bookmenu.Enabled = False
studentmessagemenu.Enabled = False
usermenu.Enabled = False
windowset.Enabled = False
Typeuser = "qqqq"
End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Frmbookmessage.Show
Case 2
Frmstudentmessage.Show
Case 3
Frmteachermessage.Show
Case 4
Frmwindowset.Show
End Select
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Frmbookfind.Show
Case 2
Frmborrowfind.Show
Case 3
Frmborrowbook.Show
Case 4
Frmbookreturn.Show
Case 5
FrmYnmoney.Show
End Select
End Sub