unitpypk.dfm

仓储系统

object frmPyPk: TfrmPyPk
  Left = 9
  Top = 84
  Width = 781
  Height = 447
  BorderIcons = [biMaximize]
  Caption = #30424#30408#30424#20111
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 40
    Width = 773
    Height = 167
    Align = alTop
    BevelOuter = bvSpace
    Color = 15263976
    Enabled = False
    TabOrder = 0
    DesignSize = (
      773
      167)
    object lblPddh: TLabel
      Left = 37
      Top = 9
      Width = 65
      Height = 12
      Caption = #30424#28857#21333#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblPdr: TLabel
      Left = 36
      Top = 117
      Width = 66
      Height = 12
      Caption = #30424' '#28857' '#20154#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblBz: TLabel
      Left = 39
      Top = 144
      Width = 60
      Height = 12
      Caption = #25688'   '#35201#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblPd: TLabel
      Left = 269
      Top = 9
      Width = 65
      Height = 12
      Caption = #30424#28857#31867#21035#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblDept: TLabel
      Left = 37
      Top = 64
      Width = 65
      Height = 12
      Caption = #30424#28857#37096#38376#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblPdrq: TLabel
      Left = 506
      Top = 9
      Width = 65
      Height = 12
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = #30424#28857#26085#26399#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lblZdr: TLabel
      Left = 267
      Top = 117
      Width = 66
      Height = 12
      Caption = #21046' '#21333' '#20154#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 269
      Top = 64
      Width = 70
      Height = 13
      Caption = #24211#25151#20195#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label12: TLabel
      Left = 506
      Top = 63
      Width = 70
      Height = 13
      Caption = #24211#20301#20195#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object lblWlmc: TLabel
      Left = 269
      Top = 36
      Width = 70
      Height = 13
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = #29289#26009#21517#31216#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lblType: TLabel
      Left = 506
      Top = 36
      Width = 70
      Height = 13
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = #35268#26684#22411#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label11: TLabel
      Left = 37
      Top = 36
      Width = 70
      Height = 13
      Caption = #29289#26009#32534#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object sbtncode: TSpeedButton
      Left = 237
      Top = 30
      Width = 22
      Height = 21
      Hint = #36873#25321#26448#26009#32534#21495
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333333333333333FF333333333333
        3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
        E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
        E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
        E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
        000033333373FF77777733333330003333333333333777333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbtncodeClick
    end
    object lblNum: TLabel
      Left = 269
      Top = 92
      Width = 66
      Height = 12
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = #30424' '#28857' '#25968#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label1: TLabel
      Left = 509
      Top = 89
      Width = 66
      Height = 12
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = #30408' '#20111' '#25968#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lblStoreNum: TLabel
      Left = 37
      Top = 90
      Width = 66
      Height = 12
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = #24211' '#23384' '#25968#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object edtPddh: TEdit
      Left = 101
      Top = 5
      Width = 159
      Height = 21
      TabOrder = 0
      OnKeyPress = edtPddhKeyPress
    end
    object edtPdr: TEdit
      Left = 101
      Top = 113
      Width = 159
      Height = 21
      TabOrder = 12
      OnKeyPress = edtPddhKeyPress
    end
    object edtBz: TEdit
      Left = 101
      Top = 140
      Width = 633
      Height = 21
      TabOrder = 14
      OnKeyPress = edtBzKeyPress
    end
    object cbbPd: TComboBox
      Left = 331
      Top = 5
      Width = 159
      Height = 21
      Style = csDropDownList
      DragKind = dkDock
      DragMode = dmAutomatic
      ItemHeight = 13
      TabOrder = 1
      OnKeyPress = edtPddhKeyPress
    end
    object cbbDept: TComboBox
      Left = 101
      Top = 60
      Width = 159
      Height = 20
      Style = csDropDownList
      DragKind = dkDock
      DragMode = dmAutomatic
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 12
      MaxLength = 4
      ParentFont = False
      TabOrder = 6
      OnKeyPress = edtPddhKeyPress
    end
    object dtpPd: TDateEdit
      Left = 573
      Top = 5
      Width = 159
      Height = 21
      NumGlyphs = 2
      TabOrder = 2
      OnKeyPress = edtPddhKeyPress
    end
    object edtZdr: TEdit
      Left = 334
      Top = 113
      Width = 159
      Height = 21
      TabOrder = 13
      OnKeyPress = edtPddhKeyPress
    end
    object cbbKf: TComboBox
      Left = 331
      Top = 60
      Width = 159
      Height = 20
      Style = csDropDownList
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 12
      MaxLength = 2
      ParentFont = False
      TabOrder = 7
      OnExit = cbbKfExit
      OnKeyPress = edtPddhKeyPress
    end
    object cbbKw: TComboBox
      Left = 573
      Top = 59
      Width = 159
      Height = 20
      Style = csDropDownList
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 12
      MaxLength = 2
      ParentFont = False
      TabOrder = 8
      OnKeyPress = edtPddhKeyPress
    end
    object edtWlmc: TEdit
      Left = 331
      Top = 32
      Width = 159
      Height = 21
      TabOrder = 4
      OnKeyPress = edtPddhKeyPress
    end
    object edtType: TEdit
      Left = 573
      Top = 32
      Width = 159
      Height = 21
      TabOrder = 5
      OnKeyPress = edtPddhKeyPress
    end
    object edtWlbm: TEdit
      Left = 101
      Top = 32
      Width = 134
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 16
      ParentFont = False
      TabOrder = 3
      OnExit = edtWlbmExit
      OnKeyPress = edtPddhKeyPress
    end
    object edtNum: TRxCalcEdit
      Left = 330
      Top = 85
      Width = 159
      Height = 21
      AutoSize = False
      DecimalPlaces = 4
      DisplayFormat = ',0.####'
      NumGlyphs = 2
      TabOrder = 10
      ZeroEmpty = False
      OnExit = edtNumExit
      OnKeyPress = edtPddhKeyPress
    end
    object edtYkNum: TEdit
      Left = 574
      Top = 87
      Width = 155
      Height = 21
      Enabled = False
      TabOrder = 11
    end
    object edtStoreNum: TRxCalcEdit
      Left = 101
      Top = 84
      Width = 159
      Height = 21
      AutoSize = False
      DecimalPlaces = 4
      DisplayFormat = ',0.####'
      Enabled = False
      NumGlyphs = 2
      TabOrder = 9
      ZeroEmpty = False
      OnExit = edtNumExit
      OnKeyPress = edtPddhKeyPress
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 773
    Height = 40
    Align = alTop
    Color = 15263976
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 4
      Top = 7
      Width = 100
      Height = 25
      DataSource = dsPyPk
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 6
    end
    object btnadd: TBitBtn
      Left = 183
      Top = 6
      Width = 81
      Height = 24
      Caption = #22686#21152'(&A)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = btnaddClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777777777777700007777777087777777777700007777
        77700877777777770000777777770087777777770000777777770B0877777777
        00007777770000B08777777700007777770BBFBB08777777000077777770FB00
        00777777000077777770BFB0877777770000777700000BFB0877777700007777
        0FBFBFBFB08777770000777770FBFB00007777770000777770BFBFB087777777
        00007777770BFBFB0877777700007777770FFFBFF0877777000077777770FBFF
        BF08777700007777777000000000777700007777777777777777777700007777
        77777777777777770000}
    end
    object btnErase: TBitBtn
      Left = 275
      Top = 5
      Width = 81
      Height = 24
      Caption = #21024#38500'(&E)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]