unit6.dfm

作者针对当前酒店客房管理的现状

object Form6: TForm6
  Left = 297
  Top = 212
  Width = 721
  Height = 462
  Caption = #22270#20070#24449#35746#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 705
    Height = 121
    TabOrder = 0
    object Label1: TLabel
      Left = 128
      Top = 40
      Width = 60
      Height = 13
      Caption = #24320#22987#26085#26399'    '
    end
    object Label2: TLabel
      Left = 272
      Top = 40
      Width = 60
      Height = 13
      Caption = #32467#26463#26085#26399'    '
    end
    object all_RB: TRadioButton
      Left = 16
      Top = 24
      Width = 113
      Height = 17
      Caption = #25152#26377
      TabOrder = 0
    end
    object yes_RB: TRadioButton
      Left = 16
      Top = 56
      Width = 113
      Height = 17
      Caption = #24050#32463#20856#34255
      TabOrder = 1
    end
    object no_RB: TRadioButton
      Left = 16
      Top = 88
      Width = 113
      Height = 17
      Caption = #27809#26377#20856#34255
      TabOrder = 2
    end
    object begin_DTP: TDateTimePicker
      Left = 120
      Top = 64
      Width = 121
      Height = 21
      Date = 39218.493961759260000000
      Time = 39218.493961759260000000
      TabOrder = 3
    end
    object end_DTP: TDateTimePicker
      Left = 264
      Top = 64
      Width = 137
      Height = 21
      Date = 39218.494941944450000000
      Time = 39218.494941944450000000
      TabOrder = 4
    end
    object Button1: TButton
      Left = 456
      Top = 24
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 5
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 576
      Top = 24
      Width = 75
      Height = 25
      Caption = #23457#26657
      TabOrder = 6
    end
    object Button3: TButton
      Left = 456
      Top = 80
      Width = 75
      Height = 25
      Caption = #25171#21360
      TabOrder = 7
    end
    object Button4: TButton
      Left = 576
      Top = 80
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 8
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 152
    Width = 725
    Height = 217
    DataSource = DataSource1
    PopupMenu = PopupMenu1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Bookname'
        Title.Caption = #20070#21517
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Author'
        Title.Caption = #20316#32773
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Concern'
        Title.Caption = #20986#29256#31038
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OutDate'
        Title.Caption = #20986#29256#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sl'
        Title.Caption = #35746#36141#25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dgrq'
        Title.Caption = #35746#36141#26102#38388
        Visible = True
      end>
  end
  object Button5: TButton
    Left = 560
    Top = 392
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 2
    OnClick = Button5Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 632
    Top = 216
  end
  object Query1: TQuery
    AutoCalcFields = False
    DatabaseName = 'Gx'
    SQL.Strings = (
      'select * from dinggoub')
    Left = 632
    Top = 264
  end
  object PopupMenu1: TPopupMenu
    Left = 632
    Top = 168
    object N11: TMenuItem
      Caption = #28155#21152#35746#36141#22270#20070
      OnClick = N11Click
    end
    object N12: TMenuItem
      Caption = #20462#25913#35746#36141#22270#20070
      OnClick = N12Click
    end
    object N13: TMenuItem
      Caption = #21024#38500#35746#36141#22270#20070
      OnClick = N13Click
    end
  end
end