price.frm

订餐的一个软件 ,美食档案 订餐点菜 销量查询 用于各级酒店餐饮部门的订餐点菜及收费管理

VERSION 5.00
Begin VB.Form frmPrice 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "按价格消费"
   ClientHeight    =   1410
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4605
   ControlBox      =   0   'False
   Icon            =   "Price.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1410
   ScaleWidth      =   4605
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtPrice2 
      Height          =   270
      Left            =   2640
      MaxLength       =   8
      TabIndex        =   1
      Top             =   480
      Width           =   1215
   End
   Begin VB.TextBox txtPrice1 
      Height          =   270
      Left            =   600
      MaxLength       =   8
      TabIndex        =   0
      Top             =   480
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Top             =   960
      Width           =   1095
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   2640
      TabIndex        =   3
      Top             =   960
      Width           =   1095
   End
   Begin VB.Label Label4 
      Caption         =   "元"
      Height          =   255
      Left            =   3960
      TabIndex        =   7
      Top             =   480
      Width           =   255
   End
   Begin VB.Label Label3 
      Caption         =   "元 至"
      Height          =   255
      Left            =   2040
      TabIndex        =   6
      Top             =   480
      Width           =   495
   End
   Begin VB.Label Label2 
      Caption         =   "从"
      Height          =   255
      Left            =   360
      TabIndex        =   5
      Top             =   480
      Width           =   375
   End
   Begin VB.Label Label1 
      Caption         =   "请设定您的价格范围："
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   120
      Width           =   1815
   End
End
Attribute VB_Name = "frmPrice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
Unload Me

End Sub

Private Sub cmdOK_Click()
With txtPrice1
  If Trim(.Text) = "" Then
    .SetFocus
    Exit Sub
  End If
End With
With txtPrice2
  If Trim(.Text) = "" Then
    .SetFocus
    Exit Sub
  End If
End With
With frmGuest
  .Rec1.Close
  Set .Rec1 = Nothing
  Set .Rec1 = .DB.OpenRecordset("Select Name,Price From Menu Where Other3 = 0 And Price Between " & CCur(Trim(txtPrice1)) & " And " & CCur(Trim(txtPrice2)) & " Order By ABC,Name", dbOpenSnapshot)
  .ShowNamePrice .Rec1, .lstShowMenu, "请选择（价格在" & txtPrice1 & "-" & txtPrice2 & "元之间）："
End With
Unload Me
End Sub

Private Sub txtPrice1_Change()
  If Not IsNumeric(txtPrice1) Or CCur(Val(txtPrice1)) > 9999 Then
    txtPrice1 = ""
  End If
End Sub

Private Sub txtPrice2_Change()
If Not IsNumeric(txtPrice2) Or CCur(Val(txtPrice2)) > 9999 Then
  txtPrice2 = ""
End If
End Sub