ActiveReports

This commit is contained in:
2025-08-14 11:32:13 +02:00
parent 0ca060b7c0
commit 93fd68c058
35 changed files with 8571 additions and 11127 deletions

View File

@@ -44,7 +44,7 @@ Partial Public Class rptAuswertung
'
Me.Picture1.Height = 0.5905511!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -15,9 +15,9 @@ Public Class rptAuswertung
Dim subrpt_Auswertung As New subrptAuswertung
subrpt_Auswertung.whatshallwedo = whatshallwedo
Me.subrpt.Report = subrpt_Auswertung
ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
Me.subrpt.Report = subrpt_Einzelauswertung
End If

View File

@@ -46,7 +46,7 @@ Partial Public Class rptAuswertungLandscape
'
Me.Picture1.Height = 0.5905511!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -191,7 +191,7 @@ Partial Public Class subrptAuswertung
'Chart
'
Me.Chart.AutoRefresh = True
Me.Chart.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.SteelBlue, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
Me.Chart.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.SteelBlue, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, GrapeCity.ActiveReports.Chart.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
ChartArea1.AntiAliasMode = GrapeCity.ActiveReports.Chart.Graphics.AntiAliasMode.Graphics
Axis1.Arrow = GrapeCity.ActiveReports.Chart.ArrowType.Lines
Axis1.AxisType = GrapeCity.ActiveReports.Chart.AxisType.Categorical
@@ -237,7 +237,7 @@ Partial Public Class subrptAuswertung
Axis5.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
Axis5.Visible = False
ChartArea1.Axes.AddRange(New GrapeCity.ActiveReports.Chart.AxisBase() {Axis1, Axis2, Axis3, Axis4, Axis5})
ChartArea1.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
ChartArea1.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, GrapeCity.ActiveReports.Chart.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
ChartArea1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
ChartArea1.Light = New GrapeCity.ActiveReports.Chart.Light(New GrapeCity.ActiveReports.Chart.Graphics.Point3d(10.0!, 40.0!, 20.0!), GrapeCity.ActiveReports.Chart.LightType.InfiniteDirectional, 0.14!)
ChartArea1.Name = "defaultArea"
@@ -249,7 +249,7 @@ Partial Public Class subrptAuswertung
WallRange1.PrimaryAxis = Axis1
WallRange1.Visible = False
ChartArea1.WallRanges.AddRange(New GrapeCity.ActiveReports.Chart.WallRange() {WallRange1})
ChartArea1.WallXY = New GrapeCity.ActiveReports.Chart.PlaneItem(New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.Red, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched))
ChartArea1.WallXY = New GrapeCity.ActiveReports.Chart.PlaneItem(New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.Red, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, GrapeCity.ActiveReports.Chart.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched))
Me.Chart.ChartAreas.AddRange(New GrapeCity.ActiveReports.Chart.ChartArea() {ChartArea1})
Me.Chart.ChartBorder = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)), 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 1, System.Drawing.Color.White)
Me.Chart.Height = 3.895669!
@@ -258,7 +258,7 @@ Partial Public Class subrptAuswertung
Legend1.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(System.Drawing.Color.White, CType(128, Byte))
Legend1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(), 0, System.Drawing.Color.Black)
Legend1.DockArea = ChartArea1
Title1.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
Title1.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, GrapeCity.ActiveReports.Chart.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
Title1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
Title1.DockArea = Nothing
Title1.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
@@ -304,7 +304,7 @@ Partial Public Class subrptAuswertung
Series3.ValueMemberX = Nothing
Me.Chart.Series.AddRange(New GrapeCity.ActiveReports.Chart.Series() {Series1, Series2, Series3})
Title3.Alignment = GrapeCity.ActiveReports.Chart.Alignment.Center
Title3.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
Title3.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, GrapeCity.ActiveReports.Chart.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
Title3.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
Title3.DockArea = Nothing
Title3.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Arial", 10.0!, GrapeCity.ActiveReports.Chart.Drawing.FontStyle.Bold))