main.frm

现阶段很多图书租赁店仍然使用手工方式管理

VERSION 5.00
Begin VB.MDIForm main 
   BackColor       =   &H8000000C&
   Caption         =   "图书出租管理系统"
   ClientHeight    =   8805
   ClientLeft      =   1560
   ClientTop       =   1590
   ClientWidth     =   11385
   LinkTopic       =   "MDIForm1"
   Begin VB.Menu mset 
      Caption         =   "软件设置(&O)"
      Begin VB.Menu mconnect 
         Caption         =   "数据库连接"
      End
      Begin VB.Menu maccess 
         Caption         =   "权限设置"
         Enabled         =   0   'False
      End
      Begin VB.Menu mpssword 
         Caption         =   "密码设置"
      End
      Begin VB.Menu fg 
         Caption         =   "-"
      End
      Begin VB.Menu mexit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mrentsys 
      Caption         =   "出租系统(&R)"
      Begin VB.Menu mrent 
         Caption         =   "出租业务"
      End
   End
   Begin VB.Menu mmember 
      Caption         =   "会员管理(&M)"
      Begin VB.Menu mmemberinfo 
         Caption         =   "会员资料"
      End
      Begin VB.Menu mnewmember 
         Caption         =   "添加会员"
      End
   End
   Begin VB.Menu mbook 
      Caption         =   "图书管理(&B)"
      Begin VB.Menu mbookinfo 
         Caption         =   "图书信息"
      End
      Begin VB.Menu mnewbook 
         Caption         =   "添加图书"
      End
   End
   Begin VB.Menu mmoney 
      Caption         =   "现金管理(&C)"
      Begin VB.Menu mincome 
         Caption         =   "收入统计"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mh 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mhelp 
         Caption         =   "Help"
      End
      Begin VB.Menu mabout 
         Caption         =   "About"
      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 mabout_Click()
MsgBox "罗鹏(20058082)，刘亮(20058075)，刘明(20058081)，王恒(20058094)", vbOKOnly, "Copyright"
End Sub

Private Sub maccess_Click()
ConfigRank.Show
End Sub

Private Sub mbookinfo_Click()
Vari = "bookinfo"
ViewInfo.Show
End Sub

Private Sub mconnect_Click()
DataConfig.Show
End Sub

Private Sub MDIForm_Load()

maccess.Enabled = False
If UserRank = "1" Then maccess.Enabled = True

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
cnn.Close
Set cnn = Nothing
End Sub


Private Sub mexit_Click()
End
End Sub

Private Sub mmemberinfo_Click()
Vari = "memberinfo"
ViewInfo.Show
End Sub

Private Sub mnewbook_Click()
addbook.Show
End Sub

Private Sub mnewmember_Click()
addmember.Show
End Sub

Private Sub mpssword_Click()
setpassword.Show
End Sub

Private Sub mrent_Click()
Dim objrent As New rent
objrent.Show
End Sub