edv/Gastro
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Designs über start.ini

Browse Source
This commit is contained in:
ms
2019-10-09 16:52:04 +02:00
parent a6a0c5195f
commit 93bc3ee077
4 changed files with 60 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Gastro/cListe.vb
View File

@@ -11,6 +11,8 @@
Public Shared Debug As Boolean = False
Public Shared Hintergrund As New List(Of String())
Public Shared Function selectDBConnection(connection As String)
Select Case connection

6
Gastro/frmMain.vb
View File

@@ -29,6 +29,8 @@
Dim lines = IO.File.ReadAllLines(sAppPath & "\start.ini")
Dim colCount = lines.First.Split(";"c).Length
Dim HintergrundBild(4) As String
For Each line In lines
Dim objFields = From field In line.Split(";"c)
@@ -37,6 +39,10 @@
cListe.selectDBConnection(objFields(1).ToString)
Case "PDFUploadPath"
cListe.PDFUploadPath = objFields(1).ToString
Case "Design"
HintergrundBild = {objFields(1).ToString, objFields(2).ToString, objFields(3).ToString, objFields(4).ToString}
cListe.Hintergrund.Add(HintergrundBild)
End Select
Next

10
Gastro/frmMenu.vb
View File

@@ -10,11 +10,21 @@ Public Class frmMenu
Private Sub frmMenu_Load(sender As Object, e As EventArgs) Handles Me.Load
' If menu IsNot Nothing Then FillBoxes()
panDebug.Visible = cListe.Debug
FillDesigns()
FillBoxes()
Dim usrcntrl As New usrcntlSpeisen : usrcntrl.Dock = DockStyle.Fill : PanSpeise.Controls.Add(usrcntrl)
End Sub
Function FillDesigns()
coboMenuArt.Items.Clear()
coboMenuArt.Items.Add("Standard")
For Each meh As String() In cListe.Hintergrund
'MsgBox(meh(0))
coboMenuArt.Items.Add(meh(0))
Next
End Function
Function FillBoxes(Optional ByVal FillDate As Boolean = True)
txtMenuTitel.Text = menu.MenuTitel
If FillDate = False Then txtMenuTitel.Text &= cTools.DateToWeek(dtpbis.Value)

69
Gastro/rptMittagsMenue.vb
View File

@@ -9,40 +9,55 @@ Public Class rptMittagsMenue
Private Sub rptMittagsMenue_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = dt
Select Case SQLTools.DBNull2emptyString(Fields.Item("MenuArt").Value)
Case ""
Try
Select Case SQLTools.DBNull2emptyString(Fields.Item("MenuArt").Value)
Case ""
Case "Frühling"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackFrühling.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case Else
For Each meh As String() In cListe.Hintergrund
If meh(0) = SQLTools.DBNull2emptyString(Fields.Item("MenuArt").Value) Then
Me.Watermark = Image.FromFile(Application.StartupPath & meh(1)) ' rel. Pfad zur Bilddatei
Picture1.Image = Image.FromFile(Application.StartupPath & meh(2)) ' Banner oben
Picture2.Image = Image.FromFile(Application.StartupPath & meh(3)) ' Banner unten
End If
Case "Sommer"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackSommer.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Next
Case "Herbst"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackHerbst.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case "Winter"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWinter.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
'Case "Frühling"
' Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackFrühling.jpg")
' Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
' Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case "Ostern"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackOstern.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
'Case "Sommer"
' Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackSommer.jpg")
' Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
' Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case "Weihnachten"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWeihnachten.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
'Case "Herbst"
' Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackHerbst.jpg")
' Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
' Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
End Select
'Case "Winter"
' Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWinter.jpg")
' Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
' Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
'Case "Ostern"
' Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackOstern.jpg")
' Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
' Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
'Case "Weihnachten"
' Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWeihnachten.jpg")
' Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
' Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
End Select
Catch ex As Exception
MsgBox("Eingestellter Hintergrund konnte im Dateisystem nicht gefunden werden.")
End Try
End Sub