📄 ufrmmeter.dfm
字号:
Flat = True
ImeMode = imClose
ImeName = '中文 (简体) - 王码五笔型86版'
ParentFont = False
TabOrder = 9
Visible = True
end
object DBEditEh6: TDBEditEh
Left = 471
Top = 27
Width = 205
Height = 19
DataField = 'Type'
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 = 10
Visible = True
end
object DBEditEh2: TDBEditEh
Left = 471
Top = 109
Width = 205
Height = 19
DataField = 'Quota'
DataSource = dsMeter
EditButtons = <>
Flat = True
TabOrder = 11
Visible = True
end
end
object DBGridEh3: TDBGridEh
Left = 0
Top = 169
Width = 728
Height = 259
Align = alClient
DataSource = dsMeter
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -15
FooterFont.Name = '宋体'
FooterFont.Style = []
ImeMode = imClose
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'MeterNO'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '编号'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
end
item
EditButtons = <>
FieldName = 'Type'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '型号'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 60
end
item
EditButtons = <>
FieldName = 'SortName'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '分类'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 60
end
item
EditButtons = <>
FieldName = 'Multiple'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '倍率'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 30
end
item
EditButtons = <>
FieldName = 'Quota'
Footers = <>
Title.Caption = '费用(元)'
end
item
EditButtons = <>
FieldName = 'BaseNumber'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '安装基数'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
end
item
Checkboxes = False
EditButtons = <>
FieldName = 'SubPrice'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '执行单价'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 80
end
item
EditButtons = <>
FieldName = 'MaxBound'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '最大计数'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
end
item
EditButtons = <>
FieldName = 'SubjoinNumber'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '附加数'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 40
end
item
EditButtons = <>
FieldName = 'SubWorkShop'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '所属车间'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 90
end
item
EditButtons = <>
FieldName = 'SubsubWorkShop'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '所属班组'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 100
end
item
EditButtons = <>
FieldName = 'SetupDate'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '安装日期'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 65
end
item
EditButtons = <>
FieldName = 'FitPlace'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '安装位置'
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
end>
end
object MyDBNavigator1: TMyDBNavigator
Left = 0
Top = 428
Width = 728
Height = 25
DataSource = dsMeter
Align = alBottom
Flat = True
TabOrder = 2
end
object dsMeter: TDataSource
DataSet = adoMeter
Left = 16
Top = 360
end
object adoMeter: TADOQuery
Parameters = <>
SQL.Strings = (
'select * from Meter')
Left = 56
Top = 360
object adoMeterMeterNO: TWideStringField
FieldName = 'MeterNO'
Size = 10
end
object adoMeterMultiple: TIntegerField
FieldName = 'Multiple'
end
object adoMeterWorkShopID: TIntegerField
FieldName = 'WorkShopID'
end
object adoMeterPriceID: TIntegerField
FieldName = 'PriceID'
end
object adoMeterBaseNumber: TIntegerField
FieldName = 'BaseNumber'
end
object adoMeterMeterSort: TIntegerField
FieldName = 'MeterSort'
end
object adoMeterQuota: TBCDField
FieldName = 'Quota'
Precision = 19
end
object adoMeterType: TWideStringField
FieldName = 'Type'
end
object adoMeterSetupDate: TDateTimeField
FieldName = 'SetupDate'
end
object adoMeterMaxBound: TIntegerField
FieldName = 'MaxBound'
end
object adoMeterSubjoinNumber: TIntegerField
FieldName = 'SubjoinNumber'
end
object adoMeterFitPlace: TWideStringField
FieldName = 'FitPlace'
Size = 50
end
object adoMeterSubWorkShopID: TSmallintField
FieldName = 'SubWorkShopID'
end
object adoMeterSubWorkShop: TStringField
FieldKind = fkLookup
FieldName = 'SubWorkShop'
LookupDataSet = ADOQuery2
LookupKeyFields = 'WrokShopID'
LookupResultField = 'WrokShopName'
KeyFields = 'WorkShopID'
Lookup = True
end
object adoMeterSubPrice: TStringField
FieldKind = fkLookup
FieldName = 'SubPrice'
LookupDataSet = ADOQuery3
LookupKeyFields = 'PriceID'
LookupResultField = 'PriceName'
KeyFields = 'PriceID'
Lookup = True
end
object adoMeterSubsubWorkShop: TStringField
FieldKind = fkLookup
FieldName = 'SubsubWorkShop'
LookupDataSet = ADOQuery4
LookupKeyFields = 'WrokShopID'
LookupResultField = 'WrokShopName'
KeyFields = 'SubWorkShopID'
Lookup = True
end
object adoMeterSortName: TStringField
FieldKind = fkLookup
FieldName = 'SortName'
LookupDataSet = ADOQuery1
LookupKeyFields = 'MeterSortID'
LookupResultField = 'MeterSortName'
KeyFields = 'MeterSort'
Lookup = True
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 456
Top = 336
end
object ADOQuery1: TADOQuery
Parameters = <>
SQL.Strings = (
'select * from MeterSort')
Left = 496
Top = 336
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 456
Top = 376
end
object ADOQuery2: TADOQuery
Parameters = <>
SQL.Strings = (
'select * from Workshop where WorkShopLevel = 2')
Left = 496
Top = 376
end
object DataSource3: TDataSource
DataSet = ADOQuery3
Left = 568
Top = 336
end
object ADOQuery3: TADOQuery
Parameters = <
item
Name = 'MeterSortID'
DataType = ftFixedChar
Size = -1
Value = Null
end>
SQL.Strings = (
'select * from Price where MeterSortID= :MeterSortID'
'')
Left = 608
Top = 336
end
object DataSource4: TDataSource
DataSet = ADOQuery4
Left = 568
Top = 376
end
object ADOQuery4: TADOQuery
Parameters = <
item
Name = 'ResideWorkShop'
DataType = ftInteger
Value = Null
end>
SQL.Strings = (
'select * from workshop where WorkShopLevel = 3 and ResideWorkSho' +
'pID = :ResideWorkShopID'
'')
Left = 608
Top = 376
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -