u_room_bed.dfm

来自「超信人力资源管理系统,一个用Delphi编写的人事管理系统」· DFM 代码 · 共 328 行

inherited F_Room_bed: TF_Room_bed
  Left = 33
  Top = 92
  Width = 678
  Height = 466
  Caption = #24202#20301#35774#23450
  Color = clBtnFace
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter [0]
    Left = 401
    Top = 41
    Height = 398
  end
  object Panel1: TPanel [1]
    Left = 0
    Top = 0
    Width = 670
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 21
      Width = 91
      Height = 16
      Caption = #26410#35774#32622#24202#20301#23487#33293
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object BitBtn3: TBitBtn
      Left = 536
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 0
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object DBGridEh1: TDBGridEh [2]
    Left = 0
    Top = 41
    Width = 401
    Height = 398
    Align = alLeft
    DataSource = DS_main
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ReadOnly = True
    SumList.Active = True
    TabOrder = 1
    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 = 79
      end
      item
        EditButtons = <>
        FieldName = 'RooMID'
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 63
      end
      item
        EditButtons = <>
        FieldName = 'Mantype'
        Footers = <>
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'type'
        Footers = <>
        Width = 59
      end
      item
        EditButtons = <>
        FieldName = 'Bedcount'
        Footers = <>
        Width = 53
      end
      item
        EditButtons = <>
        FieldName = 'Usedbed'
        Footers = <>
      end>
  end
  object Panel2: TPanel [3]
    Left = 404
    Top = 41
    Width = 77
    Height = 398
    Align = alLeft
    TabOrder = 2
    object BitBtn1: TBitBtn
      Left = 7
      Top = 121
      Width = 65
      Height = 29
      Caption = #29983#25104
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333337FF3333333333333903333333333333377FF33333333333399
        03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
        99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
        99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
        03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
        33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
        33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
        3333777777333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 7
      Top = 159
      Width = 65
      Height = 29
      Caption = #28165#38500
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        4A050000424D4A050000000000000A0300002800000018000000180000000100
        08000000000040020000120B0000120B0000B5000000B500000000000000FFFF
        FF00FF00FF008B5858009E6D6A00A4767400925B560090523C009F6A5400A46B
        4E00C4957A00B7440100BA480200BB4A0300C6997D00C69A7F00C2540A00C153
        0A00C5570C00A35D2C00AD6F4400E2C4B000CA631600CC671A00D06C1F00D16F
        2400AA683800BB815400AC5B1600A7581700D5752900D7782B00D77A2D00AF66
        2800DC833900DC843A00DE863C00DE894100E5934D00CC9A7300FAC09000FAC1
        9100FBC59700D9B29200E1C6AF00AC530500D9813500E18C4300E28E4400E28F
        4600E3904700E3914A00E3934C00E5965000E5975000E7995400B87B4600EAA0
        5D00EDA36000EDA36200EDA46200EDA46300C78A5300EDA56400EDA66500EEA6
        6700EEA76800EDA76700EEA76900EEA96900EFA96A00EFA96B00F0AC6E00F2B1
        7700F3B47B00F3B57D00F3B57E00F3B67F00F3B77F00F4B78100D1A07300FAC2
        9100FAC29200FAC49300FED1A700E1954C00E79C5500E9A15C00EAA35F00E9A4
        5F00EAA66300EEAC6A00EFAD6E00E5BC9300FCCFA400FCD0A500FCD1A600FED4
        AB00C5813A00CA884200E2A05A00EAA96500EAAB6700EAAB6900EDB06E00EEB1
        7000F0B77900F6C59000EDB16D00EEB57300EFB67500EFBA7A00F0BA7B00EFBB
        7B00F0BB7D00FEDAB000FEDCB200E7BA7D00F0C28400F2C48600F4CA9200FEDE
        B400EEBC7600F2C78A00F2C78C00F3C98F00F3CA8F00FBDAAA00FEDEB200FEE0
        B400FFE3BA00F4D09700F7D39A00F6D59F00F4D59D00FBDEAB00F7DCA500FAE0
        AB00F0E3CA00FAE0AA00FAE2AC00FCE7B800F7E0AA00FBE5B200FBE9B600FFEE
        C200FEEEC200FCEDBB00FFF2C700FFF3C700FEF2C200FEF7CA00FFFACC00FFFA
        CF00FFFCD100FFFFD300FFFFD400FFFFDC00015703000259050003740800036F
        0700047F0A0005730A000A8313000A9616000B7B14000C7F18000F951D001299
        220010841C0015A5280018A32C0019902D0018902D0022B63D001E9A350027B2
        470036D5630040DC720043E1780002020202020202020202020202023D3D3D3D
        3D3D020202020202020202020202020202023D7F7354514A413A3D3D02020202
        0202020202020202023D8D94805E284A423C3C3D020202020202020202020202
        023D9992745E294A423D3D3D020202020202020202020202023D9A92795F524B
        443C3D3D3D02020202020202020202023D8B9B92795F524C453C3D3D3D020202
        02020202020202023D939C918160534D463D3D3D3D0202020202020202020202
        6A979C9582612A4F473C3D3D3D3D0202020202020202023D789D98876B4E4948
        413C3B3D3D3D0202020202020202023D847C55232431566568695B3F3D3D0202
        02020202020202402E101218223666717B7E776D5A3A02020202020202020225
        0B0C161F30576E7D888C8676673902020202020202020234110D162032596F83
        90968E7C6C58020202020202020202023519171E2F649E9E898F857243020202
        020202020202020202023733269EB0B39F705C02020202020202020203030302
        020202029EAEB4B2AC9E020202020206030F0E0A037A1B020202029EA6ADB1AF
        A9A89E020202042C03757575031314030202029E9E9EA7AB9E9E9E020202058A
        751A03032B03270302020202029EAAA59E02020202020303622D09155D3E3803
        02020202029EA4A09E02020202020203031D63500303080202020202029EA19E
        0202020202020202071C21037575030202020202A3A29E020202020202020202
        020303757503020202029E9E9E9E020202020202020202020202030303030202
        0202020202020202020202020202}
    end
  end
  object GroupBox1: TGroupBox [4]
    Left = 481
    Top = 41
    Width = 189
    Height = 398
    Align = alClient
    Caption = #24202#20301#24773#20917
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object DBGridEh2: TDBGridEh
      Left = 2
      Top = 18
      Width = 185
      Height = 378
      Align = alClient
      DataSource = DS_detail
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clBlue
      FooterFont.Height = -13
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      FooterRowCount = 1
      ParentFont = False
      ReadOnly = True
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'Bedid'
          Footer.ValueType = fvtCount
          Footers = <>
        end>
    end
  end
  inherited Q_main: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'Select * from TB_Room_base')
    Left = 144
    Top = 0
    object Q_mainPlace: TStringField
      DisplayLabel = #20301#32622
      FieldName = 'Place'
      Size = 50
    end
    object Q_mainRooMID: 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#21035
      FieldName = 'type'
      Size = 10
    end
    object Q_mainBedcount: TIntegerField
      DisplayLabel = #24202#20301#25968
      FieldName = 'Bedcount'
    end
    object Q_mainUsedbed: TIntegerField
      DisplayLabel = #24050#20303#24202#20301#25968
      FieldName = 'Usedbed'
    end
    object Q_mainBedSetted: TBooleanField
      DisplayLabel = #26159#21542#24050#35774#32622#24202#20301
      FieldName = 'BedSetted'
    end
  end
  inherited Q_detail: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Roomid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'Select * From TB_Room_bed where Roomid=:Roomid')
    Left = 392
    Top = 8
    object Q_detailBedid: TStringField
      DisplayLabel = #24202#20301#21495
      FieldName = 'Bedid'
      Size = 10
    end
  end
  inherited DS_main: TDataSource
    Left = 224
    Top = 0
  end
  inherited DS_detail: TDataSource
    Left = 336
    Top = 0
  end
end