rpoh.dfm
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 1,151 行 · 第 1/2 页
DFM
1,151 行
inherited frmRpoh: TfrmRpoh
Left = 28
Top = 10
Width = 755
Height = 559
Caption = '请购订单录入'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object sgRpoh: TSDGrid [0]
Left = 0
Top = 173
Width = 747
Height = 282
Align = alClient
Color = clWhite
ColCount = 10
Ctl3D = False
DefaultRowHeight = 18
FixedColor = 8564917
RowCount = 4
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
PopupMenu = pmDetail
TabOrder = 3
OnClick = sgRpohClick
OnDblClick = sgRpohDblClick
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
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 = 72
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 = (
6
53
84
111
93
96
71
71
71
54)
end
object FloatPanel2: TFloatPanel [1]
Left = 0
Top = 173
Width = 747
Height = 282
Align = alClient
Color = clWhite
Caption = 'FloatPanel2'
ParentColor = False
TabOrder = 4
object GroupBox1: TGroupBox
Left = 6
Top = 2
Width = 327
Height = 273
TabOrder = 0
object Label20: TLabel
Left = 12
Top = 104
Width = 54
Height = 12
Caption = '计量单位:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 12
Top = 133
Width = 54
Height = 12
Caption = '换算系数:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 12
Top = 189
Width = 54
Height = 12
Caption = '请购单价:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 12
Top = 161
Width = 54
Height = 12
Caption = '请购数量:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 12
Top = 20
Width = 30
Height = 12
Caption = '行号:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 12
Top = 48
Width = 54
Height = 12
Caption = '货物编码:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 12
Top = 76
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 Label10: TLabel
Left = 183
Top = 161
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 labRpodPQty: TLabel
Left = 242
Top = 161
Width = 75
Height = 12
AutoSize = False
Caption = 'RpodPQty'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 12
Top = 245
Width = 42
Height = 12
Caption = '行状态:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 12
Top = 217
Width = 30
Height = 12
Caption = '金额:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object labRpodGoodsName: TLabel
Left = 69
Top = 76
Width = 108
Height = 12
AutoSize = False
Caption = 'labRpodGoodsName'
end
object GoodsSpec: TLabel
Left = 221
Top = 72
Width = 100
Height = 17
AutoSize = False
Caption = 'labRpodGoodsName'
Visible = False
end
object seRpodConvRate: TSDEdit
Left = 69
Top = 128
Width = 103
Height = 18
TabStop = False
Ctl3D = False
MaxLength = 8
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 3
Text = 'seRpodConvRate'
CharType = ctMathematic
SplitSymbol = ' | '
end
object seRpodQty: TSDEdit
Left = 69
Top = 156
Width = 102
Height = 18
Ctl3D = False
MaxLength = 10
ParentColor = True
ParentCtl3D = False
TabOrder = 4
Text = 'seRpodQty'
OnExit = seRpodQtyExit
CharType = ctMathematic
SplitSymbol = ' | '
end
object seRpodPrice: TSDEdit
Left = 69
Top = 184
Width = 101
Height = 18
Ctl3D = False
MaxLength = 10
ParentColor = True
ParentCtl3D = False
TabOrder = 5
Text = 'seRpodPrice'
OnExit = seRpodQtyExit
CharType = ctMathematic
SplitSymbol = ' | '
end
object seRpodLine: TSDEdit
Left = 69
Top = 16
Width = 99
Height = 18
Ctl3D = False
MaxLength = 8
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = 'seRpodLine'
CharType = ctNumeric
SplitSymbol = ' | '
end
object scRpodStatus: TSDComboBox
Left = 69
Top = 240
Width = 101
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 6
KeyItem = cbItem2
end
object seRpodAmt: TSDEdit
Left = 69
Top = 212
Width = 101
Height = 18
TabStop = False
Ctl3D = False
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 7
Text = 'seRpodAmt'
CharType = ctMathematic
SplitSymbol = ' | '
end
object seRpodGoodsCode: TSDEdit
Left = 69
Top = 44
Width = 156
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 1
Text = 'seRpodGoodsCode'
OnExit = seRpodGoodsCodeExit
OnButtonClick = seRpodGoodsCodeButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object seRpodUnitCode: TSDEdit
Left = 69
Top = 101
Width = 125
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 2
Text = 'seRpodUnitCode'
OnButtonClick = seRpodUnitCodeButtonClick
ButtonVisible = True
KeyItem = cbItem2
SplitSymbol = ' | '
end
end
object GroupBox2: TGroupBox
Left = 337
Top = 210
Width = 286
Height = 64
Caption = '结清'
TabOrder = 1
object Label30: TLabel
Left = 9
Top = 41
Width = 54
Height = 12
Caption = '结清日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object ChkRpodClose: TCheckBox
Left = 6
Top = 14
Width = 76
Height = 21
Alignment = taLeftJustify
Caption = '单行结清'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object seRpodCloseDate: TSDEdit
Left = 69
Top = 37
Width = 103
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 1
Text = 'seRpodCloseDate'
SplitSymbol = ' | '
end
end
object GroupBox3: TGroupBox
Left = 336
Top = 2
Width = 287
Height = 206
Caption = '请购需求信息'
TabOrder = 2
object Label31: TLabel
Left = 9
Top = 70
Width = 54
Height = 12
Caption = '需求部门:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Left = 9
Top = 96
Width = 54
Height = 12
Caption = '需求货位:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Left = 9
Top = 46
Width = 54
Height = 12
Caption = '需求日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label35: TLabel
Left = 9
Top = 147
Width = 30
Height = 12
Caption = '备注:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label26: TLabel
Left = 9
Top = 122
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 Label29: TLabel
Left = 7
Top = 22
Width = 54
Height = 12
Caption = '交货日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object scRpodDeptCode: TSDComboBox
Left = 67
Top = 65
Width = 173
Height = 20
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?