main_tfdj.frm

本系统以ACCESS为数据库,能对酒店的日常事务进行管理,如客房入住,退房,房间空置有标记,挺适合初学者学习之用,希大家多多指教

VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form main_tfdj 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "调房登记"
   ClientHeight    =   3945
   ClientLeft      =   1365
   ClientTop       =   2640
   ClientWidth     =   8610
   Icon            =   "main_tfdj.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3945
   ScaleWidth      =   8610
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "Frame1"
      Height          =   900
      Left            =   -1515
      TabIndex        =   6
      Top             =   -135
      Visible         =   0   'False
      Width           =   2535
      Begin VB.Data Data3 
         Caption         =   "Data1"
         Connect         =   "Access"
         DatabaseName    =   "C:\mrjd\kfgl.mdb"
         DefaultCursorType=   0  '缺省游标
         DefaultType     =   2  '使用 ODBC
         Exclusive       =   0   'False
         Height          =   345
         Left            =   1275
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "djys"
         Top             =   510
         Visible         =   0   'False
         Width           =   1140
      End
      Begin VB.Data Data4 
         Caption         =   "Data1"
         Connect         =   "Access"
         DatabaseName    =   "C:\mrjd\kfgl.mdb"
         DefaultCursorType=   0  '缺省游标
         DefaultType     =   2  '使用 ODBC
         Exclusive       =   0   'False
         Height          =   345
         Left            =   1275
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "djb"
         Top             =   180
         Visible         =   0   'False
         Width           =   1140
      End
      Begin VB.Data Data1 
         Caption         =   "Data1"
         Connect         =   "Access"
         DatabaseName    =   "C:\mrjd\kfgl.mdb"
         DefaultCursorType=   0  '缺省游标
         DefaultType     =   2  '使用 ODBC
         Exclusive       =   0   'False
         Height          =   345
         Left            =   60
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "djb"
         Top             =   180
         Visible         =   0   'False
         Width           =   1140
      End
      Begin VB.Data Data2 
         Caption         =   "Data1"
         Connect         =   "Access"
         DatabaseName    =   "C:\mrjd\kfgl.mdb"
         DefaultCursorType=   0  '缺省游标
         DefaultType     =   2  '使用 ODBC
         Exclusive       =   0   'False
         Height          =   345
         Left            =   105
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "kf"
         Top             =   525
         Visible         =   0   'False
         Width           =   1095
      End
   End
   Begin VB.Frame Frame3 
      Enabled         =   0   'False
      Height          =   1755
      Left            =   105
      TabIndex        =   12
      Top             =   1740
      Width           =   8340
      Begin VB.TextBox Texjg 
         Height          =   285
         Left            =   4590
         TabIndex        =   21
         Top             =   285
         Width           =   3555
      End
      Begin VB.TextBox Texbz 
         Height          =   285
         Left            =   1350
         TabIndex        =   19
         Top             =   1215
         Width           =   6780
      End
      Begin VB.TextBox Texxmb 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1350
         Locked          =   -1  'True
         TabIndex        =   15
         Top             =   750
         Width           =   3630
      End
      Begin VB.TextBox Texsfz 
         Enabled         =   0   'False
         Height          =   285
         Left            =   6180
         Locked          =   -1  'True
         TabIndex        =   14
         Top             =   765
         Width           =   1965
      End
      Begin VB.ComboBox Combo1 
         BackColor       =   &H00FF8080&
         Height          =   300
         ItemData        =   "main_tfdj.frx":000C
         Left            =   5100
         List            =   "main_tfdj.frx":001C
         Style           =   2  'Dropdown List
         TabIndex        =   13
         Top             =   765
         Width           =   1020
      End
      Begin MSDBCtls.DBCombo DBCombo1 
         Bindings        =   "main_tfdj.frx":0040
         Height          =   330
         Left            =   1350
         TabIndex        =   16
         Top             =   270
         Width           =   2130
         _ExtentX        =   3757
         _ExtentY        =   582
         _Version        =   393216
         Style           =   2
         ListField       =   "房间号"
         Text            =   ""
      End
      Begin VB.Label Lab6 
         BackStyle       =   0  'Transparent
         Caption         =   "姓名            备注"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   885
         Left            =   435
         TabIndex        =   18
         Top             =   720
         Width           =   960
      End
      Begin VB.Label Lab5 
         BackStyle       =   0  'Transparent
         Caption         =   "目标房间号                客房价格"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   90
         TabIndex        =   17
         Top             =   330
         Width           =   4575
      End
   End
   Begin VB.Frame Frame2 
      Enabled         =   0   'False
      Height          =   930
      Left            =   120
      TabIndex        =   9
      Top             =   810
      Width           =   8325
      Begin MSDBCtls.DBCombo DBCombo2 
         Bindings        =   "main_tfdj.frx":0054
         Height          =   330
         Left            =   1230
         TabIndex        =   10
         Top             =   330
         Width           =   1995
         _ExtentX        =   3519
         _ExtentY        =   582
         _Version        =   393216
         ListField       =   "房间号"
         Text            =   ""
      End
      Begin VB.Label Lab4 
         BackStyle       =   0  'Transparent
         Caption         =   "　　提示：                                              请选择源房间号和目标房间号，然后进行调房。"
         Height          =   780
         Left            =   3315
         TabIndex        =   22
         Top             =   315
         Width           =   4995
      End
      Begin VB.Image Image1 
         Height          =   210
         Left            =   3285
         Picture         =   "main_tfdj.frx":0068
         Stretch         =   -1  'True
         Top             =   240
         Width           =   240
      End
      Begin VB.Label Lab3 
         BackStyle       =   0  'Transparent
         Caption         =   "源房间号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False