bookroom.dfm

我自己写的一个有关酒店管理系统的代码 大家

object bookroomForm: TbookroomForm
  Left = 220
  Top = 150
  Width = 517
  Height = 451
  Caption = #23458#25143#35746#25151
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 24
    Top = 16
    Width = 457
    Height = 169
    Caption = #23458#25143#36164#26009
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 48
      Height = 13
      Caption = #23458#25143#21517#31216
    end
    object Label2: TLabel
      Left = 280
      Top = 24
      Width = 24
      Height = 13
      Caption = #24615#21035
    end
    object Label3: TLabel
      Left = 48
      Top = 48
      Width = 24
      Height = 13
      Caption = #31821#36143
    end
    object Label4: TLabel
      Left = 256
      Top = 48
      Width = 57
      Height = 13
      Caption = #20986#29983#24180#26376
    end
    object Label5: TLabel
      Left = 24
      Top = 72
      Width = 57
      Height = 13
      Caption = #35777#20214#21517#31216
    end
    object Label6: TLabel
      Left = 256
      Top = 72
      Width = 57
      Height = 13
      Caption = #35777#20214#21495#30721
    end
    object Label7: TLabel
      Left = 24
      Top = 96
      Width = 57
      Height = 13
      Caption = #24037#20316#21333#20301
    end
    object Label8: TLabel
      Left = 24
      Top = 120
      Width = 57
      Height = 13
      Caption = #36890#20449#22320#22336
    end
    object Label9: TLabel
      Left = 24
      Top = 144
      Width = 57
      Height = 13
      Caption = #32852#31995#26041#24335
    end
    object Edit1: TEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'Edit1'
      OnExit = Edit1Exit
    end
    object Edit2: TEdit
      Left = 312
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 1
      Text = 'Edit2'
    end
    object Edit3: TEdit
      Left = 80
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 2
      Text = 'Edit3'
    end
    object MaskEdit1: TMaskEdit
      Left = 312
      Top = 40
      Width = 120
      Height = 21
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 3
      Text = '    -  -  '
    end
    object Edit4: TEdit
      Left = 80
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 4
      Text = 'Edit4'
    end
    object Edit5: TEdit
      Left = 312
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 5
      Text = 'Edit5'
    end
    object Edit6: TEdit
      Left = 80
      Top = 88
      Width = 353
      Height = 21
      TabOrder = 6
      Text = 'Edit6'
    end
    object Edit7: TEdit
      Left = 80
      Top = 112
      Width = 353
      Height = 21
      TabOrder = 7
      Text = 'Edit7'
    end
    object Edit8: TEdit
      Left = 80
      Top = 136
      Width = 353
      Height = 21
      TabOrder = 8
      Text = 'Edit8'
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 224
    Width = 457
    Height = 145
    Caption = #35746#25151#20449#24687
    TabOrder = 1
    object Label10: TLabel
      Left = 48
      Top = 24
      Width = 24
      Height = 13
      Caption = #28304#22320
    end
    object Label11: TLabel
      Left = 264
      Top = 24
      Width = 41
      Height = 13
      Caption = #30446#30340#22320
    end
    object Label12: TLabel
      Left = 24
      Top = 48
      Width = 57
      Height = 13
      Caption = #30331#35760#26102#38388
    end
    object Label13: TLabel
      Left = 256
      Top = 48
      Width = 57
      Height = 13
      Caption = #39044#35745#22825#25968
    end
    object Label14: TLabel
      Left = 32
      Top = 72
      Width = 48
      Height = 13
      Caption = #25151#38388#32534#21495
    end
    object Label15: TLabel
      Left = 256
      Top = 72
      Width = 57
      Height = 13
      Caption = #20303#25151#21333#20215
    end
    object Label16: TLabel
      Left = 32
      Top = 96
      Width = 49
      Height = 13
      Caption = #25240#25187#29575' '
    end
    object Label17: TLabel
      Left = 256
      Top = 96
      Width = 57
      Height = 13
      Caption = #20132#32435#25276#37329
    end
    object Label18: TLabel
      Left = 48
      Top = 120
      Width = 27
      Height = 13
      Caption = #35828#26126' '
    end
    object Label19: TLabel
      Left = 256
      Top = 120
      Width = 57
      Height = 13
      Caption = #20854#20182#36153#29992
    end
    object Edit9: TEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'Edit9'
    end
    object Edit10: TEdit
      Left = 312
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 1
      Text = 'Edit10'
    end
    object Edit11: TEdit
      Left = 80
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 2
      Text = 'Edit11'
    end
    object Edit12: TEdit
      Left = 312
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 3
      Text = 'Edit12'
    end
    object Edit13: TEdit
      Left = 312
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 4
      Text = 'Edit13'
    end
    object Edit14: TEdit
      Left = 80
      Top = 88
      Width = 121
      Height = 21
      TabOrder = 5
      Text = 'Edit14'
    end
    object Edit15: TEdit
      Left = 312
      Top = 88
      Width = 121
      Height = 21
      TabOrder = 6
      Text = 'Edit15'
    end
    object Edit16: TEdit
      Left = 80
      Top = 112
      Width = 121
      Height = 21
      TabOrder = 7
      Text = 'Edit16'
    end
    object ComboBox1: TComboBox
      Left = 80
      Top = 64
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 8
      Text = 'ComboBox1'
      OnExit = ComboBox1Exit
    end
    object Edit17: TEdit
      Left = 312
      Top = 112
      Width = 121
      Height = 21
      TabOrder = 9
      Text = 'Edit17'
    end
  end
  object GroupBox3: TGroupBox
    Left = 24
    Top = 184
    Width = 457
    Height = 41
    Caption = #35746#25151#31867#22411
    TabOrder = 2
    object RadioButton1: TRadioButton
      Left = 80
      Top = 16
      Width = 65
      Height = 17
      Caption = #38047#28857#25151
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 224
      Top = 16
      Width = 113
      Height = 17
      Caption = #27491#24120#20303#23487
      TabOrder = 1
      OnClick = RadioButton2Click
    end
  end
  object BitBtn1: TBitBtn
    Left = 40
    Top = 384
    Width = 75
    Height = 25
    Caption = #26597#35810#23458#25151
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 160
    Top = 384
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 280
    Top = 384
    Width = 75
    Height = 25
    Caption = #26032#20449#24687
    TabOrder = 5
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 400
    Top = 384
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 6
    OnClick = BitBtn4Click
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\administrator\My Documents\Delphi 7'#25968#25454#24211#24212#29992#25216#26415#19982#32534#31243#23454#20363'\'#22823#31995#32479#33539#20363'\'#37202#24215#31649 +
      #29702#31995#32479'\hotel.mdb;Persist Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 408
    Top = 192
  end
end