unttransferinstack.dfm

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

          ListSource = DataSourceAtechmet
          TabOrder = 14
        end
        object GroupBox6: TGroupBox
          Left = 709
          Top = 3
          Width = 193
          Height = 145
          Caption = #21253#35013
          TabOrder = 21
          object Label40: TLabel
            Left = 9
            Top = 24
            Width = 48
            Height = 12
            Caption = #26032'  '#34955#65306
          end
          object Label41: TLabel
            Left = 9
            Top = 49
            Width = 48
            Height = 12
            Caption = #26087'  '#34955#65306
          end
          object Label42: TLabel
            Left = 9
            Top = 74
            Width = 48
            Height = 12
            Caption = #26434'  '#34955#65306
          end
          object Label25: TLabel
            Left = 8
            Top = 97
            Width = 48
            Height = 12
            Caption = #24223'  '#34955#65306
          end
          object Label44: TLabel
            Left = 9
            Top = 121
            Width = 48
            Height = 12
            Caption = #32534#32455#34955#65306
          end
          object DBEdit22: TDBEdit
            Left = 59
            Top = 19
            Width = 121
            Height = 20
            DataField = 'NEW'
            DataSource = DataSource1
            TabOrder = 0
          end
          object DBEdit23: TDBEdit
            Left = 59
            Top = 43
            Width = 121
            Height = 20
            DataField = 'OLD'
            DataSource = DataSource1
            TabOrder = 1
          end
          object DBEdit24: TDBEdit
            Left = 59
            Top = 68
            Width = 121
            Height = 20
            DataField = 'MISC'
            DataSource = DataSource1
            TabOrder = 2
          end
          object DBEdtTorn: TDBEdit
            Left = 59
            Top = 92
            Width = 121
            Height = 20
            DataField = 'TORN'
            DataSource = DataSource1
            TabOrder = 3
          end
          object DBEdtKnit: TDBEdit
            Left = 59
            Top = 117
            Width = 121
            Height = 20
            DataField = 'KNIT'
            DataSource = DataSource1
            TabOrder = 4
          end
        end
        object GroupBox8: TGroupBox
          Left = 709
          Top = 153
          Width = 193
          Height = 92
          Caption = #36135#20301#20449#24687
          TabOrder = 2
          object Label52: TLabel
            Left = 10
            Top = 22
            Width = 48
            Height = 12
            Caption = #24211'  '#28857#65306
          end
          object Label53: TLabel
            Left = 10
            Top = 43
            Width = 48
            Height = 12
            Caption = #20179'  '#24211#65306
          end
          object Label54: TLabel
            Left = 11
            Top = 65
            Width = 48
            Height = 12
            Caption = #36135'  '#20301#65306
          end
          object DBLkpCmbxPosition: TDBLookupComboBox
            Left = 61
            Top = 63
            Width = 121
            Height = 20
            DataField = 'FOODPOSITION_ID'
            DataSource = DataSource1
            KeyField = 'FOODPOSITION_ID'
            ListField = 'NAME'
            ListSource = DataSourcePosition
            TabOrder = 2
            OnDropDown = DBLkpCmbxPositionDropDown
            OnExit = DBLkpCmbxPositionExit
          end
          object DBLkpCmbxSite: TDBLookupComboBox
            Left = 61
            Top = 14
            Width = 121
            Height = 20
            DataField = 'SITE_ID'
            DataSource = DataSource1
            KeyField = 'SITE_ID'
            ListField = 'SITE_NAME'
            ListSource = DataSourceSite
            TabOrder = 0
            OnDropDown = DBLkpCmbxSiteDropDown
            OnExit = DBLkpCmbxSiteExit
          end
          object DBLkpCmbxDepot: TDBLookupComboBox
            Left = 61
            Top = 37
            Width = 121
            Height = 20
            DataField = 'DEPOT_ID'
            DataSource = DataSource1
            KeyField = 'DEPOT_ID'
            ListField = 'DEPOT_NAME'
            ListSource = DataSourceDepot
            TabOrder = 1
            OnDropDown = DBLkpCmbxDepotDropDown
            OnExit = DBLkpCmbxDepotExit
          end
        end
        object DBCmbxInType: TDBComboBox
          Left = 89
          Top = 162
          Width = 132
          Height = 20
          DataField = 'INTYPE'
          DataSource = DataSource1
          Enabled = False
          ItemHeight = 12
          Items.Strings = (
            #36141#20837
            #21152#24037#25910#20837
            #20869#31227#25910#20837
            #36718#25442#25910#20837)
          TabOrder = 8
        end
        object DBEdit1: TDBEdit
          Left = 319
          Top = 110
          Width = 132
          Height = 20
          DataField = 'REAP_YEAR'
          DataSource = DataSource1
          TabOrder = 15
        end
        object DBEdit5: TDBEdit
          Left = 319
          Top = 136
          Width = 132
          Height = 20
          DataField = 'PROD_AREA'
          DataSource = DataSource1
          TabOrder = 16
        end
        object DBComboBox1: TDBComboBox
          Left = 319
          Top = 162
          Width = 132
          Height = 20
          DataField = 'MANAGER'
          DataSource = DataSource1
          ItemHeight = 12
          Items.Strings = (
            #26446#22788
            #36213#32463#29702)
          TabOrder = 17
        end
        object DBLkpCmbxSuppler: TDBLookupComboBox
          Left = 89
          Top = 188
          Width = 132
          Height = 20
          DataField = 'SUPPLYER'
          DataSource = DataSource1
          KeyField = 'UNIT_NAME'
          ListField = 'UNIT_NAME'
          ListSource = DataSourceUnitInfo
          TabOrder = 9
        end
        object DBEditSurplus: TDBEdit
          Left = 319
          Top = 217
          Width = 132
          Height = 20
          DataField = 'SURPLUS'
          DataSource = DataSource1
          TabOrder = 19
        end
      end
      inherited TabSheetQuery: TTabSheet
        inherited EdtTable: TEdit
          Text = 'ENT_INSTACK'
        end
        inherited EdtInitWhr: TEdit
          Text = ' INTYPE='#39#20869#31227#25910#20837#39
        end
      end
    end
  end
  inherited Pnl2: TPanel
    Top = 315
    Width = 1005
    Height = 122
    inherited DBGrid1: TDBGrid
      Width = 1003
      Height = 120
      Columns = <
        item
          Expanded = False
          FieldName = 'INSTACK_ID'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UNIT_ID'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SITE_ID'
          Width = 46
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEPOT_ID'
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FOODPOSITION_ID'
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CASE_ID'
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IN_FOOD'
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IN_QUANTITY'
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IN_TIME'
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NEW'
          Width = 35
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OLD'
          Width = 35
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MISC'
          Width = 37
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TORN'
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'KNIT'
          Width = 41
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'STORAGE'
          Width = 42
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_MOISTURE'
          Width = 33
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_IMPURITY'
          Width = 31
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_FAT'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM1'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM2'
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM3'
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM4'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM5'
          Width = 97
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_CLASS'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATTRIBUTE'
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATTACHMENT'
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SUPPLYER'
          Width = 159
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CLERK'
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MANAGER'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'REAP_YEAR'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PROD_AREA'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MEMO'
          Visible = True
        end>
    end
  end
  inherited PnlBottom: TPanel
    Width = 1005
  end
  inherited ImageList1: TImageList
    Left = 146
  end
  inherited MainMenu1: TMainMenu
    Left = 168
  end
  inherited DataSource1: TDataSource
    Left = 240
  end
  inherited QrySQL: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'SELECT * FROM ENT_INSTACK'
      'WHERE INTYPE='#39#20869#31227#25910#20837#39)
    Left = 208
    object QrySQLINSTACK_ID: TStringField
      DisplayLabel = #20837#24211#21333#32534#21495
      FieldName = 'INSTACK_ID'
      Origin = 'LYDB."dbo.ENT_INSTACK".INSTACK_ID'
      Size = 12
    end
    object QrySQLCASE_ID: TStringField
      DisplayLabel = #31227#24211#21333#32534#21495