音像租赁系统.frm

一个以SQL Server 2000为数据库

VERSION 5.00
Begin VB.Form 音像租赁系统 
   Caption         =   "音像租赁系统"
   ClientHeight    =   8925
   ClientLeft      =   1365
   ClientTop       =   1710
   ClientWidth     =   12945
   LinkTopic       =   "Form3"
   ScaleHeight     =   446.25
   ScaleMode       =   0  'User
   ScaleWidth      =   647.25
   Begin VB.Image Image1 
      Height          =   11520
      Left            =   0
      Picture         =   "音像租赁系统.frx":0000
      Top             =   0
      Width           =   15360
   End
   Begin VB.Menu Systerm_run 
      Caption         =   "系统管理"
      WindowList      =   -1  'True
      Begin VB.Menu Shop_Info 
         Caption         =   "店铺信息"
      End
      Begin VB.Menu System_setting 
         Caption         =   "系统设置"
      End
      Begin VB.Menu Admin_Info 
         Caption         =   "管理员档案"
      End
      Begin VB.Menu Mem_setting 
         Caption         =   "会员类型设置"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu Mem_manage 
      Caption         =   "会员管理"
      Begin VB.Menu Mem_Info 
         Caption         =   "会员档案"
      End
      Begin VB.Menu Mem_loss 
         Caption         =   "会员挂失表"
      End
   End
   Begin VB.Menu CD_manage 
      Caption         =   "光盘管理"
      Begin VB.Menu CD_Info 
         Caption         =   "光盘档案"
      End
   End
   Begin VB.Menu Borrow_manage 
      Caption         =   "租借管理"
      Begin VB.Menu Borrow_CD 
         Caption         =   "光盘出租"
      End
      Begin VB.Menu Return_CD 
         Caption         =   "光盘归还"
      End
      Begin VB.Menu BorrowToday_Info 
         Caption         =   "今日租借纪录"
      End
      Begin VB.Menu Borrow_Info 
         Caption         =   "租借历史纪录"
      End
      Begin VB.Menu Break_Info 
         Caption         =   "违章租借纪录"
      End
   End
   Begin VB.Menu Select_money 
      Caption         =   "收支查询"
      Begin VB.Menu Borrow_Income_today 
         Caption         =   "当天租借收入"
      End
      Begin VB.Menu Borrow_income_month 
         Caption         =   "当月租借收入"
      End
   End
   Begin VB.Menu Top_ten 
      Caption         =   "项目排行榜"
      Begin VB.Menu Top_Mem 
         Caption         =   "会员租借排行榜"
      End
      Begin VB.Menu Top_CD 
         Caption         =   "光盘出租排行榜"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu Software_Info 
         Caption         =   "软件说明"
      End
   End
End
Attribute VB_Name = "音像租赁系统"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Admin_Info_Click()
If Form1.Admin_type = "一般管理员" Then
    MsgBox "对不起，您没有权限访问此功能！", 0 + vbInformation, "Warning"
Else
    管理员信息.Show
End If
End Sub

Private Sub Borrow_CD_Click()
光盘租借.Show

End Sub

Private Sub Borrow_income_month_Click()
If Form1.Admin_type = "一般管理员" Then
    MsgBox "对不起，您没有权限访问此功能！", 0 + vbInformation, "Warning"
Else
    当月租借收入.Show
End If
End Sub

Private Sub Borrow_Income_today_Click()
If Form1.Admin_type = "一般管理员" Then
    MsgBox "对不起，您没有权限访问此功能！", 0 + vbInformation, "Warning"
Else
    当天租借收入.Show
End If
End Sub

Private Sub Borrow_Info_Click()
历史租借查询.Show
End Sub

Private Sub BorrowToday_Info_Click()
今日租借纪录.Show
End Sub


Private Sub Break_Info_Click()
违章租借纪录.Show
End Sub



Private Sub CD_Info_Click()
光盘档案.Show

End Sub



Private Sub Exit_Click()
End

End Sub

Private Sub Mem_Info_Click()
会员信息.Show
End Sub

Private Sub Mem_loss_Click()
会员挂失表.Show
End Sub

Private Sub Mem_setting_Click()
If Form1.Admin_type = "一般管理员" Then
    MsgBox "对不起，您没有权限访问此功能！", 0 + vbInformation, "Warning"
Else
    用户类型设置.Show
End If
End Sub

Private Sub Return_CD_Click()
光盘归还.Show
End Sub

Private Sub Shop_Info_Click()
店铺信息.Show
End Sub

Private Sub Software_Info_Click()
软件说明.Show

End Sub

Private Sub System_setting_Click()
If Form1.Admin_type = "一般管理员" Then
    MsgBox "对不起，您没有权限访问此功能！", 0 + vbInformation, "Warning"
Else
    系统设置.Show
End If
End Sub

Private Sub Top_CD_Click()
光盘租赁排行榜.Show
End Sub

Private Sub Top_Mem_Click()
会员租借排行榜.Show
End Sub