unit14.dfm

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

object Form14: TForm14
  Left = 211
  Top = 112
  Width = 779
  Height = 523
  Caption = '客房管理'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 504
    Height = 496
    Align = alClient
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 502
      Height = 494
      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 = '房间号'
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Lx'
          Title.Alignment = taCenter
          Title.Caption = '房间类型'
          Width = 101
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Jg'
          Title.Alignment = taCenter
          Title.Caption = '价  格'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Dhhm'
          Title.Alignment = taCenter
          Title.Caption = '电话号码'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Zt'
          Title.Alignment = taCenter
          Title.Caption = '状  态'
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Rs'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = '人  数'
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 504
    Top = 0
    Width = 267
    Height = 496
    Align = alRight
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 36
      Height = 12
      Caption = '房间号'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 134
      Top = 24
      Width = 24
      Height = 12
      Caption = '状态'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 48
      Width = 48
      Height = 12
      Caption = '房间类型'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 72
      Width = 48
      Height = 12
      Caption = '房间价格'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 96
      Width = 48
      Height = 12
      Caption = '电话号码'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 16
      Top = 120
      Width = 48
      Height = 12
      Caption = '可住人数'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Button1: TButton
      Left = 16
      Top = 208
      Width = 70
      Height = 23
      Caption = '增  加'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 88
      Top = 208
      Width = 70
      Height = 23
      Caption = '删  除'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 16
      Top = 232
      Width = 70
      Height = 23
      Caption = '修  改'
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 160
      Top = 208
      Width = 70
      Height = 23
      Caption = '刷  新'
      TabOrder = 3
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 160
      Top = 232
      Width = 70
      Height = 23
      Caption = '取  消'
      TabOrder = 4
      OnClick = Button5Click
    end
    object DBEdit1: TDBEdit
      Left = 71
      Top = 18
      Width = 57
      Height = 20
      DataField = 'Fh'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object DBComboBox1: TDBComboBox
      Left = 167
      Top = 18
      Width = 58
      Height = 20
      DataField = 'Zt'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      Items.Strings = (
        '已住人'
        '未住人')
      ParentFont = False
      TabOrder = 6
    end
    object DBEdit2: TDBEdit
      Left = 71
      Top = 42
      Width = 153
      Height = 20
      DataField = 'Lx'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object DBEdit3: TDBEdit
      Left = 71
      Top = 66
      Width = 153
      Height = 20
      DataField = 'Jg'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object DBEdit4: TDBEdit
      Left = 71
      Top = 90
      Width = 153
      Height = 20
      DataField = 'Dhhm'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object DBEdit5: TDBEdit
      Left = 71
      Top = 114
      Width = 153
      Height = 20
      DataField = 'Rs'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '资源表一.DB'
    Left = 699
    Top = 352
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 667
    Top = 352
  end
end