You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
66 lines
3.8 KiB
66 lines
3.8 KiB
<?xml version="1.0" encoding="utf-8"?>
|
|
<Report ScriptLanguage="Vb" ReportInfo.Created="07/05/2012 12:49:56" ReportInfo.Modified="10/06/2015 08:30:59" ReportInfo.CreatorVersion="2015.3.1.0">
|
|
<ScriptText>Imports System
|
|
Imports System.Collections
|
|
Imports System.Collections.Generic
|
|
Imports System.ComponentModel
|
|
Imports System.Windows.Forms
|
|
Imports System.Drawing
|
|
Imports Microsoft.VisualBasic
|
|
Imports FastReport
|
|
Imports FastReport.Data
|
|
Imports FastReport.Dialog
|
|
Imports FastReport.Table
|
|
Imports FastReport.Barcode
|
|
Imports FastReport.Utils
|
|
|
|
Namespace FastReport
|
|
Public Class ReportScript
|
|
Private Sub Rich1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
Rich3.Text= CType(Report.GetColumnValue("Daten.Inhalt"), String)
|
|
End Sub
|
|
|
|
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
Picture1.ImageLocation= CType(Report.GetParameterValue("URL"), String)
|
|
End Sub
|
|
End Class
|
|
End Namespace
|
|
</ScriptText>
|
|
<Dictionary>
|
|
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
|
|
<Column Name="Schueler" DataType="System.String"/>
|
|
<Column Name="Lehrer" DataType="System.String"/>
|
|
<Column Name="Beruf" DataType="System.String"/>
|
|
<Column Name="Zeit" DataType="System.String"/>
|
|
<Column Name="ZeitSort" DataType="System.Int32"/>
|
|
<Column Name="Fima" DataType="System.String"/>
|
|
<Column Name="Strasse" DataType="System.String"/>
|
|
<Column Name="PLZ" DataType="System.String"/>
|
|
<Column Name="Ort" DataType="System.String"/>
|
|
<Column Name="Tel" DataType="System.String"/>
|
|
<Column Name="Ansprechpartner" DataType="System.String"/>
|
|
<Column Name="bezeichnung" DataType="System.String"/>
|
|
<Column Name="Klasse" DataType="System.String"/>
|
|
<Column Name="Telefon" DataType="System.String"/>
|
|
<Column Name="Schulhaus" DataType="System.String"/>
|
|
<Column Name="Zugehoerigkeit" DataType="System.String"/>
|
|
<Column Name="kontakt" DataType="System.String"/>
|
|
</TableDataSource>
|
|
<Parameter Name="Parcours" DataType="System.String"/>
|
|
<Parameter Name="Spruch" DataType="System.String"/>
|
|
</Dictionary>
|
|
<ReportPage Name="Page1">
|
|
<PageHeaderBand Name="PageHeader1" Width="718.2" Height="359.1">
|
|
<TextObject Name="Text3" Left="387.45" Top="292.95" Width="292.95" Height="18.9" Text="Frauenfeld, [Date]" Format="Date" Format.Format="d"/>
|
|
<TextObject Name="Text1" Left="387.45" Top="160.65" Width="292.95" Height="113.4" BeforePrintEvent="Text1_BeforePrint" Text="[Daten.Adresszeile1] [Daten.Adresszeile2] [Daten.Adresszeile3] [Daten.Adresszeile4] [Daten.Adresszeile5] [Daten.Adresszeile6] [Daten.Adresszeile7]"/>
|
|
<TextObject Name="Text4" Left="217.35" Top="9.45" Width="463.05" Height="18.9" Text="[Parcours]" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<PictureObject Name="Picture1" Left="37.8" Width="179.55" Height="113.4" BeforePrintEvent="Picture1_BeforePrint"/>
|
|
<TextObject Name="Text2" Left="37.8" Top="122.85" Width="217.35" Height="75.6" Text="Sekundarschule Frauenfeld Esther Schiess / Niklaus Gerber SA Reutenen 8500 Frauenfeld "/>
|
|
</PageHeaderBand>
|
|
<DataBand Name="Data1" Top="363.14" Width="718.2" Height="444.15" DataSource="Daten">
|
|
<RichObject Name="Rich3" Left="37.8" Width="633.15" Height="28.35" CanGrow="true" BeforePrintEvent="Rich3_BeforePrint" AfterDataEvent="Rich1_BeforePrint" Text="{\rtf1\ansi\ansicpg1252\deff0\deflang2055{\fonttbl{\f0\fnil Arial;}{\f1\fnil\fcharset0 Tahoma;}} {\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\f0\fs20 [Daten.Inhalt]\f1\fs17\par } "/>
|
|
</DataBand>
|
|
<PageFooterBand Name="PageFooter1" Top="811.33" Width="718.2" Height="18.9"/>
|
|
</ReportPage>
|
|
</Report>
|