📄 bomhcopy.dfm
字号:
object scBomdUnit: TSDComboBox
Left = 64
Top = 114
Width = 118
Height = 20
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
ParentCtl3D = False
ParentFont = False
TabOrder = 5
Items.Strings = (
'1-制造件'
'2-采购件'
'3-外加工')
KeyItem = cbItem2
end
end
object seBomdQty: TSDEdit
Left = 65
Top = 200
Width = 118
Height = 18
Ctl3D = False
MaxLength = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 3
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object seBomdShl: TSDEdit
Left = 65
Top = 224
Width = 118
Height = 18
Ctl3D = False
MaxLength = 6
ParentColor = True
ParentCtl3D = False
TabOrder = 4
Text = '0'
DigLen = 2
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object cheBomdRepFlg: TCheckBox
Left = 296
Top = 6
Width = 65
Height = 24
TabStop = False
Alignment = taLeftJustify
Caption = '可替代'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object scBomdPp: TSDComboBox
Left = 351
Top = 49
Width = 130
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 7
Items.Strings = (
'1-MRP'
'2-MPS'
'3-订货点'
'4-预测'
'5-成套件'
'6-自定义')
end
object scBomdOp: TSDComboBox
Left = 351
Top = 27
Width = 130
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 6
Items.Strings = (
'1-无策略'
'2-订货点策略'
'3-订货上限策略'
'4-定期订货策略'
'5-定量订货策略'
'6-手工订货策略')
end
object scBomdCfg: TSDComboBox
Left = 351
Top = 72
Width = 130
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 8
Items.Strings = (
'1-可选'
'2-必须'
'3-常用')
end
object seBomdLot: TSDEdit
Left = 351
Top = 97
Width = 109
Height = 18
Ctl3D = False
MaxLength = 8
ParentColor = True
ParentCtl3D = False
TabOrder = 9
Text = '0'
DigLen = 2
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object memBomdDesc: TMemo
Left = 351
Top = 173
Width = 170
Height = 37
Color = clWhite
Ctl3D = False
Lines.Strings = (
'')
ParentCtl3D = False
TabOrder = 12
end
object seBomdEco: TSDEdit
Left = 351
Top = 120
Width = 170
Height = 18
TabStop = False
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 10
SplitSymbol = ' | '
end
object scBomdProcess: TSDComboBox
Left = 351
Top = 141
Width = 170
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 11
KeyItem = cbItem2
end
end
object sgBomhCopy: TSDGrid [1]
Left = 0
Top = 178
Width = 655
Height = 251
Color = clWhite
ColCount = 6
Ctl3D = False
DefaultRowHeight = 21
FixedColor = 8564917
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect, goThumbTracking]
ParentCtl3D = False
TabOrder = 5
OnDblClick = sgBomhCopyDblClick
OnSelectCell = sgBomhCopySelectCell
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
161
42
72
74
125)
end
object FloatPanel3: TFloatPanel [2]
Left = 0
Top = 438
Width = 660
Height = 29
Align = alBottom
Color = clWhite
Caption = 'FloatPanel3'
ParentColor = False
TabOrder = 2
object Label36: TLabel
Left = 518
Top = 6
Width = 42
Height = 12
Caption = '制单人:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object labBomhUser: TLabel
Left = 560
Top = 6
Width = 48
Height = 12
Caption = 'UserCode'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 323
Top = 6
Width = 54
Height = 12
Caption = '制单日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object labSysDate: TLabel
Left = 377
Top = 6
Width = 42
Height = 12
Caption = 'SysDate'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
end
inherited sbBar: TStatusBar
Top = 467
Width = 660
end
inherited CoolBar1: TCoolBar
Width = 660
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 660
end>
inherited tbMainBar: TToolBar
Width = 647
end
end
object FloatPanel1: TFloatPanel [5]
Left = 0
Top = 39
Width = 660
Height = 139
Align = alTop
Color = clWhite
Caption = 'FloatPanel1'
ParentColor = False
TabOrder = 3
object Label1: TLabel
Left = 14
Top = 12
Width = 54
Height = 12
Caption = '父件编码:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 246
Top = 53
Width = 42
Height = 12
Caption = '提前期:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 246
Top = 73
Width = 54
Height = 12
Caption = '订货策略:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 246
Top = 94
Width = 54
Height = 12
Caption = '计划策略:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 246
Top = 115
Width = 42
Height = 12
Caption = '生管员:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 447
Top = 57
Width = 42
Height = 12
Caption = '单备注:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 446
Top = 9
Width = 54
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -