unitprodwastebook.dfm

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

object frmProdWasteBook: TfrmProdWasteBook
  Left = 5
  Top = 44
  Width = 791
  Height = 500
  ActiveControl = DBGrid2
  Caption = '宁波巨龙橡塑有限公司 成品仓库管理系统'
  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 DBText2: TDBText
    Left = 388
    Top = 45
    Width = 49
    Height = 14
    AutoSize = True
    DataField = 'FigID'
    DataSource = DM.dsProdIDHistory
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 213
    Top = 46
    Width = 49
    Height = 14
    AutoSize = True
    DataField = 'ProdName'
    DataSource = DM.dsProdIDHistory
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object DBText3: TDBText
    Left = 574
    Top = 45
    Width = 49
    Height = 14
    AutoSize = True
    DataField = 'Contain'
    DataSource = DM.dsProdIDHistory
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 8
    Top = 14
    Width = 161
    Height = 14
    Caption = '上次盘存(结帐)日期 为：'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object lCheckDate: TLabel
    Left = 160
    Top = 14
    Width = 70
    Height = 14
    Caption = 'lCheckDate'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 440
    Top = 438
    Width = 83
    Height = 25
    Caption = '打印'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0003377777777777777308888888888888807F33333333333337088888888888
      88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
      8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
      8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 528
    Top = 438
    Width = 85
    Height = 25
    Caption = '预览'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn2Click
    Glyph.Data = {
      76030000424D7603000000000000360000002800000011000000100000000100
      18000000000040030000C40E0000C40E00000000000000000000BFBFBF000000
      0000000000000000000000000000000000000000000000000000000000000000
      00BFBFBFBFBFBF00000000000000BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBF0000000000000000
      0000BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
      0000000000000000007F7F7F000000000000BFBFBF00BFBFBF000000FFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007F7F7FBFBFBFBFBFBF7F7F7F000000
      7F7F7FBFBFBFBFBFBF00BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
      00007F7F7FBFBFBFBFBFBFFFFF007F7F7F7F7F7F000000BFBFBFBFBFBF00BFBF
      BF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBF
      BFBF7F7F7FBFBFBF000000BFBFBFBFBFBF00BFBFBF000000FFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF000000BFBFBFFFFF00BFBFBFBFBFBF7F7F7FBFBFBF000000BF
      BFBFBFBFBF00BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007F7F
      7FFFFF00FFFF00BFBFBF7F7F7F7F7F7F000000BFBFBFBFBFBF00BFBFBF000000
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007F7F7FBFBFBFBFBFBF7F7F
      7F000000BFBFBFBFBFBFBFBFBF00BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF000000000000000000000000BFBFBFBFBFBFBFBFBFBFBF
      BF00BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBF000000FFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000BFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF000000BFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBF
      BF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBF0000000000000000000000
      00000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00}
  end
  object BitBtn3: TBitBtn
    Left = 618
    Top = 438
    Width = 80
    Height = 24
    Cancel = True
    Caption = '返回(Esc)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object bbShow: TBitBtn
    Left = 363
    Top = 439
    Width = 72
    Height = 24
    Caption = '调出'
    Default = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = bbShowClick
  end
  object PageControl1: TPageControl
    Left = 5
    Top = 63
    Width = 764
    Height = 362
    ActivePage = TabSheet1
    TabHeight = 20
    TabOrder = 4
    object TabSheet1: TTabSheet
      Caption = '点击可调出台帐↓'
      object Splitter1: TSplitter
        Left = 113
        Top = 0
        Width = 3
        Height = 332
        Cursor = crHSplit
      end
      object DBGrid1: TDBGrid
        Left = 116
        Top = 0
        Width = 640
        Height = 332
        Align = alClient
        DataSource = DM.dsProdWasteBook
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'SerialNum'
            Width = 31
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProdID'
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Year'
            Width = 19
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Month'
            Width = 17
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Day'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProcBatID'
            Title.Alignment = taCenter
            Width = 75
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'InNum'
            Width = 61
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'OutNum'
            Width = 58
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'OutBox'
            Width = 50
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'WasteBookNum'
            Width = 49
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'WasteBookBox'
            Width = 52
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'BoxLeft'
            Width = 31
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CardID'
            Width = 73
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'BoxBat'
            Width = 61
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Note'
            Width = 57
            Visible = True
          end>
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 113
        Height = 332
        Align = alLeft
        DataSource = DM.dsProdIDHistory
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ProdID'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'ProdName'
            Title.Alignment = taCenter
            Width = 94
            Visible = True
          end>
      end
    end
  end
  object Panel1: TPanel
    Left = 306
    Top = 0
    Width = 247
    Height = 25
    Caption = '  成 品 入 库 出 库 台 帐  '
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -20
    Font.Name = '宋体'
    Font.Style = [fsUnderline]
    ParentFont = False
    TabOrder = 5
  end
  object Panel2: TPanel
    Left = 5
    Top = 46
    Width = 112
    Height = 19
    Caption = '点击可调出台帐↓'
    TabOrder = 6
  end
  object Panel3: TPanel
    Left = 509
    Top = 45
    Width = 63
    Height = 16
    Caption = '每箱只数'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object Panel4: TPanel
    Left = 349
    Top = 46
    Width = 34
    Height = 16
    Caption = '图号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object Panel5: TPanel
    Left = 149
    Top = 46
    Width = 60
    Height = 16
    Caption = '产品名称'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
end