frmadmin.frm

录像出租系统源代码 录像出租公司都有库存的录像以备出租。每盘录像用分类号唯一标识。同一盘录像有多份拷贝

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