untadjustattrdispose.~dfm

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

          0000FFFF0000007F000000FFFFFF7F7F007F7F7F7F7F000000000000000000FF
          0000FF0000FF0000FF0000FF0000FF0000FF00000000007F000000FFFFFF7F7F
          7F0000007F7F7F0000000000000000FF0000FF0000FF0000FF0000FF0000FF00
          00FF00000000007F000000FFFFFF0000000000007F7F00000000000000000000
          0000000000000000000000FF0000FF000000FFFF0000007F000000FFFFFF7F7F
          000000007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF0000000000FF000000FF
          FF00FFFFFF00007F000000FFFFFF7F7F7F7F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBF000000000000000000FFFFFFFFFF0000007F000000FFFFFF7F7F
          7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000FF
          FF00FFFFFF00007F000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF0000007F000000FFFFFF7F7F
          7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FF
          FF00FFFFFFFFFF00FFFFFF000000FFFFFF7F7F7F7F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF
          00FFFFFF7F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000
          0000000000000000000000000000000000000000000000000000}
      end
      object BitBtnAdjusted: TBitBtn
        Left = 300
        Top = 10
        Width = 101
        Height = 29
        Caption = #35843#25972#23646#24615'  &A'
        TabOrder = 1
        OnClick = BitBtnAdjustedClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFF777777777777FFFF7FFFFFFFFFF7FFFF7FFF0FFFFF
          F7FFFF7FF000FFFFF7FFFF7F00000FFFF7FFFF7F00F000FFF7FFFF7F0FFF000F
          F7FFFF7FFFFFF000F7FFFF7FFFFFFF00F7FFFF7FFFFFFFF0F7FFFF7FFFFFFFFF
          F7FFFF777777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      end
    end
  end
  object PnlLeft: TPanel
    Left = 0
    Top = 0
    Width = 252
    Height = 586
    Align = alClient
    Caption = 'PnlLeft'
    TabOrder = 1
    object PageCtrlNoty: TPageControl
      Left = 1
      Top = 1
      Width = 250
      Height = 584
      ActivePage = tsUnfinished
      Align = alClient
      TabIndex = 0
      TabOrder = 0
      TabPosition = tpBottom
      OnChange = PageCtrlNotyChange
      object tsUnfinished: TTabSheet
        Caption = #26410#22788#29702#30340#36890#30693
        object DBGrdMasterUnfinished: TDBGrid
          Left = 0
          Top = 0
          Width = 242
          Height = 558
          Align = alClient
          DataSource = DataSourceMaster
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDrawColumnCell = DBGrdMasterUnfinishedDrawColumnCell
        end
      end
      object tsFinished: TTabSheet
        Caption = #24050#22788#29702#30340#36890#30693
        ImageIndex = 1
        object DBGrdMasterFinished: TDBGrid
          Left = 0
          Top = 0
          Width = 242
          Height = 551
          Align = alClient
          DataSource = DataSourceMaster
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
      end
      object tsAllNoty: TTabSheet
        Caption = #25152#26377#30340#36890#30693
        ImageIndex = 2
        object DBGrdMasterAll: TDBGrid
          Left = 0
          Top = 0
          Width = 242
          Height = 551
          Align = alClient
          DataSource = DataSourceMaster
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDrawColumnCell = DBGrdMasterAllDrawColumnCell
        end
      end
    end
  end
  object TblUnit_info: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_UNIT_INFO'
    Left = 272
    Top = 8
  end
  object DataSourceUnit_info: TDataSource
    Left = 312
    Top = 8
  end
  object TblMaster: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_ADJUST_ATTR'
    Left = 8
    Top = 88
    object TblMasterUNIT_ID: TIntegerField
      DisplayLabel = #20998#20844#21496#32534#21495
      FieldName = 'UNIT_ID'
      Required = True
    end
    object TblMasterADJUST_ID: TStringField
      DisplayLabel = #24615#36136#35843#25972#32534#21495
      FieldName = 'ADJUST_ID'
      Required = True
      Size = 12
    end
    object TblMasterINSTACK_ID: TStringField
      DisplayLabel = #20837#24211#32534#21495
      FieldName = 'INSTACK_ID'
      Size = 12
    end
    object TblMasterSITE_ID: TIntegerField
      DisplayLabel = #24211#28857
      FieldName = 'SITE_ID'
    end
    object TblMasterDEPOT_ID: TIntegerField
      DisplayLabel = #20179#24211
      FieldName = 'DEPOT_ID'
    end
    object TblMasterFOODPOSITION_ID: TIntegerField
      DisplayLabel = #36135#20301
      FieldName = 'FOODPOSITION_ID'
    end
    object TblMasterATTR: TStringField
      DisplayLabel = #26087#24615#36136
      FieldName = 'ATTR'
      Size = 12
    end
    object TblMasterNEW_ATTR: TStringField
      DisplayLabel = #25311#35843#24615#36136
      FieldName = 'NEW_ATTR'
      Size = 12
    end
    object TblMasterstatus: TIntegerField
      DisplayLabel = #29366#24577
      FieldName = 'status'
    end
    object TblMasterFOODTYPE: TStringField
      DisplayLabel = #21697#21517
      FieldName = 'FOODTYPE'
      Size = 12
    end
    object TblMasterQUANTITY: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'QUANTITY'
    end
    object TblMasterDATETIME: TDateTimeField
      DisplayLabel = #31614#21457#26085#26399
      FieldName = 'DATETIME'
    end
    object TblMasterMANAGER: TStringField
      DisplayLabel = #20027#31649
      FieldName = 'MANAGER'
      Size = 12
    end
    object TblMasterCLERK: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'CLERK'
      Size = 12
    end
    object TblMasterMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Size = 200
    end
    object TblMasterUnitName: TStringField
      DisplayLabel = #20998#20844#21496#21517#31216
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = TblUnit_info
      LookupKeyFields = 'UNIT_ID'
      LookupResultField = 'UNIT_NAME'
      KeyFields = 'UNIT_ID'
      Size = 100
      Lookup = True
    end
    object TblMasterAdjustor: TStringField
      DisplayLabel = #35843#25972#21592
      FieldName = 'Adjustor'
      Size = 12
    end
  end
  object TblInStack: TTable
    Active = True
    DatabaseName = 'LYDB'
    IndexFieldNames = 'UNIT_ID;INSTACK_ID'
    MasterFields = 'UNIT_ID;INSTACK_ID'
    MasterSource = DataSourceMaster
    TableName = 'dbo.ENT_INSTACK'
    Left = 296
    Top = 264
    object TblInStackUNIT_ID: TIntegerField
      DisplayLabel = #20998#20844#21496#32534#21495
      FieldName = 'UNIT_ID'
      Required = True
    end
    object TblInStackSITE_ID: TIntegerField
      DisplayLabel = #24211#28857
      FieldName = 'SITE_ID'
      Required = True
    end
    object TblInStackDEPOT_ID: TIntegerField
      DisplayLabel = #20179#24211
      FieldName = 'DEPOT_ID'
      Required = True
    end
    object TblInStackFOODPOSITION_ID: TIntegerField
      DisplayLabel = #36135#20301
      FieldName = 'FOODPOSITION_ID'
      Required = True
    end
    object TblInStackINSTACK_ID: TStringField
      DisplayLabel = #20837#24211#32534#21495
      FieldName = 'INSTACK_ID'
      Required = True
      Size = 12
    end
    object TblInStackADJUST_ID: TStringField
      DisplayLabel = #24615#36136#35843#25972#32534#21495
      FieldName = 'ADJUST_ID'
      Size = 12
    end
    object TblInStackATTRIBUTE: TStringField
      DisplayLabel = #24615#36136
      FieldName = 'ATTRIBUTE'
      Size = 12
    end
    object TblInStackADJUSTOR: TStringField
      DisplayLabel = #35843#25972#21592
      FieldName = 'ADJUSTOR'
      Size = 12
    end
    object TblInStackIN_FOOD: TStringField
      DisplayLabel = #20837#24211#21697#31181
      FieldName = 'IN_FOOD'
      Size = 12
    end
    object TblInStackIN_QUANTITY: TFloatField
      DisplayLabel = #20837#24211#25968#37327
      FieldName = 'IN_QUANTITY'
    end
    object TblInStackIN_TIME: TDateTimeField
      DisplayLabel = #20837#24211#26102#38388
      FieldName = 'IN_TIME'
    end
    object TblInStackCASE_ID: TStringField
      DisplayLabel = #31227#24211#21333#32534#21495
      FieldName = 'CASE_ID'
      Size = 12
    end
    object TblInStackNOTY_ITEM_ID: TStringField
      DisplayLabel = #36890#30693#21333#32454#30446
      FieldName = 'NOTY_ITEM_ID'
      Size = 12
    end
    object TblInStackNOTY_FOOD: TStringField
      DisplayLabel = #36890#30693#21697#31181
      FieldName = 'NOTY_FOOD'
      Size = 12
    end
    object TblInStackFROM_STATION: TStringField
      DisplayLabel = #21457#31449
      FieldName = 'FROM_STATION'
    end
    object TblInStackFREIGHT_NUMBER: TStringField
      DisplayLabel = #36710#33337#21495
      FieldName = 'FREIGHT_NUMBER'
      Size = 12
    end
    object TblInStackTO_STATION: TStringField
      DisplayLabel = #21040#31449
      FieldName = 'TO_STATION'
      Size = 12
    end
    object TblInStackFREIGHT: TFloatField
      DisplayLabel = #24212#20184#36153#29992
      FieldName = 'FREIGHT'
    end
    object TblInStackSTORAGE: TFloatField
      DisplayLabel = #24211#23384#37327
      FieldName = 'STORAGE'
    end
    object TblInStackPRICE: TFloatField
      DisplayLabel = #20215#26684
      FieldName = 'PRICE'
    end
    object TblInStackREAP_YEAR: TIntegerField
      DisplayLabel = #25910#33719#24180#20221
      FieldName = 'REAP_YEAR'
    end
    object TblInStackPROD_AREA: TStringField
      DisplayLabel = #20135#22320
      FieldName = 'PROD_AREA'
      Size = 12
    end
    object TblInStackNEW: TIntegerField
      DisplayLabel = #20837#24211#26032#21253#35013
      FieldName = 'NEW'
    end
    object TblInStackOLD: TIntegerField
      DisplayLabel = #20837#24211#26087#21253#35013
      FieldName = 'OLD'
    end
    object TblInStackMISC: TIntegerField
      DisplayLabel = #20837#24211#26434#21253#35013
      FieldName = 'MISC'
    end
    object TblInStackFQ_MOISTURE: TFloatField
      DisplayLabel = #27700#20221
      FieldName = 'FQ_MOISTURE'
    end
    object TblInStackFQ_IMPURITY: TFloatField
      DisplayLabel = #26434#24230
      FieldName = 'FQ_IMPURITY'
    end
    object TblInStackFQ_ITEM1: TFloatField
      DisplayLabel = #40644#31890#31859'/'#32431#31918#29575'/'#37240#20215
      FieldName = 'FQ_ITEM1'
    end
    object TblInStackFQ_ITEM2: TFloatField
      DisplayLabel = #19981#23436#21892#31890
      FieldName = 'FQ_ITEM2'
    end
    object TblInStackFQ_ITEM3: TFloatField
      DisplayLabel = #25972#31934#31859#31890
      FieldName = 'FQ_ITEM3'
    end
    object TblInStackFQ_ITEM5: TFloatField
      DisplayLabel = #20986#31961#29575'/'#31291#35895#29575'/'#23481#37325'/'#39640#36807#27687#21270#20540
      FieldName = 'FQ_ITEM5'
    end
    object TblInStackFQ_ITEM4: TFloatField
      DisplayLabel = #35895#22806#31961#31859
      FieldName = 'FQ_ITEM4'
    end
    object TblInStackFQ_CLASS: TStringField
      DisplayLabel = #36136#37327#31561#32423
      FieldName = 'FQ_CLASS'
      Size = 12
    end
    object TblInStackNOTY_QUANTITY: TFloatField
      DisplayLabel = #36890#30693#25968#37327
      FieldName = 'NOTY_QUANTITY'
    end
    object TblInStackSUPPLYER: TStringField
      DisplayLabel = #20379#36135#21333#20301
      FieldName = 'SUPPLYER'
      Size = 50
    end
    object TblInStackARRIVAL_TIME: TDateTimeField
      DisplayLabel = #21040#36798#26102#38388
      FieldName = 'ARRIVAL_TIME'
    end
    object TblInStackCLERK: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'CLERK'
      Size = 10
    end
    object TblInStackMANAGER: TStringField
      DisplayLabel = #20027#31649
      FieldName = 'MANAGER'
      Size = 10
    end
    object TblInStackATTACHMENT: TStringField
      DisplayLabel = #24402#23646
      FieldName = 'ATTACHMENT'
    end
    object TblInStackR_NEW: TIntegerField
      DisplayLabel = #22312#24211#26032#21253#35013
      FieldName = 'R_NEW'
    end
    object TblInStackR_OLD: TIntegerField
      DisplayLabel = #22312#24211#26087#21253#35013
      FieldName = 'R_OLD'
    end
    object TblInStackR_MISC: TIntegerField
      DisplayLabel = #22312#24211#26434#21253#35013
      FieldName = 'R_MISC'
    end
    object TblInStackMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Size = 50
    end
  end
  object DataSourceMaster: TDataSource
    DataSet = TblMaster
    Left = 48
    Top = 96
  end
  object DataSourceInStack: TDataSource
    DataSet = TblInStack
    Left = 336
    Top = 264
  end
end