frmhht.frm

餐饮管理系统数据库设计文档 表名：bzqbj（保质期报警表） 字段名 字段类型 字段长度 （0表示不允许NULL

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmHHt 
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   0  'None
   ClientHeight    =   5355
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8805
   LinkTopic       =   "Form1"
   ScaleHeight     =   5355
   ScaleWidth      =   8805
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame_replace_table 
      BackColor       =   &H00A56E3A&
      Height          =   5235
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   8595
      Begin VB.CommandButton cmdSaveHt 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   5400
         Picture         =   "frmHHt.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   4740
         Width           =   1455
      End
      Begin VB.CommandButton cmdClr_ht 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   3960
         Picture         =   "frmHHt.frx":07B0
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   4740
         Width           =   1455
      End
      Begin VB.CommandButton CmdExit 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   6840
         Picture         =   "frmHHt.frx":0FA0
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   4740
         Width           =   1455
      End
      Begin VB.CommandButton Cmd_HUANT 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   5400
         Picture         =   "frmHHt.frx":1764
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   4260
         Width           =   1455
      End
      Begin VB.CommandButton CmdHET 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   3960
         Picture         =   "frmHHt.frx":1F18
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   4260
         Width           =   1455
      End
      Begin VB.CommandButton cmdSel_HT 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   2880
         Picture         =   "frmHHt.frx":26BE
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   4560
         Width           =   885
      End
      Begin VB.ComboBox CboRoomList_ht 
         Height          =   315
         Left            =   870
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   4530
         Width           =   1965
      End
      Begin MSFlexGridLib.MSFlexGrid fgdHT 
         Height          =   4095
         Left            =   60
         TabIndex        =   8
         Top             =   120
         Width           =   6375
         _ExtentX        =   11245
         _ExtentY        =   7223
         _Version        =   393216
         FixedRows       =   0
         FixedCols       =   0
         BackColor       =   0
         ForeColor       =   16777215
         BackColorBkg    =   0
         GridColor       =   0
         GridLines       =   0
         GridLinesFixed  =   0
      End
      Begin MSFlexGridLib.MSFlexGrid GrdHtInfo 
         CausesValidation=   0   'False
         Height          =   4095
         Left            =   6420
         TabIndex        =   9
         Top             =   120
         Width           =   2085
         _ExtentX        =   3678
         _ExtentY        =   7223
         _Version        =   393216
         FixedCols       =   0
         BackColor       =   16777215
         BackColorFixed  =   12632256
         BackColorSel    =   14657433
         ForeColorSel    =   16753828
         BackColorBkg    =   12632256
         GridColor       =   0
         AllowBigSelection=   0   'False
         HighLight       =   2
         SelectionMode   =   1
         MergeCells      =   1
         AllowUserResizing=   2
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "房  间"
         ForeColor       =   &H00FFFFFF&
         Height          =   285
         Left            =   120
         TabIndex        =   10
         Top             =   4620
         Width           =   645
      End
      Begin VB.Shape Shape2 
         BackColor       =   &H00A56E3A&
         FillColor       =   &H00A56E3A&
         FillStyle       =   0  'Solid
         Height          =   285
         Index           =   0
         Left            =   60
         Top             =   4560
         Width           =   765
      End
   End
End
Attribute VB_Name = "frmHHt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private RoomId_ht() As Long 'RoomId_ht（房号）与 CboRoomList_ht（房间名）的ListIndex一一对应
Private Const rowCountht = 6
Private clickCount As Long
Private dcls_ht() As workStatus
Private m_mode_ht As Integer '0 合台 1 换台
Public Property Let mode_ht(VL As Integer)
    m_mode_ht = VL
End Property

Private Sub cmdClr_ht_Click()
    GrdHtInfo.Rows = 1
End Sub
Private Sub initFld_ht()
    GrdHtInfo.Rows = 1
    GrdHtInfo.Cols = 3
    With GrdHtInfo
        .TextMatrix(0, 0) = "操作方式"
        .TextMatrix(0, 1) = "桌号"
        .ColWidth(0) = 1200
        .ColWidth(1) = 800
        .ColWidth(2) = 0
    End With
End Sub

Private Sub cmdExit_Click()