📄 pdmh.dfm
字号:
inherited frmPdmh: TfrmPdmh
Left = 72
Top = 59
Width = 669
Height = 539
Caption = '工序材料报废单'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object sgPdmh: TSDGrid [0]
Left = 0
Top = 139
Width = 656
Height = 301
Anchors = [akLeft, akTop, akRight, akBottom]
Color = clWhite
ColCount = 6
Ctl3D = False
DefaultRowHeight = 18
FixedColor = 8564917
FixedCols = 0
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
ParentCtl3D = False
ParentFont = False
TabOrder = 5
OnClick = sgPdmhClick
OnDblClick = sgPdmhDblClick
SelectColor = clActiveCaption
OddGridColor = clWhite
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '行号'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '物料编码'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '物料名称'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '物料规格'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '单位'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '报废数量'
ColumnWidth = 0
end>
ColWidths = (
37
122
222
161
43
64)
end
object fpPdmd: TFloatPanel [1]
Left = 0
Top = 139
Width = 661
Height = 301
Align = alClient
Color = clWhite
ParentColor = False
TabOrder = 3
object Label13: TLabel
Left = 299
Top = 82
Width = 42
Height = 12
Caption = '行备注:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 17
Top = 20
Width = 30
Height = 12
Caption = '行号:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 17
Top = 102
Width = 54
Height = 12
Caption = '物料编码:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 299
Top = 27
Width = 54
Height = 12
Caption = '报废数量:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 17
Top = 45
Width = 54
Height = 12
Caption = '加工工序:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 17
Top = 73
Width = 54
Height = 12
Caption = '报废货位:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 297
Top = 53
Width = 54
Height = 12
Caption = '报废类型:'
end
object btnOK: TBitBtn
Left = 542
Top = 25
Width = 101
Height = 23
Caption = '确定(&O)'
ModalResult = 1
TabOrder = 8
OnClick = btnOKClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object btnCancel: TBitBtn
Left = 542
Top = 51
Width = 101
Height = 24
Caption = '取消(&C)'
ModalResult = 2
TabOrder = 9
OnClick = btnCancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object memPdmdDesc: TMemo
Left = 344
Top = 82
Width = 176
Height = 53
Color = clWhite
Ctl3D = False
Lines.Strings = (
'')
ParentCtl3D = False
TabOrder = 7
end
object sePdmdLine: TSDEdit
Left = 75
Top = 15
Width = 108
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = '0'
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object sePdmdGoods: TSDEdit
Left = 72
Top = 99
Width = 155
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 3
Text = 'sePdmdGoods'
OnExit = sePdmdGoodsExit
OnButtonClick = sePdmdGoodsButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object plPdmdGoods: TPanel
Left = 9
Top = 118
Width = 265
Height = 169
BevelOuter = bvNone
Color = clWhite
Enabled = False
TabOrder = 4
object Label6: TLabel
Left = 8
Top = 40
Width = 54
Height = 12
Caption = '计量单位:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 8
Top = 122
Width = 54
Height = 12
Caption = '物料类型:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 8
Top = 149
Width = 54
Height = 12
Caption = '物料来源:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 13
Width = 54
Height = 12
Caption = '物料名称:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 8
Top = 67
Width = 54
Height = 12
Caption = '物料规格:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 8
Top = 95
Width = 54
Height = 12
Caption = '物料型号:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object scGoodsUnit: TSDComboBox
Left = 62
Top = 33
Width = 116
Height = 20
Color = clWhite
Ctl3D = False
Enabled = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 0
KeyItem = cbItem2
ReadOnly = True
end
object scGoodsType: TSDComboBox
Left = 62
Top = 114
Width = 146
Height = 20
Color = clWhite
Ctl3D = False
Enabled = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 3
Items.Strings = (
'1-成品'
'2-半成品'
'3-材料'
'4-备用件'
'5-虚拟件'
'6-费用件')
KeyItem = cbItem2
ReadOnly = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -