inv150_01.dfm

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

inherited Inv150_01Form: TInv150_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #26009#21697#36164#26009#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 tvLists: TdxDBTreeView
    Height = 473
  end
  inherited PageControl1: TPageControl
    Width = 620
    Height = 473
    inherited TabSheet1: TTabSheet
      Caption = #26009#21697#36164#26009
      inherited ScrollBox2: TScrollBox
        Width = 612
        Height = 446
        inherited dxDBGrid1: TdxDBGrid
          Width = 608
          Height = 442
          KeyField = 'I150_001'
          Filter.Criteria = {00000000}
          object dxDBGrid1I150_002: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 184
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_002'
            SummaryFooterType = cstCount
            SummaryFooterFormat = #35352#37636#32317#25976#65306'0'
            OnDrawSummaryFooter = dxDBGrid1I150_002DrawSummaryFooter
          end
          object dxDBGrid1I150_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 364
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_003'
          end
          object dxDBGrid1I150_004: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 364
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_004'
          end
          object dxDBGrid1I120_002: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I120_002'
          end
          object dxDBGrid1I120_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 131
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I120_003'
          end
          object dxDBGrid1I140_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I140_003'
          end
        end
      end
    end
  end
  inherited ADOQuery2: TADOQuery
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004,I120_002,I120_003,I14' +
        '0_003'
      'from (INV150 A left join INV120 B on A.I150_005=B.I120_001)'
      '      left join INV130 C on A.I150_006=C.I130_001'
      'order by I150_002')
    object ADOQuery2I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    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 ADOQuery2I120_002: TWideStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'I120_002'
    end
    object ADOQuery2I120_003: TWideStringField
      DisplayLabel = #31867#21035#21517#31216
      FieldName = 'I120_003'
      Size = 50
    end
    object ADOQuery2I140_003: TWideStringField
      DisplayLabel = #24211#23384#21333#20301
      FieldName = 'I140_003'
      Size = 50
    end
  end
end