frmselect.frm

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

         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   11
      Top             =   3360
      Width           =   1095
   End
   Begin VB.Label Label6 
      Caption         =   "架位"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   10
      Top             =   4080
      Width           =   1095
   End
   Begin VB.Label Label7 
      Caption         =   "录像数量 "
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   9
      Top             =   4800
      Width           =   1215
   End
End
Attribute VB_Name = "frmSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim temp As Boolean

Private Sub cmdBack_Click()
Unload Me
If sign = 0 Then
frmAdmin.Show
Else
frmCustomer.Show
End If
End Sub

Private Sub cmdCheck_Click()
k = 0
Me.Hide
frmList.Show
Set db = OpenDatabase("Haiyu.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Disk")
rs.MoveFirst
Do Until rs.EOF
temp = True

If Check1.Value = 1 And temp = True Then
Select Case Combo1.Text
Case "="
    If rs!分类编号 <> Val(txtDiskId.Text) Then
    temp = False
    End If
Case ">"
    If rs!分类编号 <= Val(txtDiskId.Text) Then
    temp = False
    End If
Case ">="
    If rs!分类编号 < Val(txtDiskId.Text) Then
    temp = False
    End If
Case "<"
    If rs!分类编号 >= Val(txtDiskId.Text) Then
    temp = False
    End If
Case "<="
    If rs!分类编号 > Val(txtDiskId.Text) Then
    temp = False
    End If
Case "<>"
    If rs!分类编号 = Val(txtDiskId.Text) Then
    temp = False
    End If
Case Else
    temp = False
End Select
End If

If Check2.Value = 1 And temp = True Then
Select Case Combo2.Text
Case "="
    If rs!录像名称 <> txtDiskName.Text Then
    temp = False
    End If
Case Else
    temp = False
End Select
End If

If Check3.Value = 1 And temp = True Then
Select Case Combo3.Text
Case "="
    If rs!收费标准 <> combMoney.Text Then
    temp = False
    End If
Case Else
    temp = False
End Select
End If

If Check4.Value = 1 And temp = True Then
Select Case Combo4.Text
Case "="
    If rs!大类 <> combType1.Text Then
    temp = False
    End If
Case Else
    temp = False
End Select
End If

If Check5.Value = 1 And temp = True Then
Select Case Combo5.Text
Case "="
    If rs!小类 <> combType2.Text Then
    temp = False
    End If
Case Else
    temp = False
End Select
End If

If Check6.Value = 1 And temp = True Then
Select Case Combo6.Text
Case "="
    If rs!架位 <> combPosition.Text Then
    temp = False
    End If
Case ">"
    If rs!架位 <= combPosition.Text Then
    temp = False
    End If
Case ">="
    If rs!架位 < combPosition.Text Then
    temp = False
    End If
Case "<"
    If rs!架位 >= combPosition.Text Then
    temp = False
    End If
Case "<="
    If rs!架位 > combPosition.Text Then
    temp = False
    End If
Case "<>"
    If rs!架位 = combPosition.Text Then
    temp = False
    End If
Case Else
    temp = False
End Select
End If

If Check7.Value = 1 And temp = True Then
Select Case Combo7.Text
Case "="
    If rs!录像数量 <> Val(txtNub.Text) Then
    temp = False
    End If
Case ">"
    If rs!录像数量 <= Val(txtNub.Text) Then
    temp = False
    End If
Case ">="
    If rs!录像数量 < Val(txtNub.Text) Then
    temp = False
    End If
Case "<"
    If rs!录像数量 >= Val(txtNub.Text) Then
    temp = False
    End If
Case "<="
    If rs!录像数量 > Val(txtNub.Text) Then
    temp = False
    End If
Case "<>"
    If rs!录像数量 = Val(txtNub.Text) Then
    temp = False
    End If
Case Else
    temp = False
End Select
End If


If Check8.Value = 1 And temp = True Then
Select Case Combo8.Text
Case "="
    If rs!库存数量 <> Val(txtStore.Text) Then
    temp = False
    End If
Case ">"
    If rs!库存数量 <= Val(txtStore.Text) Then
    temp = False
    End If
Case ">="
    If rs!库存数量 < Val(txtStore.Text) Then
    temp = False
    End If
Case "<"
    If rs!库存数量 >= Val(txtStore.Text) Then
    temp = False
    End If
Case "<="
    If rs!库存数量 > Val(txtStore.Text) Then
    temp = False
    End If
Case "<>"
    If rs!库存数量 = Val(txtStore.Text) Then
    temp = False
    End If
Case Else
    temp = False
End Select
End If

If temp = True Then
k = k + 1
frmList.lstSelect.AddItem rs!分类编号 & " " & " " & rs!录像名称 & " " & " " & rs!收费标准 & " " & " " & rs!大类 & " " & " " & rs!小类 & " " & " " & rs!架位 & " " & " " & rs!录像数量 & " " & " " & rs!库存数量
Print rs!分类编号
End If
rs.MoveNext
Loop
Unload Me
End Sub



Private Sub Combo1_Click()
If Combo1.Text = " " Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub

Private Sub Combo2_Click()
If Combo2.Text = " " Then
Check2.Value = 0
Else
Check2.Value = 1
End If
End Sub

Private Sub Combo3_Click()
If Combo3.Text = " " Then
Check3.Value = 0
Else
Check3.Value = 1
End If
End Sub

Private Sub Combo4_Click()
If Combo4.Text = " " Then
Check4.Value = 0
Else
Check4.Value = 1
End If
End Sub

Private Sub Combo5_Click()
If Combo5.Text = " " Then
Check5.Value = 0
Else
Check5.Value = 1
End If
End Sub

Private Sub Combo6_Click()
If Combo6.Text = " " Then
Check6.Value = 0
Else
Check6.Value = 1
End If
End Sub

Private Sub Combo7_Click()
If Combo7.Text = " " Then
Check7.Value = 0
Else
Check7.Value = 1
End If
End Sub

Private Sub Combo8_Click()
If Combo8.Text = " " Then
Check8.Value = 0
Else
Check8.Value = 1
End If
End Sub