?? 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 + -