📄 unitplannum.dfm

📁 仓储系统
💻 DFM
字号:
object frmPlanNum: TfrmPlanNum
  Left = 197
  Top = 146
  Width = 544
  Height = 375
  BorderIcons = [biMinimize, biMaximize]
  Caption = #25104#21697#35745#21010#25968#37327
  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
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 421
    Top = 0
    Width = 115
    Height = 348
    Align = alRight
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15263976
    TabOrder = 0
    object btnAdd: TButton
      Left = 19
      Top = 14
      Width = 75
      Height = 25
      Caption = #22686#21152'(&A)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btnAddClick
    end
    object btnCancel: TButton
      Left = 19
      Top = 174
      Width = 75
      Height = 25
      Caption = #21462#28040'(&C)'
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btnCancelClick
    end
    object btnErase: TButton
      Left = 19
      Top = 54
      Width = 75
      Height = 25
      Caption = #21024#38500'(&D)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnEraseClick
    end
    object btnMod: TButton
      Left = 19
      Top = 94
      Width = 75
      Height = 25
      Caption = #20462#25913'(&M)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnModClick
    end
    object btnSave: TButton
      Left = 19
      Top = 134
      Width = 75
      Height = 25
      Caption = #20445#23384'(&S)'
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btnSaveClick
    end
    object btnExit: TButton
      Left = 19
      Top = 214
      Width = 75
      Height = 25
      Caption = #36864#20986'(&X)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = btnExitClick
    end
  end
  object Panel1: TPanel
    Left = 168
    Top = 0
    Width = 253
    Height = 348
    Align = alRight
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15263976
    Enabled = False
    TabOrder = 1
    object lblPlanNo: TLabel
      Left = 11
      Top = 47
      Width = 70
      Height = 13
      Caption = #35745#21010#32534#21495#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblPlanNum: TLabel
      Left = 11
      Top = 142
      Width = 70
      Height = 13
      Caption = #35745#21010#25968#37327#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblWlbm: TLabel
      Left = 11
      Top = 94
      Width = 70
      Height = 13
      Caption = #29289#26009#32534#30721#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object sbtncode: TSpeedButton
      Left = 218
      Top = 89
      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 lblInSum: TLabel
      Left = 11
      Top = 190
      Width = 70
      Height = 13
      Caption = #32047#35745#20837#24211#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object lblOutSum: TLabel
      Left = 11
      Top = 238
      Width = 70
      Height = 13
      Caption = #32047#35745#20986#24211#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object edtPlanNo: TEdit
      Left = 86
      Top = 43
      Width = 154
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 12
      ParentFont = False
      TabOrder = 0
      OnExit = edtPlanNoExit
      OnKeyPress = edtPlanNoKeyPress
    end
    object edtPlanNum: TEdit
      Left = 86
      Top = 138
      Width = 154
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 20
      ParentFont = False
      TabOrder = 2
      OnKeyPress = edtPlanNoKeyPress
    end
    object edtWlbm: TEdit
      Left = 86
      Top = 90
      Width = 129
      Height = 21
      TabOrder = 1
      OnKeyPress = edtPlanNoKeyPress
    end
    object edtInSum: TEdit
      Left = 86
      Top = 186
      Width = 154
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 20
      ParentFont = False
      TabOrder = 3
      Visible = False
      OnKeyPress = edtPlanNoKeyPress
    end
    object edtOutSum: TEdit
      Left = 86
      Top = 234
      Width = 154
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 20
      ParentFont = False
      TabOrder = 4
      Visible = False
      OnKeyPress = edtOutSumKeyPress
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 168
    Height = 348
    Align = alClient
    DataSource = dsPlanNum
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'PlanNo'
        Title.Alignment = taCenter
        Title.Caption = #35745#21010#32534#21495
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Mate_Code'
        Title.Alignment = taCenter
        Title.Caption = #29289#26009#32534#30721
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PlanNum'
        Title.Alignment = taCenter
        Title.Caption = #35745#21010#25968#37327
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'In_Sum'
        Title.Alignment = taCenter
        Title.Caption = #32047#35745#20837#24211
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Out_Sum'
        Title.Alignment = taCenter
        Title.Caption = #32047#35745#20986#24211
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end>
  end
  object dsPlanNum: TDataSource
    DataSet = DM.qry_PlanNum
    OnDataChange = dsPlanNumDataChange
    Left = 24
    Top = 48
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -