unitprodquery.~dfm

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

object frmProdQuery: TfrmProdQuery
  Left = 87
  Top = 67
  BorderStyle = bsDialog
  Caption = '宁波巨龙橡塑有限公司 成品仓库管理系统'
  ClientHeight = 463
  ClientWidth = 708
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 19
    Top = 37
    Width = 670
    Height = 327
    ActivePage = TabSheet2
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '入 库 凭 证'
      OnShow = TabSheet1Show
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 662
        Height = 298
        Align = alClient
        BevelInner = bvLowered
        Caption = 'Panel1'
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 2
          Top = 2
          Width = 658
          Height = 294
          Align = alClient
          DataSource = DataSource1
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          OnDblClick = DBGrid1DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'CardID'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'InDate'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'prodname'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Figid'
              Title.Alignment = taCenter
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Number'
              Title.Alignment = taCenter
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ProdID'
              Title.Alignment = taCenter
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'ProcBatID'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CheckerID'
              Title.Alignment = taCenter
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'checker'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Note'
              Title.Alignment = taCenter
              Visible = True
            end>
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '出 库 凭 证'
      ImageIndex = 1
      OnShow = TabSheet1Show
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 662
        Height = 298
        Align = alClient
        BevelInner = bvLowered
        Caption = 'Panel1'
        TabOrder = 0
        object DBGrid2: TDBGrid
          Left = 2
          Top = 2
          Width = 658
          Height = 294
          Align = alClient
          DataSource = DataSource2
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          OnDblClick = DBGrid2DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'CardID'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'OutDate'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'prodname'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'figid'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Number'
              Title.Alignment = taCenter
              Width = 52
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Box'
              Title.Alignment = taCenter
              Width = 36
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'manufacturer'
              Title.Alignment = taCenter
              Width = 128
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'outer'
              Title.Alignment = taCenter
              Width = 49
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ProdID'
              Title.Alignment = taCenter
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'ProcBatID'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'OuterID'
              Title.Alignment = taCenter
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'ManufacturerID'
              Title.Alignment = taCenter
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'Note'
              Title.Alignment = taCenter
              Visible = True
            end>
        end
      end
    end
  end
  object Panel3: TPanel
    Left = 21
    Top = 366
    Width = 668
    Height = 88
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 60
      Height = 15
      Caption = '请您选择'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 193
      Top = 11
      Width = 15
      Height = 15
      Caption = '到'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 487
      Top = 11
      Width = 45
      Height = 15
      Caption = '的单据'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 64
      Top = 11
      Width = 12
      Height = 12
      Caption = '从'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object dtpFrom: TDateTimePicker
      Left = 80
      Top = 7
      Width = 109
      Height = 23
      CalAlignment = dtaLeft
      Date = 36992.4095094907
      Time = 36992.4095094907
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 0
    end
    object dtpTo: TDateTimePicker
      Left = 212
      Top = 8
      Width = 106
      Height = 23
      CalAlignment = dtaLeft
      Date = 36992.4095502315
      Time = 36992.4095502315
      DateFormat = dfShort
      DateMode = dmComboBox