roommanage.dfm

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

object RoomForm: TRoomForm
  Left = 268
  Top = 212
  Width = 472
  Height = 307
  Caption = #23458#25151#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #26999#20307'_GB2312'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 19
    Top = 122
    Width = 48
    Height = 12
    Caption = #23458#25151#32534#21495
  end
  object Label2: TLabel
    Left = 173
    Top = 122
    Width = 48
    Height = 12
    Caption = #23458#25151#22320#28857
  end
  object Label3: TLabel
    Left = 19
    Top = 147
    Width = 48
    Height = 12
    Caption = #23458#25151#31561#32423
  end
  object Label4: TLabel
    Left = 173
    Top = 147
    Width = 48
    Height = 12
    Caption = #23458#25151#21333#20215
  end
  object Label5: TLabel
    Left = 19
    Top = 173
    Width = 48
    Height = 12
    Caption = #23458#25151#29289#21697
  end
  object Label6: TLabel
    Left = 19
    Top = 198
    Width = 48
    Height = 12
    Caption = #25805#20316#26085#26399
  end
  object Label7: TLabel
    Left = 179
    Top = 198
    Width = 36
    Height = 12
    Caption = #25805#20316#21592
  end
  object Label8: TLabel
    Left = 45
    Top = 224
    Width = 24
    Height = 12
    Caption = #35828#26126
  end
  object Label9: TLabel
    Left = 176
    Top = 224
    Width = 48
    Height = 12
    Caption = #21487#20303#20154#25968
  end
  object Edit1: TEdit
    Left = 70
    Top = 115
    Width = 97
    Height = 20
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 230
    Top = 115
    Width = 97
    Height = 20
    TabOrder = 1
    Text = 'Edit2'
  end
  object ComboBox1: TComboBox
    Left = 70
    Top = 141
    Width = 97
    Height = 20
    ItemHeight = 12
    TabOrder = 2
    Text = 'ComboBox1'
    OnChange = ComboBox1Change
    OnExit = ComboBox1Change
  end
  object Edit3: TEdit
    Left = 230
    Top = 141
    Width = 97
    Height = 20
    TabOrder = 3
    Text = 'Edit3'
  end
  object Edit4: TEdit
    Left = 70
    Top = 166
    Width = 257
    Height = 20
    TabOrder = 4
    Text = 'Edit4'
  end
  object Edit5: TEdit
    Left = 70
    Top = 192
    Width = 97
    Height = 20
    TabOrder = 5
    Text = 'Edit5'
  end
  object Edit6: TEdit
    Left = 230
    Top = 192
    Width = 97
    Height = 20
    TabOrder = 6
    Text = 'Edit6'
  end
  object DBGrid1: TDBGrid
    Left = 70
    Top = 6
    Width = 257
    Height = 103
    DataSource = DataSource1
    TabOrder = 7
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #26999#20307'_GB2312'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 339
    Top = 6
    Width = 97
    Height = 84
    Caption = #23458#25151#26631#24535
    TabOrder = 8
    object CheckBox1: TCheckBox
      Left = 13
      Top = 18
      Width = 52
      Height = 13
      Caption = #20445#30041
      TabOrder = 0
    end
    object CheckBox2: TCheckBox
      Left = 13
      Top = 43
      Width = 65
      Height = 14
      Caption = #24050#20351#29992
      TabOrder = 1
    end
    object CheckBox3: TCheckBox
      Left = 16
      Top = 64
      Width = 65
      Height = 17
      Caption = #38047#28857#25151
      TabOrder = 2
    end
  end
  object BitBtn1: TBitBtn
    Left = 51
    Top = 251
    Width = 60
    Height = 20
    Caption = #20445#23384
    TabOrder = 9
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 154
    Top = 251
    Width = 60
    Height = 20
    Caption = #28155#21152
    TabOrder = 10
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
      0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
      33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 256
    Top = 251
    Width = 60
    Height = 20
    Caption = #21024#38500
    TabOrder = 11
    OnClick = BitBtn3Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333FF3333333333333003333333333333377F33333333333307
      733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
      000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
      777077777777777777773CCCCC00000000003777777777777777333330030FFF
      FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
      FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
      0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
      0F03333333337FFF7F7333333333000000333333333377777733}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 358
    Top = 251
    Width = 60
    Height = 20
    Caption = #36864#20986
    TabOrder = 12
    OnClick = BitBtn4Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
      993337777F777F3377F3393999707333993337F77737333337FF993399933333
      399377F3777FF333377F993339903333399377F33737FF33377F993333707333
      399377F333377FF3377F993333101933399377F333777FFF377F993333000993
      399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
      99333773FF777F777733339993707339933333773FF7FFF77333333999999999
      3333333777333777333333333999993333333333377777333333}
    NumGlyphs = 2
  end
  object Edit7: TEdit
    Left = 70
    Top = 218
    Width = 99
    Height = 20
    TabOrder = 13
    Text = 'Edit7'
  end
  object DBImage1: TDBImage
    Left = 339
    Top = 115
    Width = 97
    Height = 126
    DataSource = DataSource1
    Stretch = True
    TabOrder = 14
  end
  object Button1: TButton
    Left = 339
    Top = 96
    Width = 97
    Height = 20
    Caption = #35835#21098#36148#26495#22270#29255
    TabOrder = 15
    OnClick = Button1Click
  end
  object Edit8: TEdit
    Left = 232
    Top = 216
    Width = 97
    Height = 20
    TabOrder = 16
    Text = 'Edit8'
  end
  object DataSource1: TDataSource
    Left = 16
    Top = 8
  end
  object Query1: TQuery
    AfterScroll = Query1AfterScroll
    DatabaseName = 'hotel_data'
    Left = 24
    Top = 48
  end
  object Query2: TQuery
    DatabaseName = 'hotel_data'
    Left = 16
    Top = 88
  end
end