unitprodvoucher.dfm

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

object frmProdVoucher: TfrmProdVoucher
  Left = 40
  Top = 109
  Width = 723
  Height = 458
  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
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 12
    Width = 98
    Height = 14
    Caption = '您现在看到的是'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object lDate: TLabel
    Left = 131
    Top = 12
    Width = 98
    Height = 14
    Caption = '2001年12月11日'
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 233
    Top = 12
    Width = 42
    Height = 14
    Caption = '所有的'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object lInOut: TLabel
    Left = 281
    Top = 12
    Width = 42
    Height = 14
    Caption = '入库单'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 10
    Top = 6
    Width = 319
    Height = 26
  end
  object Label2: TLabel
    Left = 440
    Top = 15
    Width = 84
    Height = 14
    Caption = '在此选择日期'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object sbYesterday: TSpeedButton
    Left = 631
    Top = 12
    Width = 22
    Height = 21
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF999999999999FFFF9999999999
      99FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    OnClick = sbYesterdayClick
  end
  object sbTomrrow: TSpeedButton
    Left = 654
    Top = 12
    Width = 22
    Height = 21
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFF99FFFFFFFFFFFFFF99FFFFFFFFFFFFFF99FFF
      FFFFFFFFFFF99FFFFFFFFFFFFFF99FFFFFFFFF999999999999FFFF9999999999
      99FFFFFFFFF99FFFFFFFFFFFFFF99FFFFFFFFFFFFFF99FFFFFFFFFFFFFF99FFF
      FFFFFFFFFFF99FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    OnClick = sbTomrrowClick
  end
  object PCInOut: TPageControl
    Left = 15
    Top = 35
    Width = 685
    Height = 345
    ActivePage = TabSheet1
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = PCInOutChange
    object TabSheet1: TTabSheet
      Caption = '入库帐单和记帐'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 677
        Height = 314
        Align = alClient
        Color = 13355926
        DataSource = DM.dsProdInCard
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CardID'
            Title.Alignment = taCenter
            Width = 63
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'InDate'
            Title.Alignment = taCenter
            Width = 62
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProdName'
            Title.Alignment = taCenter
            Title.Caption = '产 品 名 称'
            Width = 122
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'FigID'
            Title.Alignment = taCenter
            Title.Caption = '图    号'
            Width = 101
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProdID'
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Number'
            Title.Caption = '数量（只）'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CheckerID'
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProcBatID'
            Title.Alignment = taCenter
            Width = 82
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Checker'
            Title.Alignment = taCenter
            Width = 47
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Note'
            Title.Alignment = taCenter
            Title.Caption = '备   注'
            Width = 113
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = '出库帐单和记帐'
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 677
        Height = 314
        Align = alClient
        Color = 8761792
        DataSource = DM.dsProdOutCard
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        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 = clBlack
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = DBGrid2DblClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CardID'
            Title.Alignment = taCenter
            Width = 68
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'OutDate'
            Title.Alignment = taCenter
            Width = 63
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProdID'
            Title.Alignment = taCenter
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProdName'
            Title.Alignment = taCenter
            Width = 103
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'FigID'
            Title.Alignment = taCenter
            Title.Caption = '图   号'
            Width = 98
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Number'
            Title.Alignment = taCenter
            Title.Caption = '数  量'
            Width = 59
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Box'
            Title.Alignment = taCenter
            Title.Caption = '箱  数'
            Width = 47
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Manufacturer'
            Title.Alignment = taCenter
            Width = 127
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ProcBatID'
            Title.Alignment = taCenter
            Width = 78
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'OuterID'
            Title.Alignment = taCenter
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Outer'
            Title.Alignment = taCenter
            Width = 45
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ManufacturerID'
            Title.Alignment = taCenter
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Note'
            Title.Alignment = taCenter
            Width = 185
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = '查询修改出库记录'
      ImageIndex = 2
      object Label4: TLabel
        Left = 16
        Top = 40
        Width = 60
        Height = 12
        Caption = '单据编号：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 235
        Top = 41