unit8.dfm

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

      ParentFont = False
      TabOrder = 12
      object RadioButton4: TRadioButton
        Left = 45
        Top = 14
        Width = 82
        Height = 19
        Caption = #30007
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RadioButton4Click
      end
      object RadioButton5: TRadioButton
        Left = 141
        Top = 15
        Width = 59
        Height = 16
        Caption = #22899
        TabOrder = 1
        OnClick = RadioButton5Click
      end
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 277
    Width = 537
    Height = 153
    Caption = #35746#25151#20449#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label12: TLabel
      Left = 24
      Top = 43
      Width = 76
      Height = 19
      Caption = #30331#35760#26102#38388
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 268
      Top = 44
      Width = 76
      Height = 19
      Caption = #39044#35745#22825#25968
    end
    object Label14: TLabel
      Left = 24
      Top = 19
      Width = 76
      Height = 19
      Caption = #25151#38388#32534#21495
    end
    object Label15: TLabel
      Left = 268
      Top = 16
      Width = 76
      Height = 19
      Caption = #20303#25151#21333#20215
    end
    object Label16: TLabel
      Left = 24
      Top = 94
      Width = 62
      Height = 19
      Caption = #25240#25187#29575' '
    end
    object Label17: TLabel
      Left = 24
      Top = 67
      Width = 76
      Height = 19
      Caption = #20132#32435#25276#37329
    end
    object Label18: TLabel
      Left = 24
      Top = 119
      Width = 43
      Height = 19
      Caption = #35828#26126' '
    end
    object Label19: TLabel
      Left = 268
      Top = 72
      Width = 76
      Height = 19
      Caption = #20854#20182#36153#29992
    end
    object Edit11: TEdit
      Left = 120
      Top = 38
      Width = 121
      Height = 24
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object Edit12: TEdit
      Left = 377
      Top = 40
      Width = 121
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnChange = Edit12Change
    end
    object Edit13: TEdit
      Left = 377
      Top = 14
      Width = 121
      Height = 24
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object Edit14: TEdit
      Left = 120
      Top = 90
      Width = 121
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 3
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 3
      OnChange = Edit14Change
      OnExit = Edit14Exit
    end
    object Edit15: TEdit
      Left = 120
      Top = 64
      Width = 121
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 8
      ParentFont = False
      TabOrder = 4
      OnChange = Edit15Change
    end
    object Edit16: TEdit
      Left = 120
      Top = 116
      Width = 345
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 50
      ParentFont = False
      TabOrder = 5
    end
    object ComboBox1: TComboBox
      Left = 120
      Top = 14
      Width = 121
      Height = 22
      Style = csOwnerDrawVariable
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 16
      MaxLength = 6
      ParentFont = False
      TabOrder = 6
      OnExit = ComboBox1Exit
    end
    object Edit17: TEdit
      Left = 377
      Top = 66
      Width = 121
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 8
      ParentFont = False
      TabOrder = 7
      OnChange = Edit17Change
    end
  end
  object GroupBox3: TGroupBox
    Left = 16
    Top = 230
    Width = 415
    Height = 44
    Caption = #35746#25151#31867#22411
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object RadioButton1: TRadioButton
      Left = 43
      Top = 18
      Width = 83
      Height = 21
      Caption = #38047#28857#25151
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 149
      Top = 17
      Width = 103
      Height = 21
      Caption = #27491#24120#20303#23487
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 276
      Top = 18
      Width = 99
      Height = 20
      Caption = #39044#35746#23458#25151
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = RadioButton3Click
    end
  end
  object BitBtn1: TBitBtn
    Left = 441
    Top = 237
    Width = 111
    Height = 39
    Caption = #26597#35810#23458#25151
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 106
    Top = 444
    Width = 91
    Height = 25
    Caption = #30830#23450
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 226
    Top = 444
    Width = 91
    Height = 25
    Caption = #26032#20449#24687
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 346
    Top = 444
    Width = 91
    Height = 25
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = BitBtn4Click
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mindy paradise\p' +
      'roject\mindyparadisehotel.mdb;Persist Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
  end
end