inv145_01.dfm.svn-base

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

inherited Inv145_01Form: TInv145_01Form
  Caption = #21333#20301#36716#25442#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited ScrollBox1: TScrollBox
    inherited dxDBGrid1: TdxDBGrid
      KeyField = 'I145_001'
      Filter.Criteria = {00000000}
      object dxDBGrid1FFromUnitID: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FFromUnitID'
      end
      object dxDBGrid1FFromUnitName: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 159
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FFromUnitName'
      end
      object dxDBGrid1FToUnitID: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FToUnitID'
      end
      object dxDBGrid1FToUnitName: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 176
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FToUnitName'
      end
      object dxDBGrid1I145_005: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I145_005'
      end
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 101
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 269
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1I150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 155
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1I150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 248
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select A.*,B.O150_002,B.O150_003,C.I150_002,C.I150_003,D.I140_00' +
        '2 as FFromUnitID,D.I140_003 as FFromUnitName,E.I140_002 as FToUn' +
        'itID,E.I140_003 as FToUnitName'
      'from ((((INV145 A left join ORD150 B on A.I145_001=B.O150_001) '
      '         left join INV150 C on A.I145_002=C.I150_001)'
      '         left join INV140 D on A.I145_003=D.I140_001)'
      '         left join INV140 E on A.I145_004=E.I140_001)'
      'order by A.I145_001,A.I145_002,A.I145_003')
    object ADOQuery1I145_001: TIntegerField
      FieldName = 'I145_001'
      Visible = False
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1I145_002: TIntegerField
      FieldName = 'I145_002'
      Visible = False
    end
    object ADOQuery1I150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object ADOQuery1I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object ADOQuery1I145_003: TIntegerField
      FieldName = 'I145_003'
      Visible = False
    end
    object ADOQuery1FFromUnitID: TWideStringField
      DisplayLabel = #33258#21333#20301#21495
      FieldName = 'FFromUnitID'
    end
    object ADOQuery1FFromUnitName: TWideStringField
      DisplayLabel = #33258#21333#20301#21517
      FieldName = 'FFromUnitName'
      Size = 50
    end
    object ADOQuery1I145_004: TIntegerField
      FieldName = 'I145_004'
      Visible = False
    end
    object ADOQuery1FToUnitID: TWideStringField
      DisplayLabel = #33267#21333#20301#21495
      FieldName = 'FToUnitID'
    end
    object ADOQuery1FToUnitName: TWideStringField
      DisplayLabel = #33267#21333#20301#21517
      FieldName = 'FToUnitName'
      Size = 50
    end
    object ADOQuery1I145_005: TFloatField
      DisplayLabel = #36716#25442#31995#25968
      FieldName = 'I145_005'
    end
  end
end