untstack.dfm

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

          DataField = 'NOTY_ITEM_ID'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 21
        end
        object DBEdit3: TDBEdit
          Left = 90
          Top = 91
          Width = 130
          Height = 20
          DataField = 'CASE_ID'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 22
        end
        object DBEdit6: TDBEdit
          Left = 90
          Top = 119
          Width = 130
          Height = 20
          DataField = 'ADJUST_ID'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 23
        end
        object DBLkpCmbxInFood: TDBLookupComboBox
          Left = 321
          Top = 34
          Width = 129
          Height = 20
          DataField = 'IN_FOOD'
          DataSource = DataSource1
          Enabled = False
          KeyField = 'FOOD_TYPE'
          ListField = 'FOOD_TYPE'
          ListSource = DataSourceFood
          TabOrder = 3
          OnClick = DBLkpCmbxInFoodClick
        end
        object DBLkpCmbxAttribute: TDBLookupComboBox
          Left = 322
          Top = 118
          Width = 130
          Height = 20
          DataField = 'ATTRIBUTE'
          DataSource = DataSource1
          KeyField = 'ATTRIBUTE'
          ListField = 'ATTRIBUTE'
          ListSource = DataSourceAttribute
          TabOrder = 6
        end
        object DBLkpCmbxAtechment: TDBLookupComboBox
          Left = 322
          Top = 146
          Width = 130
          Height = 20
          DataField = 'ATTACHMENT'
          DataSource = DataSource1
          KeyField = 'ATTACHMENT'
          ListField = 'ATTACHMENT'
          ListSource = DataSourceAtechmet
          TabOrder = 7
        end
        object GroupBox8: TGroupBox
          Left = 709
          Top = 161
          Width = 193
          Height = 92
          Caption = #36135#20301#20449#24687
          TabOrder = 13
          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 DBEdit7: TDBEdit
            Left = 59
            Top = 16
            Width = 92
            Height = 20
            DataField = 'site_name'
            DataSource = DataSource1
            Enabled = False
            TabOrder = 0
          end
          object DBEdit8: TDBEdit
            Left = 59
            Top = 39
            Width = 93
            Height = 20
            DataField = 'depot_name'
            DataSource = DataSource1
            Enabled = False
            TabOrder = 1
          end
          object DBEdit9: TDBEdit
            Left = 59
            Top = 61
            Width = 93
            Height = 20
            DataField = 'name'
            DataSource = DataSource1
            Enabled = False
            TabOrder = 2
          end
          object DBEdit10: TDBEdit
            Left = 154
            Top = 16
            Width = 33
            Height = 20
            DataField = 'site_id'
            DataSource = DataSource1
            Enabled = False
            TabOrder = 3
          end
          object DBEdit11: TDBEdit
            Left = 154
            Top = 39
            Width = 33
            Height = 20
            DataField = 'depot_id'
            DataSource = DataSource1
            Enabled = False
            TabOrder = 4
          end
          object DBEdit13: TDBEdit
            Left = 154
            Top = 61
            Width = 33
            Height = 20
            DataField = 'FOODPOSITION_ID'
            DataSource = DataSource1
            Enabled = False
            TabOrder = 5
          end
        end
        object DBEdit14: TDBEdit
          Left = 90
          Top = 7
          Width = 108
          Height = 20
          DataField = 'unit_name'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 24
        end
      end
      inherited TabSheetQuery: TTabSheet
        inherited EdtTable: TEdit
          Left = 136
          Top = 216
        end
        inherited GroupBox1: TGroupBox
          Top = 24
        end
        inherited GroupBox3: TGroupBox
          Top = 24
        end
        inherited BitBtnAll: TBitBtn
          Left = 672
          Top = 216
        end
        inherited BitBtnOK: TBitBtn
          Left = 776
          Top = 216
        end
        inherited BitBtnCancel1: TBitBtn
          Left = 888
          Top = 216
        end
        inherited EdtInitWhr: TEdit
          Left = 320
          Top = 216
        end
      end
    end
  end
  inherited Pnl2: TPanel
    Top = 323
    Height = 190
    inherited DBGrid1: TDBGrid
      Height = 188
      Columns = <
        item
          Expanded = False
          FieldName = 'site_name'
          Width = 83
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'depot_name'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'name'
          Width = 39
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IN_FOOD'
          Title.Alignment = taCenter
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATTRIBUTE'
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'R_NEW'
          Title.Alignment = taCenter
          Width = 37
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'R_OLD'
          Title.Alignment = taCenter
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'R_MISC'
          Title.Alignment = taCenter
          Width = 37
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'R_TORN'
          Title.Alignment = taCenter
          Width = 37
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'R_KNIT'
          Title.Alignment = taCenter
          Width = 44
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'STORAGE'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PROD_AREA'
          Title.Alignment = taCenter
          Width = 44
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'REAP_YEAR'
          Title.Alignment = taCenter
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IN_TIME'
          Title.Alignment = taCenter
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_MOISTURE'
          Title.Alignment = taCenter
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_IMPURITY'
          Title.Alignment = taCenter
          Width = 31
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM5'
          Title.Alignment = taCenter
          Width = 58
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM1'
          Title.Alignment = taCenter
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM2'
          Title.Alignment = taCenter
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM3'
          Title.Alignment = taCenter
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_ITEM4'
          Title.Alignment = taCenter
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'INTYPE'
          Title.Alignment = taCenter
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRICE'
          Title.Alignment = taCenter
          Width = 38
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'INSTACK_ID'
          Title.Alignment = taCenter
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CASE_ID'
          Title.Alignment = taCenter
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ADJUST_ID'
          Title.Alignment = taCenter
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NOTY_ITEM_ID'
          Title.Alignment = taCenter
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ATTACHMENT'
          Title.Alignment = taCenter
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FQ_CLASS'
          Title.Alignment = taCenter
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'site_id'
          Title.Alignment = taCenter
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'depot_id'
          Title.Alignment = taCenter
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FOODPOSITION_ID'
          Title.Alignment = taCenter
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MEMO'
          Title.Alignment = taCenter
          Visible = True
        end>
    end
  end
  inherited PnlBottom: TPanel
    Top = 516
  end
  inherited DataSource1: TDataSource
    Left = 216
  end
  inherited QrySQL: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      
        'select INSTACK_ID,CASE_ID,ADJUST_ID,NOTY_ITEM_ID,IN_FOOD,STORAGE' +
        ','
      '       R_NEW,R_OLD,R_MISC,R_TORN,R_KNIT,ATTACHMENT,ATTRIBUTE,'
      
        '       FQ_CLASS,FQ_MOISTURE,FQ_IMPURITY,FQ_ITEM1,FQ_ITEM2,FQ_ITE' +
        'M3,'
      
        '       FQ_ITEM4,FQ_ITEM5,REAP_YEAR,PROD_AREA,FROM_STATION,FREIGH' +
        'T_NUMBER,'
      
        '       TO_STATION,FREIGHT,ARRIVAL_TIME,NOTY_FOOD,NOTY_QUANTITY,I' +
        'N_TIME,'
      
        '       IN_QUANTITY,INTYPE,PRICE,NEW,OLD,MISC,TORN,KNIT,SUPPLYER,' +
        'CLERK,'
      
        '       MANAGER,adjustor,ENT_INSTACK.MEMO,ENT_INSTACK.COM_FLAG,SU' +
        'RPLUS,ENT_INSTACK.Unit_id,'
      
        '       ENT_INSTACK.site_id,ENT_INSTACK.depot_id,ENT_INSTACK.FOOD' +
        'POSITION_ID,'
      
        '       ent_fdposition_info.name,ent_depot_info.depot_name,ent_si' +
        'te.site_name,'
      '       ent_unit_info.unit_name'
      
        'from ent_instack,ent_fdposition_info,ent_depot_info,ent_site,ent' +
        '_unit_info'
      
        'where ( ent_instack.FOODPOSITION_ID*=ent_fdposition_info.FOODPOS' +
        'ITION_ID'
      '      and ent_instack.depot_id*=ent_fdposition_info.depot_id'
      '      and ent_instack.site_id*=ent_fdposition_info.site_id'
      '      and ent_instack.unit_id*=ent_fdposition_info.unit_id ) and'