bom500_01.dfm.svn-base

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

inherited Bom500_01Form: TBom500_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #20135#21697#32467#26500#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited Splitter1: TSplitter
    Height = 473
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
  end
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
    end
  end
  inherited Panel2: TPanel
    Height = 473
    inherited tvLists: TdxDBTreeView
      Height = 473
      KeyField = 'B500_001'
      ListField = 'FItem'
      ParentField = 'B500_003'
    end
  end
  inherited Panel3: TPanel
    Width = 612
    Height = 473
    inherited PageControl1: TPageControl
      Top = 97
      Width = 612
      Height = 376
      inherited TabSheet1: TTabSheet
        Caption = #23376#20214#20449#24687
        inherited ScrollBox2: TScrollBox
          Width = 604
          Height = 349
          inherited dxDBGrid1: TdxDBGrid
            Width = 600
            Height = 345
            Filter.Criteria = {00000000}
          end
        end
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 612
      Height = 97
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 48
        Height = 12
        Caption = #26009#21697#32534#21495
      end
      object Label2: TLabel
        Left = 240
        Top = 24
        Width = 48
        Height = 12
        Caption = #26009#21697#21517#31216
      end
      object Label3: TLabel
        Left = 16
        Top = 48
        Width = 48
        Height = 12
        Caption = #35268#26684#22411#21495
      end
      object Label4: TLabel
        Left = 160
        Top = 72
        Width = 48
        Height = 12
        Caption = #35745#37327#21333#20301
      end
      object Label5: TLabel
        Left = 312
        Top = 72
        Width = 48
        Height = 12
        Caption = 'BOM '#31867#22411
      end
      object Label6: TLabel
        Left = 456
        Top = 72
        Width = 48
        Height = 12
        Caption = 'BOM '#29366#24577
      end
      object Label7: TLabel
        Left = 16
        Top = 72
        Width = 48
        Height = 12
        Caption = #26631#20934#25209#37327
      end
      object Edit1: TEdit
        Left = 72
        Top = 16
        Width = 161
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 296
        Top = 16
        Width = 297
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 1
      end
      object Edit3: TEdit
        Left = 72
        Top = 40
        Width = 521
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 2
      end
      object Edit4: TEdit
        Left = 216
        Top = 64
        Width = 81
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 3
      end
      object Edit5: TEdit
        Left = 368
        Top = 64
        Width = 81
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 4
      end
      object Edit6: TEdit
        Left = 512
        Top = 64
        Width = 81
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 5
      end
      object Edit7: TEdit
        Left = 72
        Top = 64
        Width = 81
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 6
      end
    end
  end
  inherited ActionList1: TActionList
    Left = 496
    Top = 8
  end
  inherited ADOQuery2: TADOQuery
    SQL.Strings = (
      'select A.*,B.I150_002,B.I150_003,B.I150_004,C.I140_003'
      'from BOM500 A,INV150 B,INV140 C '
      'where A.B500_002=B.I150_001 and B.I150_011=C.I140_003'
      'order by B.I150_002')
    Left = 256
    Top = 272
    object ADOQuery2I150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object ADOQuery2I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object ADOQuery2I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object ADOQuery2I140_003: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'I140_003'
      Size = 50
    end
    object ADOQuery2B500_001: TAutoIncField
      FieldName = 'B500_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery2B500_002: TIntegerField
      FieldName = 'B500_002'
      Visible = False
    end
    object ADOQuery2B500_003: TIntegerField
      FieldName = 'B500_003'
      Visible = False
    end
    object ADOQuery2B500_004: TSmallintField
      FieldName = 'B500_004'
    end
    object ADOQuery2B500_005: TSmallintField
      FieldName = 'B500_005'
    end
    object ADOQuery2B500_006: TDateTimeField
      FieldName = 'B500_006'
    end
    object ADOQuery2B500_007: TDateTimeField
      FieldName = 'B500_007'
    end
    object ADOQuery2B500_008: TFloatField
      FieldName = 'B500_008'
    end
    object ADOQuery2B500_009: TFloatField
      FieldName = 'B500_009'
    end
    object ADOQuery2B500_010: TIntegerField
      FieldName = 'B500_010'
    end
    object ADOQuery2B500_011: TFloatField
      FieldName = 'B500_011'
    end
    object ADOQuery2B500_012: TSmallintField
      FieldName = 'B500_012'
    end
    object ADOQuery2B500_013: TWideStringField
      FieldName = 'B500_013'
    end
    object ADOQuery2B500_014: TDateTimeField
      FieldName = 'B500_014'
    end
    object ADOQuery2B500_015: TWideStringField
      FieldName = 'B500_015'
    end
    object ADOQuery2B500_016: TDateTimeField
      FieldName = 'B500_016'
    end
    object ADOQuery2B500_017: TWideStringField
      FieldName = 'B500_017'
    end
    object ADOQuery2B500_018: TDateTimeField
      FieldName = 'B500_018'
    end
  end
  inherited DataSource2: TDataSource
    Left = 272
    Top = 256
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'select A.*,B.I150_002,B.I150_003,B.I150_004,'#39'['#39'+B.I150_002+'#39']'#39'+B' +
        '.I150_003 as FItem,C.I140_003'
      'from BOM500 A,INV150 B,INV140 C'
      'where A.B500_002=B.I150_001 and B.I150_011=C.I140_001'
      'order by B.I150_002')
    object ADOQuery1FItem: TWideStringField
      FieldName = 'FItem'
      ReadOnly = True
      Size = 92
    end
    object ADOQuery1I150_002: TWideStringField
      FieldName = 'I150_002'
      Size = 30
    end
    object ADOQuery1I150_003: TWideStringField
      FieldName = 'I150_003'
      Size = 60
    end
    object ADOQuery1I150_004: TWideStringField
      FieldName = 'I150_004'
      Size = 60
    end
    object ADOQuery1I140_003: TWideStringField
      FieldName = 'I140_003'
      Size = 50
    end
    object ADOQuery1B500_001: TAutoIncField
      FieldName = 'B500_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1B500_002: TIntegerField
      FieldName = 'B500_002'
      Visible = False
    end
    object ADOQuery1B500_003: TIntegerField
      FieldName = 'B500_003'
      Visible = False
    end
    object ADOQuery1B500_004: TSmallintField
      FieldName = 'B500_004'
      Visible = False
    end
    object ADOQuery1B500_005: TSmallintField
      FieldName = 'B500_005'
      Visible = False
    end
    object ADOQuery1B500_006: TDateTimeField
      FieldName = 'B500_006'
      Visible = False
    end
    object ADOQuery1B500_007: TDateTimeField
      FieldName = 'B500_007'
      Visible = False
    end
    object ADOQuery1B500_008: TFloatField
      FieldName = 'B500_008'
      Visible = False
    end
    object ADOQuery1B500_009: TFloatField
      FieldName = 'B500_009'
      Visible = False
    end
    object ADOQuery1B500_010: TIntegerField
      FieldName = 'B500_010'
      Visible = False
    end
    object ADOQuery1B500_011: TFloatField
      FieldName = 'B500_011'
      Visible = False
    end
    object ADOQuery1B500_012: TSmallintField
      FieldName = 'B500_012'
      Visible = False
    end
    object ADOQuery1B500_013: TWideStringField
      FieldName = 'B500_013'
      Visible = False
    end
    object ADOQuery1B500_014: TDateTimeField
      FieldName = 'B500_014'
      Visible = False
    end
    object ADOQuery1B500_015: TWideStringField
      FieldName = 'B500_015'
      Visible = False
    end
    object ADOQuery1B500_016: TDateTimeField
      FieldName = 'B500_016'
      Visible = False
    end
    object ADOQuery1B500_017: TWideStringField
      FieldName = 'B500_017'
      Visible = False
    end
    object ADOQuery1B500_018: TDateTimeField
      FieldName = 'B500_018'
      Visible = False
    end
  end
end