SDL Jetzt erst recht!

SDL/Administration/usrCntlAdministration.vb

@@ -0,0 +1,68 @@
+Public Class usrCntlAdministration
+
+    Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click
+        frmZollUserStat.Show()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim frm As New frmKassenVerwaltung("tblRKSV_Kassen", "FMZOLL")
+        frm.ShowDialog(Me)
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim frm As New frmKassenVerwaltung("tblPreislisten", "FMZOLL")
+        frm.ShowDialog(Me)
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim frm As New frmKassenVerwaltung("tblPreislistenpositionen", "FMZOLL")
+        frm.ShowDialog(Me)
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Dim frm As New frmKassenVerwaltung("Leistungen", "FMZOLL")
+        frm.ShowDialog(Me)
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Dim frm As New frmKassenVerwaltung("Abfertigungsarten", "FMZOLL")
+        frm.ShowDialog(Me)
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Dim frm As New frmKassenVerwaltung("Personal", "FMZOLL")
+        frm.ShowDialog(Me)
+    End Sub
+
+    Private Sub MyListBox1_DoubleClick(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick
+        If MyComboBox1.Text = "" Then Exit Sub
+        If MyListBox1.SelectedItems.Count > 0 Then
+            Dim frm As New frmKassenVerwaltung(MyListBox1.SelectedItems(0).ToString, CStr(MyComboBox1.Text))
+            frm.ShowDialog(Me)
+        End If
+    End Sub
+
+    Private Sub usrCntlAdministration_Load(sender As Object, e As EventArgs) Handles Me.Load
+        MyComboBox1.SelectedIndex = 0
+
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
+        If MyComboBox1.Text = "" Then Exit Sub
+        MyListBox1.fillWithSQL("SELECT TABLE_NAME,TABLE_NAME as name FROM INFORMATION_SCHEMA.TABLES WHERE  TABLE_TYPE = 'BASE TABLE' ORDER BY TABLE_NAME", False, CStr(MyComboBox1.Text))
+    End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        Dim frmKasseAbschliessen As New frmKasseAbschliessen
+        frmKasseAbschliessen.Show(Me)
+    End Sub
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+        Dim f As New frmKassenbuchSuche
+        f.Show()
+    End Sub
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+        VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, cbxKd.Checked, cbxBu.Checked)
+    End Sub
+End Class