📄 untreporttext.dfm
字号:
inherited frmReportText: TfrmReportText
Left = 243
Top = 387
Caption = 'frmReportText'
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
inherited pnlBack: TPanel
inherited grdSingle: TDBGrid
Columns = <
item
Expanded = False
FieldName = 'MeasureName'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'ItemName'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'Lvl'
Width = 40
Visible = True
end
item
Expanded = False
FieldName = 'Discript'
Width = 300
Visible = True
end
item
Expanded = False
FieldName = 'Method'
Width = 300
Visible = True
end>
end
end
inherited adsSingle: TADODataSet
CursorType = ctStatic
CommandText = 'select * from tReportText'
Left = 566
Top = 375
object adsSingleiAutoID: TAutoIncField
FieldName = 'iAutoID'
ReadOnly = True
Visible = False
end
object adsSingleMeasureCode: TStringField
FieldName = 'MeasureCode'
Visible = False
Size = 10
end
object adsSingleMeasureName: TStringField
DisplayLabel = #37327#34920
FieldKind = fkLookup
FieldName = 'MeasureName'
LookupDataSet = adsMeasure
LookupKeyFields = 'code'
LookupResultField = 'name'
KeyFields = 'MeasureCode'
LookupCache = True
Size = 30
Lookup = True
end
object adsSingleItemCode: TStringField
FieldName = 'ItemCode'
Visible = False
Size = 10
end
object adsSingleItemName: TStringField
DisplayLabel = #22240#23376
FieldKind = fkLookup
FieldName = 'ItemName'
LookupDataSet = adsMeasureItem
LookupKeyFields = 'code'
LookupResultField = 'Name'
KeyFields = 'ItemCode'
LookupCache = True
Size = 30
Lookup = True
end
object adsSingleLvl: TIntegerField
DisplayLabel = #31561#32423
FieldName = 'Lvl'
Visible = False
OnGetText = adsSingleLvlGetText
OnSetText = adsSingleLvlSetText
end
object adsSingleDiscript: TStringField
DisplayLabel = #31243#24230#22240#23376#25551#36848
FieldName = 'Discript'
Size = 100
end
object adsSingleMethod: TStringField
DisplayLabel = #22788#29702#26041#24335
FieldName = 'Method'
Size = 1400
end
end
object adsMeasure: TADODataSet
Connection = DM.cnn
CommandText = 'select code, name from tMeasure'
Parameters = <>
Left = 480
Top = 136
object adsMeasurecode: TStringField
FieldName = 'code'
Size = 10
end
object adsMeasurename: TStringField
FieldName = 'name'
end
end
object adsMeasureItem: TADODataSet
Connection = DM.cnn
CommandText = 'select code, Name from tMeasure_Item'
Parameters = <>
Left = 480
Top = 232
object adsMeasureItemcode: TStringField
FieldName = 'code'
Size = 10
end
object adsMeasureItemName: TStringField
FieldName = 'Name'
Size = 50
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -