wo.dfm
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 1,086 行 · 第 1/2 页
DFM
1,086 行
inherited frmWo: TfrmWo
Left = 9
Top = 15
Width = 782
Height = 590
Caption = '加工工单'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
inherited sbBar: TStatusBar
Top = 522
Width = 774
end
inherited CoolBar1: TCoolBar
Width = 774
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 774
end>
inherited tbMainBar: TToolBar
Width = 761
inherited tbCheck: TToolButton
Visible = True
end
inherited tbClose: TToolButton
Visible = True
end
inherited ToolButton1: TToolButton
Visible = True
end
end
end
object sgWo: TSDGrid [2]
Left = 0
Top = 39
Width = 449
Height = 451
Align = alLeft
Color = clWhite
ColCount = 7
Ctl3D = False
DefaultRowHeight = 16
FixedColor = 8564917
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
ParentCtl3D = False
TabOrder = 2
OnClick = sgWoClick
SelectColor = clHighlight
EvenGridColor = clWindow
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
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '订单单号'
ColumnWidth = 0
end>
ColWidths = (
78
82
72
35
45
65
64)
end
object PageControl1: TPageControl [3]
Left = 449
Top = 39
Width = 325
Height = 451
ActivePage = BaseInfo
Align = alClient
TabOrder = 3
object BaseInfo: TTabSheet
Caption = '基本资料 '
object FloatPanel1: TFloatPanel
Left = 0
Top = 0
Width = 317
Height = 424
Align = alClient
Color = clWhite
Caption = 'FloatPanel1'
ParentColor = False
TabOrder = 0
object Label1: TLabel
Left = 12
Top = 8
Width = 54
Height = 12
Caption = '工单编号:'
end
object Label3: TLabel
Left = 12
Top = 57
Width = 54
Height = 12
Caption = '工单类型:'
end
object Label4: TLabel
Left = 12
Top = 248
Width = 54
Height = 12
Caption = '物耗方式:'
end
object Label5: TLabel
Left = 12
Top = 272
Width = 54
Height = 12
Caption = '跟踪方式:'
end
object Label6: TLabel
Left = 12
Top = 81
Width = 54
Height = 12
Caption = '加工件码:'
end
object Label7: TLabel
Left = 12
Top = 106
Width = 54
Height = 12
Caption = '编码名称:'
end
object Label9: TLabel
Left = 12
Top = 345
Width = 54
Height = 12
Caption = '订单单号:'
end
object Label10: TLabel
Left = 238
Top = 345
Width = 30
Height = 12
Caption = '行号:'
Enabled = False
end
object Label24: TLabel
Left = 12
Top = 370
Width = 42
Height = 12
Caption = '生管员:'
end
object Label26: TLabel
Left = 12
Top = 296
Width = 54
Height = 12
Caption = '工艺路线:'
end
object Label12: TLabel
Left = 12
Top = 130
Width = 54
Height = 12
Caption = '计量单位:'
end
object Label11: TLabel
Left = 12
Top = 321
Width = 30
Height = 12
Caption = '批号:'
end
object Label43: TLabel
Left = 12
Top = 152
Width = 54
Height = 12
Caption = '加工数量:'
end
object Label49: TLabel
Left = 12
Top = 32
Width = 54
Height = 12
Caption = '录单日期:'
end
object Label50: TLabel
Left = 12
Top = 223
Width = 54
Height = 12
Caption = '完工日期:'
end
object Label51: TLabel
Left = 12
Top = 199
Width = 54
Height = 12
Caption = '开工日期:'
end
object Label52: TLabel
Left = 166
Top = 223
Width = 60
Height = 12
Caption = 'MRP需求日:'
Enabled = False
end
object labWoMdate: TLabel
Left = 229
Top = 223
Width = 42
Height = 12
Caption = 'WoMdate'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label54: TLabel
Left = 12
Top = 394
Width = 54
Height = 12
Caption = '系统日期:'
Enabled = False
end
object labWoSysDate: TLabel
Left = 70
Top = 393
Width = 54
Height = 12
Caption = 'WoSysDate'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 12
Top = 176
Width = 54
Height = 12
Caption = '加工车间:'
end
object seWoCode: TSDEdit
Left = 70
Top = 3
Width = 135
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = 'seWoCode'
OnKeyDown = seWoCodeKeyDown
SplitSymbol = ' | '
end
object scWoType: TSDComboBox
Left = 70
Top = 49
Width = 137
Height = 20
Style = csDropDownList
Ctl3D = False
ItemHeight = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 2
Items.Strings = (
'1-常规加工'
'2-返工'
'3-改装'
'4-委外'
'5-副产品')
end
object scWoConsume: TSDComboBox
Left = 70
Top = 239
Width = 149
Height = 20
Style = csDropDownList
Ctl3D = False
ItemHeight = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 9
Items.Strings = (
'1-据物料单'
'2-据配套表')
end
object scWoTrace: TSDComboBox
Left = 70
Top = 263
Width = 149
Height = 20
Style = csDropDownList
Ctl3D = False
ItemHeight = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 10
OnClick = scWoTraceClick
Items.Strings = (
'1-按工艺路线'
'2-按工单路线')
end
object seWoGoods: TSDEdit
Left = 70
Top = 74
Width = 184
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 3
Text = 'seWoGoods'
OnExit = seWoGoodsExit
OnButtonClick = seWoGoodsButtonClick
ButtonVisible = True
KeyItem = cbItem2
SplitSymbol = ' | '
end
object seWoGoodsName: TSDEdit
Left = 70
Top = 98
Width = 184
Height = 18
TabStop = False
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 4
Text = 'seWoGoodsName'
SplitSymbol = ' | '
end
object scWoProducter: TSDComboBox
Left = 70
Top = 361
Width = 144
Height = 20
Style = csDropDownList
Ctl3D = False
ItemHeight = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 15
KeyItem = cbItem2
end
object scWoUnit: TSDComboBox
Left = 70
Top = 122
Width = 112
Height = 20
Style = csDropDownList
Ctl3D = False
ItemHeight = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 5
KeyItem = cbItem2
end
object cheWoChkFlg: TCheckBox
Left = 215
Top = 5
Width = 65
Height = 19
Caption = '检验标识'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 16
end
object scWoBatch: TSDComboBox
Left = 70
Top = 313
Width = 191
Height = 20
Style = csDropDownList
Ctl3D = False
ItemHeight = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 12
KeyItem = cbItem2
end
object seWoSoCode: TSDEdit
Left = 70
Top = 340
Width = 159
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 13
Text = 'seWoSoCode'
OnButtonClick = seWoSoCodeButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object seWoRoute: TSDEdit
Left = 70
Top = 290
Width = 191
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 11
Text = 'seWoRoute'
OnButtonClick = seWoRouteButtonClick
ButtonVisible = True
KeyItem = cbItem2
SplitSymbol = ' | '
end
object seWoSodLine: TSDEdit
Left = 267
Top = 340
Width = 40
Height = 18
TabStop = False
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 14
Text = 'seLine'
SplitSymbol = ' | '
end
object seWoQty: TSDEdit
Left = 70
Top = 146
Width = 110
Height = 18
Ctl3D = False
MaxLength = 12
ParentColor = True
ParentCtl3D = False
TabOrder = 6
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object deWoDate: TDateEdit
Left = 70
Top = 28
Width = 85
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2003-03-11'
InitDate = '2003-03-11 10:24:19'
ModalResult = 0
TabOrder = 1
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object deWoRdate: TDateEdit
Left = 70
Top = 218
Width = 88
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2003-03-11'
InitDate = '2003-03-11 10:24:19'
ModalResult = 0
TabOrder = 8
Color = 50331647
Ctl3D = False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?