tas530_01.dfm.svn-base

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

        BandIndex = 0
        RowIndex = 0
        FieldName = 'I120_003'
      end
      object dxDBGrid1T530_009: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 604
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T530_009'
      end
      object dxDBGrid1T120_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 98
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T120_003'
      end
      object dxDBGrid1T530_008: TdxDBGridMemoColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 377
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T530_008'
      end
      object dxDBGrid1T530_012: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T530_012'
      end
      object dxDBGrid1T530_013: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T530_013'
      end
      object dxDBGrid1T530_014: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T530_014'
      end
      object dxDBGrid1T530_011: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T530_011'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    SQL.Strings = (
      
        'select A.*,B.T520_019,C.T510_001,C.T510_002,C.T510_005,C.T510_01' +
        '8,D.T100_002,E.T120_003,'
      '       H.O150_001,H.O150_002,H.O150_003,'
      
        '       B.T520_005,B.T520_006,B.T520_007,C.T510_016,C.T510_017,C.' +
        'T510_019'
      'from TAS530 A,TAS520 B,TAS510 C,TAS100 D,TAS120 E,ORD150 H'
      'where A.T530_002=B.T520_001 and B.T520_002=C.T510_001 and '
      '      C.T510_004=D.T100_001 and C.T510_003=E.T120_001 and'
      '      C.T510_016=H.O150_001'
      'order by T530_001')
    object ADOQuery1T530_001: TWideStringField
      DisplayLabel = #27719#25253#32534#21495
      FieldName = 'T530_001'
      Size = 30
    end
    object ADOQuery1T530_002: TWideStringField
      DisplayLabel = #24037#21333#32534#21495
      FieldName = 'T530_002'
      Size = 30
    end
    object ADOQuery1T510_001: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'T510_001'
      Size = 50
    end
    object ADOQuery1T510_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'T510_005'
    end
    object ADOQuery1T510_002: TWideStringField
      DisplayLabel = #20219#21153#21517#31216
      FieldName = 'T510_002'
      Size = 50
    end
    object ADOQuery1T100_002: TWideStringField
      DisplayLabel = #20219#21153#31867#21035
      FieldName = 'T100_002'
      Size = 50
    end
    object ADOQuery1T530_003: TBCDField
      DisplayLabel = #23436#24037#27604#29575
      FieldName = 'T530_003'
      Precision = 5
      Size = 2
    end
    object ADOQuery1T520_019: TWideStringField
      DisplayLabel = #25191#34892#20154#21592
      FieldName = 'T520_019'
      Size = 200
    end
    object ADOQuery1T530_004: TBCDField
      DisplayLabel = #27719#25253#24037#26102
      FieldName = 'T530_004'
      Precision = 8
      Size = 2
    end
    object ADOQuery1T530_007: TWideStringField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'T530_007'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object ADOQuery1FUnit: TStringField
      DisplayLabel = #26102#38388#21333#20301
      FieldKind = fkCalculated
      FieldName = 'FUnit'
      Size = 5
      Calculated = True
    end
    object ADOQuery1T530_005: TDateTimeField
      DisplayLabel = #24320#22987#26085#26399
      FieldName = 'T530_005'
    end
    object ADOQuery1T530_006: TDateTimeField
      DisplayLabel = #32467#26463#26085#26399
      FieldName = 'T530_006'
    end
    object ADOQuery1W150_002: TWideStringField
      DisplayLabel = #21327#21161#20844#21496#32534#21495
      FieldKind = fkLookup
      FieldName = 'W150_002'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_002'
      KeyFields = 'T530_016'
      Lookup = True
    end
    object ADOQuery1W150_003: TWideStringField
      DisplayLabel = #21327#21161#20844#21496#21517#31216
      FieldKind = fkLookup
      FieldName = 'W150_003'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_003'
      KeyFields = 'T530_016'
      Size = 60
      Lookup = True
    end
    object ADOQuery1T530_017: TWideStringField
      DisplayLabel = #21327#21161#20154#21592
      FieldName = 'T530_017'
      Size = 50
    end
    object ADOQuery1T530_018: TBCDField
      DisplayLabel = #21327#21161#24037#26102
      FieldName = 'T530_018'
      Precision = 8
      Size = 2
    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 ADOQuery1I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'T510_017'
      Size = 30
      Lookup = True
    end
    object ADOQuery1I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'T510_017'
      Size = 60
      Lookup = True
    end
    object ADOQuery1T510_018: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'T510_018'
      Size = 30
    end
    object ADOQuery1I120_003: TWideStringField
      DisplayLabel = #20135#21697#31867#21035
      FieldKind = fkLookup
      FieldName = 'I120_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I120_003'
      KeyFields = 'T510_017'
      Size = 50
      Lookup = True
    end
    object ADOQuery1T530_015: TWideStringField
      DisplayLabel = #21407#22240#35828#26126
      FieldName = 'T530_015'
      Visible = False
      Size = 50
    end
    object ADOQuery1T530_009: TWideStringField
      DisplayLabel = #25302#26399#21407#22240
      FieldName = 'T530_009'
      Size = 100
    end
    object ADOQuery1T120_003: TWideStringField
      DisplayLabel = #21518#32493#22788#29702
      FieldName = 'T120_003'
      Size = 50
    end
    object ADOQuery1T530_008: TMemoField
      DisplayLabel = #27719#25253#20869#23481
      FieldName = 'T530_008'
      BlobType = ftMemo
    end
    object ADOQuery1T530_011: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'T530_011'
    end
    object ADOQuery1T530_012: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'T530_012'
    end
    object ADOQuery1T530_013: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'T530_013'
    end
    object ADOQuery1T530_014: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'T530_014'
    end
    object ADOQuery1T530_016: TIntegerField
      FieldName = 'T530_016'
      Visible = False
    end
    object ADOQuery1T530_010: TIntegerField
      DisplayLabel = #21518#32493#22788#29702
      FieldName = 'T530_010'
      Visible = False
    end
    object ADOQuery1T510_016: TIntegerField
      FieldName = 'O150_001'
      Visible = False
    end
    object ADOQuery1T510_019: TMemoField
      FieldName = 'T510_019'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1T510_0162: TIntegerField
      FieldName = 'T510_016'
      Visible = False
    end
    object ADOQuery1T510_0172: TIntegerField
      FieldName = 'T510_017'
      Visible = False
    end
    object ADOQuery1T520_005: TBCDField
      FieldName = 'T520_005'
      Visible = False
      Precision = 8
      Size = 2
    end
    object ADOQuery1T520_006: TDateTimeField
      FieldName = 'T520_006'
      Visible = False
    end
    object ADOQuery1T520_007: TDateTimeField
      FieldName = 'T520_007'
      Visible = False
    end
  end
  object qryTas510: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select T510_001,T510_002 from TAS510 order by T510_001')
    Left = 192
    Top = 48
    object qryTas510T510_001: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'T510_001'
      Size = 30
    end
    object qryTas510T510_002: TWideStringField
      DisplayLabel = #20219#21153#21517#31216
      FieldName = 'T510_002'
      Size = 50
    end
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select O150_001,O150_002,O150_003 from ORD150')
    Left = 128
    Top = 152
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.I150_001,A.I150_002,A.I150_003,A.I150_004,B.I120_003,C.' +
        'O150_002,C.O150_003'
      
        'from (INV150 A left join INV120 B on A.I150_005=B.I120_001) left' +
        ' join ORD150 C on A.I150_010=C.O150_001')
    Left = 96
    Top = 152
  end
end