u_room_base.dfm

超信人力资源管理系统,一个用Delphi编写的人事管理系统

inherited F_Room_base: TF_Room_base
  Left = 187
  Top = 98
  Width = 709
  Caption = #23487#33293#36164#26009
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel1: TPanel
    Width = 701
  end
  object Panel2: TPanel [1]
    Left = 0
    Top = 37
    Width = 701
    Height = 132
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 25
      Top = 91
      Width = 38
      Height = 16
      Caption = #20301'    '#32622
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 25
      Top = 19
      Width = 32
      Height = 16
      Caption = #25151'  '#21495
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 184
      Top = 19
      Width = 41
      Height = 16
      Caption = #32423'     '#21035
    end
    object Label4: TLabel
      Left = 353
      Top = 19
      Width = 32
      Height = 16
      Caption = #31867'  '#22411
    end
    object Label6: TLabel
      Left = 25
      Top = 55
      Width = 39
      Height = 16
      Caption = #36127#36131#20154
      FocusControl = DBEdit6
    end
    object Label7: TLabel
      Left = 184
      Top = 55
      Width = 39
      Height = 16
      Caption = #24202#20301#25968
      FocusControl = DBEdit7
    end
    object DBEdit1: TDBEdit
      Left = 73
      Top = 87
      Width = 417
      Height = 24
      DataField = 'Place'
      DataSource = DS_main
      TabOrder = 5
    end
    object DBEdit2: TDBEdit
      Left = 73
      Top = 15
      Width = 89
      Height = 24
      DataField = 'RooMID'
      DataSource = DS_main
      TabOrder = 0
    end
    object DBEdit6: TDBEdit
      Left = 73
      Top = 51
      Width = 89
      Height = 24
      DataField = 'Roommanager'
      DataSource = DS_main
      TabOrder = 3
    end
    object DBEdit7: TDBEdit
      Left = 233
      Top = 51
      Width = 97
      Height = 24
      DataField = 'Bedcount'
      DataSource = DS_main
      TabOrder = 4
    end
    object wwDBComboBox1: TwwDBComboBox
      Left = 232
      Top = 13
      Width = 97
      Height = 24
      ShowButton = True
      Style = csDropDown
      MapList = False
      AllowClearKey = False
      DataField = 'Mantype'
      DataSource = DS_main
      DropDownCount = 8
      ItemHeight = 0
      Sorted = False
      TabOrder = 1
      UnboundDataType = wwDefault
      OnEnter = wwDBComboBox1Enter
      OnKeyDown = wwDBComboBox1KeyDown
    end
    object wwDBComboBox2: TwwDBComboBox
      Left = 392
      Top = 13
      Width = 97
      Height = 24
      ShowButton = True
      Style = csDropDown
      MapList = False
      AllowClearKey = False
      DataField = 'type'
      DataSource = DS_main
      DropDownCount = 8
      ItemHeight = 0
      Sorted = False
      TabOrder = 2
      UnboundDataType = wwDefault
      OnEnter = wwDBComboBox1Enter
      OnKeyDown = wwDBComboBox1KeyDown
    end
  end
  object DBGridEh1: TDBGridEh [2]
    Left = 0
    Top = 169
    Width = 701
    Height = 237
    Align = alClient
    DataSource = DS_main
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    ReadOnly = True
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Place'
        Footer.Value = #24635#25968
        Footer.ValueType = fvtStaticText
        Footers = <>
        Width = 95
      end
      item
        EditButtons = <>
        FieldName = 'RooMID'
        Footer.ValueType = fvtCount
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Mantype'
        Footers = <>
        Width = 64
      end
      item
        EditButtons = <>
        FieldName = 'type'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Roommanager'
        Footers = <>
        Width = 58
      end
      item
        EditButtons = <>
        FieldName = 'Bedcount'
        Footers = <>
      end>
  end
  inherited Q_main: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'Select *  From TB_Room_base')
    Left = 168
    Top = 232
    object Q_mainPlace: TStringField
      DisplayLabel = #20301#32622
      FieldName = 'Place'
      Size = 50
    end
    object Q_mainRooID: TStringField
      DisplayLabel = #25151#21495
      FieldName = 'RooMID'
      Size = 10
    end
    object Q_mainMantype: TStringField
      DisplayLabel = #32423#21035
      FieldName = 'Mantype'
    end
    object Q_maintype: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'type'
      Size = 10
    end
    object Q_mainRoommanager: TStringField
      DisplayLabel = #36127#36131#20154
      FieldName = 'Roommanager'
    end
    object Q_mainBedcount: TIntegerField
      DisplayLabel = #24202#20301#25968
      FieldName = 'Bedcount'
    end
  end
  inherited Q_detail: TADOQuery
    Left = 192
    Top = 336
  end
  inherited DS_main: TDataSource
    Left = 232
    Top = 248
  end
  inherited DS_detail: TDataSource
    Left = 240
    Top = 336
  end
end