u_room_goods.dfm

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

inherited F_Room_goods: TF_Room_goods
  Left = 79
  Top = 68
  Width = 636
  Height = 426
  Caption = #23487#33293#22266#23450#36164#20135#30331#35760
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel1: TPanel
    Width = 628
    inherited Btn_new: TSpeedButton
      Top = 37
      Visible = False
    end
    inherited Btn_Edit: TSpeedButton
      Top = 37
      Visible = False
    end
    inherited Btn_Save: TSpeedButton
      Top = 37
      Visible = False
    end
    inherited Btn_Cancel: TSpeedButton
      Top = 37
      Visible = False
    end
    inherited Btn_Delete: TSpeedButton
      Top = 37
      Visible = False
    end
    inherited Btn_Find: TSpeedButton
      Left = 248
    end
    inherited Btn_Print: TSpeedButton
      Left = 297
    end
    object SpeedButton1: TSpeedButton [11]
      Left = 199
      Top = 3
      Width = 49
      Height = 31
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
  end
  object Panel2: TPanel [1]
    Left = 0
    Top = 37
    Width = 628
    Height = 100
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 32
      Top = 23
      Width = 35
      Height = 16
      Caption = #25151'   '#21495
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 165
      Top = 23
      Width = 35
      Height = 16
      Caption = #31867'   '#22411
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 318
      Top = 23
      Width = 35
      Height = 16
      Caption = #32423'   '#21035
      FocusControl = DBEdit3
    end
    object Label4: TLabel
      Left = 32
      Top = 63
      Width = 32
      Height = 16
      Caption = #20301'  '#32622
      FocusControl = DBEdit4
    end
    object DBEdit1: TDBEdit
      Left = 70
      Top = 19
      Width = 81
      Height = 24
      DataField = 'RooMID'
      DataSource = DS_main
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 204
      Top = 19
      Width = 97
      Height = 24
      DataField = 'type'
      DataSource = DS_main
      ReadOnly = True
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 363
      Top = 19
      Width = 129
      Height = 24
      DataField = 'Mantype'
      DataSource = DS_main
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 70
      Top = 55
      Width = 422
      Height = 24
      DataField = 'Place'
      DataSource = DS_main
      ReadOnly = True
      TabOrder = 3
    end
  end
  object DBGridEh1: TDBGridEh [2]
    Left = 0
    Top = 137
    Width = 628
    Height = 262
    Align = alClient
    DataSource = DS_detail
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab]
    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 = 'Goodsid'
        Footer.Value = #24635#25968
        Footer.ValueType = fvtStaticText
        Footers = <>
        Width = 89
      end
      item
        EditButtons = <>
        FieldName = 'Goodsname'
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 77
      end
      item
        EditButtons = <>
        FieldName = 'GoodGuige'
        Footers = <>
        Width = 177
      end
      item
        EditButtons = <>
        FieldName = 'Fcount'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Fprice'
        Footers = <>
        Width = 93
      end>
  end
  inherited Q_main: TADOQuery
    SQL.Strings = (
      'Select * From TB_Room_Base')
    Left = 432
    Top = 64
    object Q_mainRooMID: TStringField
      DisplayLabel = #25151#21495
      FieldName = 'RooMID'
      Size = 10
    end
    object Q_maintype: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'type'
      Size = 10
    end
    object Q_mainMantype: TStringField
      DisplayLabel = #32423#21035
      FieldName = 'Mantype'
    end
    object Q_mainPlace: TStringField
      DisplayLabel = #20301#32622
      FieldName = 'Place'
      Size = 50
    end
  end
  inherited Q_detail: TADOQuery
    Active = True
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'roomid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'Select * From TB_Room_goods Where Roomid=:roomid')
    object Q_detailRoomID: TStringField
      DisplayLabel = #25151#21495
      FieldName = 'RoomID'
      Size = 10
    end
    object Q_detailGoodsid: TStringField
      DisplayLabel = #22266#23450#36164#20135#32534#21495
      FieldName = 'Goodsid'
      Size = 10
    end
    object Q_detailGoodsname: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'Goodsname'
      Size = 30
    end
    object Q_detailGoodGuige: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'GoodGuige'
      Size = 50
    end
    object Q_detailFcount: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'Fcount'
    end
    object Q_detailFprice: TBCDField
      DisplayLabel = #21333#20215
      FieldName = 'Fprice'
      Precision = 19
    end
  end
  inherited DS_main: TDataSource
    Left = 576
    Top = 48
  end
end