inv100_01.dfm.svn-base

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

inherited Inv100_01Form: TInv100_01Form
  Left = 56
  Top = 35
  Caption = #20179#24211#36164#26009#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited ScrollBox1: TScrollBox
    inherited dxDBGrid1: TdxDBGrid
      Filter.Criteria = {00000000}
      object dxDBGrid1I100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_002'
      end
      object dxDBGrid1I100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 304
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_003'
      end
      object dxDBGrid1I100_004: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 604
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_004'
      end
      object dxDBGrid1O120_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 169
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O120_002'
      end
      object dxDBGrid1I100_006: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_006'
      end
      object dxDBGrid1I100_007: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_007'
      end
      object dxDBGrid1I100_008: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 84
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_008'
      end
      object dxDBGrid1H150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dxDBGrid1H150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
      object dxDBGrid1I100_010: TdxDBGridCheckColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_010'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object dxDBGrid1I100_011: TdxDBGridCheckColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_011'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'select A.*,B.O120_002,C.H150_002,C.H150_003 from (INV100 A left ' +
        'join ORD120 B on A.I100_005=B.O120_001) left join HRM150 C on A.' +
        'I100_009=C.H150_001 order by A.I100_002')
    object ADOQuery1I100_001: TAutoIncField
      FieldName = 'I100_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1I100_002: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'I100_002'
    end
    object ADOQuery1I100_003: TWideStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'I100_003'
      Size = 50
    end
    object ADOQuery1I100_004: TWideStringField
      DisplayLabel = #20179#24211#22320#22336
      FieldName = 'I100_004'
      Size = 100
    end
    object ADOQuery1I100_005: TIntegerField
      FieldName = 'I100_005'
      Visible = False
    end
    object ADOQuery1O120_002: TWideStringField
      DisplayLabel = #25152#23646#22320#21306
      FieldName = 'O120_002'
      Size = 50
    end
    object ADOQuery1I100_006: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'I100_006'
    end
    object ADOQuery1I100_007: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'I100_007'
    end
    object ADOQuery1I100_008: TWideStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'I100_008'
      Size = 10
    end
    object ADOQuery1I100_009: TIntegerField
      FieldName = 'I100_009'
      Visible = False
    end
    object ADOQuery1H150_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21495
      FieldName = 'H150_002'
    end
    object ADOQuery1H150_003: TWideStringField
      DisplayLabel = #32852#31995#20154#21517
      FieldName = 'H150_003'
    end
    object ADOQuery1I100_010: TBooleanField
      DisplayLabel = #21487#20998#37197#21542
      FieldName = 'I100_010'
    end
    object ADOQuery1I100_011: TBooleanField
      DisplayLabel = #35745#31639' MRP'
      FieldName = 'I100_011'
    end
  end
end