main.~dfm

结于初学者来说这对数据库是一个很好的例子

object Form1: TForm1
  Left = 66
  Top = 126
  Width = 763
  Height = 547
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #36890#29992#23458#25151#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Button1: TButton
    Left = 592
    Top = 24
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object BitBtn1: TBitBtn
    Left = 456
    Top = 80
    Width = 75
    Height = 25
    Caption = 'BitBtn1'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object Name: TGroupBox
    Left = 128
    Top = 80
    Width = 465
    Height = 65
    Caption = #25151#38388#20449#24687
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 48
      Height = 16
      Caption = #25151#38388#21495#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 40
      Width = 48
      Height = 16
      Caption = #20837#20303#20154#65306
    end
    object Label4: TLabel
      Left = 112
      Top = 40
      Width = 60
      Height = 16
      Caption = #20837#20303#26085#26399#65306
    end
    object DBText1: TDBText
      Left = 56
      Top = 40
      Width = 49
      Height = 17
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_RoomNo: TLabel
      Left = 56
      Top = 24
      Width = 3
      Height = 16
      Color = clActiveBorder
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label9: TLabel
      Left = 112
      Top = 24
      Width = 60
      Height = 16
      Caption = #30331#35760#31867#22411#65306
    end
    object Label10: TLabel
      Left = 288
      Top = 24
      Width = 60
      Height = 16
      Caption = #25910#36153#26631#20934#65306
    end
    object Label19: TLabel
      Left = 288
      Top = 40
      Width = 60
      Height = 16
      AutoSize = False
      Caption = #39044#30041#26085#26399#65306
    end
    object Label21: TLabel
      Left = 168
      Top = 24
      Width = 3
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 344
      Top = 24
      Width = 3
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 376
      Top = 24
      Width = 28
      Height = 16
      Caption = #20803'/'#22825
    end
    object Label24: TLabel
      Left = 168
      Top = 40
      Width = 3
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label25: TLabel
      Left = 392
      Top = 40
      Width = 3
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label26: TLabel
      Left = 344
      Top = 40
      Width = 3
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox1: TGroupBox
    Left = 128
    Top = 144
    Width = 465
    Height = 329
    Caption = #28040#36153#26126#32454
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object DB_Selected: TDBGrid
      Left = 8
      Top = 16
      Width = 449
      Height = 305
      Color = clMenu
      DataSource = DS_Selected
      FixedColor = clActiveBorder
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Color = clWhite
          Expanded = False
          FieldName = 'MenuName'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack