unit5.dfm

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

object Form5: TForm5
  Left = 286
  Top = 240
  Width = 550
  Height = 445
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 0
    Width = 529
    Height = 409
    TabOrder = 0
    object Panel2: TPanel
      Left = 8
      Top = 8
      Width = 513
      Height = 105
      TabOrder = 0
      object Label1: TLabel
        Left = 32
        Top = 24
        Width = 60
        Height = 13
        Caption = #29992#25143#32534#21495'    '
      end
      object Label2: TLabel
        Left = 288
        Top = 16
        Width = 48
        Height = 13
        Caption = #29992#25143#21517'    '
      end
      object Label3: TLabel
        Left = 32
        Top = 64
        Width = 57
        Height = 13
        Caption = #29992#25143#23494#30721'   '
      end
      object Label4: TLabel
        Left = 288
        Top = 64
        Width = 60
        Height = 13
        Caption = #29992#25143#26435#38480'    '
      end
      object Edit1: TEdit
        Left = 104
        Top = 16
        Width = 121
        Height = 21
        TabOrder = 0
        OnKeyDown = Edit1KeyDown
      end
      object Edit2: TEdit
        Left = 368
        Top = 16
        Width = 121
        Height = 21
        TabOrder = 1
        OnChange = Edit2Change
        OnKeyDown = Edit2KeyDown
      end
      object Edit3: TEdit
        Left = 112
        Top = 64
        Width = 121
        Height = 21
        PasswordChar = '*'
        TabOrder = 2
        OnKeyDown = Edit3KeyDown
      end
      object ComboBox1: TComboBox
        Left = 360
        Top = 64
        Width = 145
        Height = 21
        ItemHeight = 13
        TabOrder = 3
        OnKeyDown = ComboBox1KeyDown
        Items.Strings = (
          #31649#29702#21592
          #25805#20316#21592
          #35835#32773#29992#25143)
      end
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 128
      Width = 513
      Height = 169
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'UserID'
          Title.Caption = #29992#25143#32534#21495
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UserName'
          Title.Caption = #29992#25143#21517
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Class'
          Title.Caption = #29992#25143#26435#38480
          Width = 180
          Visible = True
        end>
    end
    object Panel3: TPanel
      Left = 8
      Top = 312
      Width = 513
      Height = 81
      TabOrder = 2
      object Button1: TButton
        Left = 8
        Top = 40
        Width = 75
        Height = 25
        Caption = #28155#21152
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 104
        Top = 40
        Width = 75
        Height = 25
        Caption = #20445#23384
        Enabled = False
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 200
        Top = 40
        Width = 75
        Height = 25
        Caption = #21024#38500
        Enabled = False
        TabOrder = 2
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 296
        Top = 40
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 3
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 400
        Top = 40
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 4
        OnClick = Button5Click
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'Gx'
    SQL.Strings = (
      'select * from Operator ')
    Left = 96
    Top = 216
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 208
    Top = 216
  end
end