untslctinstockid.dfm

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

inherited FrmSlctInStockID: TFrmSlctInStockID
  Left = 412
  Top = 188
  Width = 522
  Height = 364
  Caption = #24211#23384#21488#24080#36873#25321
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Top = 255
    Width = 514
  end
  inherited PnlBottom: TPanel
    Top = 263
    Width = 514
    Height = 67
    object Label1: TLabel [0]
      Left = 8
      Top = 13
      Width = 36
      Height = 12
      Caption = #20998#20844#21496
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel [1]
      Left = 164
      Top = 13
      Width = 30
      Height = 12
      Caption = #24211' '#28857
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel [2]
      Left = 8
      Top = 42
      Width = 36
      Height = 12
      Caption = #24211'  '#25151
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel [3]
      Left = 164
      Top = 42
      Width = 30
      Height = 12
      Caption = #36135' '#20301
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited BitBtnOk: TBitBtn
      Left = 385
      Top = 18
      Width = 53
      Caption = #30830'  '#23450
      ParentFont = False
    end
    inherited BitBtnCancel: TBitBtn
      Left = 452
      Top = 18
      Width = 53
      Caption = #21462'  '#28040
      ParentFont = False
    end
    object BitBtnFilter: TBitBtn
      Left = 317
      Top = 18
      Width = 53
      Height = 25
      Caption = #36807'  '#28388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtnFilterClick
    end
    object DBLkpCmbxSite: TDBLookupComboBox
      Left = 199
      Top = 8
      Width = 108
      Height = 20
      KeyField = 'SITE_ID'
      ListField = 'SITE_NAME'
      ListSource = DtSrcSite
      TabOrder = 3
      OnDropDown = DBLkpCmbxSiteDropDown
    end
    object DBLkpCmbxPosition: TDBLookupComboBox
      Left = 199
      Top = 37
      Width = 108
      Height = 20
      KeyField = 'FOODPOSITION_ID'
      ListField = 'NAME'
      ListSource = DtSrcPosition
      TabOrder = 4
      OnDropDown = DBLkpCmbxPositionDropDown
    end
    object DBLkpCmbxDepot: TDBLookupComboBox
      Left = 48
      Top = 37
      Width = 105
      Height = 20
      KeyField = 'DEPOT_ID'
      ListField = 'DEPOT_NAME'
      ListSource = DtSrcDepot
      TabOrder = 5
      OnDropDown = DBLkpCmbxDepotDropDown
    end
    object DBLkpCmbxUnit: TDBLookupComboBox
      Left = 48
      Top = 8
      Width = 105
      Height = 20
      KeyField = 'UNIT_ID'
      ListField = 'UNIT_NAME'
      ListSource = DtSrcUnit
      TabOrder = 6
      OnDropDown = DBLkpCmbxUnitDropDown
    end
  end
  inherited Panel2: TPanel
    Width = 514
    Height = 255
    inherited DBGrid1: TDBGrid
      Width = 512
      Height = 253
    end
  end
  inherited DataSource1: TDataSource
    Left = 56
    Top = 48
  end
  inherited TblSlct: TTable
    TableName = 'dbo.ENT_INSTACK'
    Left = 16
    Top = 48
    object TblSlctINSTACK_ID: TStringField
      DisplayLabel = #20837#24211#21333#32534#21495
      FieldName = 'INSTACK_ID'
      Required = True
      Size = 12
    end
    object TblSlctIN_FOOD: TStringField
      DisplayLabel = #23454#25910#21697#31181
      FieldName = 'IN_FOOD'
      Size = 12
    end
    object TblSlctIN_QUANTITY: TFloatField
      DisplayLabel = #20837#24211#25968#37327
      FieldName = 'IN_QUANTITY'
    end
    object TblSlctIN_TIME: TDateTimeField
      DisplayLabel = #20837#24211#26102#38388
      FieldName = 'IN_TIME'
    end
    object TblSlctSTORAGE: TFloatField
      DisplayLabel = #24211#23384#37327
      FieldName = 'STORAGE'
    end
    object TblSlctATTRIBUTE: TStringField
      DisplayLabel = #20648#22791#24615#36136
      FieldName = 'ATTRIBUTE'
      Size = 12
    end
    object TblSlctATTACHMENT: TStringField
      DisplayLabel = #30452#31649#23646#24615
      FieldName = 'ATTACHMENT'
    end
    object TblSlctSUPPLYER: TStringField
      DisplayLabel = #20379#36135#21333#20301
      FieldName = 'SUPPLYER'
      Size = 50
    end
    object TblSlctPROD_AREA: TStringField
      DisplayLabel = #20135#22320
      FieldName = 'PROD_AREA'
      Size = 12
    end
    object TblSlctREAP_YEAR: TIntegerField
      DisplayLabel = #25910#33719#24180#20221
      FieldName = 'REAP_YEAR'
    end
    object TblSlctR_NEW: TIntegerField
      DisplayLabel = #26032#34955
      FieldName = 'R_NEW'
    end
    object TblSlctR_OLD: TIntegerField
      DisplayLabel = #26087#34955
      FieldName = 'R_OLD'
    end
    object TblSlctR_MISC: TIntegerField
      DisplayLabel = #26434#34955
      FieldName = 'R_MISC'
    end
    object TblSlctR_TORN: TIntegerField
      DisplayLabel = #24223#34955
      FieldName = 'R_TORN'
    end
    object TblSlctR_KNIT: TIntegerField
      DisplayLabel = #32534#32455#34955
      FieldName = 'R_KNIT'
    end
    object TblSlctFQ_MOISTURE: TFloatField
      DisplayLabel = #27700#20221
      FieldName = 'FQ_MOISTURE'
    end
    object TblSlctFQ_IMPURITY: TFloatField
      DisplayLabel = #26434#24230
      FieldName = 'FQ_IMPURITY'
    end
    object TblSlctFQ_ITEM1: TFloatField
      DisplayLabel = #31890#31859
      FieldName = 'FQ_ITEM1'
    end
    object TblSlctFQ_ITEM2: TFloatField
      DisplayLabel = #19981#23436#21892#31890
      FieldName = 'FQ_ITEM2'
    end
    object TblSlctFQ_ITEM3: TFloatField
      DisplayLabel = #25972#31934#31859#31890
      FieldName = 'FQ_ITEM3'
    end
    object TblSlctFQ_ITEM4: TFloatField
      DisplayLabel = #35895#22806#31961#31859
      FieldName = 'FQ_ITEM4'
    end
    object TblSlctFQ_ITEM5: TFloatField
      FieldName = 'FQ_ITEM5'
    end
    object TblSlctFQ_CLASS: TStringField
      DisplayLabel = #36136#37327#31561#32423
      FieldName = 'FQ_CLASS'
      Size = 12
    end
    object TblSlctUNIT_ID: TIntegerField
      DisplayLabel = #20998#20844#21496#32534#21495
      FieldName = 'UNIT_ID'
      Required = True
    end
    object TblSlctFOODPOSITION_ID: TIntegerField
      DisplayLabel = #36135#20301
      FieldName = 'FOODPOSITION_ID'
      Required = True
    end
    object TblSlctDEPOT_ID: TIntegerField
      DisplayLabel = #24211#25151
      FieldName = 'DEPOT_ID'
      Required = True
    end
    object TblSlctSITE_ID: TIntegerField
      DisplayLabel = #24211#28857
      FieldName = 'SITE_ID'
      Required = True
    end
    object TblSlctMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Size = 50
    end
  end
  object DtSrcDepot: TDataSource
    DataSet = QryDepot
    Left = 203
    Top = 205
  end
  object DtSrcSite: TDataSource
    DataSet = QrySite
    Left = 123
    Top = 205
  end
  object QryUnit: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select  UNIT_ID,UNIT_NAME'
      'from    ENT_UNIT_INFO')
    Left = 14
    Top = 205
  end
  object DtSrcUnit: TDataSource
    DataSet = QryUnit
    Left = 50
    Top = 205
  end
  object DtSrcPosition: TDataSource
    DataSet = QryPosition
    Left = 272
    Top = 208
  end
  object QrySite: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select Unit_id,Site_id,Site_name from ent_site')
    Left = 88
    Top = 208
  end
  object QryDepot: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select Unit_id,site_id,depot_id,depot_name from ent_depot_info')
    Left = 168
    Top = 208
  end
  object QryPosition: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      
        'select Unit_id,site_id,depot_id,foodposition_id,name from ent_fd' +
        'position_info')
    Left = 240
    Top = 208
  end
end