VERSION 5.00
Begin VB.Form frmAdmin 
   Caption         =   "管理員界面"
   ClientHeight    =   5475
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8505
   LinkTopic       =   "Form1"
   ScaleHeight     =   5475
   ScaleWidth      =   8505
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdExit 
      Caption         =   "退    出"
      Height          =   615
      Left            =   4440
      TabIndex        =   11
      Top             =   4440
      Width           =   1935
   End
   Begin VB.CommandButton cmdBack 
      Caption         =   "返    回"
      Height          =   615
      Left            =   1320
      TabIndex        =   10
      Top             =   4440
      Width           =   1935
   End
   Begin VB.Frame Frame2 
      Caption         =   "錄像管理"
      Height          =   3135
      Left            =   3360
      TabIndex        =   1
      Top             =   720
      Width           =   4575
      Begin VB.CommandButton cmdBad 
         Caption         =   "錄像報損"
         Height          =   615
         Left            =   2520
         TabIndex        =   9
         Top             =   2160
         Width           =   1575
      End
      Begin VB.CommandButton cmdEdit 
         Caption         =   "修改資料"
         Height          =   615
         Left            =   2520
         TabIndex        =   8
         Top             =   1320
         Width           =   1575
      End
      Begin VB.CommandButton cmbReback 
         Caption         =   "錄像歸還"
         Height          =   615
         Left            =   2520
         TabIndex        =   7
         Top             =   480
         Width           =   1575
      End
      Begin VB.CommandButton cmdDiskIn 
         Caption         =   "錄像進貨"
         Height          =   615
         Left            =   360
         TabIndex        =   6
         Top             =   2160
         Width           =   1575
      End
      Begin VB.CommandButton cmdSelect 
         Caption         =   "錄像查詢"
         Height          =   615
         Left            =   360
         TabIndex        =   5
         Top             =   1320
         Width           =   1575
      End
      Begin VB.CommandButton cmbBorrow 
         Caption         =   "錄像租借"
         Height          =   615
         Left            =   360
         TabIndex        =   4
         Top             =   480
         Width           =   1575
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "會員管理"
      Height          =   3135
      Left            =   600
      TabIndex        =   0
      Top             =   720
      Width           =   2415
      Begin VB.CommandButton cmdMemberEdit 
         Caption         =   "資料修改"
         Height          =   615
         Left            =   360
         TabIndex        =   12
         Top             =   2160
         Width           =   1575
      End
      Begin VB.CommandButton cmdOut 
         Caption         =   "會員退會"
         Height          =   615
         Left            =   360
         TabIndex        =   3
         Top             =   1320
         Width           =   1575
      End
      Begin VB.CommandButton cmdIn 
         Caption         =   "會員入會"
         Height          =   615
         Left            =   360
         TabIndex        =   2
         Top             =   480
         Width           =   1575
      End
   End
End
Attribute VB_Name = "frmAdmin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmbBorrow_Click()
Me.Hide
frmBorrow.Show
End Sub
Private Sub cmbReback_Click()
Me.Hide
frmBack.Show
End Sub

Private Sub cmdBack_Click()
Unload Me
frmWelcome.Show
End Sub

Private Sub cmdBad_Click()
Dim temp As Double
Dim str As String
str = InputBox("請輸入需要報損的錄像編號:", "錄像報損")
If Len(str) = 0 Then
Exit Sub
Else
temp = Val(str)
Set db = OpenDatabase("Haiyu.mdb")
Set rs = db.OpenRecordset("SELECT * FROM EDisk")
rs.MoveFirst
Do Until rs.EOF
If rs!錄像編號 = temp Then
With rs
.Edit
!是否損壞 = True
.Update
End With
MsgBox "錄像編號為" & temp & "的錄像報損成功！", vbOKOnly + vbExclamation, "成功"
Exit Sub
Else
rs.MoveNext
End If
Loop
MsgBox "對不起,您輸入的錄像編號不存在,請重新輸入！", vbOKOnly + vbExclamation, "錯誤"
End If
End Sub

Private Sub cmdDiskIn_Click()
Me.Hide
frmDiskIn.Show
End Sub

Private Sub cmdEdit_Click()
Dim str As String
str = InputBox("請輸入需要修改的錄像分類編號:", "修改資料")
If Len(str) = 0 Then
Exit Sub
Else
tp = Val(str)
Set db = OpenDatabase("Haiyu.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Disk")
rs.MoveFirst
Do Until rs.EOF
If rs!分類編號 = tp Then
Me.Hide
frmEdit.Show
Exit Sub
Else
rs.MoveNext
End If
Loop
MsgBox "對不起,您輸入的錄像分類編號不存在,請重新輸入！", vbOKOnly + vbExclamation, "錯誤"
End If
End Sub

Private Sub cmdExit_Click()
Dim response
response = MsgBox("是否退出?", vbOKCancel + vbQuestion, "退出")
If response = 1 Then
End
End If
End Sub
Private Sub cmdIn_Click()
Me.Hide
frmNew.Show
End Sub

Private Sub cmdMemberEdit_Click()
Dim str As String
str = InputBox("請輸入需要修改的會員編號:", "修改資料")
If Len(str) = 0 Then
Exit Sub
Else
tp = Val(str)
Set db = OpenDatabase("Haiyu.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Customer")
rs.MoveFirst
Do Until rs.EOF
If rs!ID = tp Then
Me.Hide
frmMemberEdit.Show
Exit Sub
Else
rs.MoveNext
End If
Loop
MsgBox "對不起,您輸入的會員編號不存在,請重新輸入！", vbOKOnly + vbExclamation, "錯誤"
End If
End Sub

Private Sub cmdOut_Click()
Me.Hide
frmDelete.Show
End Sub

Private Sub cmdSelect_Click()
sign = 0
Me.Hide
frmSelect.Show
End Sub