equc.dfm
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 340 行
DFM
340 行
inherited frmEquc: TfrmEquc
Left = 156
Top = 101
Width = 607
Height = 446
Caption = '约当产量系数'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
inherited sbBar: TStatusBar
Top = 378
Width = 599
end
inherited CoolBar1: TCoolBar
Width = 599
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 599
end>
inherited tbMainBar: TToolBar
Width = 586
inherited tbQuery: TToolButton
Visible = False
end
end
end
object FloatPanel1: TFloatPanel [2]
Left = 329
Top = 69
Width = 270
Height = 309
Align = alClient
Color = 50331647
Caption = 'FloatPanel1'
ParentColor = False
TabOrder = 2
object Label14: TLabel
Left = 33
Top = 119
Width = 48
Height = 12
Caption = '操作员:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 33
Top = 149
Width = 60
Height = 12
Caption = '系统日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object labEqucSysDate: TLabel
Left = 91
Top = 148
Width = 84
Height = 12
Caption = 'labEqucSysDate'
end
object Label2: TLabel
Left = 33
Top = 89
Width = 60
Height = 12
Caption = '约当系数:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 33
Top = 29
Width = 60
Height = 12
Caption = '产品编码:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 33
Top = 59
Width = 60
Height = 12
Caption = '产品名称:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object seEqucValue: TSDEdit
Left = 91
Top = 83
Width = 113
Height = 18
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
MaxLength = 13
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 1
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object scEqucUser: TSDComboBox
Left = 90
Top = 111
Width = 113
Height = 20
Color = 50331647
Ctl3D = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 2
Text = 'scEqucUser'
KeyItem = cbItem2
end
object seEqucGoods: TSDEdit
Left = 91
Top = 22
Width = 113
Height = 18
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 0
Text = 'seEqucGoods'
OnKeyDown = seEqucGoodsKeyDown
CharType = ctMathematic
OnButtonClick = seEqucGoodsButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object seEqucGoodsName: TSDEdit
Left = 91
Top = 52
Width = 113
Height = 18
Ctl3D = False
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 3
Text = 'seEqucGoodsName'
CharType = ctMathematic
SplitSymbol = ' | '
end
end
object FloatPanel2: TFloatPanel [3]
Left = 0
Top = 39
Width = 599
Height = 30
Align = alTop
Color = 50331647
Caption = 'FloatPanel2'
ParentColor = False
TabOrder = 3
object Label9: TLabel
Left = 9
Top = 7
Width = 60
Height = 12
Caption = '工序编码:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object labLgLocName: TLabel
Left = 256
Top = 7
Width = 6
Height = 11
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 240
Top = 8
Width = 60
Height = 12
Caption = '产品名称:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object scEqucProcess: TSDComboBox
Left = 67
Top = 3
Width = 145
Height = 20
Color = 50331647
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
ParentCtl3D = False
ParentFont = False
TabOrder = 0
Text = 'scEqucProcess'
OnClick = scEqucProcessClick
end
object seEqucProcessName: TSDEdit
Left = 300
Top = 5
Width = 129
Height = 18
Ctl3D = False
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 1
CharType = ctMathematic
SplitSymbol = ' | '
end
end
object sgEquc: TSDGrid [4]
Left = 0
Top = 69
Width = 329
Height = 309
Align = alLeft
Color = 50331647
ColCount = 3
Ctl3D = False
DefaultRowHeight = 20
FixedColor = 8564917
RowCount = 4
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
ParentCtl3D = False
TabOrder = 4
OnClick = sgEqucClick
EvenGridColor = 50331647
OddGridColor = 50331647
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '产品编码'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '约当系数'
ColumnWidth = 0
end>
ColWidths = (
10
167
141)
end
inherited MainMenu1: TMainMenu
Left = 114
Top = 155
end
inherited PrnSetupDlg: TPrinterSetupDialog
Top = 53
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?