tas500_02.dfm.svn-base

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

        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbUpdate: TToolButton
        Left = 183
        Top = 0
        Action = ActUpdate
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 218
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 253
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSave: TToolButton
        Left = 261
        Top = 0
        Action = ActSave
        AutoSize = True
      end
      object tlbCancel: TToolButton
        Left = 296
        Top = 0
        Action = ActCancel
        AutoSize = True
      end
      object ToolButton3: TToolButton
        Left = 331
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 339
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 374
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 409
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 444
        Top = 0
        Action = ActPrint
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 479
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 487
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object qryOrd510: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select O510A_001,O100_002,O510A_003,O150_002,O150_003,I150_002,I' +
        '150_003,O510A_011'
      
        'from ((ORD510A A left join ORD150 B on A.O510A_017=B.O150_001) l' +
        'eft join INV150 C on A.O510A_006=C.I150_001) left join ORD100 D ' +
        'on A.O510A_002=D.O100_001'
      
        'where O510A_004=0 and exists(select 1 from ORD510B,INV150 where ' +
        'O510B_003=I150_001 and O510B_001=O510A_001 and I150_006=6)'
      'order by O510A_001')
    Left = 280
    Top = 112
    object qryOrd510O510A_001: TWideStringField
      DisplayLabel = #38144#21806#21333#21495
      FieldName = 'O510A_001'
      Size = 30
    end
    object qryOrd510O510A_003: TDateTimeField
      DisplayLabel = #38144#21806#26085#26399
      FieldName = 'O510A_003'
    end
    object qryOrd510O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd510O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd510I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd510I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryOrd510O510A_011: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O510A_011'
      Size = 30
    end
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    OnCalcFields = qryOrd150CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select O150_001,O150_002,O150_003,O150_004,O150_005,O150_007,O15' +
        '0_012'
      'from ORD150')
    Left = 120
    Top = 208
    object qryOrd150O150_002: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd150O150_003: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd150O150_004: TStringField
      DisplayLabel = #23458#25143#31616#31216
      FieldName = 'O150_004'
    end
    object qryOrd150O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Calculated = True
    end
    object qryOrd150O150_012: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    end
    object qryOrd150O150_007: TWideStringField
      DisplayLabel = #30005#23376#37038#31665
      FieldKind = fkCalculated
      FieldName = 'O150_007'
      Size = 50
      Calculated = True
    end
    object qryOrd150O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150O151_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21592
      FieldKind = fkCalculated
      FieldName = 'O151_002'
      Calculated = True
    end
    object qryOrd150O151_004: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldKind = fkCalculated
      FieldName = 'O151_004'
      Size = 50
      Calculated = True
    end
  end
  object qryOrd153: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select AA.*,BB.O150_002,BB.O150_003 from'
      
        '(select C.I150_002,A.O153_003,C.I150_003,C.I150_004,D.I120_003,C' +
        '.I150_001,C.I150_010'
      'from ORD153 A, ORD150 B, INV150 C, INV120 D '
      
        'where A.O153_001=B.O150_001 and A.O153_002=C.I150_001 and C.I150' +
        '_005=D.I120_001 and B.O150_002='#39'F00004'#39') as AA'
      'left join ORD150 BB on AA.I150_010=BB.O150_001')
    Left = 120
    Top = 288
    object qryOrd153I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd153O153_003: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O153_003'
      Size = 30
    end
    object qryOrd153I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryOrd153I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryOrd153I120_003: TWideStringField
      DisplayLabel = #20135#21697#31867#21035
      FieldName = 'I120_003'
      Size = 50
    end
    object qryOrd153O150_002: TWideStringField
      DisplayLabel = #21046#36896#21830#21495
      FieldName = 'O150_002'
    end
    object qryOrd153O150_003: TWideStringField
      DisplayLabel = #21046#36896#21830#21517
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd153I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryTas500: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qryTas500AfterScroll
    OnCalcFields = qryTas500CalcFields
    Parameters = <>
    SQL.Strings = (
      'select A.*,B.T120_003,'
      
        '       E.O150_001,E.O150_002,E.O150_003,E.O150_005,E.O150_007,E.' +
        'O150_012,'
      '       G.T130_002,G.T130_006'
      'from TAS500 A, TAS120 B,ORD150 E,TAS130 G'
      'where A.T500_003=B.T120_001 and A.T500_015=E.O150_001 and '
      '      A.T500_004=G.T130_001'
      'order by T500_001')
    Left = 8
    Top = 56
    object qryTas500T500_001: TWideStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'T500_001'
      Size = 30
    end
    object qryTas500T500_002: TWideStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'T500_002'
      Size = 50
    end
    object qryTas500T120_003: TWideStringField
      DisplayLabel = #39033#30446#29366#24577
      FieldName = 'T120_003'
      Size = 50
    end
    object qryTas500T130_002: TWideStringField
      DisplayLabel = #39033#30446#31867#21035
      FieldName = 'T130_002'
      Size = 50
    end
    object qryTas500T500_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'T500_005'
    end
    object qryTas500T500_006: TDateTimeField
      DisplayLabel = #30003#25253#26085#26399
      FieldName = 'T500_006'
    end
    object qryTas500T500_007: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'T500_007'
      OnGetText = qryTas500T500_007GetText
    end
    object qryTas500T500_008: TWideStringField
      DisplayLabel = #38144#21806#35746#21333
      FieldName = 'T500_008'
      Size = 30
    end
    object qryTas500T500_010: TWideStringField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'T500_010'
      OnGetText = qryTas500T500_010GetText
      FixedChar = True
      Size = 1
    end
    object qryTas500T500_011: TBCDField
      DisplayLabel = #39044#35745#24037#26102
      FieldName = 'T500_011'
      Precision = 8
      Size = 2
    end
    object qryTas500T500_012: TBCDField
      DisplayLabel = #23454#38469#24037#26102
      FieldName = 'T500_012'
      Precision = 8
      Size = 2
    end
    object qryTas500T500_013: TBCDField
      DisplayLabel = #23436#24037#27604#29575
      FieldName = 'T500_013'
      Precision = 5
      Size = 2
    end
    object qryTas500T500_014: TIntegerField
      DisplayLabel = #20219#21153#24635#25968
      FieldName = 'T500_014'
    end
    object qryTas500O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryTas500O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryTas500O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Calculated = True
    end
    object qryTas500O150_012: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    end
    object qryTas500O151_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21517
      FieldKind = fkLookup
      FieldName = 'O151_002'
      LookupDataSet = qryOrd151
      LookupKeyFields = 'O151_001'
      LookupResultField = 'O151_002'
      KeyFields = 'T500_015'
      Lookup = True
    end
    object qryTas500O151_004: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldKind = fkLookup
      FieldName = 'O151_004'
      LookupDataSet = qryOrd151
      LookupKeyFields = 'O151_001'