rab200_01.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 1
      OnExit = Edit2Exit
      OnKeyDown = Edit2KeyDown
    end
    object Edit1: TEdit
      Left = 205
      Top = 10
      Width = 82
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 0
      OnExit = Edit1Exit
      OnKeyDown = Edit1KeyDown
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 589
    Height = 324
    inherited dxDBGrid1: TdxDBGrid
      Width = 585
      Height = 320
      Filter.Criteria = {00000000}
      object dxDBGrid1H150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dxDBGrid1H150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
      object dxDBGrid1R500_002: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 101
        BandIndex = 0
        RowIndex = 0
        FieldName = 'R500_002'
      end
      object dxDBGrid1R100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'R100_002'
      end
      object dxDBGrid1R100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 108
        BandIndex = 0
        RowIndex = 0
        FieldName = 'R100_003'
      end
      object dxDBGrid1R110_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'R110_003'
      end
      object dxDBGrid1R110_004: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'R110_004'
      end
      object dxDBGrid1R110_005: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'R110_005'
      end
      object dxDBGrid1R110_006: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'R110_006'
      end
      object dxDBGrid1R110_007: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'R110_007'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'BulidID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '0'
      end
      item
        Name = 'RoomID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '0'
      end>
    SQL.Strings = (
      
        'select H150_002,H150_003,R500_002,R100_002,R100_003,R110_003,R11' +
        '0_004,R110_005,R110_006,R110_007'
      'from RAB500 A, RAB100 B, RAB110 C, HRM150 D'
      'where A.R500_003=B.R100_001 and A.R500_004=C.R110_001 and'
      '          A.R500_001=D.H150_001 and'
      '          B.R100_002= :BulidID and C.R110_003= :RoomID')
    object ADOQuery1H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
    object ADOQuery1R500_002: TDateTimeField
      DisplayLabel = #29983#25928#26085#26399
      FieldName = 'R500_002'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1R100_002: TStringField
      DisplayLabel = #23487#33293#32534#21495
      FieldName = 'R100_002'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1R100_003: TStringField
      DisplayLabel = #23487#33293#35828#26126
      FieldName = 'R100_003'
    end
    object ADOQuery1R110_003: TStringField
      DisplayLabel = #20303#25151#32534#21495
      FieldName = 'R110_003'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1R110_004: TStringField
      DisplayLabel = #35268#26684#35828#26126
      FieldName = 'R110_004'
    end
    object ADOQuery1R110_005: TFloatField
      DisplayLabel = #20303#25151#38754#31215
      FieldName = 'R110_005'
    end
    object ADOQuery1R110_006: TIntegerField
      DisplayLabel = #21487#20303#20154#25968
      FieldName = 'R110_006'
    end
    object ADOQuery1R110_007: TIntegerField
      DisplayLabel = #24050#20303#20154#25968
      FieldName = 'R110_007'
    end
  end
  object dsRab100: TDataSource
    DataSet = qryRab100
    Left = 416
    Top = 216
  end
  object qryRab100: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from RAB100')
    Left = 424
    Top = 224
    object qryRab100R100_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'R100_001'
      ReadOnly = True
      Visible = False
    end
    object qryRab100R100_002: TStringField
      DisplayLabel = #23487#33293#32534#21495
      FieldName = 'R100_002'
      FixedChar = True
      Size = 10
    end
    object qryRab100R100_003: TStringField
      DisplayLabel = #23487#33293#35828#26126
      FieldName = 'R100_003'
    end
  end
  object qryRab110: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    DataSource = dsRab100
    Parameters = <
      item
        Name = 'R100_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from RAB110 where R110_002= :R100_001')
    Left = 424
    Top = 256
    object qryRab110R110_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'R110_001'
      ReadOnly = True
      Visible = False
    end
    object qryRab110R110_002: TIntegerField
      DisplayLabel = #23487#33293#32534#21495
      FieldName = 'R110_002'
      Visible = False
    end
    object qryRab110R110_003: TStringField
      DisplayLabel = #20303#25151#32534#21495
      FieldName = 'R110_003'
      FixedChar = True
      Size = 10
    end
    object qryRab110R110_004: TStringField
      DisplayLabel = #35268#26684#35828#26126
      FieldName = 'R110_004'
    end
    object qryRab110R110_006: TIntegerField
      DisplayLabel = #21487#20303#20154#25968
      FieldName = 'R110_006'
    end
    object qryRab110R110_007: TIntegerField
      DisplayLabel = #24050#20303#20154#25968
      FieldName = 'R110_007'
    end
  end
end