pub_lycx.frm

一个简单的酒店管理系统 用VB.net+SQL2000实现

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form fm_lycx 
   ClientHeight    =   6930
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   11580
   ControlBox      =   0   'False
   ForeColor       =   &H8000000B&
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   6930
   ScaleWidth      =   11580
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Caption         =   "客房类型"
      Height          =   585
      Left            =   4770
      TabIndex        =   15
      Top             =   5610
      Width           =   4335
      Begin VB.OptionButton op_kflx 
         Caption         =   "房源"
         Height          =   180
         Index           =   4
         Left            =   3450
         TabIndex        =   7
         Top             =   270
         Width           =   705
      End
      Begin VB.OptionButton op_kflx 
         Caption         =   "办公"
         Height          =   180
         Index           =   3
         Left            =   2610
         TabIndex        =   6
         Top             =   270
         Width           =   705
      End
      Begin VB.OptionButton op_kflx 
         Caption         =   "维修"
         Height          =   180
         Index           =   2
         Left            =   1800
         TabIndex        =   5
         Top             =   270
         Width           =   705
      End
      Begin VB.OptionButton op_kflx 
         Caption         =   "长包"
         Height          =   180
         Index           =   1
         Left            =   990
         TabIndex        =   4
         Top             =   270
         Width           =   705
      End
      Begin VB.OptionButton op_kflx 
         Caption         =   "预订"
         Height          =   180
         Index           =   0
         Left            =   210
         TabIndex        =   3
         Top             =   270
         Value           =   -1  'True
         Width           =   705
      End
   End
   Begin VB.Frame fm_rq 
      Caption         =   "显示日期"
      Height          =   585
      Left            =   240
      TabIndex        =   11
      Top             =   5610
      Width           =   4365
      Begin MSMask.MaskEdBox tx_rq_s 
         Height          =   285
         Left            =   1050
         TabIndex        =   1
         Top             =   210
         Width           =   1065
         _ExtentX        =   1879
         _ExtentY        =   503
         _Version        =   327680
         BackColor       =   -2147483639
         MaxLength       =   10
         Mask            =   "####-##-##"
         PromptChar      =   "_"
      End
      Begin MSMask.MaskEdBox tx_rq_e 
         Height          =   285
         Left            =   3060
         TabIndex        =   2
         Top             =   210
         Width           =   1065
         _ExtentX        =   1879
         _ExtentY        =   503
         _Version        =   327680
         MaxLength       =   10
         Mask            =   "####-##-##"
         PromptChar      =   "_"
      End
      Begin VB.Label Label3 
         Alignment       =   1  'Right Justify
         Caption         =   "终止日期"
         Height          =   165
         Left            =   2160
         TabIndex        =   13
         Top             =   270
         Width           =   795
      End
      Begin VB.Label Label2 
         Alignment       =   1  'Right Justify
         Caption         =   "起始日期"
         Height          =   165
         Left            =   150
         TabIndex        =   12
         Top             =   270
         Width           =   795
      End
   End
   Begin VB.CommandButton cmd_exit 
      Caption         =   "退出(Esc)"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   7710
      TabIndex        =   8
      Top             =   6330
      Width           =   1410
   End
   Begin MSFlexGridLib.MSFlexGrid gd_lycx 
      Height          =   4320
      Left            =   225
      TabIndex        =   0
      Top             =   840
      Width           =   5835
      _ExtentX        =   10292
      _ExtentY        =   7620
      _Version        =   327680
      Rows            =   16
      FixedCols       =   0
      BackColor       =   16448747
      ForeColorFixed  =   4210752
      GridColor       =   8421504
      FocusRect       =   0
      ScrollBars      =   2
      SelectionMode   =   1
   End
   Begin MSFlexGridLib.MSFlexGrid gd_ylkf 
      Height          =   330
      Left            =   225
      TabIndex        =   10
      Top             =   5220
      Width           =   5835
      _ExtentX        =   10292
      _ExtentY        =   582
      _Version        =   327680
      Rows            =   1
      BackColor       =   15465721
      BackColorFixed  =   15790845
      ForeColorFixed  =   8421504
      Enabled         =   0   'False
   End
   Begin MSFlexGridLib.MSFlexGrid gd_title 
      Height          =   330
      Left            =   225
      TabIndex        =   16
      Top             =   600
      Width           =   5835
      _ExtentX        =   10292
      _ExtentY        =   582
      _Version        =   327680
      BackColor       =   15465721
      BackColorFixed  =   15790845
      ForeColorFixed  =   0
      ForeColorSel    =   -2147483640
      GridColor       =   0
      Enabled         =   0   'False
      ScrollBars      =   0
   End
   Begin VB.Label frm_msg 
      Alignment       =   1  'Right Justify
      Caption         =   "frm_msg"
      ForeColor       =   &H8000000D&
      Height          =   195
      Left            =   8100
      TabIndex        =   14
      Top             =   30
      Width           =   2685
   End
   Begin MSForms.Label lb_title 
      Height          =   255
      Left            =   1650
      TabIndex        =   9
      Top             =   300
      Width           =   3300
      ForeColor       =   7360734
      Caption         =   "客房利用情况表查询"
      Size            =   "5821;450"
      FontName        =   "宋体"
      FontEffects     =   1073741825
      FontHeight      =   240
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
      FontWeight      =   700
   End
End
Attribute VB_Name = "fm_lycx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim PUB_data As Database
Dim pub_code As String
Dim SYS_LXC As Variant
Dim sys_lxn As Integer
Dim SYS_Yl As Variant


Dim START_DAY As Date
Dim END_DAY As Variant
Dim CS_id As Integer

Dim t_bt_title As String    '表头
Dim t_bt_ylkf As String     '预留客房的表头
Dim t_bt_lycx As String     '客房利用情况表的表头
Dim t_length As Integer     '利用情况表显示时, 每列中的列数


Sub MAIN(T_DATA As Database, T_ID As Integer, T_LXN As Integer, T_LXC As Variant, T_YL As Variant, t_code As String)
    Set PUB_data = T_DATA
    CS_id = T_ID
    sys_lxn = T_LXN
    SYS_LXC = T_LXC
    SYS_Yl = T_YL
    pub_code = t_code
End Sub

Private Sub cmd_exit_Click()
    Unload Me
End Sub

Private Sub Form_Activate()
    gd_lycx.SetFocus
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
       Call cmd_exit_Click
    End If