ser500_01.dfm.svn-base

一个用Delphi开发的ERP软件

        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_029'
      end
      object dxDBGrid1S500_030: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_030'
      end
      object dxDBGrid1S500_031: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_031'
      end
      object dxDBGrid1S500_032: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_032'
      end
      object dxDBGrid1S500_034: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_034'
      end
      object dxDBGrid1S500_035: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_035'
      end
      object dxDBGrid1S500_036: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_036'
      end
      object dxDBGrid1S500_037: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_037'
      end
      object dxDBGrid1S110_005: TdxDBGridMaskColumn
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S110_005'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    OnFilterRecord = ADOQuery1FilterRecord
    SQL.Strings = (
      
        'select A.*,B.S100_002,C.S110_003,D.H150_001,D.H150_002,D.H150_00' +
        '3,'
      
        '       E.O150_001,E.O150_002,E.O150_003,E.O150_005,E.O150_006,E.' +
        'O150_012,C.S110_005'
      'from SER500 A, SER100 B, SER110 C, HRM150 D, ORD150 E'
      'where A.S500_004=B.S100_001 and A.S500_003=C.S110_001 and '
      '      A.S500_010=D.H150_001 and A.S500_017=E.O150_001'
      'order by S500_001')
    object ADOQuery1S500_001: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S500_001'
      Size = 30
    end
    object ADOQuery1S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object ADOQuery1S100_002: TWideStringField
      DisplayLabel = #26469#30005#31867#21035
      FieldName = 'S100_002'
      Size = 50
    end
    object ADOQuery1S110_003: TWideStringField
      DisplayLabel = #26469#30005#29366#24577
      FieldName = 'S110_003'
      Size = 50
    end
    object ADOQuery1S500_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'S500_005'
    end
    object ADOQuery1S500_006: TSmallintField
      DisplayLabel = #26469#30005#31867#22411
      FieldName = 'S500_006'
      OnGetText = ADOQuery1S500_006GetText
    end
    object ADOQuery1S500_007: TDateTimeField
      DisplayLabel = #26469#30005#26085#26399
      FieldName = 'S500_007'
    end
    object ADOQuery1S500_008: TIntegerField
      DisplayLabel = #26469#30005#26102#38388
      FieldName = 'S500_008'
      OnGetText = ADOQuery1S500_008GetText
    end
    object ADOQuery1S500_009: TBCDField
      DisplayLabel = #25509#21548#26102#38388
      FieldName = 'S500_009'
      Precision = 8
      Size = 2
    end
    object ADOQuery1H150_002: TWideStringField
      DisplayLabel = #21463#29702#20154#21495
      FieldName = 'H150_002'
    end
    object ADOQuery1H150_003: TWideStringField
      DisplayLabel = #21463#29702#20154#21517
      FieldName = 'H150_003'
    end
    object ADOQuery1S500_011: TWideStringField
      DisplayLabel = #26469#30005#20154#21592
      FieldName = 'S500_011'
    end
    object ADOQuery1S500_012: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'S500_012'
    end
    object ADOQuery1S500_013: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'S500_013'
    end
    object ADOQuery1S500_014: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'S500_014'
    end
    object ADOQuery1S500_015: TSmallintField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'S500_015'
      OnGetText = ADOQuery1S500_015GetText
    end
    object ADOQuery1S500_016: TWideStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'S500_016'
      Size = 30
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #23458#25142#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Size = 50
      Calculated = True
    end
    object ADOQuery1O150_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_006'
      Size = 50
      Calculated = True
    end
    object ADOQuery1O150_012: TWideStringField
      DisplayLabel = #23458#25142#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    end
    object ADOQuery1I150_002: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'S500_018'
      Size = 30
      Lookup = True
    end
    object ADOQuery1I150_003: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'S500_018'
      Size = 60
      Lookup = True
    end
    object ADOQuery1S500_019: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'S500_019'
      Size = 30
    end
    object ADOQuery1S500_020: TBooleanField
      DisplayLabel = #26159#21542#27966#24037
      FieldName = 'S500_020'
    end
    object ADOQuery1S500_027: TBooleanField
      DisplayLabel = #26159#21542#25253#20215
      FieldName = 'S500_027'
    end
    object ADOQuery1S500_028: TDateTimeField
      DisplayLabel = #20445#20859#24320#22987#26085#26399
      FieldName = 'S500_028'
    end
    object ADOQuery1S500_029: TDateTimeField
      DisplayLabel = #20445#20859#23436#25104#26085#26399
      FieldName = 'S500_029'
    end
    object ADOQuery1S500_030: TDateTimeField
      DisplayLabel = #32493#20445#24320#22987#26085#26399
      FieldName = 'S500_030'
    end
    object ADOQuery1S500_031: TDateTimeField
      DisplayLabel = #32493#20445#23436#25104#26085#26399
      FieldName = 'S500_031'
    end
    object ADOQuery1S500_032: TSmallintField
      DisplayLabel = #20135#21697#26469#28304
      FieldName = 'S500_032'
    end
    object ADOQuery1S500_033: TMemoField
      DisplayLabel = #26469#30005#20869#23481
      FieldName = 'S500_033'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1S500_034: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'S500_034'
    end
    object ADOQuery1S500_035: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'S500_035'
    end
    object ADOQuery1S500_036: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'S500_036'
    end
    object ADOQuery1S500_037: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S500_037'
    end
    object ADOQuery1S500_003: TIntegerField
      DisplayLabel = #26469#30005#29366#24577
      FieldName = 'S500_003'
      Visible = False
    end
    object ADOQuery1S500_004: TIntegerField
      DisplayLabel = #26469#30005#31867#21035
      FieldName = 'S500_004'
      Visible = False
    end
    object ADOQuery1S500_010: TIntegerField
      DisplayLabel = #21463#29702#20154#21592
      FieldName = 'S500_010'
      Visible = False
    end
    object ADOQuery1S500_017: TIntegerField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'S500_017'
      Visible = False
    end
    object ADOQuery1S500_018: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'S500_018'
      Visible = False
    end
    object ADOQuery1H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1S110_005: TIntegerField
      FieldName = 'S110_005'
      Visible = False
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150')
    Left = 112
    Top = 152
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
    end
    object qryInv150I150_002: TWideStringField
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      FieldName = 'I150_003'
      Size = 60
    end
  end
end