tas510_02.dfm.svn-base

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

        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        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 qryTas500: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select T500_001,T500_002,T500_015,T500_016,T500_017 from TAS500 ' +
        'where T500_003<>3')
    Left = 288
    Top = 104
    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 qryTas500T500_015: TIntegerField
      FieldName = 'T500_015'
      Visible = False
    end
    object qryTas500T500_016: TIntegerField
      FieldName = 'T500_016'
      Visible = False
    end
    object qryTas500T500_017: TWideStringField
      FieldName = 'T500_017'
      Visible = False
      Size = 30
    end
  end
  object qryTas510: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qryTas510AfterScroll
    OnCalcFields = qryTas510CalcFields
    Parameters = <>
    SQL.Strings = (
      'select B.*,C.T100_002,D.T120_003,C.T100_006,'
      
        '       G.O150_001,G.O150_002,G.O150_003,G.O150_005,G.O150_007,G.' +
        'O150_012,'
      '       I.H150_002,I.H150_003'
      'from TAS510 B,TAS100 C,TAS120 D,ORD150 G,HRM150 I'
      
        'where B.T510_004=C.T100_001 and B.T510_003=D.T120_001 and B.T510' +
        '_024=I.H150_001 and'
      '      B.T510_016=G.O150_001'
      'order by T510_001')
    Left = 16
    Top = 80
    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
    object qryTas510T120_003: TWideStringField
      DisplayLabel = #20219#21153#29366#24577
      FieldName = 'T120_003'
      Size = 50
    end
    object qryTas510T100_002: TWideStringField
      DisplayLabel = #20219#21153#31867#21035
      FieldName = 'T100_002'
      Size = 50
    end
    object qryTas510T510_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'T510_005'
    end
    object qryTas510T510_006: TDateTimeField
      DisplayLabel = #30003#25253#26085#26399
      FieldName = 'T510_006'
    end
    object qryTas510T510_007: TDateTimeField
      DisplayLabel = #38656#27714#26085#26399
      FieldName = 'T510_007'
    end
    object qryTas510T510_008: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'T510_008'
      OnGetText = qryTas510T510_008GetText
    end
    object qryTas510T510_009: TWideStringField
      DisplayLabel = #26469#28304#21333#21495
      FieldName = 'T510_009'
      Size = 30
    end
    object qryTas510T510_011: TWideStringField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'T510_011'
      OnGetText = qryTas510T510_011GetText
      FixedChar = True
      Size = 1
    end
    object qryTas510T510_012: TBCDField
      DisplayLabel = #39044#35745#24037#26102
      FieldName = 'T510_012'
      Precision = 8
      Size = 2
    end
    object qryTas510T510_013: TBCDField
      DisplayLabel = #23454#38469#24037#26102
      FieldName = 'T510_013'
      Precision = 8
      Size = 2
    end
    object qryTas510T510_014: TBCDField
      DisplayLabel = #23436#24037#27604#29575
      FieldName = 'T510_014'
      Precision = 5
      Size = 2
    end
    object qryTas510T510_015: TIntegerField
      DisplayLabel = #24037#21333#24635#25968
      FieldName = 'T510_015'
    end
    object qryTas510O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryTas510O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryTas510O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Calculated = True
    end
    object qryTas510O150_012: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    end
    object qryTas510O151_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21592
      FieldKind = fkCalculated
      FieldName = 'O151_002'
      Calculated = True
    end
    object qryTas510O151_004: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldKind = fkCalculated
      FieldName = 'O151_004'
      Size = 50
      Calculated = True
    end
    object qryTas510O150_007: TWideStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldKind = fkCalculated
      FieldName = 'O150_007'
      Size = 50
      Calculated = True
    end
    object qryTas510I150_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 qryTas510I150_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 qryTas510I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'T510_017'
      Size = 60
      Lookup = True
    end
    object qryTas510I120_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 qryTas510M150_002: TWideStringField
      DisplayLabel = #21046#36896#21830#21495
      FieldKind = fkLookup
      FieldName = 'M150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'O150_002'
      KeyFields = 'T510_017'
      Lookup = True
    end
    object qryTas510M150_003: TWideStringField
      DisplayLabel = #21046#36896#21830#21517
      FieldKind = fkLookup
      FieldName = 'M150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'O150_003'
      KeyFields = 'T510_017'
      Size = 60
      Lookup = True
    end
    object qryTas510T510_018: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'T510_018'
      Size = 30
    end
    object qryTas510T510_020: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'T510_020'
    end
    object qryTas510T510_021: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'T510_021'
    end
    object qryTas510T510_022: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'T510_022'
    end
    object qryTas510T510_023: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'T510_023'
    end
    object qryTas510T510_025: TDateTimeField
      DisplayLabel = #39044#35745#24320#22987
      FieldName = 'T510_025'
    end
    object qryTas510T510_026: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104
      FieldName = 'T510_026'
    end
    object qryTas510T510_027: TDateTimeField
      DisplayLabel = #23454#38469#24320#22987
      FieldName = 'T510_027'
    end
    object qryTas510T510_028: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104
      FieldName = 'T510_028'
    end
    object qryTas510H150_002: TStringField
      DisplayLabel = #36131#20219#20154#21495
      FieldName = 'H150_002'
    end
    object qryTas510H150_003: TStringField
      DisplayLabel = #36131#20219#20154#21517
      FieldName = 'H150_003'
    end
    object qryTas510T510_003: TIntegerField
      FieldName = 'T510_003'
      Visible = False
    end
    object qryTas510T510_004: TIntegerField
      FieldName = 'T510_004'
      Visible = False
    end
    object qryTas510T510_010: TIntegerField
      FieldName = 'T510_010'
      Visible = False
    end
    object qryTas510T510_016: TIntegerField
      FieldName = 'T510_016'
      Visible = False
    end
    object qryTas510T510_017: TIntegerField
      FieldName = 'T510_017'
      Visible = False
    end