📄 ufrmmeter.dfm
字号:
object frmMeter: TfrmMeter
Left = 204
Top = 148
Width = 736
Height = 480
Caption = 'frmMeter'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDesktopCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 728
Height = 169
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object Label23: TLabel
Left = 96
Top = 30
Width = 67
Height = 13
Caption = '编 号:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 96
Top = 51
Width = 67
Height = 13
Caption = '类 型:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 96
Top = 71
Width = 65
Height = 13
Caption = '附加数量:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 96
Top = 92
Width = 65
Height = 13
Caption = '所属车间:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 96
Top = 112
Width = 67
Height = 13
Caption = '倍 率:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 96
Top = 133
Width = 65
Height = 13
Caption = '执行单价:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 398
Top = 30
Width = 67
Height = 13
Caption = '型 号:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 398
Top = 51
Width = 65
Height = 13
Caption = '安装基数:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 398
Top = 71
Width = 65
Height = 13
AutoSize = False
Caption = '最大计数:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 398
Top = 92
Width = 65
Height = 13
Caption = '所属班组:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 398
Top = 112
Width = 65
Height = 13
Caption = '费用定额:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 398
Top = 133
Width = 65
Height = 13
Caption = '安装位置:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 679
Top = 112
Width = 13
Height = 13
Caption = '元'
end
object DBLookupComboboxEh1: TDBLookupComboboxEh
Left = 167
Top = 130
Width = 205
Height = 19
DataField = 'PriceID'
DataSource = dsMeter
DropDownBox.UseMultiTitle = True
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeMode = imClose
KeyField = 'PriceID'
ListField = 'PriceName'
ListSource = DataSource3
ParentFont = False
TabOrder = 0
Visible = True
end
object DBEditEh9: TDBEditEh
Left = 166
Top = 109
Width = 205
Height = 19
DataField = 'Multiple'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeName = '中文 (简体) - 王码五笔型86版'
ParentFont = False
TabOrder = 1
Visible = True
end
object DBLookupComboboxEh2: TDBLookupComboboxEh
Left = 166
Top = 88
Width = 205
Height = 19
DataField = 'WorkShopID'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeMode = imClose
KeyField = 'WrokShopID'
ListField = 'WrokShopName'
ListSource = DataSource2
ParentFont = False
TabOrder = 2
Visible = True
OnCloseUp = DBLookupComboboxEh2CloseUp
end
object DBEditEh16: TDBEditEh
Left = 166
Top = 68
Width = 205
Height = 19
DataField = 'SubjoinNumber'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeName = '中文 (简体) - 王码五笔型86版'
ParentFont = False
TabOrder = 3
Visible = True
end
object DBLookupComboboxEh3: TDBLookupComboboxEh
Left = 166
Top = 48
Width = 205
Height = 19
DataField = 'MeterSort'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeMode = imClose
KeyField = 'MeterSortID'
ListField = 'MeterSortName'
ListSource = DataSource1
ParentFont = False
TabOrder = 4
Visible = True
OnCloseUp = DBLookupComboboxEh3CloseUp
end
object DBEditEh14: TDBEditEh
Left = 166
Top = 27
Width = 205
Height = 19
DataField = 'MeterNO'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeName = '中文 (简体) - 王码五笔型86版'
ParentFont = False
TabOrder = 5
Visible = True
end
object DBEditEh11: TDBEditEh
Left = 472
Top = 130
Width = 204
Height = 19
DataField = 'FitPlace'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeName = '中文 (简体) - 王码五笔型86版'
ParentFont = False
TabOrder = 6
Visible = True
end
object DBLookupComboboxEh6: TDBLookupComboboxEh
Left = 471
Top = 88
Width = 205
Height = 19
DataField = 'SubWorkShopID'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeName = '中文 (简体) - 王码五笔型86版'
KeyField = 'WrokShopID'
ListField = 'WrokShopName'
ListSource = DataSource4
ParentFont = False
TabOrder = 7
Visible = True
end
object DBEditEh7: TDBEditEh
Left = 471
Top = 68
Width = 205
Height = 19
DataField = 'MaxBound'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Flat = True
ImeName = '中文 (简体) - 王码五笔型86版'
ParentFont = False
TabOrder = 8
Visible = True
end
object DBEditEh1: TDBEditEh
Left = 471
Top = 48
Width = 205
Height = 19
DataField = 'BaseNumber'
DataSource = dsMeter
EditButtons = <>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -