43 lines
1.0 KiB
VB.net
43 lines
1.0 KiB
VB.net
|
|
|
|
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
|
|
|
|
|
|
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 |