unit16.dfm

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

object Form16: TForm16
  Left = 250
  Top = 80
  Width = 620
  Height = 579
  Caption = #23458#25143#20449#24687#24405#20837
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 20
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 577
    Height = 329
    Caption = #22635#20889#23458#25143#22522#26412#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 40
      Width = 97
      Height = 20
      AutoSize = False
      Caption = #23458#25143#32534#21495#65306
    end
    object Label2: TLabel
      Left = 216
      Top = 40
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #23458#25143#22995#21517#65306
    end
    object Label3: TLabel
      Left = 32
      Top = 88
      Width = 97
      Height = 20
      AutoSize = False
      Caption = #35777#20214#21517#31216#65306
    end
    object Label4: TLabel
      Left = 296
      Top = 88
      Width = 97
      Height = 20
      AutoSize = False
      Caption = #35777#20214#21495#30721#65306
    end
    object Label5: TLabel
      Left = 32
      Top = 240
      Width = 97
      Height = 20
      AutoSize = False
      Caption = #23458#25143#31561#32423#65306
    end
    object Label6: TLabel
      Left = 296
      Top = 240
      Width = 48
      Height = 20
      AutoSize = False
      Caption = #25240#25187#65306
    end
    object Label7: TLabel
      Left = 32
      Top = 144
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #32852#31995#30005#35805#65306
    end
    object Label8: TLabel
      Left = 32
      Top = 192
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #36890#20449#22320#22336#65306
    end
    object Label9: TLabel
      Left = 296
      Top = 144
      Width = 48
      Height = 20
      AutoSize = False
      Caption = #22269#31821#65306
    end
    object Label10: TLabel
      Left = 360
      Top = 192
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #28040#36153#31215#20998#65306
    end
    object Label11: TLabel
      Left = 416
      Top = 40
      Width = 48
      Height = 20
      AutoSize = False
      Caption = #24615#21035#65306
    end
    object Label12: TLabel
      Left = 400
      Top = 312
      Width = 137
      Height = 13
      AutoSize = False
      Caption = #65288#24102'*'#21495#20026#24517#22635#20869#23481#65289
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 400
      Top = 40
      Width = 6
      Height = 20
      Caption = '*'
    end
    object Label14: TLabel
      Left = 528
      Top = 40
      Width = 6
      Height = 20
      Caption = '*'
    end
    object Label15: TLabel
      Left = 256
      Top = 88
      Width = 6
      Height = 20
      Caption = '*'
    end
    object Label16: TLabel
      Left = 528
      Top = 88
      Width = 6
      Height = 20
      Caption = '*'
    end
    object Label18: TLabel
      Left = 528
      Top = 240
      Width = 6
      Height = 20
      Caption = '*'
    end
    object Label19: TLabel
      Left = 256
      Top = 240
      Width = 6
      Height = 20
      Caption = '*'
    end
    object Label20: TLabel
      Left = 528
      Top = 192
      Width = 6
      Height = 20
      Caption = '*'
    end
    object customerid: TEdit
      Left = 128
      Top = 32
      Width = 81
      Height = 28
      AutoSize = False
      ReadOnly = True
      TabOrder = 0
    end
    object customername: TEdit
      Left = 304
      Top = 32
      Width = 97
      Height = 28
      AutoSize = False
      TabOrder = 1
    end
    object idname: TComboBox
      Left = 128
      Top = 80
      Width = 129
      Height = 28
      ItemHeight = 20
      TabOrder = 2
      Items.Strings = (
        ''
        #36523#20221#35777
        #20891#23448#35777
        #25252'  '#29031
        '')
    end
    object idcard: TEdit
      Left = 392
      Top = 80
      Width = 137
      Height = 28
      AutoSize = False
      TabOrder = 3
    end
    object customerrank: TComboBox
      Left = 128
      Top = 232
      Width = 129
      Height = 28
      ItemHeight = 20
      TabOrder = 4
      Items.Strings = (
        ''
        'A'#32423'VIP'
        'B'#32423'VIP'
        'C'#32423'VIP'
        'VIP'
        #26222#36890#23458#25143
        #40657#21517#21333)
    end
    object account: TComboBox
      Left = 392
      Top = 232
      Width = 137
      Height = 28
      ItemHeight = 20
      TabOrder = 5
      Items.Strings = (
        ''
        'Free'
        '20%'
        '40%'
        '60%'
        '80%'
        #20840#20215)
    end
    object tel: TEdit
      Left = 128
      Top = 136
      Width = 129
      Height = 28
      AutoSize = False
      TabOrder = 6
    end
    object address: TEdit
      Left = 128
      Top = 184
      Width = 217
      Height = 28
      AutoSize = False
      TabOrder = 7
    end
    object nation: TComboBox
      Left = 392
      Top = 136
      Width = 137
      Height = 28
      ItemHeight = 20
      TabOrder = 8
      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 mark: TEdit
      Left = 448
      Top = 184
      Width = 81
      Height = 28
      AutoSize = False
      TabOrder = 9
    end
    object gender: TComboBox
      Left = 464
      Top = 32
      Width = 65
      Height = 28
      ItemHeight = 20
      TabOrder = 10
      Items.Strings = (
        ''
        #30007
        #22899)
    end
    object insert: TButton
      Left = 360
      Top = 280
      Width = 75
      Height = 25
      Caption = #24405#20837
      TabOrder = 11
      OnClick = insertClick
    end
    object refresh: TButton
      Left = 456
      Top = 280
      Width = 75
      Height = 25
      Caption = #28165#23631
      TabOrder = 12
      OnClick = refreshClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 352
    Width = 577
    Height = 177
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 176
    Top = 312
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'my database'
    SQL.Strings = (
      'select * from customer')
    Left = 232
    Top = 296
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'My database'
    TableName = 'dbo.customer'
    Left = 112
    Top = 296
  end
end