📄 gmth_d.dfm
字号:
inherited frmGmth_D: TfrmGmth_D
Left = 196
Top = 146
Width = 670
Height = 532
Caption = '部门领料单'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object sgGmth: TSDGrid [0]
Left = 0
Top = 140
Width = 660
Height = 296
Anchors = [akLeft, akTop, akRight, akBottom]
Color = clWhite
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]
ParentCtl3D = False
ParentFont = False
TabOrder = 5
OnDblClick = sgGmthDblClick
OnSelectCell = sgGmthSelectCell
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>
ColWidths = (
42
139
50
89
148)
end
object fpGmtd: TFloatPanel [1]
Left = 0
Top = 140
Width = 662
Height = 296
Color = clWhite
ParentColor = False
TabOrder = 3
object Label13: TLabel
Left = 288
Top = 83
Width = 42
Height = 12
Caption = '行备注:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 288
Top = 26
Width = 54
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 = 22
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 = 50
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 = 288
Top = 54
Width = 54
Height = 12
Caption = '发料数量:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object btnOK: TBitBtn
Left = 550
Top = 24
Width = 90
Height = 24
Caption = '确定(&O)'
ModalResult = 1
TabOrder = 6
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 = 550
Top = 51
Width = 90
Height = 24
Caption = '取消(&C)'
ModalResult = 2
TabOrder = 7
OnClick = btnCancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object memGmtdDesc: TMemo
Left = 333
Top = 83
Width = 181
Height = 36
Color = clWhite
Ctl3D = False
Lines.Strings = (
'')
ParentCtl3D = False
TabOrder = 5
end
object seGmtdLine: TSDEdit
Left = 71
Top = 17
Width = 108
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = 'seGmtdLine'
CharType = ctNumeric
SplitSymbol = ' | '
end
object seGmtdGoods: TSDEdit
Left = 70
Top = 45
Width = 194
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 1
Text = 'seGmtdGoods'
OnExit = seGmtdGoodsExit
OnButtonClick = seGmtdGoodsButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object plGmtdGoods: TPanel
Left = 9
Top = 70
Width = 258
Height = 156
BevelOuter = bvNone
Color = clWhite
TabOrder = 2
object Label6: TLabel
Left = 7
Top = 41
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 = 7
Top = 72
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 = 7
Top = 102
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 = 7
Top = 132
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 = 7
Top = 11
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 scGmtdUnit: TSDComboBox
Left = 61
Top = 35
Width = 146
Height = 20
Color = clWhite
Ctl3D = False
Enabled = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 1
KeyItem = cbItem2
ReadOnly = True
end
object scGmtdGoodsType: TSDComboBox
Left = 61
Top = 65
Width = 146
Height = 20
Color = clWhite
Ctl3D = False
Enabled = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 2
Items.Strings = (
'1-成品'
'2-半成品'
'3-材料'
'4-备用件'
'5-虚拟件'
'6-费用件')
KeyItem = cbItem2
ReadOnly = True
end
object scGmtdGoodsFrom: TSDComboBox
Left = 61
Top = 96
Width = 146
Height = 20
Color = clWhite
Ctl3D = False
Enabled = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 3
Items.Strings = (
'1-采购件'
'2-制造件'
'3-外加工'
'')
KeyItem = cbItem2
ReadOnly = True
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -