unitprodquery.~dfm

此代码为企业原料管理代码

      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 1
    end
    object eProdID: TEdit
      Left = 351
      Top = 8
      Width = 94
      Height = 20
      ReadOnly = True
      TabOrder = 3
      Text = 'eProdID'
    end
    object eProdName: TEdit
      Left = 330
      Top = 8
      Width = 151
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 2
      OnDblClick = eProdNameEnter
      OnEnter = eProdNameEnter
    end
    object BitBtn1: TBitBtn
      Left = 550
      Top = 12
      Width = 74
      Height = 23
      Caption = '调出'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn1Click
    end
    object cbAllProd: TCheckBox
      Left = 349
      Top = 47
      Width = 121
      Height = 17
      Caption = '显示所有成品'
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 5
      OnClick = cbAllProdClick
    end
    object BitBtn2: TBitBtn
      Left = 550
      Top = 49
      Width = 74
      Height = 23
      Cancel = True
      Caption = '退出(Esc)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = BitBtn2Click
    end
    object cbWeek: TCheckBox
      Left = 80
      Top = 47
      Width = 81
      Height = 17
      Caption = '一周内'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = cbWeekClick
    end
    object cbMonth: TCheckBox
      Left = 202
      Top = 47
      Width = 81
      Height = 17
      Caption = '一月内'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = cbMonthClick
    end
  end
  object Panel4: TPanel
    Left = 166
    Top = 2
    Width = 259
    Height = 31
    Caption = '成 品 仓 库 查 询'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = '隶书'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 215
    Top = 166
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 423
    Top = 182
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from prodincard')
    Left = 207
    Top = 134
    object Query1CardID: TStringField
      Alignment = taCenter
      DisplayLabel = '入库单号'
      FieldName = 'CardID'
      Origin = 'JL2000."prodincard.DB".CardID'
      Size = 10
    end
    object Query1InDate: TDateField
      Alignment = taCenter
      DisplayLabel = '入库日期'
      FieldName = 'InDate'
      Origin = 'JL2000."prodincard.DB".InDate'
    end
    object Query1ProdID: TStringField
      Alignment = taCenter
      FieldName = 'ProdID'
      Origin = 'JL2000."prodincard.DB".ProdID'
      Size = 5
    end
    object Query1ProcBatID: TStringField
      Alignment = taCenter
      DisplayLabel = '生产批号'
      FieldName = 'ProcBatID'
      Origin = 'JL2000."prodincard.DB".ProcBatID'
      Size = 10
    end
    object Query1Number: TIntegerField
      Alignment = taCenter
      DisplayLabel = '入库数量'
      FieldName = 'Number'
      Origin = 'JL2000."prodincard.DB".Number'
    end
    object Query1CheckerID: TStringField
      Alignment = taCenter
      FieldName = 'CheckerID'
      Origin = 'JL2000."prodincard.DB".CheckerID'
      Size = 5
    end
    object Query1Note: TStringField
      Alignment = taCenter
      DisplayLabel = '备  注'
      FieldName = 'Note'
      Origin = 'JL2000."prodincard.DB".Note'
      Size = 30
    end
    object Query1prodname: TStringField
      Alignment = taCenter
      DisplayLabel = '产品名称'
      FieldKind = fkLookup
      FieldName = 'prodname'
      LookupDataSet = DM.tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'ProdName'
      KeyFields = 'ProdID'
      Size = 18
      Lookup = True
    end
    object Query1Figid: TStringField
      Alignment = taCenter
      DisplayLabel = '图  号'
      FieldKind = fkLookup
      FieldName = 'Figid'
      LookupDataSet = DM.tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'FigID'
      KeyFields = 'ProdID'
      Size = 15
      Lookup = True
    end
    object Query1checker: TStringField
      Alignment = taCenter
      DisplayLabel = '检验员'
      FieldKind = fkLookup
      FieldName = 'checker'
      LookupDataSet = DM.tabStaff
      LookupKeyFields = 'StaffID'
      LookupResultField = 'StaffName'
      KeyFields = 'CheckerID'
      Size = 8
      Lookup = True
    end
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    Constrained = True
    SQL.Strings = (
      'select * from prodoutcard')
    Left = 439
    Top = 150
    object Query2CardID: TStringField
      Alignment = taCenter
      DisplayLabel = '出库单号'
      FieldName = 'CardID'
      Origin = 'JL2000."prodoutcard.DB".CardID'
      Size = 10
    end
    object Query2OutDate: TDateField
      Alignment = taCenter
      DisplayLabel = '出库日期'
      FieldName = 'OutDate'
      Origin = 'JL2000."prodoutcard.DB".OutDate'
    end
    object Query2ProdID: TStringField
      Alignment = taCenter
      FieldName = 'ProdID'
      Origin = 'JL2000."prodoutcard.DB".ProdID'
      Size = 10
    end
    object Query2ProcBatID: TStringField
      Alignment = taCenter
      DisplayLabel = '生产批号'
      FieldName = 'ProcBatID'
      Origin = 'JL2000."prodoutcard.DB".ProcBatID'
      Size = 10
    end
    object Query2Number: TIntegerField
      Alignment = taCenter
      DisplayLabel = '出库数量'
      FieldName = 'Number'
      Origin = 'JL2000."prodoutcard.DB".Number'
    end
    object Query2Box: TFloatField
      Alignment = taCenter
      DisplayLabel = '箱数'
      DisplayWidth = 6
      FieldName = 'Box'
      Origin = 'JL2000."prodoutcard.DB".Box'
      Precision = 6
    end
    object Query2OuterID: TStringField
      Alignment = taCenter
      FieldName = 'OuterID'
      Origin = 'JL2000."prodoutcard.DB".OuterID'
      Size = 5
    end
    object Query2ManufacturerID: TStringField
      Alignment = taCenter
      FieldName = 'ManufacturerID'
      Origin = 'JL2000."prodoutcard.DB".ManufacturerID'
      Size = 5
    end
    object Query2Note: TStringField
      Alignment = taCenter
      DisplayLabel = '备  注'
      FieldName = 'Note'
      Origin = 'JL2000."prodoutcard.DB".Note'
      Size = 30
    end
    object Query2prodname: TStringField
      Alignment = taCenter
      DisplayLabel = '产品名称'
      FieldKind = fkLookup
      FieldName = 'prodname'
      LookupDataSet = DM.tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'ProdName'
      KeyFields = 'ProdID'
      Size = 18
      Lookup = True
    end
    object Query2figid: TStringField
      Alignment = taCenter
      DisplayLabel = '图  号'
      FieldKind = fkLookup
      FieldName = 'figid'
      LookupDataSet = DM.tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'FigID'
      KeyFields = 'ProdID'
      Size = 16
      Lookup = True
    end
    object Query2manufacturer: TStringField
      Alignment = taCenter
      DisplayLabel = '客户单位'
      FieldKind = fkLookup
      FieldName = 'manufacturer'
      LookupDataSet = DM.tabManufacturer
      LookupKeyFields = 'ManufacturerID'
      LookupResultField = 'Manufacturer'
      KeyFields = 'ManufacturerID'
      Size = 26
      Lookup = True
    end
    object Query2outer: TStringField
      Alignment = taCenter
      DisplayLabel = '经办人'
      FieldKind = fkLookup
      FieldName = 'outer'
      LookupDataSet = DM.tabStaff
      LookupKeyFields = 'StaffID'
      LookupResultField = 'StaffName'
      KeyFields = 'OuterID'
      Size = 8
      Lookup = True
    end
  end
end