ser300_01.dfm.svn-base

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

    object qrySer530S530_010: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S530_010'
    end
  end
  object dsSer530: TDataSource
    DataSet = qrySer530
    Left = 408
    Top = 144
  end
  object qrySer500: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT SER500.S500_001,S500_004,SER500.S500_002, SER110.S110_003' +
        ', SER100.S100_002, SER500.S500_005, SER500.S500_006, SER500.S500' +
        '_007, SER500.S500_008, SER500.S500_009, HRM150.H150_003, SER500.' +
        'S500_011, SER500.S500_012, SER500.S500_013, SER500.S500_014, SER' +
        '500.S500_015, SER500.S500_016, ORD150.O150_003, SER500.S500_018,' +
        ' SER500.S500_019, SER500.S500_020, SER500.S500_025, SER500.S500_' +
        '026, SER500.S500_027, SER500.S500_028, SER500.S500_029, SER500.S' +
        '500_030, SER500.S500_031, SER500.S500_033, SER500.S500_034, SER5' +
        '00.S500_035, SER500.S500_036, SER500.S500_037'
      
        'FROM (((SER500 LEFT JOIN SER110 ON SER500.S500_003=SER110.S110_0' +
        '01) LEFT JOIN SER100 ON SER500.S500_004=SER100.S100_001) LEFT JO' +
        'IN HRM150 ON SER500.S500_010=HRM150.H150_001) LEFT JOIN ORD150 O' +
        'N SER500.S500_017=ORD150.O150_001'
      'where not s100_005=-1'
      'order by S500_001')
    Left = 96
    Top = 176
    object qrySer500S500_001: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S500_001'
      Size = 30
    end
    object qrySer500S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object qrySer500S110_003: TWideStringField
      DisplayLabel = #26469#30005#29366#24577
      FieldName = 'S110_003'
      Size = 50
    end
    object qrySer500S100_002: TWideStringField
      DisplayLabel = #26469#30005#31867#21035
      FieldName = 'S100_002'
      Size = 50
    end
    object qrySer500S500_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'S500_005'
    end
    object qrySer500S500_006: TSmallintField
      DisplayLabel = #26469#30005#31867#22411
      FieldName = 'S500_006'
    end
    object qrySer500S500_007: TDateTimeField
      DisplayLabel = #26469#30005#26085#26399
      FieldName = 'S500_007'
    end
    object qrySer500S500_008: TIntegerField
      DisplayLabel = #26469#30005#26102#38388
      FieldName = 'S500_008'
    end
    object qrySer500S500_009: TBCDField
      DisplayLabel = #25509#21548#26102#38388
      FieldName = 'S500_009'
      Precision = 8
      Size = 2
    end
    object qrySer500H150_003: TWideStringField
      DisplayLabel = #21463#29702#20154#21592
      FieldName = 'H150_003'
    end
    object qrySer500S500_011: TWideStringField
      DisplayLabel = #26469#30005#20154#21592
      FieldName = 'S500_011'
    end
    object qrySer500S500_012: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'S500_012'
    end
    object qrySer500S500_013: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'S500_013'
    end
    object qrySer500S500_014: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'S500_014'
    end
    object qrySer500S500_015: TSmallintField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'S500_015'
    end
    object qrySer500S500_016: TWideStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'S500_016'
      Size = 30
    end
    object qrySer500O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qrySer500S500_018: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'S500_018'
    end
    object qrySer500S500_019: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'S500_019'
      Size = 30
    end
    object qrySer500S500_020: TBooleanField
      DisplayLabel = #26159#21542#27966#24037
      FieldName = 'S500_020'
    end
    object qrySer500S500_025: TDateTimeField
      DisplayLabel = #23454#38469#24320#22987#26085#26399
      FieldName = 'S500_025'
    end
    object qrySer500S500_026: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104#26085#26399
      FieldName = 'S500_026'
    end
    object qrySer500S500_027: TBooleanField
      DisplayLabel = #26159#21542#25253#20215
      FieldName = 'S500_027'
    end
    object qrySer500S500_028: TDateTimeField
      DisplayLabel = #20445#20859#24320#22987#26085#26399
      FieldName = 'S500_028'
    end
    object qrySer500S500_029: TDateTimeField
      DisplayLabel = #20445#20859#23436#25104#26085#26399
      FieldName = 'S500_029'
    end
    object qrySer500S500_030: TDateTimeField
      DisplayLabel = #32493#20445#24320#22987#26085#26399
      FieldName = 'S500_030'
    end
    object qrySer500S500_031: TDateTimeField
      DisplayLabel = #32493#20445#23436#25104#26085#26399
      FieldName = 'S500_031'
    end
    object qrySer500S500_033: TMemoField
      DisplayLabel = #26469#30005#20869#23481
      FieldName = 'S500_033'
      BlobType = ftMemo
    end
    object qrySer500S500_034: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'S500_034'
    end
    object qrySer500S500_035: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'S500_035'
    end
    object qrySer500S500_036: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'S500_036'
    end
    object qrySer500S500_037: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S500_037'
    end
  end
  object dsSer500: TDataSource
    AutoEdit = False
    DataSet = qrySer500
    Left = 8
    Top = 152
  end
  object qryOrd151: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ORD151 where O151_011<>0')
    Left = 360
    Top = 472
  end
  object qryTas510: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Filtered = True
    DataSource = dsSer500
    Parameters = <
      item
        Name = 's500_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      
        'select B.*,C.T100_002,D.T120_003,E.I150_002,E.I150_003,E.I150_00' +
        '4,F.I120_003,'
      
        '       G.O150_001,G.O150_002,G.O150_003,G.O150_005,G.O150_007,G.' +
        'O150_012,I.H150_002,I.H150_003,'
      '       H.O150_002 as M150_002,H.O150_003 as M150_003,D.T120_005'
      
        'from TAS510 B,TAS100 C,TAS120 D,INV150 E,INV120 F,ORD150 G,ORD15' +
        '0 H, 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 and B.T510_017=E.I150_001 and E.I150' +
        '_007=F.I120_001 and'
      
        '      B.T510_016=G.O150_001 and B.T510_017=E.I150_001 and E.I150' +
        '_041=H.O150_001'
      '      and T510_008=1 and T510_009=:s500_001'
      'order by T510_001')
    Left = 328
    Top = 456
    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_025: TDateTimeField
      DisplayLabel = #39044#35745#24320#22987#26085#26399
      FieldName = 'T510_025'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qryTas510T510_026: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104#26085#26399
      FieldName = 'T510_026'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qryTas510T510_013: TBCDField
      DisplayLabel = #23454#38469#24037#26102
      FieldName = 'T510_013'
      Precision = 8
      Size = 2
    end
    object qryTas510T510_027: TDateTimeField
      DisplayLabel = #23454#38469#24320#22987#26085#26399
      FieldName = 'T510_027'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qryTas510T510_028: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104#26085#26399
      FieldName = 'T510_028'
      DisplayFormat = 'yyyy-mm-dd'
    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
      FieldName = 'O150_005'
    end
    object qryTas510O150_012: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldName = 'O150_012'
      Size = 100
    end
    object qryTas510O151_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21592
      FieldKind = fkLookup
      FieldName = 'O151_002'
      LookupDataSet = qryOrd151
      LookupKeyFields = 'O151_001'
      LookupResultField = 'O151_002'
      KeyFields = 'T510_016'
      Lookup = True
    end
    object qryTas510O151_004: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldKind = fkLookup
      FieldName = 'O151_004'
      LookupDataSet = qryOrd151
      LookupKeyFields = 'O151_001'
      LookupResultField = 'O151_004'
      KeyFields = 'T510_016'
      Size = 50
      Lookup = True
    end
    object qryTas510O150_007: TWideStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'O150_007'
      Size = 50
    end
    object qryTas510I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryTas510I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryTas510I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryTas510I120_003: TWideStringField
      DisplayLabel = #20135#21697#31867#21035
      FieldName = 'I120_003'
      Size = 50
    end
    object qryTas510M150_002: TWideStringField
      DisplayLabel = #21046#36896#21830#21495
      FieldName = 'M150_002'
    end
    object qryTas510M150_003: TWideStringField
      DisplayLabel = #21046#36896#21830#21517
      FieldName = 'M150_003'
      Size = 60
    end
    object qryTas510T510_018: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'T510_018'
      Size = 30
    end
    object qryTas510T510_019: TMemoField
      DisplayLabel = #20219#21153#35828#26126
      FieldName = 'T510_019'
      Visible = False
      BlobType = ftMemo
    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_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
    object qryTas510T510_024: TIntegerField
      FieldName = 'T510_024'
      Visible = False
    end
    object qryTas510H150_002: TStringField
      FieldName = 'H150_002'
      Visible = False
    end