unttransferoutstack.dfm

是分布式粮库程序,是采用Delphi实现的

    end
    object QrySQLINSTACK_ID: TStringField
      DisplayLabel = #20837#24211#21333#32534#21495
      FieldName = 'INSTACK_ID'
      Origin = 'LYDB.ENT_OUTSTACK.INSTACK_ID'
      Size = 12
    end
    object QrySQLCASE_ID: TStringField
      DisplayLabel = #31227#24211#21333#32534#21495
      FieldName = 'CASE_ID'
      Origin = 'LYDB.ENT_OUTSTACK.CASE_ID'
      Size = 12
    end
    object QrySQLSALEITEM_ID: TStringField
      DisplayLabel = #38144#21806#21333#32454#30446
      FieldName = 'SALEITEM_ID'
      Origin = 'LYDB.ENT_OUTSTACK.SALEITEM_ID'
      Size = 12
    end
    object QrySQLOUT_QUANTITY: TFloatField
      DisplayLabel = #20986#24211#25968#37327
      FieldName = 'OUT_QUANTITY'
      Origin = 'LYDB.ENT_OUTSTACK.OUT_QUANTITY'
    end
    object QrySQLOUT_TIME: TDateTimeField
      DisplayLabel = #20986#24211#26102#38388
      FieldName = 'OUT_TIME'
      Origin = 'LYDB.ENT_OUTSTACK.OUT_TIME'
      OnSetText = QrySQLOUT_TIMESetText
      EditMask = '!9999/99/99;1;_'
    end
    object QrySQLNEW: TIntegerField
      DisplayLabel = #26032#34955
      FieldName = 'NEW'
      Origin = 'LYDB.ENT_OUTSTACK.NEW'
    end
    object QrySQLOLD: TIntegerField
      DisplayLabel = #26087#34955
      FieldName = 'OLD'
      Origin = 'LYDB.ENT_OUTSTACK.OLD'
    end
    object QrySQLMISC: TIntegerField
      DisplayLabel = #26434#34955
      FieldName = 'MISC'
      Origin = 'LYDB.ENT_OUTSTACK.MISC'
    end
    object QrySQLFQ_MOISTURE: TFloatField
      DisplayLabel = #27700#20221
      FieldName = 'FQ_MOISTURE'
      Origin = 'LYDB.ENT_OUTSTACK.FQ_MOISTURE'
    end
    object QrySQLFQ_IMPURITY: TFloatField
      DisplayLabel = #26434#24230
      FieldName = 'FQ_IMPURITY'
      Origin = 'LYDB.ENT_OUTSTACK.FQ_IMPURITY'
    end
    object QrySQLFQ_ITEM1: TFloatField
      DisplayLabel = #32431#31918#29575'/'#40644#31890#31859'/'#37240#20215
      FieldName = 'FQ_ITEM1'
      Origin = 'LYDB.ENT_OUTSTACK.FQ_ITEM1'
    end
    object QrySQLFQ_ITEM2: TFloatField
      DisplayLabel = #19981#23436#21892#31890
      FieldName = 'FQ_ITEM2'
      Origin = 'LYDB.ENT_OUTSTACK.FQ_ITEM2'
    end
    object QrySQLFQ_ITEM3: TFloatField
      DisplayLabel = #25972#31934#31859#31890
      FieldName = 'FQ_ITEM3'
      Origin = 'LYDB.ENT_OUTSTACK.FQ_ITEM3'
    end
    object QrySQLFQ_ITEM4: TFloatField
      DisplayLabel = #35895#22806#31961#31859
      FieldName = 'FQ_ITEM4'
      Origin = 'LYDB.ENT_OUTSTACK.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_OUTSTACK.FQ_CLASS'
    end
    object QrySQLFQ_CLASS: TStringField
      DisplayLabel = #36136#37327#31561#32423
      FieldName = 'FQ_CLASS'
      Origin = 'LYDB.ENT_OUTSTACK.FQ_CLASS'
      Size = 12
    end
    object QrySQLMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Origin = 'LYDB.ENT_OUTSTACK.MEMO'
      Size = 50
    end
    object QrySQLCLERK: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'CLERK'
      Origin = 'LYDB.ENT_OUTSTACK.CLERK'
      Size = 10
    end
    object QrySQLMANAGER: TStringField
      DisplayLabel = #20027#31649
      FieldName = 'MANAGER'
      Origin = 'LYDB.ENT_OUTSTACK.MANAGER'
      Size = 10
    end
    object QrySQLREMAIN: TFloatField
      DisplayLabel = #26410#25552#37327
      FieldName = 'REMAIN'
      Origin = 'LYDB.ENT_OUTSTACK.REMAIN'
    end
    object QrySQLUNIT_ID: TIntegerField
      DisplayLabel = #20998#20844#21496#32534#21495
      FieldName = 'UNIT_ID'
      Origin = 'LYDB.ENT_OUTSTACK.UNIT_ID'
    end
    object QrySQLCOM_FLAG: TIntegerField
      DisplayLabel = #36890#35759#26631#24535
      FieldName = 'COM_FLAG'
      Origin = 'LYDB.ENT_OUTSTACK.COM_FLAG'
    end
    object QrySQLOUTTYPE: TStringField
      DisplayLabel = #20986#24211#31867#22411
      FieldName = 'OUTTYPE'
      Origin = 'LYDB.ENT_OUTSTACK.OUTTYPE'
      Size = 12
    end
    object QrySQLTORN: TIntegerField
      DisplayLabel = #24223#34955
      FieldName = 'TORN'
      Origin = 'LYDB.ENT_OUTSTACK.TORN'
    end
    object QrySQLKNIT: TIntegerField
      DisplayLabel = #32534#32455#34955
      FieldName = 'KNIT'
      Origin = 'LYDB.ENT_OUTSTACK.KNIT'
    end
    object QrySQLWASTAGE: TFloatField
      DisplayLabel = #25439#32791
      FieldName = 'WASTAGE'
      Origin = 'LYDB.ENT_OUTSTACK.WASTAGE'
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update ENT_OUTSTACK'
      'set'
      '  UNIT_ID = :UNIT_ID,'
      '  OUTSTACK_ID = :OUTSTACK_ID,'
      '  INSTACK_ID = :INSTACK_ID,'
      '  CASE_ID = :CASE_ID,'
      '  SALEITEM_ID = :SALEITEM_ID,'
      '  OUT_TIME = :OUT_TIME,'
      '  OUT_QUANTITY = :OUT_QUANTITY,'
      '  OUTTYPE = :OUTTYPE,'
      '  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_ITEM4 = :FQ_ITEM4,'
      '  FQ_ITEM5 = :FQ_ITEM5,'
      '  FQ_CLASS = :FQ_CLASS,'
      '  MEMO = :MEMO,'
      '  COM_FLAG = :COM_FLAG,'
      '  CLERK = :CLERK,'
      '  MANAGER = :MANAGER,'
      '  REMAIN = :REMAIN,'
      '  WASTAGE = :WASTAGE'
      'where'
      '  UNIT_ID = :OLD_UNIT_ID and'
      '  OUTSTACK_ID = :OLD_OUTSTACK_ID')
    InsertSQL.Strings = (
      'insert into ENT_OUTSTACK'
      
        '  (UNIT_ID, OUTSTACK_ID, INSTACK_ID, CASE_ID, SALEITEM_ID, OUT_T' +
        'IME, OUT_QUANTITY, '
      
        '   OUTTYPE, NEW, OLD, MISC, TORN, KNIT, FQ_MOISTURE, FQ_IMPURITY' +
        ', FQ_ITEM1, '
      
        '   FQ_ITEM2, FQ_ITEM3, FQ_ITEM4, FQ_ITEM5, FQ_CLASS, MEMO, COM_F' +
        'LAG, CLERK, '
      '   MANAGER, REMAIN, WASTAGE)'
      'values'
      
        '  (:UNIT_ID, :OUTSTACK_ID, :INSTACK_ID, :CASE_ID, :SALEITEM_ID, ' +
        ':OUT_TIME, '
      
        '   :OUT_QUANTITY, :OUTTYPE, :NEW, :OLD, :MISC, :TORN, :KNIT, :FQ' +
        '_MOISTURE, '
      
        '   :FQ_IMPURITY, :FQ_ITEM1, :FQ_ITEM2, :FQ_ITEM3, :FQ_ITEM4, :FQ' +
        '_ITEM5, '
      
        '   :FQ_CLASS, :MEMO, :COM_FLAG, :CLERK, :MANAGER, :REMAIN, :WAST' +
        'AGE)')
    DeleteSQL.Strings = (
      'delete from ENT_OUTSTACK'
      'where'
      '  UNIT_ID = :OLD_UNIT_ID and'
      '  OUTSTACK_ID = :OLD_OUTSTACK_ID')
  end
  object TblInStack: TTable
    Active = True
    AfterScroll = TblInStackAfterScroll
    DatabaseName = 'LYDB'
    IndexFieldNames = 'INSTACK_ID'
    MasterFields = 'INSTACK_ID'
    MasterSource = DataSource1
    TableName = 'dbo.ENT_INSTACK'
    Left = 416
    object TblInStackUNIT_ID: TIntegerField
      FieldName = 'UNIT_ID'
      Required = True
    end
    object TblInStackSITE_ID: TIntegerField
      FieldName = 'SITE_ID'
      Required = True
    end
    object TblInStackDEPOT_ID: TIntegerField
      FieldName = 'DEPOT_ID'
      Required = True
    end
    object TblInStackINSTACK_ID: TStringField
      FieldName = 'INSTACK_ID'
      Required = True
      Size = 12
    end
    object TblInStackCASE_ID: TStringField
      FieldName = 'CASE_ID'
      Size = 12
    end
    object TblInStackADJUST_ID: TStringField
      FieldName = 'ADJUST_ID'
      Size = 12
    end
    object TblInStackFOODPOSITION_ID: TIntegerField
      FieldName = 'FOODPOSITION_ID'
      Required = True
    end
    object TblInStackNOTY_ITEM_ID: TStringField
      FieldName = 'NOTY_ITEM_ID'
      Size = 12
    end
    object TblInStackNOTY_FOOD: TStringField
      FieldName = 'NOTY_FOOD'
      Size = 12
    end
    object TblInStackFROM_STATION: TStringField
      FieldName = 'FROM_STATION'
    end
    object TblInStackFREIGHT_NUMBER: TStringField
      FieldName = 'FREIGHT_NUMBER'
      Size = 12
    end
    object TblInStackTO_STATION: TStringField
      FieldName = 'TO_STATION'
      Size = 12
    end
    object TblInStackFREIGHT: TFloatField
      FieldName = 'FREIGHT'
    end
    object TblInStackIN_TIME: TDateTimeField
      FieldName = 'IN_TIME'
    end
    object TblInStackIN_QUANTITY: TFloatField
      FieldName = 'IN_QUANTITY'
    end
    object TblInStackSTORAGE: TFloatField
      FieldName = 'STORAGE'
    end
    object TblInStackPRICE: TFloatField
      FieldName = 'PRICE'
    end
    object TblInStackREAP_YEAR: TIntegerField
      FieldName = 'REAP_YEAR'
    end
    object TblInStackPROD_AREA: TStringField
      FieldName = 'PROD_AREA'
      Size = 12
    end
    object TblInStackNEW: TIntegerField
      FieldName = 'NEW'
    end
    object TblInStackOLD: TIntegerField
      FieldName = 'OLD'
    end
    object TblInStackMISC: TIntegerField
      FieldName = 'MISC'
    end
    object TblInStackFQ_MOISTURE: TFloatField
      FieldName = 'FQ_MOISTURE'
    end
    object TblInStackFQ_IMPURITY: TFloatField
      FieldName = 'FQ_IMPURITY'
    end
    object TblInStackFQ_ITEM1: TFloatField
      FieldName = 'FQ_ITEM1'
    end
    object TblInStackFQ_ITEM2: TFloatField
      FieldName = 'FQ_ITEM2'
    end
    object TblInStackFQ_ITEM3: TFloatField
      FieldName = 'FQ_ITEM3'
    end
    object TblInStackFQ_ITEM5: TFloatField
      FieldName = 'FQ_ITEM5'
    end
    object TblInStackFQ_ITEM4: TFloatField
      FieldName = 'FQ_ITEM4'
    end
    object TblInStackFQ_CLASS: TStringField
      FieldName = 'FQ_CLASS'
      Size = 12
    end
    object TblInStackATTRIBUTE: TStringField
      FieldName = 'ATTRIBUTE'
      Size = 12
    end
    object TblInStackMEMO: TStringField
      FieldName = 'MEMO'
      Size = 50
    end
    object TblInStackCOM_FLAG: TIntegerField
      FieldName = 'COM_FLAG'
    end
    object TblInStackNOTY_QUANTITY: TFloatField
      FieldName = 'NOTY_QUANTITY'
    end
    object TblInStackIN_FOOD: TStringField
      FieldName = 'IN_FOOD'
      Size = 12
    end
    object TblInStackSUPPLYER: TStringField
      FieldName = 'SUPPLYER'
      Size = 50
    end
    object TblInStackARRIVAL_TIME: TDateTimeField
      FieldName = 'ARRIVAL_TIME'
    end
    object TblInStackCLERK: TStringField
      FieldName = 'CLERK'
      Size = 10
    end
    object TblInStackMANAGER: TStringField
      FieldName = 'MANAGER'
      Size = 10
    end
    object TblInStackATTACHMENT: TStringField
      FieldName = 'ATTACHMENT'
    end
    object TblInStackR_NEW: TIntegerField
      FieldName = 'R_NEW'
    end
    object TblInStackR_OLD: TIntegerField
      FieldName = 'R_OLD'
    end
    object TblInStackR_MISC: TIntegerField
      FieldName = 'R_MISC'
    end
  end
  object DataSourceInStack: TDataSource
    DataSet = TblInStack
    Left = 456
  end
  object QryFoodStyle: TQuery
    DatabaseName = 'LYDB'
    Left = 536
  end
end