Essensbestellung

Aviso/frmEssensbestellungen.vb

@@ -1,8 +1,43 @@
-Public Class frmEssensbestellungen
-    Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'MyComboBox1.fillWithSQL("Select [MenuTitel] from [GMenu]")
+
+
+Imports GrapeCity.ActiveReports.ReportsCore.Tools
+Imports Spire.Pdf.General.Paper
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmEssensbestellungen
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+
+    Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-        MyComboBox1.fillWithSQL("Select [MenuTitel] from [GMenu]",, "Gastro", True)
 
     End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+
+    End Sub
+
+
+    Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged
+
+        Dim dt As New DataTable
+        dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & MyComboBox1._value & "'", "AVISO", 100, True)
+
+        If dt.Rows.Count > 0 Then
+
+            btnSave.Enabled = True
+        Else
+            btnSave.Enabled = False
+        End If
+
+
+    End Sub
+
+    Private Sub rbMenoAltMo_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenoAltMo.CheckedChanged
+        IIf(rbMenoAltMo.Checked, txtAltMo.Visible = True, txtAltMo.Visible = False)
+    End Sub
+
+
 End Class