📄 unitprtchuxuan.dfm.~53~
字号:
Frame.Typ = [ftTop]
end
object Memo28: TfrxMemoView
Left = 759.685530000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#22791#27880)
end
end
end
end
object frxDBDataset1: TfrxDBDataset
UserName = 'frxDBDataset1'
CloseDataSource = False
DataSet = dm.Query1
Left = 104
Top = 40
end
object frxIBXComponents1: TfrxIBXComponents
DefaultDatabase = dm.IBDB
Left = 144
Top = 40
end
object frxRTFExport1: TfrxRTFExport
ShowProgress = True
Left = 64
Top = 80
end
object frxReport2: TfrxReport
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbExport, pbZoom, pbFind, pbPageSetup, pbNavigator]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = #39044#35774
ReportOptions.CreateDate = 38543.548750138900000000
ReportOptions.LastChange = 38552.458059942130000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'var'
' sex,beizhu,lqlb:String;'
''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <frxDBDataset1."SEX">='#39'F'#39' then'
' sex:='#39#22899#39
' else'
' sex:='#39#30007#39';'
'end;'
''
'procedure Memo12OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <frxDBDataset1."YX">='#39'T'#39' then'
' beizhu:='#39#20248#20808#39
' else if (<frxDBDataset1."BXZGF">>0) or (<frxDBDataset1."TYZGF"' +
'>>0) then'
' beizhu:='#39#21152#20998#39
' else'
' beizhu:='#39#39';'
'end;'
''
'procedure Memo1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' case <frxDBDataset1."LQPC"> of'
' 2:lqlb:='#39#20116#24180#19987#33402#26415#31867#39';'
' 3:lqlb:='#39#20116#24180#19987#39';'
' 4:lqlb:='#39#20013#24535#31867#39';'
' end;'
'end;'
''
'begin'
''
'end.')
OnUserFunction = frxReport1UserFunction
Left = 104
Top = 80
Datasets = <
item
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
end>
Variables = <>
Style = <>
object Page1: TfrxReportPage
PaperWidth = 241.000000000000000000
PaperHeight = 283.000000000000000000
PaperSize = 256
LeftMargin = 15.000000000000000000
RightMargin = 15.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 20.000000000000000000
Columns = 2
ColumnWidth = 105.500000000000000000
ColumnPositions.Strings = (
'0'
'112')
object MasterData1: TfrxMasterData
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Height = 18.897650000000000000
ParentFont = False
Top = 185.196970000000000000
Width = 797.480830000000000000
DataSet = frxDBDataset1
DataSetName = 'frxDBDataset1'
RowCount = 0
object Memo2: TfrxMemoView
Width = 56.692950000000010000
Height = 18.897650000000000000
Memo.Strings = (
'[frxDBDataset1."BMH"]')
end
object Memo19: TfrxMemoView
Left = 56.692950000000010000
Width = 56.692950000000010000
Height = 18.897650000000000000
Memo.Strings = (
'[frxDBDataset1."STDNAME"]')
end
object Memo20: TfrxMemoView
Left = 113.385900000000000000
Width = 26.456710000000000000
Height = 18.897650000000000000
OnBeforePrint = 'Memo20OnBeforePrint'
Memo.Strings = (
'[sex]')
end
object Memo21: TfrxMemoView
Left = 139.842610000000000000
Width = 56.692950000000010000
Height = 18.897650000000000000
Memo.Strings = (
'[YearOf(<frxDBDataset1."BIRTH">)].[MonthOf(<frxDBDataset1."BIRTH' +
'">)]')
end
object Memo22: TfrxMemoView
Left = 200.315090000000000000
Width = 64.252010000000000000
Height = 18.897650000000000000
Memo.Strings = (
'[GetSchool(<frxDBDataset1."BMH">)]')
end
object Memo23: TfrxMemoView
Left = 264.567100000000000000
Width = 37.795300000000000000
Height = 18.897650000000000000
Memo.Strings = (
'[frxDBDataset1."TOTAL"]')
end
object Memo24: TfrxMemoView
Left = 302.362400000000000000
Width = 34.015770000000010000
Height = 18.897650000000000000
Memo.Strings = (
'[frxDBDataset1."TDF"]')
end
object Memo12: TfrxMemoView
Left = 336.378170000000000000
Width = 52.913420000000000000
Height = 18.897650000000000000
OnBeforePrint = 'Memo12OnBeforePrint'
Memo.Strings = (
'[frxDBDataset1."LQZY"]')
end
end
object PageHeader1: TfrxPageHeader
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Height = 105.826840000000000000
ParentFont = False
Top = 18.897650000000000000
Width = 797.480830000000000000
object Memo1: TfrxMemoView
Left = 15.118120000000000000
Top = 11.338590000000000000
Width = 782.362710000000000000
Height = 18.897650000000000000
OnBeforePrint = 'Memo1OnBeforePrint'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
HAlign = haCenter
Memo.Strings = (
'2005'#24180#20013#25307#12304'[lqlb]'#12305#21021#36873#33457#21517#20876)
ParentFont = False
end
object Memo3: TfrxMemoView
Left = 75.590600000000000000
Top = 49.133889999999990000
Width = 71.811070000000000000
Height = 18.897650000000000000
Memo.Strings = (
#31532'[Page]'#39029)
end
object Memo4: TfrxMemoView
Left = 699.213050000000000000
Top = 45.354360000000000000
Width = 94.488250000000000000
Height = 18.897650000000000000
Memo.Strings = (
'[Date]')
end
object Line1: TfrxLineView
Top = 71.811070000000000000
Width = 793.700787401575000000
Frame.Style = fsDouble
Frame.Typ = [ftTop]
end
object Memo5: TfrxMemoView
Left = 3.779530000000000000
Top = 79.370130000000000000
Width = 49.133890000000000000
Height = 18.897650000000000000
Memo.Strings = (
#25253#21517#21495)
end
object Memo6: TfrxMemoView
Left = 60.472480000000000000
Top = 79.370130000000000000
Width = 34.015770000000010000
Height = 18.897650000000000000
Memo.Strings = (
#22995#21517)
end
object Memo7: TfrxMemoView
Left = 113.385900000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#24615#21035)
end
object Memo8: TfrxMemoView
Left = 143.622140000000000000
Top = 79.370130000000000000
Width = 60.472480000000000000
Height = 18.897650000000000000
Memo.Strings = (
#20986#29983#24180#26376)
end
object Memo9: TfrxMemoView
Left = 204.094620000000000000
Top = 79.370130000000000000
Width = 60.472480000000000000
Height = 18.897650000000000000
Memo.Strings = (
#27605#19994#23398#26657)
end
object Memo10: TfrxMemoView
Left = 268.346630000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#24635#20998)
end
object Memo11: TfrxMemoView
Left = 302.362400000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#25237#26723)
end
object Line2: TfrxLineView
Top = 102.047310000000000000
Width = 370.393940000000000000
Frame.Style = fsDot
Frame.Typ = [ftTop]
end
object Memo25: TfrxMemoView
Left = 3.779530000000000000
Top = 49.133889999999990000
Width = 68.031540000000000000
Height = 18.897650000000000000
Memo.Strings = (
#20849'[TotalPages#]'#39029)
end
object Memo26: TfrxMemoView
Left = 336.378170000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#19987#19994)
end
object Memo13: TfrxMemoView
Left = 427.086890000000000000
Top = 79.370130000000000000
Width = 49.133890000000000000
Height = 18.897650000000000000
Memo.Strings = (
#25253#21517#21495)
end
object Memo14: TfrxMemoView
Left = 480.000310000000000000
Top = 79.370130000000000000
Width = 34.015770000000010000
Height = 18.897650000000000000
Memo.Strings = (
#22995#21517)
end
object Memo15: TfrxMemoView
Left = 536.693260000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#24615#21035)
end
object Memo16: TfrxMemoView
Left = 566.929499999999900000
Top = 79.370130000000000000
Width = 60.472480000000000000
Height = 18.897650000000000000
Memo.Strings = (
#20986#29983#24180#26376)
end
object Memo17: TfrxMemoView
Left = 627.401980000000000000
Top = 79.370130000000000000
Width = 60.472480000000000000
Height = 18.897650000000000000
Memo.Strings = (
#27605#19994#23398#26657)
end
object Memo18: TfrxMemoView
Left = 691.653990000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#24635#20998)
end
object Memo27: TfrxMemoView
Left = 725.669760000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#25237#26723)
end
object Line3: TfrxLineView
Left = 423.307360000000000000
Top = 102.047310000000000000
Width = 370.393940000000000000
Frame.Style = fsDot
Frame.Typ = [ftTop]
end
object Memo28: TfrxMemoView
Left = 759.685530000000000000
Top = 79.370130000000000000
Width = 30.236240000000000000
Height = 18.897650000000000000
Memo.Strings = (
#19987#19994)
end
end
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -