ser310_01.dfm.svn-base

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

    object qrySer510S510_001: TWideStringField
      DisplayLabel = #35843#26597#21333#21495
      FieldName = 'S510_001'
      Size = 30
    end
    object qrySer510S510_003: TDateTimeField
      DisplayLabel = #35843#26597#26085#26399
      FieldName = 'S510_003'
    end
    object qrySer510H150_003: TWideStringField
      DisplayLabel = #35843#26597#20154#21592
      FieldName = 'H150_003'
    end
    object qrySer510S510_006: TWideStringField
      DisplayLabel = #21463#35843#26597#20154
      FieldName = 'S510_006'
    end
    object qrySer510S510_007: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'S510_007'
    end
    object qrySer510S510_008: TWideStringField
      DisplayLabel = #32844#20301#21517#31216
      FieldName = 'S510_008'
    end
    object qrySer510S510_009: TMemoField
      DisplayLabel = #35843#26597#20869#23481
      FieldName = 'S510_009'
      BlobType = ftMemo
    end
    object qrySer510S510_010: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'S510_010'
    end
    object qrySer510S510_011: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'S510_011'
    end
    object qrySer510S510_012: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'S510_012'
    end
    object qrySer510S510_013: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S510_013'
    end
  end
  object dsSer510: TDataSource
    DataSet = qrySer510
    Left = 416
    Top = 149
  end
  object PopupMenu1: TPopupMenu
    Left = 512
    Top = 149
    object N1: TMenuItem
      Action = ActOpen
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = ActRefresh
    end
    object N4: TMenuItem
      Action = ActLocate
    end
    object N5: TMenuItem
      Action = ActSearch
    end
  end
  object qrySer500: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qrySer500AfterScroll
    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 s100_005=-1'
      'order by S500_001'
      '')
    Left = 40
    Top = 152
    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 dsSer521: TDataSource
    DataSet = qrySer521
    Left = 319
    Top = 339
  end
  object dsSer522: TDataSource
    DataSet = qrySer522
    Left = 383
    Top = 339
  end
  object dsSer523: TDataSource
    DataSet = qrySer523
    Left = 455
    Top = 339
  end
  object dsSer524: TDataSource
    DataSet = qrySer524
    Left = 519
    Top = 339
  end
  object qrySer521: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    DataSource = dsSer520
    Parameters = <
      item
        Name = 'S520_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM SER521 where S521_001=:S520_001')
    Left = 351
    Top = 339
    object qrySer521S521_002: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'S521_002'
    end
    object qrySer521S521_003: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'S521_003'
      Size = 30
    end
    object qrySer521S521_004: TWideStringField
      DisplayLabel = #22519#34892#20154#21592
      FieldName = 'S521_004'
      Size = 50
    end
    object qrySer521S521_005: TBCDField
      DisplayLabel = #39044#35745#24037#26102
      FieldName = 'S521_005'
      Precision = 8
      Size = 2
    end
    object qrySer521S521_006: TSmallintField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'S521_006'
      OnGetText = qrySer521S521_006GetText
    end
    object qrySer521S521_007: TDateTimeField
      DisplayLabel = #39044#35745#24320#22987#26085#26399
      FieldName = 'S521_007'
    end
    object qrySer521S521_008: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104#26085#26399
      FieldName = 'S521_008'
    end
  end
  object qrySer522: TADOQuery
    Connection = SYSDM.ADOC
    DataSource = dsSer520
    Parameters = <
      item
        Name = 'S520_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT S522_002,S522_003,H150_003,S522_005 FROM SER522 LEFT JOIN' +
        ' HRM150 ON SER522.S522_004 = HRM150.H150_001 where S522_001=:S52' +
        '0_001')
    Left = 415
    Top = 339
    object qrySer522S522_002: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'S522_002'
    end
    object qrySer522S522_003: TDateTimeField
      DisplayLabel = #39044#35745#26085#26399
      FieldName = 'S522_003'
    end
    object qrySer522H150_003: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
    object qrySer522S522_005: TBCDField
      DisplayLabel = #32602#27454#37329#39069
      FieldName = 'S522_005'
      Precision = 15
      Size = 2
    end
  end
  object qrySer523: TADOQuery
    Connection = SYSDM.ADOC
    DataSource = dsSer520
    Parameters = <
      item
        Name = 'S520_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT S523_002,S523_003,O150_003,S523_005 FROM SER523 LEFT JOIN' +
        ' ORD150 ON SER523.S523_004 = ORD150.O150_001 where S523_001=:S52' +
        '0_001')
    Left = 487
    Top = 339
    object qrySer523S523_002: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'S523_002'
    end
    object qrySer523S523_003: TDateTimeField
      DisplayLabel = #39044#35745#26085#26399
      FieldName = 'S523_003'
    end
    object qrySer523O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qrySer523S523_005: TBCDField
      DisplayLabel = #36180#20607#37329#39069
      FieldName = 'S523_005'
      Precision = 15
      Size = 2
    end
  end
  object qrySer524: TADOQuery
    Connection = SYSDM.ADOC
    DataSource = dsSer520
    Parameters = <
      item
        Name = 'S520_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT SER524.S524_002, SER524.S524_003, SER524.S524_004, SER524' +
        '.S524_005, SER524.S524_006, SER524.S524_007'
      'FROM SER524'
      'where '
      'S524_001=:S520_001')
    Left = 551
    Top = 339
    object qrySer524S524_002: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'S524_002'
    end
    object qrySer524S524_003: TDateTimeField
      DisplayLabel = #39044#35745#26085#26399
      FieldName = 'S524_003'
    end
    object qrySer524S524_004: TIntegerField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'S524_004'
    end
    object qrySer524S524_005: TFloatField
      DisplayLabel = #36135#21697#25968#37327
      FieldName = 'S524_005'
    end
    object qrySer524S524_006: TFloatField
      DisplayLabel = #36135#21697#21333#20215
      FieldName = 'S524_006'
    end
    object qrySer524S524_007: TFloatField
      DisplayLabel = #36135#21697#37329#39069
      FieldName = 'S524_007'
    end
  end
end