unit11.dfm

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

        Left = 482
        Top = 112
        Width = 65
        Height = 22
        Caption = '退出'
        TabOrder = 10
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 192
        Top = 64
        Width = 65
        Height = 22
        Caption = '刷  新'
        TabOrder = 11
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 192
        Top = 88
        Width = 65
        Height = 22
        Caption = '取消预定'
        TabOrder = 12
      end
    end
    object PageControl1: TPageControl
      Left = 1
      Top = 148
      Width = 572
      Height = 224
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 1
      TabPosition = tpBottom
      object TabSheet1: TTabSheet
        Caption = '可用房间'
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 564
          Height = 196
          Align = alClient
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'Fh'
              Title.Alignment = taCenter
              Title.Caption = '房间号'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Lx'
              Title.Alignment = taCenter
              Title.Caption = '房间类型'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Jg'
              Title.Alignment = taCenter
              Title.Caption = '房间价格'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Dhhm'
              Title.Alignment = taCenter
              Title.Caption = '电话号码'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Zt'
              Title.Alignment = taCenter
              Title.Caption = '状态'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Rs'
              Title.Alignment = taCenter
              Title.Caption = '人数'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Lc'
              Title.Alignment = taCenter
              Title.Caption = '楼层'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end>
        end
      end
      object TabSheet2: TTabSheet
        Caption = '已预定房间'
        ImageIndex = 1
        object DBGrid2: TDBGrid
          Left = 0
          Top = 0
          Width = 564
          Height = 196
          Align = alClient
          DataSource = DataSource2
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'Fh'
              Title.Alignment = taCenter
              Title.Caption = '房间号'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Lx'
              Title.Alignment = taCenter
              Title.Caption = '房间类型'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Jg'
              Title.Alignment = taCenter
              Title.Caption = '房间价格'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Dhhm'
              Title.Alignment = taCenter
              Title.Caption = '电话号码'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Zt'
              Title.Alignment = taCenter
              Title.Caption = '状态'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Rs'
              Title.Alignment = taCenter
              Title.Caption = '人数'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Lc'
              Title.Alignment = taCenter
              Title.Caption = '楼层'
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = '宋体'
              Title.Font.Style = []
              Visible = True
            end>
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 430
    Width = 574
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 345
    Top = 2
  end
  object Query1: TQuery
    Active = True
    DatabaseName = '.\data'
    SQL.Strings = (
      'select * from 资源表一'
      'where zt='#39'未住人'#39)
    Left = 312
  end
  object Query2: TQuery
    Active = True
    DatabaseName = '.\data'
    SQL.Strings = (
      'select * from 资源表一'
      'where zt='#39'已预定'#39)
    Left = 440
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 464
  end
end