tas500_01.dfm.svn-base

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

        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_020'
      end
      object dxDBGrid1T500_021: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_021'
      end
      object dxDBGrid1T500_022: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_022'
      end
      object dxDBGrid1H150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
      object dxDBGrid1T120_005: TdxDBGridMaskColumn
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T120_005'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    SQL.Strings = (
      'select A.*,B.T120_003,'
      '       E.O150_001,E.O150_002,E.O150_003,B.T120_005'
      'from TAS500 A, TAS120 B,ORD150 E'
      'where A.T500_003=B.T120_001 and A.T500_015=E.O150_001'
      'order by T500_001')
    object ADOQuery1T500_001: TWideStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'T500_001'
      Size = 30
    end
    object ADOQuery1T500_002: TWideStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'T500_002'
      Size = 50
    end
    object ADOQuery1T120_003: TWideStringField
      DisplayLabel = #39033#30446#29366#24577
      FieldName = 'T120_003'
      Size = 50
    end
    object ADOQuery1T500_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'T500_005'
    end
    object ADOQuery1T500_006: TDateTimeField
      DisplayLabel = #30003#25253#26085#26399
      FieldName = 'T500_006'
    end
    object ADOQuery1T500_007: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'T500_007'
      Visible = False
    end
    object ADOQuery1FType: TStringField
      DisplayLabel = #26469#28304#31867#22411
      FieldKind = fkCalculated
      FieldName = 'FType'
      Calculated = True
    end
    object ADOQuery1T500_008: TWideStringField
      DisplayLabel = #38144#21806#35746#21333
      FieldName = 'T500_008'
      Size = 30
    end
    object ADOQuery1T500_010: TWideStringField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'T500_010'
      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 ADOQuery1T500_011: TBCDField
      DisplayLabel = #39044#35745#24037#26102
      FieldName = 'T500_011'
      Precision = 8
      Size = 2
    end
    object ADOQuery1T500_024: TDateTimeField
      DisplayLabel = #39044#35745#24320#22987#26085#26399
      FieldName = 'T500_024'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1T500_025: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104#26085#26399
      FieldName = 'T500_025'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1T500_012: TBCDField
      DisplayLabel = #23454#38469#24037#26102
      FieldName = 'T500_012'
      Precision = 8
      Size = 2
    end
    object ADOQuery1T500_026: TDateTimeField
      DisplayLabel = #23454#38469#24320#22987#26085#26399
      FieldName = 'T500_026'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1T500_027: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104#26085#26399
      FieldName = 'T500_027'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1T500_013: TBCDField
      DisplayLabel = #23436#24037#27604#29575
      FieldName = 'T500_013'
      Precision = 5
      Size = 2
    end
    object ADOQuery1T500_014: TIntegerField
      DisplayLabel = #20219#21153#24635#25968
      FieldName = 'T500_014'
    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 = 'T500_016'
      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 = 'T500_016'
      Size = 60
      Lookup = True
    end
    object ADOQuery1I120_003: TWideStringField
      DisplayLabel = #20135#21697#31867#21035
      FieldKind = fkLookup
      FieldName = 'I120_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I120_003'
      KeyFields = 'T500_016'
      Size = 50
      Lookup = True
    end
    object ADOQuery1T500_017: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'T500_017'
      Size = 30
    end
    object ADOQuery1T500_018: TMemoField
      DisplayLabel = #39033#30446#35828#26126
      FieldName = 'T500_018'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1T500_019: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'T500_019'
    end
    object ADOQuery1T500_020: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'T500_020'
    end
    object ADOQuery1T500_021: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'T500_021'
    end
    object ADOQuery1T500_022: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'T500_022'
    end
    object ADOQuery1H150_002: TWideStringField
      DisplayLabel = #36131#20219#20154#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'T500_023'
      Visible = False
      Lookup = True
    end
    object ADOQuery1H150_003: TWideStringField
      DisplayLabel = #36131#20219#20154#21592
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'T500_023'
      Lookup = True
    end
    object ADOQuery1T500_003: TIntegerField
      FieldName = 'T500_003'
      Visible = False
    end
    object ADOQuery1T500_009: TIntegerField
      FieldName = 'T500_009'
      Visible = False
    end
    object ADOQuery1T500_015: TIntegerField
      FieldName = 'T500_015'
      Visible = False
    end
    object ADOQuery1T500_016: TIntegerField
      FieldName = 'T500_016'
      Visible = False
    end
    object ADOQuery1T500_023: TIntegerField
      FieldName = 'T500_023'
      Visible = False
    end
    object ADOQuery1T120_005: TIntegerField
      FieldName = 'T120_005'
      Visible = False
    end
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Caption = #23436#25104
      ImageIndex = 13
      Visible = True
      OnExecute = Action1Execute
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150')
    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 = 168
    Top = 152
  end
end