⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 untstack.dfm

📁 是分布式粮库程序,是采用Delphi实现的
💻 DFM
📖 第 1 页 / 共 3 页
字号:
      '      ( ent_instack.depot_id*=ent_depot_info.depot_id'
      '      and ent_instack.site_id*=ent_depot_info.site_id'
      '      and ent_instack.unit_id*=ent_depot_info.unit_id ) and'
      '      ( ent_instack.site_id*=ent_site.site_id'
      '      and ent_instack.unit_id*=ent_site.unit_id )'
      '      and ent_instack.unit_id*=ent_unit_info.unit_id'
      
        'order by IN_FOOD,ent_instack.Unit_id,ent_instack.site_id,ent_ins' +
        'tack.DEPOT_ID,ent_instack.FOODPOSITION_ID')
    Left = 256
    object QrySQLINSTACK_ID: TStringField
      DisplayLabel = #20837#24211#21333#32534#21495
      FieldName = 'INSTACK_ID'
      Origin = 'LYDB.ENT_INSTACK.INSTACK_ID'
      Size = 12
    end
    object QrySQLname: TStringField
      DisplayLabel = #36135#20301
      FieldName = 'name'
    end
    object QrySQLCASE_ID: TStringField
      DisplayLabel = #31227#24211#21333#32534#21495
      FieldName = 'CASE_ID'
      Origin = 'LYDB.ENT_INSTACK.CASE_ID'
      Size = 12
    end
    object QrySQLADJUST_ID: TStringField
      DisplayLabel = #24615#36136#35843#25972#32534#21495
      FieldName = 'ADJUST_ID'
      Origin = 'LYDB.ENT_INSTACK.ADJUST_ID'
      Size = 12
    end
    object QrySQLNOTY_ITEM_ID: TStringField
      DisplayLabel = #36890#30693#21333#32454#30446
      FieldName = 'NOTY_ITEM_ID'
      Origin = 'LYDB.ENT_INSTACK.NOTY_ITEM_ID'
      Size = 12
    end
    object QrySQLIN_FOOD: TStringField
      DisplayLabel = #21697#31181
      FieldName = 'IN_FOOD'
      Origin = 'LYDB.ENT_INSTACK.IN_FOOD'
      Size = 12
    end
    object QrySQLSTORAGE: TFloatField
      DisplayLabel = #24211#23384#37327
      FieldName = 'STORAGE'
      Origin = 'LYDB.ENT_INSTACK.STORAGE'
    end
    object QrySQLR_NEW: TIntegerField
      DisplayLabel = #26032#34955
      FieldName = 'R_NEW'
      Origin = 'LYDB.ENT_INSTACK.R_NEW'
    end
    object QrySQLR_OLD: TIntegerField
      DisplayLabel = #26087#34955
      FieldName = 'R_OLD'
      Origin = 'LYDB.ENT_INSTACK.R_OLD'
    end
    object QrySQLR_MISC: TIntegerField
      DisplayLabel = #26434#34955
      FieldName = 'R_MISC'
      Origin = 'LYDB.ENT_INSTACK.R_MISC'
    end
    object QrySQLR_TORN: TIntegerField
      DisplayLabel = #24223#34955
      FieldName = 'R_TORN'
      Origin = 'LYDB.ENT_INSTACK.R_TORN'
    end
    object QrySQLR_KNIT: TIntegerField
      DisplayLabel = #32534#32455#34955
      FieldName = 'R_KNIT'
      Origin = 'LYDB.ENT_INSTACK.R_KNIT'
    end
    object QrySQLATTACHMENT: TStringField
      DisplayLabel = #30452#31649#23646#24615
      FieldName = 'ATTACHMENT'
      Origin = 'LYDB.ENT_INSTACK.ATTACHMENT'
    end
    object QrySQLATTRIBUTE: TStringField
      DisplayLabel = #20648#22791#24615#36136
      FieldName = 'ATTRIBUTE'
      Origin = 'LYDB.ENT_INSTACK.ATTRIBUTE'
      Size = 12
    end
    object QrySQLFQ_CLASS: TStringField
      DisplayLabel = #36136#37327#31561#32423
      FieldName = 'FQ_CLASS'
      Origin = 'LYDB.ENT_INSTACK.FQ_CLASS'
      Size = 12
    end
    object QrySQLFQ_MOISTURE: TFloatField
      DisplayLabel = #27700#20221
      FieldName = 'FQ_MOISTURE'
      Origin = 'LYDB.ENT_INSTACK.FQ_MOISTURE'
    end
    object QrySQLFQ_IMPURITY: TFloatField
      DisplayLabel = #26434#36136
      FieldName = 'FQ_IMPURITY'
      Origin = 'LYDB.ENT_INSTACK.FQ_IMPURITY'
    end
    object QrySQLFQ_ITEM1: TFloatField
      DisplayLabel = #32431#31918#29575'/'#40644#31890#31859'/'#37240#20215
      FieldName = 'FQ_ITEM1'
      Origin = 'LYDB.ENT_INSTACK.FQ_ITEM1'
    end
    object QrySQLFQ_ITEM2: TFloatField
      DisplayLabel = #19981#23436#21892#31890
      FieldName = 'FQ_ITEM2'
      Origin = 'LYDB.ENT_INSTACK.FQ_ITEM2'
    end
    object QrySQLFQ_ITEM3: TFloatField
      DisplayLabel = #25972#31934#31859#31890
      FieldName = 'FQ_ITEM3'
      Origin = 'LYDB.ENT_INSTACK.FQ_ITEM3'
    end
    object QrySQLFQ_ITEM4: TFloatField
      DisplayLabel = #35895#22806#31961#31859
      FieldName = 'FQ_ITEM4'
      Origin = 'LYDB.ENT_INSTACK.FQ_ITEM4'
    end
    object QrySQLFQ_ITEM5: TFloatField
      DisplayLabel = #20986#31961#29575'/'#31291#35895#29575'/'#23481#37325'/'#39640#36807#27687#21270#20540
      FieldName = 'FQ_ITEM5'
      Origin = 'LYDB.ENT_INSTACK.FQ_ITEM5'
    end
    object QrySQLREAP_YEAR: TIntegerField
      DisplayLabel = #25910#33719#24180#20221
      FieldName = 'REAP_YEAR'
      Origin = 'LYDB.ENT_INSTACK.REAP_YEAR'
    end
    object QrySQLPROD_AREA: TStringField
      DisplayLabel = #20135#22320
      FieldName = 'PROD_AREA'
      Origin = 'LYDB.ENT_INSTACK.PROD_AREA'
      Size = 12
    end
    object QrySQLFROM_STATION: TStringField
      DisplayLabel = #21457#31449
      FieldName = 'FROM_STATION'
      Origin = 'LYDB.ENT_INSTACK.FROM_STATION'
    end
    object QrySQLFREIGHT_NUMBER: TStringField
      DisplayLabel = #36710#33337#21495
      FieldName = 'FREIGHT_NUMBER'
      Origin = 'LYDB.ENT_INSTACK.FREIGHT_NUMBER'
      Size = 12
    end
    object QrySQLTO_STATION: TStringField
      DisplayLabel = #21040#31449
      FieldName = 'TO_STATION'
      Origin = 'LYDB.ENT_INSTACK.TO_STATION'
      Size = 12
    end
    object QrySQLFREIGHT: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = #24212#20184#36153#29992
      FieldName = 'FREIGHT'
      Origin = 'LYDB.ENT_INSTACK.FREIGHT'
    end
    object QrySQLARRIVAL_TIME: TDateTimeField
      DisplayLabel = #21040#36798#26102#38388
      FieldName = 'ARRIVAL_TIME'
      Origin = 'LYDB.ENT_INSTACK.ARRIVAL_TIME'
    end
    object QrySQLNOTY_FOOD: TStringField
      DisplayLabel = #36890#30693#21697#31181
      FieldName = 'NOTY_FOOD'
      Origin = 'LYDB.ENT_INSTACK.NOTY_FOOD'
      Size = 12
    end
    object QrySQLNOTY_QUANTITY: TFloatField
      DisplayLabel = #36890#30693#25968#37327
      FieldName = 'NOTY_QUANTITY'
      Origin = 'LYDB.ENT_INSTACK.NOTY_QUANTITY'
    end
    object QrySQLIN_TIME: TDateTimeField
      DisplayLabel = #20837#24211#26102#38388
      FieldName = 'IN_TIME'
      Origin = 'LYDB.ENT_INSTACK.IN_TIME'
    end
    object QrySQLIN_QUANTITY: TFloatField
      DisplayLabel = #20837#24211#25968#37327
      FieldName = 'IN_QUANTITY'
      Origin = 'LYDB.ENT_INSTACK.IN_QUANTITY'
    end
    object QrySQLINTYPE: TStringField
      DisplayLabel = #20837#24211#31867#22411
      FieldName = 'INTYPE'
      Origin = 'LYDB.ENT_INSTACK.INTYPE'
      Size = 12
    end
    object QrySQLPRICE: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'PRICE'
      Origin = 'LYDB.ENT_INSTACK.PRICE'
    end
    object QrySQLNEW: TIntegerField
      DisplayLabel = #20837#24211#26032#34955
      FieldName = 'NEW'
      Origin = 'LYDB.ENT_INSTACK.NEW'
    end
    object QrySQLOLD: TIntegerField
      DisplayLabel = #20837#24211#26087#34955
      FieldName = 'OLD'
      Origin = 'LYDB.ENT_INSTACK.OLD'
    end
    object QrySQLMISC: TIntegerField
      DisplayLabel = #20837#24211#26434#34955
      FieldName = 'MISC'
      Origin = 'LYDB.ENT_INSTACK.MISC'
    end
    object QrySQLTORN: TIntegerField
      DisplayLabel = #20837#24211#24223#34955
      FieldName = 'TORN'
      Origin = 'LYDB.ENT_INSTACK.TORN'
    end
    object QrySQLKNIT: TIntegerField
      DisplayLabel = #20837#24211#32534#32455#34955
      FieldName = 'KNIT'
      Origin = 'LYDB.ENT_INSTACK.KNIT'
    end
    object QrySQLSUPPLYER: TStringField
      DisplayLabel = #20379#36135#21333#20301
      FieldName = 'SUPPLYER'
      Origin = 'LYDB.ENT_INSTACK.SUPPLYER'
      Size = 50
    end
    object QrySQLCLERK: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'CLERK'
      Origin = 'LYDB.ENT_INSTACK.CLERK'
      Size = 10
    end
    object QrySQLMANAGER: TStringField
      DisplayLabel = #20027#31649
      FieldName = 'MANAGER'
      Origin = 'LYDB.ENT_INSTACK.MANAGER'
      Size = 10
    end
    object QrySQLadjustor: TStringField
      DisplayLabel = #35843#25972#21592
      FieldName = 'adjustor'
      Origin = 'LYDB.ENT_INSTACK.adjustor'
      Size = 12
    end
    object QrySQLMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Origin = 'LYDB.ENT_INSTACK.MEMO'
      Size = 50
    end
    object QrySQLCOM_FLAG: TIntegerField
      DisplayLabel = #36890#35759#26631#24535
      FieldName = 'COM_FLAG'
      Origin = 'LYDB.ENT_INSTACK.COM_FLAG'
    end
    object QrySQLSURPLUS: TFloatField
      DisplayLabel = #28322#20313
      FieldName = 'SURPLUS'
      Origin = 'LYDB.ENT_INSTACK.SURPLUS'
    end
    object QrySQLdepot_name: TStringField
      DisplayLabel = #24211#25151#21517
      FieldName = 'depot_name'
    end
    object QrySQLsite_name: TStringField
      DisplayLabel = #24211#28857#21517
      FieldName = 'site_name'
    end
    object QrySQLunit_name: TStringField
      DisplayLabel = #20998#20844#21496#21517
      FieldName = 'unit_name'
      Size = 50
    end
    object QrySQLUnit_id: TIntegerField
      DisplayLabel = #20998#20844#21496#21495
      FieldName = 'Unit_id'
    end
    object QrySQLsite_id: TIntegerField
      DisplayLabel = #24211#28857#21495
      FieldName = 'site_id'
    end
    object QrySQLdepot_id: TIntegerField
      DisplayLabel = #24211#25151#21495
      FieldName = 'depot_id'
    end
    object QrySQLFOODPOSITION_ID: TIntegerField
      DisplayLabel = #36135#20301#21495
      FieldName = 'FOODPOSITION_ID'
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update ENT_INSTACK'
      'set'
      '  UNIT_ID = :UNIT_ID,'
      '  SITE_ID = :SITE_ID,'
      '  DEPOT_ID = :DEPOT_ID,'
      '  INSTACK_ID = :INSTACK_ID,'
      '  CASE_ID = :CASE_ID,'
      '  ADJUST_ID = :ADJUST_ID,'
      '  FOODPOSITION_ID = :FOODPOSITION_ID,'
      '  NOTY_ITEM_ID = :NOTY_ITEM_ID,'
      '  NOTY_FOOD = :NOTY_FOOD,'
      '  FROM_STATION = :FROM_STATION,'
      '  FREIGHT_NUMBER = :FREIGHT_NUMBER,'
      '  TO_STATION = :TO_STATION,'
      '  FREIGHT = :FREIGHT,'
      '  IN_TIME = :IN_TIME,'
      '  IN_QUANTITY = :IN_QUANTITY,'
      '  INTYPE = :INTYPE,'
      '  STORAGE = :STORAGE,'
      '  PRICE = :PRICE,'
      '  REAP_YEAR = :REAP_YEAR,'
      '  PROD_AREA = :PROD_AREA,'
      '  NEW = :NEW,'
      '  OLD = :OLD,'
      '  MISC = :MISC,'
      '  TORN = :TORN,'
      '  KNIT = :KNIT,'
      '  FQ_MOISTURE = :FQ_MOISTURE,'
      '  FQ_IMPURITY = :FQ_IMPURITY,'
      '  FQ_ITEM1 = :FQ_ITEM1,'
      '  FQ_ITEM2 = :FQ_ITEM2,'
      '  FQ_ITEM3 = :FQ_ITEM3,'
      '  FQ_ITEM5 = :FQ_ITEM5,'
      '  FQ_ITEM4 = :FQ_ITEM4,'
      '  FQ_CLASS = :FQ_CLASS,'
      '  ATTRIBUTE = :ATTRIBUTE,'
      '  MEMO = :MEMO,'
      '  COM_FLAG = :COM_FLAG,'
      '  NOTY_QUANTITY = :NOTY_QUANTITY,'
      '  IN_FOOD = :IN_FOOD,'
      '  SUPPLYER = :SUPPLYER,'
      '  ARRIVAL_TIME = :ARRIVAL_TIME,'
      '  CLERK = :CLERK,'
      '  MANAGER = :MANAGER,'
      '  Adjustor = :Adjustor,'
      '  ATTACHMENT = :ATTACHMENT,'
      '  R_NEW = :R_NEW,'
      '  R_OLD = :R_OLD,'
      '  R_MISC = :R_MISC,'
      '  R_TORN = :R_TORN,'
      '  R_KNIT = :R_KNIT,'
      '  SURPLUS = :SURPLUS'
      'where'
      '  UNIT_ID = :OLD_UNIT_ID and'
      '  INSTACK_ID = :OLD_INSTACK_ID')
    InsertSQL.Strings = (
      'insert into ENT_INSTACK'
      '  (UNIT_ID, SITE_ID, DEPOT_ID, '
      'INSTACK_ID, CASE_ID, ADJUST_ID, FOODPOSITION_ID, '
      '   NOTY_ITEM_ID, NOTY_FOOD, FROM_STATION, FREIGHT_NUMBER, '
      'TO_STATION, FREIGHT, '
      '   IN_TIME, IN_QUANTITY, INTYPE, STORAGE, PRICE, REAP_YEAR, '
      'PROD_AREA, NEW, OLD, '
      
        '   MISC, TORN, KNIT, FQ_MOISTURE, FQ_IMPURITY, FQ_ITEM1, FQ_ITEM' +
        '2, '
      'FQ_ITEM3, FQ_ITEM5, '
      
        '   FQ_ITEM4, FQ_CLASS, ATTRIBUTE, MEMO, COM_FLAG, NOTY_QUANTITY,' +
        ' '
      'IN_FOOD, '
      
        '   SUPPLYER, ARRIVAL_TIME, CLERK, MANAGER, Adjustor, ATTACHMENT,' +
        ' '
      'R_NEW, '
      '   R_OLD, R_MISC, R_TORN, R_KNIT, SURPLUS)'
      'values'
      '  (:UNIT_ID, :SITE_ID, :DEPOT_ID, '
      ':INSTACK_ID, :CASE_ID, :ADJUST_ID, :FOODPOSITION_ID, '
      '   :NOTY_ITEM_ID, :NOTY_FOOD, :FROM_STATION, :FREIGHT_NUMBER, '
      ':TO_STATION, '
      '   :FREIGHT, :IN_TIME, :IN_QUANTITY, :INTYPE, :STORAGE, :PRICE, '
      ':REAP_YEAR, :PROD_AREA, '
      
        '   :NEW, :OLD, :MISC, :TORN, :KNIT, :FQ_MOISTURE, :FQ_IMPURITY, ' +
        ':FQ_ITEM1, '
      ':FQ_ITEM2, '
      
        '   :FQ_ITEM3, :FQ_ITEM5, :FQ_ITEM4, :FQ_CLASS, :ATTRIBUTE, :MEMO' +
        ', '
      ':COM_FLAG, '
      '   :NOTY_QUANTITY, :IN_FOOD, :SUPPLYER, :ARRIVAL_TIME, :CLERK, '
      ':MANAGER, '
      
        '   :Adjustor, :ATTACHMENT, :R_NEW, :R_OLD, :R_MISC, :R_TORN, :R_' +
        'KNIT, '
      ':SURPLUS)'
      '')
    DeleteSQL.Strings = (
      'delete from ENT_INSTACK'
      'where'
      '  UNIT_ID = :OLD_UNIT_ID and'
      '  INSTACK_ID = :OLD_INSTACK_ID')
    Left = 288
  end
  inherited FontDialog: TFontDialog
    Left = 104
    Top = 65530
  end
  object TblFood: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_FOOD_TYPE'
    Left = 344
  end
  object DataSourceFood: TDataSource
    DataSet = TblFood
    Left = 376
  end
  object TblAttribute: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_ATTRIBUTE'
    Left = 704
  end
  object DataSourceAttribute: TDataSource
    DataSet = TblAttribute
    Left = 744
  end
  object TblAtechment: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_ATTACHMENT'
    Left = 792
  end
  object DataSourceAtechmet: TDataSource
    DataSet = TblAtechment
    Left = 832
  end
  object DataSourcePosition: TDataSource
    DataSet = QryPosition
    Left = 608
  end
  object DataSourceSite: TDataSource
    DataSet = QrySite
    Left = 464
  end
  object DataSourceDepot: TDataSource
    DataSet = QryDepot
    Left = 536
  end
  object QryFoodStyle: TQuery
    DatabaseName = 'LYDB'
    Left = 248
    Top = 32
  end
  object QrySite: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_site')
    Left = 432
  end
  object QryDepot: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_depot_info')
    Left = 504
  end
  object QryPosition: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_fdposition_info')
    Left = 576
  end
end

⌨️ 快捷键说明

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