📄 unit6.~dfm

📁 酒店住宿管理系统,有完整的文件和源码, 可以下载使用
💻 ~DFM
📖 第 1 页 / 共 2 页
字号:
上一页 12
  end
  object Edit3: TEdit
    Left = 395
    Top = 261
    Width = 97
    Height = 30
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 13
  end
  object Edit2: TEdit
    Left = 395
    Top = 215
    Width = 97
    Height = 30
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 14
  end
  object BitBtn5: TBitBtn
    Left = 484
    Top = 483
    Width = 100
    Height = 30
    Cursor = crHandPoint
    Caption = #20462#25913
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 15
    OnClick = BitBtn5Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
  end
  object Edit9: TEdit
    Left = 195
    Top = 215
    Width = 97
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    MaxLength = 6
    ParentFont = False
    TabOrder = 16
  end
  object Edit10: TEdit
    Left = 395
    Top = 215
    Width = 97
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    MaxLength = 20
    ParentFont = False
    TabOrder = 17
  end
  object Edit11: TEdit
    Left = 395
    Top = 261
    Width = 97
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 18
  end
  object Edit13: TEdit
    Left = 195
    Top = 359
    Width = 97
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 19
  end
  object Edit14: TEdit
    Left = 395
    Top = 359
    Width = 97
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 20
  end
  object Edit15: TEdit
    Left = 195
    Top = 408
    Width = 99
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    MaxLength = 50
    ParentFont = False
    TabOrder = 21
  end
  object Edit16: TEdit
    Left = 397
    Top = 408
    Width = 97
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 22
    OnChange = Edit16Change
  end
  object ComboBox2: TComboBox
    Left = 195
    Top = 261
    Width = 97
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ItemHeight = 22
    ParentFont = False
    TabOrder = 23
    OnChange = ComboBox2Change
  end
  object GroupBox2: TGroupBox
    Left = 531
    Top = 249
    Width = 142
    Height = 152
    Caption = #23458#25151#26631#24535
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 24
    object CheckBox4: TCheckBox
      Left = 29
      Top = 33
      Width = 84
      Height = 25
      Caption = #20445#30041
      TabOrder = 0
    end
    object CheckBox5: TCheckBox
      Left = 29
      Top = 68
      Width = 84
      Height = 30
      Caption = #24050#20351#29992
      TabOrder = 1
    end
    object CheckBox6: TCheckBox
      Left = 29
      Top = 106
      Width = 81
      Height = 25
      Caption = #38047#28857#25151
      TabOrder = 2
    end
  end
  object BitBtn6: TBitBtn
    Left = 585
    Top = 483
    Width = 100
    Height = 30
    Cursor = crHandPoint
    Caption = #36864#20986
    Default = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 25
    OnClick = BitBtn6Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
      993337777F777F3377F3393999707333993337F77737333337FF993399933333
      399377F3777FF333377F993339903333399377F33737FF33377F993333707333
      399377F333377FF3377F993333101933399377F333777FFF377F993333000993
      399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
      99333773FF777F777733339993707339933333773FF7FFF77333333999999999
      3333333777333777333333333999993333333333377777333333}
    NumGlyphs = 2
  end
  object Edit12: TEdit
    Left = 195
    Top = 309
    Width = 297
    Height = 30
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    MaxLength = 50
    ParentFont = False
    TabOrder = 26
  end
  object BitBtn7: TBitBtn
    Left = 117
    Top = 454
    Width = 130
    Height = 25
    Cursor = crHandPoint
    Caption = #31532#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 27
    OnClick = BitBtn7Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333333333333333333333333333333333FF333333333333
      3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
      E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
      E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
      E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
      000033333373FF77777733333330003333333333333777333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn8: TBitBtn
    Left = 246
    Top = 454
    Width = 130
    Height = 25
    Cursor = crHandPoint
    Caption = #19978#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 28
    OnClick = BitBtn8Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
      333333777777777F33333330B00000003333337F7777777F3333333000000000
      333333777777777F333333330EEEEEE033333337FFFFFF7F3333333300000000
      333333377777777F3333333330BFBFB03333333373333373F33333330BFBFBFB
      03333337F33333F7F33333330FBFBF0F03333337F33337F7F33333330BFBFB0B
      03333337F3F3F7F7333333330F0F0F0033333337F7F7F773333333330B0B0B03
      3333333737F7F7F333333333300F0F03333333337737F7F33333333333300B03
      333333333377F7F33333333333330F03333333333337F7F33333333333330B03
      3333333333373733333333333333303333333333333373333333}
    NumGlyphs = 2
  end
  object BitBtn9: TBitBtn
    Left = 375
    Top = 454
    Width = 130
    Height = 25
    Cursor = crHandPoint
    Caption = #19979#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 29
    OnClick = BitBtn9Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
      33333333373F33333333333330B03333333333337F7F33333333333330F03333
      333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
      333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
      333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
      3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
      33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
      33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
      03333337777777F7F33333330000000003333337777777773333}
    NumGlyphs = 2
  end
  object BitBtn10: TBitBtn
    Left = 504
    Top = 454
    Width = 130
    Height = 25
    Cursor = crHandPoint
    Caption = #26368#21518#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 30
    OnClick = BitBtn10Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333FFF333333333333000333333333
      3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
      3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
      0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
      BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
      33337777773FF733333333333300033333333333337773333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mindy paradise\p' +
      'roject\mindyparadisehotel.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOTable1AfterScroll
    TableName = #23458#25151#31649#29702
    Top = 64
  end
  object ADOTable2: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mindy paradise\p' +
      'roject\mindyparadisehotel.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #23458#25151#31649#29702
    Top = 96
  end
  object ADODataSet1: TADODataSet
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mindy paradise\p' +
      'roject\mindyparadisehotel.mdb;Persist Security Info=False'
    CursorType = ctStatic
    CommandText = 'select * from '#23458#25151#31649#29702
    DataSource = DataSource1
    Parameters = <>
    Top = 128
  end
end
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -