unit22.dfm

一个用DELPHI编的酒店管理系统。 其中数据库：SQL Server2000, 只需恢复 My database文件夹中 My database_Data.MDF和 My database_Log.

object Form22: TForm22
  Left = 267
  Top = 78
  Width = 337
  Height = 253
  Caption = #36861#21152#28040#36153#32426#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 20
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 313
    Height = 201
    Caption = #22635#20889#28040#36153#32426#24405
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 72
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #28040#36153#39033#30446#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 112
      Width = 48
      Height = 20
      AutoSize = False
      Caption = #37329#39069#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 32
      Width = 81
      Height = 20
      AutoSize = False
      Caption = #25151#38388#21495#65306
    end
    object Label4: TLabel
      Left = 208
      Top = 96
      Width = 97
      Height = 13
      AutoSize = False
      Caption = #65288#20854#23427#35831#22635#20889#65289
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object btnok: TButton
      Left = 56
      Top = 160
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 0
      OnClick = btnokClick
    end
    object item: TComboBox
      Left = 96
      Top = 64
      Width = 89
      Height = 28
      ItemHeight = 20
      TabOrder = 1
      Items.Strings = (
        ''
        #21152#24202#36153
        #23089#20048#36153
        #20572#36710#36153
        #27927#34915#36153
        #20195#21150#36153
        #37202#27700#36153
        #20854#23427)
    end
    object money: TEdit
      Left = 96
      Top = 104
      Width = 89
      Height = 28
      AutoSize = False
      TabOrder = 2
    end
    object other: TEdit
      Left = 192
      Top = 64
      Width = 105
      Height = 28
      AutoSize = False
      TabOrder = 3
    end
    object btncancel: TButton
      Left = 168
      Top = 160
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 4
      OnClick = btncancelClick
    end
    object roomid: TEdit
      Left = 96
      Top = 24
      Width = 89
      Height = 28
      TabOrder = 5
    end
  end
  object Query1: TQuery
    DatabaseName = 'my database'
    SQL.Strings = (
      
        'select checkin.'#32467#36134#37329#39069' from checkin,addcustom where checkin.'#25151#21495'=addc' +
        'ustom.'#25151#21495)
    Left = 16
    Top = 144
  end
  object addcustom: TTable
    DatabaseName = 'my database'
    TableName = 'dbo.addcustom'
    Left = 56
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 136
    Top = 152
  end
  object checkin: TTable
    DatabaseName = 'my database'
    TableName = 'dbo.checkin'
    Left = 208
    Top = 136
  end
end