unit37.dfm

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

object Form37: TForm37
  Left = 506
  Top = 17
  Width = 438
  Height = 397
  Caption = 'Form37'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 393
    Height = 65
    Caption = #22635#20889#23458#25143#32534#21495
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 97
      Height = 20
      AutoSize = False
      Caption = #23458#25143#32534#21495#65306
    end
    object customerid: TEdit
      Left = 112
      Top = 24
      Width = 121
      Height = 28
      AutoSize = False
      TabOrder = 0
    end
    object Button3: TButton
      Left = 256
      Top = 24
      Width = 105
      Height = 25
      Caption = #39564#35777#36755#20837
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button3Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 80
    Width = 398
    Height = 278
    Caption = #22635#20889#20462#25913#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label2: TLabel
      Left = 8
      Top = 32
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #23458#25143#22995#21517#65306
    end
    object Label3: TLabel
      Left = 144
      Top = 32
      Width = 36
      Height = 16
      AutoSize = False
      Caption = #24615#21035#65306
    end
    object Label4: TLabel
      Left = 264
      Top = 32
      Width = 48
      Height = 20
      AutoSize = False
      Caption = #22269#31821#65306
    end
    object Label5: TLabel
      Left = 8
      Top = 72
      Width = 97
      Height = 20
      AutoSize = False
      Caption = #35777#20214#21517#31216#65306
    end
    object Label7: TLabel
      Left = 160
      Top = 72
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #35777#20214#21495#30721#65306
    end
    object Label9: TLabel
      Left = 8
      Top = 160
      Width = 97
      Height = 20
      AutoSize = False
      Caption = #23458#25143#31561#32423#65306
    end
    object Label6: TLabel
      Left = 8
      Top = 112
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #32852#31995#30005#35805#65306
    end
    object Label8: TLabel
      Left = 8
      Top = 208
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #36890#20449#22320#22336#65306
    end
    object Label10: TLabel
      Left = 232
      Top = 160
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #28040#36153#31215#20998#65306
    end
    object Label12: TLabel
      Left = 264
      Top = 109
      Width = 48
      Height = 20
      AutoSize = False
      Caption = #25240#25187#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object customername: TEdit
      Left = 80
      Top = 24
      Width = 57
      Height = 24
      AutoSize = False
      TabOrder = 0
    end
    object gender: TComboBox
      Left = 184
      Top = 24
      Width = 57
      Height = 24
      ItemHeight = 16
      TabOrder = 1
      Items.Strings = (
        ''
        #30007
        #22899)
    end
    object idcard: TEdit
      Left = 232
      Top = 64
      Width = 153
      Height = 24
      AutoSize = False
      TabOrder = 2
    end
    object Button1: TButton
      Left = 208
      Top = 240
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 304
      Top = 240
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 4
      OnClick = Button2Click
    end
    object nation: TComboBox
      Left = 304
      Top = 24
      Width = 81
      Height = 24
      ItemHeight = 16
      TabOrder = 5
      Items.Strings = (
        ''
        #20013#22269
        #32654#22269
        #27861#22269
        #33521#22269
        #24503#22269
        #38889#22269
        #24052#35199
        #21360#24230
        #20420#32599#26031
        #26032#21152#22369
        #24847#22823#21033
        #35199#29677#29273
        #21152#25343#22823
        #28595#22823#21033#20122)
    end
    object idname: TComboBox
      Left = 80
      Top = 64
      Width = 73
      Height = 24
      ItemHeight = 16
      TabOrder = 6
      Items.Strings = (
        ''
        #36523#20221#35777
        #20891#23448#35777
        #25252'  '#29031
        '')
    end
    object customerrank: TComboBox
      Left = 88
      Top = 152
      Width = 121
      Height = 24
      ItemHeight = 16
      TabOrder = 7
      Items.Strings = (
        ''
        #30333#37329#32423'VIP'
        #40644#37329#32423'VIP'
        #30333#38134#32423'VIP'
        'VIP'
        #26222#36890#23458#25143
        #40657#21517#21333)
    end
    object tel: TEdit
      Left = 80
      Top = 104
      Width = 169
      Height = 28
      AutoSize = False
      TabOrder = 8
    end
    object address: TEdit
      Left = 80
      Top = 200
      Width = 305
      Height = 28
      AutoSize = False
      TabOrder = 9
    end
    object mark: TEdit
      Left = 304
      Top = 152
      Width = 81
      Height = 28
      AutoSize = False
      TabOrder = 10
    end
    object account: TComboBox
      Left = 304
      Top = 105
      Width = 81
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 11
      Items.Strings = (
        ''
        'Free'
        '20%'
        '40%'
        '60%'
        '80%'
        #20840#20215)
    end
  end
end