📄 tas310_01.dfm.svn-base

📁 一个用Delphi开发的ERP软件
💻 SVN-BASE
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
    end
    object qryTas520T520_007: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104#26085#26399
      FieldName = 'T520_007'
    end
    object qryTas520T520_008: TBCDField
      DisplayLabel = #23454#38469#24037#26102
      FieldName = 'T520_008'
      Precision = 8
      Size = 2
    end
    object qryTas520T520_009: TDateTimeField
      DisplayLabel = #23454#38469#24320#22987#26085#26399
      FieldName = 'T520_009'
    end
    object qryTas520T520_010: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104#26085#26399
      FieldName = 'T520_010'
    end
    object qryTas520T520_011: TMemoField
      FieldName = 'T520_011'
      Visible = False
      BlobType = ftMemo
    end
  end
  object dsTas520: TDataSource
    DataSet = qryTas520
    Left = 408
    Top = 144
  end
  object qryTas510: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Filtered = True
    AfterScroll = qryTas510AfterScroll
    OnFilterRecord = qryTas510FilterRecord
    Parameters = <>
    SQL.Strings = (
      'select B.*,C.T100_002,D.T120_003,D.T120_005,'
      
        '       G.O150_001,G.O150_002,G.O150_003,G.O150_005,G.O150_006,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 = 40
    Top = 152
    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 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 = #35215#26684#22411#34399
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'T510_017'
      Visible = False
      Size = 60
      Lookup = True
    end
    object qryTas510I120_003: TWideStringField
      DisplayLabel = #20135#21697#39006#21029
      DisplayWidth = 50
      FieldKind = fkLookup
      FieldName = 'I120_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I120_003'
      KeyFields = 'T510_017'
      Visible = False
      Size = 60
      Lookup = True
    end
    object qryTas510M150_002: TWideStringField
      DisplayLabel = #35069#36896#21830#34399
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'M150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'O150_002'
      KeyFields = 'T510_017'
      Visible = False
      Size = 60
      Lookup = True
    end
    object qryTas510M150_003: TWideStringField
      DisplayLabel = #35069#36896#21830#21517
      FieldKind = fkLookup
      FieldName = 'M150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'O150_003'
      KeyFields = 'T510_017'
      Visible = False
      Size = 60
      Lookup = True
    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
    object qryTas510H150_003: TStringField
      FieldName = 'H150_003'
      Visible = False
    end
    object qryTas510T120_005: TIntegerField
      FieldName = 'T120_005'
      Visible = False
    end
    object qryTas510O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qryTas510O150_005: TWideStringField
      FieldName = 'O150_005'
      Visible = False
      Size = 50
    end
    object qryTas510O150_006: TWideStringField
      FieldName = 'O150_006'
      Visible = False
      Size = 50
    end
    object qryTas510O150_007: TWideStringField
      FieldName = 'O150_007'
      Visible = False
      Size = 50
    end
    object qryTas510O150_012: TWideStringField
      FieldName = 'O150_012'
      Visible = False
      Size = 100
    end
  end
  object dsTas510: TDataSource
    DataSet = qryTas510
    Left = 56
    Top = 136
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 216
    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 qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select O150_001,O150_002,O150_003 from ORD150')
    Left = 480
    Top = 320
  end
  object qryTas120: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select T120_001,T120_002,T120_003 from TAS120')
    Left = 520
    Top = 320
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004,I120_003,O150_002,O15' +
        '0_003'
      'from INV150,INV120,ORD150'
      'where I150_005=I120_001 and I150_010=O150_001')
    Left = 168
    Top = 152
  end
  object ADOQuery1: TADOQuery
    Connection = SYSDM.ADOC
    DataSource = dsTas510
    Parameters = <
      item
        Name = 'T510_001'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select * from TAS520 where T520_002=:T510_001 order by T520_001')
    Left = 344
    Top = 240
    object ADOQuery1T520_001: TWideStringField
      FieldName = 'T520_001'
      Size = 30
    end
    object ADOQuery1T520_002: TWideStringField
      FieldName = 'T520_002'
      Size = 30
    end
    object ADOQuery1T520_003: TWideStringField
      FieldName = 'T520_003'
      OnGetText = ADOQuery1T520_003GetText
      Size = 50
    end
    object ADOQuery1T520_004: TWideStringField
      FieldName = 'T520_004'
      FixedChar = True
      Size = 1
    end
    object ADOQuery1T520_005: TBCDField
      FieldName = 'T520_005'
      Precision = 8
      Size = 2
    end
    object ADOQuery1T520_006: TDateTimeField
      FieldName = 'T520_006'
    end
    object ADOQuery1T520_007: TDateTimeField
      FieldName = 'T520_007'
    end
    object ADOQuery1T520_008: TBCDField
      FieldName = 'T520_008'
      Precision = 8
      Size = 2
    end
    object ADOQuery1T520_009: TDateTimeField
      FieldName = 'T520_009'
    end
    object ADOQuery1T520_010: TDateTimeField
      FieldName = 'T520_010'
    end
    object ADOQuery1T520_011: TMemoField
      FieldName = 'T520_011'
      BlobType = ftMemo
    end
    object ADOQuery1T520_012: TDateTimeField
      FieldName = 'T520_012'
    end
    object ADOQuery1T520_013: TWideStringField
      FieldName = 'T520_013'
    end
    object ADOQuery1T520_014: TDateTimeField
      FieldName = 'T520_014'
    end
    object ADOQuery1T520_015: TWideStringField
      FieldName = 'T520_015'
    end
    object ADOQuery1T520_016: TIntegerField
      FieldName = 'T520_016'
    end
    object ADOQuery1T520_017: TIntegerField
      FieldName = 'T520_017'
    end
  end
  object ADOQuery2: TADOQuery
    Connection = SYSDM.ADOC
    DataSource = dsTas510
    Parameters = <
      item
        Name = 'T510_001'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      
        'select A.* from TAS530 A,TAS520 B where T530_002=T520_001 and T5' +
        '20_002=:T510_001 order by T530_002,T530_001')
    Left = 352
    Top = 416
    object ADOQuery2T530_001: TWideStringField
      FieldName = 'T530_001'
      Size = 30
    end
    object ADOQuery2T530_002: TWideStringField
      FieldName = 'T530_002'
      Size = 30
    end
    object ADOQuery2T530_003: TBCDField
      FieldName = 'T530_003'
      Precision = 5
      Size = 2
    end
    object ADOQuery2T530_004: TBCDField
      FieldName = 'T530_004'
      Precision = 8
      Size = 2
    end
    object ADOQuery2T530_005: TDateTimeField
      FieldName = 'T530_005'
    end
    object ADOQuery2T530_006: TDateTimeField
      FieldName = 'T530_006'
    end
    object ADOQuery2T530_007: TWideStringField
      FieldName = 'T530_007'
      FixedChar = True
      Size = 1
    end
    object ADOQuery2T530_008: TMemoField
      FieldName = 'T530_008'
      BlobType = ftMemo
    end
    object ADOQuery2T530_009: TWideStringField
      FieldName = 'T530_009'
      Size = 100
    end
    object ADOQuery2T530_010: TIntegerField
      FieldName = 'T530_010'
    end
    object ADOQuery2T120_003: TStringField
      DisplayLabel = #21518#32493#22788#29702
      FieldKind = fkLookup
      FieldName = 'T120_003'
      LookupDataSet = qryTas120
      LookupKeyFields = 'T120_001'
      LookupResultField = 'T120_003'
      KeyFields = 'T530_010'
      Size = 30
      Lookup = True
    end
    object ADOQuery2T530_011: TDateTimeField
      FieldName = 'T530_011'
    end
    object ADOQuery2T530_012: TWideStringField
      FieldName = 'T530_012'
    end
    object ADOQuery2T530_013: TDateTimeField
      FieldName = 'T530_013'
    end
    object ADOQuery2T530_014: TWideStringField
      FieldName = 'T530_014'
    end
    object ADOQuery2T530_015: TWideStringField
      FieldName = 'T530_015'
      Size = 50
    end
    object ADOQuery2T530_016: TIntegerField
      FieldName = 'T530_016'
    end
    object ADOQuery2T530_017: TWideStringField
      FieldName = 'T530_017'
      Size = 50
    end
    object ADOQuery2T530_018: TBCDField
      FieldName = 'T530_018'
      Precision = 8
      Size = 2
    end
  end
end
上一页 1 2 34
💿 文件大小 5012 K
👤 上传用户 zhousiqi420
📂 所属分类企业管理
🏷️ 相关标签

#Delphi #ERP #软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -