bom110_01.dfm.svn-base

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

            00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
            000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
            FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
            000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00FFFFFF80808080808000000000000000000000000000000000000000000000
            0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
            00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
            000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
            0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
            BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
            0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
            0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
          OnClick = sbRountClick
        end
        object DBEdit1: TDBEdit
          Left = 376
          Top = 144
          Width = 185
          Height = 20
          DataField = 'B110_003'
          DataSource = DataSource1
          TabOrder = 5
        end
        object DBEdit2: TDBEdit
          Left = 96
          Top = 144
          Width = 185
          Height = 20
          DataField = 'B110_004'
          DataSource = DataSource1
          TabOrder = 4
        end
        object DBEdit3: TDBEdit
          Left = 96
          Top = 176
          Width = 465
          Height = 20
          DataField = 'B110_005'
          DataSource = DataSource1
          TabOrder = 6
        end
        object edtItem: TEdit
          Left = 96
          Top = 80
          Width = 121
          Height = 20
          TabOrder = 0
          OnExit = edtItemExit
        end
        object edtRount: TEdit
          Left = 96
          Top = 112
          Width = 121
          Height = 20
          TabOrder = 2
          OnExit = edtRountExit
        end
        object DBEdit4: TDBEdit
          Left = 304
          Top = 80
          Width = 257
          Height = 20
          DataField = 'I150_003'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBEdit5: TDBEdit
          Left = 304
          Top = 112
          Width = 257
          Height = 20
          DataField = 'B100_003'
          DataSource = DataSource1
          TabOrder = 3
        end
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from BOM110')
    object ADOQuery1I150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'B110_001'
      Size = 30
      Lookup = True
    end
    object ADOQuery1I150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'B110_001'
      Size = 60
      Lookup = True
    end
    object ADOQuery1B100_002: TStringField
      DisplayLabel = #24037#24207#32534#21495
      FieldKind = fkLookup
      FieldName = 'B100_002'
      LookupDataSet = qryBom100
      LookupKeyFields = 'B100_001'
      LookupResultField = 'B100_002'
      KeyFields = 'B110_002'
      Lookup = True
    end
    object ADOQuery1B100_003: TStringField
      DisplayLabel = #24037#24207#21517#31216
      FieldKind = fkLookup
      FieldName = 'B100_003'
      LookupDataSet = qryBom100
      LookupKeyFields = 'B100_001'
      LookupResultField = 'B100_003'
      KeyFields = 'B110_002'
      Size = 50
      Lookup = True
    end
    object ADOQuery1B110_003: TFloatField
      DisplayLabel = #25439#22351#25187#27454
      FieldName = 'B110_003'
    end
    object ADOQuery1B110_004: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'B110_004'
    end
    object ADOQuery1B110_005: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'B110_005'
      Size = 50
    end
    object ADOQuery1B110_002: TIntegerField
      DisplayLabel = #24037#24207#32534#21495
      FieldName = 'B110_002'
      Visible = False
    end
    object ADOQuery1B110_001: TIntegerField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'B110_001'
      Visible = False
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150 order by I150_002')
    Left = 104
    Top = 48
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
  end
  object qryBom100: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select B100_001,B100_002,B100_003 from BOM100 order by B100_002')
    Left = 160
    Top = 48
    object qryBom100B100_001: TAutoIncField
      FieldName = 'B100_001'
      ReadOnly = True
      Visible = False
    end
    object qryBom100B100_002: TStringField
      DisplayLabel = #24037#24207#32534#21495
      FieldName = 'B100_002'
    end
    object qryBom100B100_003: TStringField
      DisplayLabel = #24037#24207#21517#31216
      FieldName = 'B100_003'
      Size = 50
    end
  end
end