📄 poh.dfm
字号:
inherited frmPoh: TfrmPoh
Left = 13
Top = 14
Width = 778
Height = 575
Caption = '采购单录入'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object sgPoh: TSDGrid [0]
Left = 0
Top = 212
Width = 764
Height = 268
Color = clWhite
ColCount = 8
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 = 5
OnDblClick = sgPohDblClick
OnSelectCell = sgPohSelectCell
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 = 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 = (
11
60
162
41
145
64
129
99)
end
object FloatPanel2: TFloatPanel [1]
Left = 0
Top = 212
Width = 770
Height = 270
Align = alClient
Color = clWhite
Caption = 'FloatPanel2'
ParentColor = False
TabOrder = 4
object Label51: TLabel
Left = 638
Top = 99
Width = 30
Height = 12
Caption = '备注:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object GroupBox10: TGroupBox
Left = 392
Top = 2
Width = 239
Height = 257
Caption = '采购需求信息'
TabOrder = 1
object Label32: TLabel
Left = 6
Top = 93
Width = 54
Height = 12
Caption = '需求部门:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Left = 6
Top = 117
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 = 6
Top = 165
Width = 30
Height = 12
Caption = '批号:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label38: TLabel
Left = 6
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 Label44: TLabel
Left = 6
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 Label45: TLabel
Left = 6
Top = 188
Width = 54
Height = 12
Caption = '订单编号:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label46: TLabel
Left = 6
Top = 212
Width = 54
Height = 12
Caption = '订单行号:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Left = 6
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 Label30: TLabel
Left = 6
Top = 141
Width = 54
Height = 12
Caption = '需求来源:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object scPodBatch: TSDComboBox
Left = 69
Top = 160
Width = 149
Height = 20
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 3
Text = 'scPodBatch'
OnExit = scPodBatchExit
end
object dePodSendDate: TDateEdit
Left = 69
Top = 19
Width = 92
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2001-05-11'
InitDate = '2001-05-11'
ModalResult = 0
TabOrder = 0
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object dePodRecDate: TDateEdit
Left = 69
Top = 43
Width = 92
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2001-05-11'
InitDate = '2001-05-11'
ModalResult = 0
TabOrder = 1
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object sePodSo: TSDEdit
Left = 69
Top = 184
Width = 153
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 4
Text = 'sePodSo'
OnButtonClick = sePodSoButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object scPodDept: TSDComboBox
Left = 69
Top = 90
Width = 149
Height = 20
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 2
Text = 'scPodDept'
OnExit = scPodDeptExit
KeyItem = cbItem2
end
object chkPodClose: TCheckBox
Left = 3
Top = 230
Width = 83
Height = 21
Alignment = taLeftJustify
Caption = '订单行结清'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object dePodReqDate: TDateEdit
Left = 69
Top = 66
Width = 92
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2001-05-11'
InitDate = '2001-05-11'
ModalResult = 0
TabOrder = 6
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object scPodFrom: TSDComboBox
Left = 69
Top = 137
Width = 149
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 7
KeyItem = cbItem2
end
object sePodLoc: TSDEdit
Left = 70
Top = 116
Width = 152
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 8
Text = 'sePodLoc'
OnButtonClick = sePodLocButtonClick
ButtonVisible = True
KeyItem = cbItem2
SplitSymbol = ' | '
end
object sePodSodLine: TSDEdit
Left = 70
Top = 210
Width = 146
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 9
Text = '0'
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
end
object GroupBox7: TGroupBox
Left = 6
Top = 1
Width = 381
Height = 260
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
TabStop = True
object Label20: TLabel
Left = 11
Top = 87
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 = 11
Top = 112
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 Label22: TLabel
Left = 11
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 Label23: TLabel
Left = 11
Top = 136
Width = 54
Height = 12
Caption = '采购数量:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label25: TLabel
Left = 11
Top = 13
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 = 11
Top = 38
Width = 54
Height = 12
Caption = '货物编码:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 11
Top = 235
Width = 42
Height = 12
Caption = '行状态:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label50: TLabel
Left = 11
Top = 62
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 Label28: TLabel
Left = 11
Top = 210
Width = 42
Height = 12
Caption = '行类型:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label24: TLabel
Left = 11
Top = 186
Width = 54
Height = 12
Caption = '采购金额:'
Enabled = False
end
object Label31: TLabel
Left = 197
Top = 209
Width = 54
Height = 12
Caption = '请购单号:'
Enabled = False
end
object Label37: TLabel
Left = 198
Top = 235
Width = 54
Height = 12
Caption = '请购行号:'
Enabled = False
end
object sePodConvRate: TSDEdit
Left = 66
Top = 107
Width = 125
Height = 18
TabStop = False
Ctl3D = False
MaxLength = 12
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 3
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object sePodQty: TSDEdit
Left = 66
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -