VERSION 5.00 Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx" Begin VB.Form frmKellnerKartei Caption = "Kellnerkartei" ClientHeight = 8820 ClientLeft = 120 ClientTop = 420 ClientWidth = 10350 LinkTopic = "Form1" ScaleHeight = 8820 ScaleWidth = 10350 StartUpPosition = 3 'Windows-Standard Begin VB.Frame Frame1 Caption = "Personliche Daten" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 2925 Left = 480 TabIndex = 11 Top = 360 Width = 8625 Begin VB.TextBox txtPin2 Height = 405 IMEMode = 3 'DISABLE Left = 6990 PasswordChar = "*" TabIndex = 54 Top = 840 Width = 1215 End Begin VB.TextBox txtPin1 Height = 375 IMEMode = 3 'DISABLE Left = 6960 TabIndex = 8 Top = 360 Width = 1245 End Begin VB.TextBox txtStrasse Height = 285 Left = 2925 TabIndex = 3 Top = 675 Width = 2370 End Begin VB.TextBox txtOrt BeginProperty DataFormat Type = 0 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 0 EndProperty Height = 285 Left = 1950 TabIndex = 2 Top = 675 Width = 705 End Begin VB.TextBox txtTelefon BeginProperty DataFormat Type = 1 Format = "0,00%" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 5 EndProperty Height = 315 Left = 1875 TabIndex = 5 Top = 1500 Width = 2325 End Begin VB.TextBox txtNachname Height = 315 Left = 2160 TabIndex = 0 Top = 300 Width = 1545 End Begin VB.TextBox txtVorname Height = 315 Left = 3750 TabIndex = 1 Top = 225 Width = 1560 End Begin VB.TextBox txtMobil Height = 360 Left = 1800 TabIndex = 6 Top = 1920 Width = 2220 End Begin VB.TextBox txtEmail Height = 375 Left = 1800 TabIndex = 7 Top = 2400 Width = 2370 End Begin VB.TextBox txtLand Height = 285 Left = 1920 TabIndex = 4 Top = 1320 Width = 2535 End Begin VB.Label lblAdresse Caption = "Ort / Straße:" Height = 240 Left = 150 TabIndex = 19 Top = 750 Width = 1545 End Begin VB.Label lblEmail Caption = "E-mail:" Height = 240 Left = 300 TabIndex = 18 Top = 2475 Width = 1485 End Begin VB.Label lblName AutoSize = -1 'True Caption = "Nachname/Vorname:" Height = 195 Left = 75 TabIndex = 17 Top = 225 Width = 1530 End Begin VB.Label lblTelefon Caption = "Telefon:" Height = 240 Left = 300 TabIndex = 16 Top = 1725 Width = 1155 End Begin VB.Label lblMobil Caption = "Mobil:" Height = 240 Left = 300 TabIndex = 15 Top = 2100 Width = 1155 End Begin VB.Label lblLand Caption = "Land:" Height = 240 Left = 375 TabIndex = 14 Top = 1200 Width = 1155 End Begin VB.Label lblPin1 AutoSize = -1 'True Caption = "Pin 1:" Height = 195 Left = 5925 TabIndex = 13 Top = 450 Width = 405 End Begin VB.Label lblPin2 Caption = "Pin 2:" Height = 240 Left = 6120 TabIndex = 12 Top = 990 Width = 630 End End Begin VB.CommandButton cmdSpeichern Caption = "Speichern" Height = 495 Left = 7080 TabIndex = 10 Top = 3360 Width = 1305 End Begin VB.CommandButton cmdAbbrechen Caption = "Abbrechen" Height = 495 Left = 5520 TabIndex = 9 Top = 3360 Width = 1305 End Begin TabDlg.SSTab SSTab1 Height = 4545 Left = 120 TabIndex = 20 Top = 3960 Width = 9840 _ExtentX = 17357 _ExtentY = 8017 _Version = 393216 TabHeight = 520 TabCaption(0) = "Mitarbeiterrechte - Kasse" TabPicture(0) = "frmKellnerKartei.frx":0000 Tab(0).ControlEnabled= -1 'True Tab(0).Control(0)= "Frame2" Tab(0).Control(0).Enabled= 0 'False Tab(0).ControlCount= 1 TabCaption(1) = "Mitarbeiterrechte - MENU" TabPicture(1) = "frmKellnerKartei.frx":001C Tab(1).ControlEnabled= 0 'False Tab(1).Control(0)= "Frame3" Tab(1).ControlCount= 1 TabCaption(2) = "Mitarbeiterrechte -Verwaltung" TabPicture(2) = "frmKellnerKartei.frx":0038 Tab(2).ControlEnabled= 0 'False Tab(2).Control(0)= "Frame4" Tab(2).ControlCount= 1 Begin VB.Frame Frame2 Caption = "Frame2" Height = 3465 Left = 375 TabIndex = 46 Top = 375 Width = 7140 Begin VB.CheckBox CheckKasse Caption = "CheckKasse" Height = 315 Index = 8 Left = 390 TabIndex = 57 Top = 2970 Width = 1815 End Begin VB.CheckBox CheckKasse Caption = "CheckKasse" Height = 315 Index = 7 Left = 420 TabIndex = 56 Top = 2640 Width = 1815 End Begin VB.CheckBox CheckKasse BackColor = &H80000011& Caption = "CheckKasse" Height = 315 Index = 0 Left = 450 TabIndex = 53 Top = 300 Width = 1815 End Begin VB.CheckBox CheckKasse Caption = "CheckKasse" Height = 315 Index = 1 Left = 450 TabIndex = 52 Top = 690 Width = 1815 End Begin VB.CheckBox CheckKasse Caption = "CheckKasse" Height = 315 Index = 2 Left = 450 TabIndex = 51 Top = 990 Width = 1815 End Begin VB.CheckBox CheckKasse Caption = "CheckKasse" Height = 315 Index = 3 Left = 450 TabIndex = 50 Top = 1260 Width = 1815 End Begin VB.CheckBox CheckKasse Caption = "CheckKasse" Height = 315 Index = 5 Left = 420 TabIndex = 49 Top = 1920 Width = 1815 End Begin VB.CheckBox CheckKasse Caption = "CheckKasse" Height = 315 Index = 6 Left = 420 TabIndex = 48 Top = 2310 Width = 1815 End Begin VB.CheckBox CheckKasse Caption = "CheckKasse" Height = 315 Index = 4 Left = 420 TabIndex = 47 Top = 1560 Width = 1815 End End Begin VB.Frame Frame3 Caption = "Frame3" Height = 3465 Left = -74400 TabIndex = 33 Top = 960 Width = 7140 Begin VB.CheckBox CheckMENU BackColor = &H80000011& Caption = "CheckMENU" Height = 315 Index = 0 Left = 375 TabIndex = 45 Top = 300 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "Systemkonfiguration" Height = 315 Index = 1 Left = 375 TabIndex = 44 Top = 825 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "Rechnungsübersicht" Height = 315 Index = 2 Left = 375 TabIndex = 43 Top = 1200 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "sein Eigenes" Height = 315 Index = 3 Left = 720 TabIndex = 42 Top = 1560 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "alles" Height = 315 Index = 4 Left = 675 TabIndex = 41 Top = 1920 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "Zahlart aendern" Height = 315 Index = 5 Left = 675 TabIndex = 40 Top = 2325 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "korrigieren" Height = 315 Index = 6 Left = 675 TabIndex = 39 Top = 2700 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "Kassenbericht" Height = 315 Index = 7 Left = 4200 TabIndex = 38 Top = 525 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "Stationbericht" Height = 315 Index = 8 Left = 4200 TabIndex = 37 Top = 975 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "Kellnerbericht" Height = 315 Index = 9 Left = 4200 TabIndex = 36 Top = 1425 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "sein eigenes" Height = 315 Index = 10 Left = 4440 TabIndex = 35 Top = 1800 Width = 1815 End Begin VB.CheckBox CheckMENU Caption = "alles" Height = 315 Index = 11 Left = 4440 TabIndex = 34 Top = 2160 Width = 1815 End End Begin VB.Frame Frame4 Caption = "Frame4" Height = 3465 Left = -74520 TabIndex = 21 Top = 600 Width = 8940 Begin VB.CheckBox CheckVerwaltung Caption = "Mitarbeiterkartei Uneingeschrenkt" Height = 315 Index = 7 Left = 840 TabIndex = 55 Top = 2880 Width = 2775 End Begin VB.CheckBox CheckVerwaltung Caption = "Stationen" Height = 315 Index = 1 Left = 450 TabIndex = 32 Top = 825 Width = 1815 End Begin VB.CheckBox CheckVerwaltung BackColor = &H80000011& Caption = "CheckVerwaltung" Height = 315 Index = 0 Left = 450 TabIndex = 31 Top = 300 Width = 1815 End Begin VB.CheckBox CheckVerwaltung Caption = "Mitarbeieter" Height = 315 Index = 2 Left = 450 TabIndex = 30 Top = 1200 Width = 1815 End Begin VB.CheckBox CheckVerwaltung Caption = "Mitarbeiter sperren" Height = 315 Index = 3 Left = 840 TabIndex = 29 Top = 1560 Width = 1815 End Begin VB.CheckBox CheckVerwaltung Caption = "Stationen Aktivieren" Height = 315 Index = 4 Left = 840 TabIndex = 28 Top = 1920 Width = 1815 End Begin VB.CheckBox CheckVerwaltung Caption = "nur Eigene Persönliche Daten" Height = 315 Index = 5 Left = 840 TabIndex = 27 Top = 2280 Width = 2535 End Begin VB.CheckBox CheckVerwaltung Caption = "auch andere Persönliche Daten" Height = 315 Index = 6 Left = 840 TabIndex = 26 Top = 2520 Width = 2775 End Begin VB.CheckBox CheckVerwaltung Caption = "Speisekarte" Height = 315 Index = 8 Left = 4920 TabIndex = 25 Top = 480 Width = 1815 End Begin VB.CheckBox CheckVerwaltung Caption = "Direktwahl" Height = 315 Index = 9 Left = 4920 TabIndex = 24 Top = 960 Width = 1815 End Begin VB.CheckBox CheckVerwaltung Caption = "Kreditkarten" Height = 315 Index = 10 Left = 4920 TabIndex = 23 Top = 1320 Width = 1815 End Begin VB.CheckBox CheckVerwaltung Caption = "freie berichte" Height = 315 Index = 11 Left = 4920 TabIndex = 22 Top = 1800 Width = 1815 End End End End Attribute VB_Name = "frmKellnerKartei" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim VarMitarbeiterBearbeiten As Boolean '================== FORMULAR EREIGNISSE =================== '============================================================ Private Sub Form_Load() End Sub '===================== COMMANDBUTTUN EREIGNISSE ==================== '================================================================= Private Sub cmdAbbrechen_Click() Unload Me End Sub Private Sub CmdSpeichern_Click() If Me.txtVorname.Text = "" And Me.txtNachname.Text = "" Then MsgBox "Es muss ein 'Vorname' oder 'Nachname' ins Feld eingegeben werden" Exit Sub ElseIf Me.txtPin1.Text = "" Then MsgBox "Es muss 'Pin1' ins Feld eingegeben werden" Exit Sub ElseIf Me.txtPin2.Text = "" Then MsgBox "Es muss 'Pin2' ins Feld eingegeben werden" Exit Sub End If If Me.txtVorname.Text = "" And Me.txtNachname.Text <> "" Then VarMitarbeiter = Me.txtNachname.Text ElseIf Me.txtVorname.Text <> "" And Me.txtNachname.Text = "" Then VarMitarbeiter = txtVorname.Text Else VarMitarbeiter = Me.txtVorname.Text & " " & Me.txtNachname.Text End If If VarMitarbeiterBearbeiten = True Then If DatensatzPrueffenMitarbeiterBearbeiten(VarMitarbeiter, Me.txtPin1.Text, Me.txtPin2.Text) Then Exit Sub End If Else If DatensatzPrueffenNeuerMitarbeiter(VarMitarbeiter, Me.txtPin1.Text, Me.txtPin2.Text) Then Exit Sub End If End If Select Case Me.Tag Case "MitarbeiterBearbeitenNurPersoenlicheDaten" Call Me.MitarbeiterBearbeitenNurPersoenlicheDatenSpeichern Case "MitarbeiterBearbeitenUneingeschrenkt" Call Me.MitarbeiterBearbeitenUneingeschrenktSpeichern Case "NeuerMitarbeiterUneingeschrenkt" Call Me.NeuerMitarbeiterUneingeschrenktSpeichern Case "NeuerMitarbeiterNurPersoenlicheDaten" Call Me.NeuerMitarbeiterNurPerseonlicheDatenSpeichern End Select Call frmKellner.ListViewKellnerFuelen 'ListViewKellner wird aktualisiert Unload Me End Sub '================== CHECKBOX EREIGNISSE =================== '============================================================ Private Sub CheckKasse_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) If Index = 0 Then Select Case Me.CheckKasse.Item(Index).Value Case 0 For I = 1 To Me.CheckKasse.Count - 1 Me.CheckKasse.Item(I).Value = 0 Me.CheckKasse.Item(I).Enabled = False Next I Case 1 For I = 1 To Me.CheckKasse.Count - 1 Select Case I Case 3, 4, 5, 7, 8 Me.CheckKasse.Item(I).Value = 0 Case Else Me.CheckKasse.Item(I).Value = 1 End Select Me.CheckKasse.Item(I).Enabled = True Next I End Select Else Select Case Me.CheckKasse.Item(Index).Value Case 0 Me.CheckKasse.Item(Index).Value = 0 Case 1 Me.CheckKasse.Item(Index).Value = 1 End Select End If End Sub Private Sub CheckMENU_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) If Index = 0 Then Select Case Me.CheckMENU.Item(Index).Value Case 0 For I = 1 To Me.CheckMENU.Count - 1 Me.CheckMENU.Item(I).Value = 0 Me.CheckMENU.Item(I).Enabled = False Next I Case 1 For I = 1 To Me.CheckMENU.Count - 1 Select Case I Case 1, 4, 6, 7, 8, 11 Me.CheckMENU.Item(I).Value = 0 Case Else Me.CheckMENU.Item(I).Value = 1 End Select Me.CheckMENU.Item(I).Enabled = True Next I End Select ElseIf Index = 2 Then Select Case Me.CheckMENU.Item(Index).Value Case 0 For I = 3 To 6 Me.CheckMENU.Item(I).Value = 1 If I = 4 Then Me.CheckMENU.Item(I).Value = 0 Me.CheckMENU.Item(I).Enabled = True Next I Case 1 For I = 3 To 6 Me.CheckMENU.Item(I).Value = 0 Me.CheckMENU.Item(I).Enabled = False Next I End Select ElseIf Index = 3 Then Select Case Me.CheckMENU.Item(Index).Value Case 0 Me.CheckMENU.Item(4).Value = 0 Case 1 Me.CheckMENU.Item(4).Value = 1 End Select ElseIf Index = 4 Then Select Case Me.CheckMENU.Item(Index).Value Case 0 Me.CheckMENU.Item(3).Value = 0 Case 1 Me.CheckMENU.Item(3).Value = 1 End Select ElseIf Index = 9 Then Select Case Me.CheckMENU.Item(Index).Value Case 0 For I = 10 To 11 Me.CheckMENU.Item(I).Value = 1 If I = 10 Then Me.CheckMENU.Item(I).Value = 0 Me.CheckMENU.Item(I).Enabled = True Next I Case 1 For I = 10 To 11 Me.CheckMENU.Item(I).Value = 0 Me.CheckMENU.Item(I).Enabled = False Next I End Select ElseIf Index = 10 Then Select Case Me.CheckMENU.Item(Index).Value Case 0 Me.CheckMENU.Item(11).Value = 0 Case 1 Me.CheckMENU.Item(11).Value = 1 End Select ElseIf Index = 11 Then Select Case Me.CheckMENU.Item(Index).Value Case 0 Me.CheckMENU.Item(10).Value = 0 Case 1 Me.CheckMENU.Item(10).Value = 1 End Select Else Select Case Me.CheckMENU.Item(Index).Value Case 0 Me.CheckMENU.Item(Index).Value = 0 Case 1 Me.CheckMENU.Item(Index).Value = 1 End Select End If End Sub Private Sub CheckVerwaltung_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) If Index = 0 Then Select Case Me.CheckVerwaltung.Item(Index).Value Case 0 For I = 1 To Me.CheckVerwaltung.Count - 1 Me.CheckVerwaltung.Item(I).Value = 0 Me.CheckVerwaltung.Item(I).Enabled = False Next I Case 1 For I = 1 To Me.CheckVerwaltung.Count - 1 Select Case I Case 1, 3, 4, 6, 7, 8, 9, 10, 11 Me.CheckVerwaltung.Item(I).Value = 0 Case Else Me.CheckVerwaltung.Item(I).Value = 1 End Select Me.CheckVerwaltung.Item(I).Enabled = True Next I End Select ElseIf Index = 2 Then Select Case Me.CheckVerwaltung.Item(Index).Value Case 0 For I = 3 To 7 Me.CheckVerwaltung.Item(I).Value = 1 If I = 6 Or I = 7 Then Me.CheckVerwaltung.Item(I).Value = 0 Me.CheckVerwaltung.Item(I).Enabled = True Next I Case 1 For I = 3 To 7 Me.CheckVerwaltung.Item(I).Value = 0 Me.CheckVerwaltung.Item(I).Enabled = False Next I End Select ElseIf Index = 5 Then Select Case Me.CheckVerwaltung.Item(Index).Value Case 0 Me.CheckVerwaltung.Item(6).Value = 0 Me.CheckVerwaltung.Item(7).Value = 0 Case 1 'Me.CheckVerwaltung.Item(6).Value = 1 End Select ElseIf Index = 6 Then Select Case Me.CheckVerwaltung.Item(Index).Value Case 0 Me.CheckVerwaltung.Item(5).Value = 0 Me.CheckVerwaltung.Item(7).Value = 0 Case 1 Me.CheckVerwaltung.Item(5).Value = 1 End Select ElseIf Index = 7 Then Select Case Me.CheckVerwaltung.Item(Index).Value Case 0 Me.CheckVerwaltung.Item(5).Value = 0 Me.CheckVerwaltung.Item(6).Value = 0 Case 1 'Me.CheckVerwaltung.Item().Value = 1 End Select Else Select Case Me.CheckVerwaltung.Item(Index).Value Case 0 Me.CheckVerwaltung.Item(Index).Value = 0 Case 1 Me.CheckVerwaltung.Item(Index).Value = 1 End Select End If End Sub '========================== PROEDUREN ========================== '================================================================= '---------Tabelle BearbeitenPersönlicheDatenZeigen------------- Sub MitarbeiterBearbeitenNurPersoenlicheDatenZeigen() VarMitarbeiterBearbeiten = True Dim objConn As ADODB.Connection Dim rsBearbeitenZeigen As ADODB.Recordset Set objConn = New ADODB.Connection Set rsBearbeitenZeigen = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsBearbeitenZeigen .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner WHERE Mitarbeiter='" & frmKellner.ListViewKellner.SelectedItem.Text & "'" End With If Not rsBearbeitenZeigen.EOF = True Then 'Wenn Warengruppe vorhanden eintragen im Recordset Me.txtNachname.Text = rsBearbeitenZeigen.Fields("Nachname").Value Me.txtVorname.Text = rsBearbeitenZeigen.Fields("Vorname").Value Me.txtStrasse.Text = rsBearbeitenZeigen.Fields("Straße").Value Me.txtOrt.Text = rsBearbeitenZeigen.Fields("Ort").Value Me.txtLand.Text = rsBearbeitenZeigen.Fields("Land").Value Me.txtTelefon.Text = rsBearbeitenZeigen.Fields("Telefon").Value Me.txtMobil.Text = rsBearbeitenZeigen.Fields("Mobil").Value Me.txtEmail.Text = rsBearbeitenZeigen.Fields("Email").Value Me.txtPin1.Text = rsBearbeitenZeigen.Fields("Pin1").Value Me.txtPin2 = rsBearbeitenZeigen.Fields("Pin2").Value '---->Fields("KellnerAuswahl").Value wird direkt bei Maus_Down Ereignis 'gespeichert oder Aktualisiert 'über Function " modListItemCheck.LvwListItemCheck(ListViewKellner, X, Y)" ' bzw " modListSubItemCheck.LvwListSubItemCheck ListViewKellner, X, Y rsBearbeitenZeigen.Update End If Set rsBearbeitenZeigen = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsBearbeitenZeigen = Nothing Set objConn = Nothing End Sub '---------Tabelle BearbeitenUneingeschrenktZeigen------------- Sub MitarbeiterBearbeitenUneingeschrenktZeigen() VarMitarbeiterBearbeiten = True Dim objConn As ADODB.Connection Dim rsBearbeitenZeigen As ADODB.Recordset Set objConn = New ADODB.Connection Set rsBearbeitenZeigen = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsBearbeitenZeigen .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner WHERE Mitarbeiter='" & frmKellner.ListViewKellner.SelectedItem.Text & "'" End With If Not rsBearbeitenZeigen.EOF = True Then 'Wenn Warengruppe vorhanden eintragen im Recordset Me.txtNachname.Text = rsBearbeitenZeigen.Fields("Nachname").Value Me.txtVorname.Text = rsBearbeitenZeigen.Fields("Vorname").Value Me.txtStrasse.Text = rsBearbeitenZeigen.Fields("Straße").Value Me.txtOrt.Text = rsBearbeitenZeigen.Fields("Ort").Value Me.txtLand.Text = rsBearbeitenZeigen.Fields("Land").Value Me.txtTelefon.Text = rsBearbeitenZeigen.Fields("Telefon").Value Me.txtMobil.Text = rsBearbeitenZeigen.Fields("Mobil").Value Me.txtEmail.Text = rsBearbeitenZeigen.Fields("Email").Value Me.txtPin1.Text = rsBearbeitenZeigen.Fields("Pin1").Value Me.txtPin2.Text = rsBearbeitenZeigen.Fields("Pin2").Value '---->Fields("KellnerAuswahl").Value wird direkt bei Maus_Down Ereignis 'gespeichert oder Aktualisiert 'über Function " modListItemCheck.LvwListItemCheck(ListViewKellner, X, Y)" ' bzw " modListSubItemCheck.LvwListSubItemCheck ListViewKellner, X, Y 'Kasse Checkbox___________________________________ k = 0 For I = 14 To 22 Me.CheckKasse.Item(k).Value = Abs(CInt(rsBearbeitenZeigen.Fields(I).Value)) k = k + 1 Next I If Me.CheckKasse.Item(0).Value = 1 Then For k = 1 To Me.CheckKasse.UBound Me.CheckKasse.Item(k).Enabled = False Next k End If 'MENU Checkbox____________________________________ k = 0 For I = 23 To 34 Me.CheckMENU.Item(k).Value = Abs(CInt(rsBearbeitenZeigen.Fields(I).Value)) k = k + 1 Next I If Me.CheckMENU.Item(0).Value = 1 Then For k = 1 To Me.CheckMENU.UBound Me.CheckMENU.Item(k).Enabled = False Next k End If 'Verwaltung Checkbox_______________________________________ k = 0 For I = 35 To 46 Me.CheckVerwaltung.Item(k).Value = Abs(CInt(rsBearbeitenZeigen.Fields(I).Value)) k = k + 1 Next I If Me.CheckVerwaltung.Item(0).Value = 1 Then For k = 1 To Me.CheckVerwaltung.UBound Me.CheckVerwaltung.Item(k).Enabled = False Next k End If End If Set rsBearbeitenZeigen = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsBearbeitenZeigen = Nothing Set objConn = Nothing End Sub '---------Tabelle MitarbeiterBearbeiten prüffen------------- Function DatensatzPrueffenMitarbeiterBearbeiten(VarMitarbeiterLokal, VarPin1Lokal, VarPin2Lokal) As Boolean Dim objConn As ADODB.Connection Dim rsDatensatzPrueffen As ADODB.Recordset Set objConn = New ADODB.Connection Set rsDatensatzPrueffen = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsDatensatzPrueffen .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner" End With While Not rsDatensatzPrueffen.EOF = True If rsDatensatzPrueffen.Fields("Mitarbeiter").Value = VarMitarbeiterLokal And Not VarMitarbeiterLokal = frmKellner.ListViewKellner.SelectedItem.Text Then MsgBox "Dieser Mitarbeiter existiert bereits" DatensatzPrueffenBearbeiten = True GoTo 10 ElseIf rsDatensatzPrueffen.Fields("Pin1").Value = VarPin1Lokal And Not rsDatensatzPrueffen.Fields("Mitarbeiter").Value = VarMitarbeiterLokal Then MsgBox "Eintrag von Pin1 ist nicht erlaubt. Bitte geben Sie erneut ein anderes Pin ein." DatensatzPrueffenBearbeiten = True GoTo 10 ElseIf rsDatensatzPrueffen.Fields("Pin2").Value = VarPin2Lokal And Not rsDatensatzPrueffen.Fields("Mitarbeiter").Value = VarMitarbeiterLokal Then MsgBox "Eintrag von Pin2 ist nicht erlaubt. Bitte geben Sie erneut ein anderes Pin ein." DatensatzPrueffenBearbeiten = True GoTo 10 End If rsDatensatzPrueffen.MoveNext Wend 10 Set rsDatensatzPrueffen = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Function err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsDatensatzPrueffen = Nothing Set objConn = Nothing End Function '---------Tabelle MitarbeiterBearbeiten Persönliche Daten Speichern------------- Sub MitarbeiterBearbeitenNurPersoenlicheDatenSpeichern() Dim objConn As ADODB.Connection Dim rsBearbeitenSpeichern As ADODB.Recordset Set objConn = New ADODB.Connection Set rsBearbeitenSpeichern = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsBearbeitenSpeichern .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner WHERE Mitarbeiter='" & frmKellner.ListViewKellner.SelectedItem.Text & "'" End With If Not rsBearbeitenSpeichern.EOF = True Then 'Wenn Warengruppe vorhanden eintragen im Recordset rsBearbeitenSpeichern.Fields("Nachname").Value = Me.txtNachname.Text rsBearbeitenSpeichern.Fields("Vorname").Value = Me.txtVorname.Text rsBearbeitenSpeichern.Fields("Straße").Value = Me.txtStrasse.Text rsBearbeitenSpeichern.Fields("Ort").Value = Me.txtOrt.Text rsBearbeitenSpeichern.Fields("Land").Value = Me.txtLand.Text rsBearbeitenSpeichern.Fields("Telefon").Value = Me.txtTelefon.Text rsBearbeitenSpeichern.Fields("Mobil").Value = Me.txtMobil.Text rsBearbeitenSpeichern.Fields("Email").Value = Me.txtEmail.Text rsBearbeitenSpeichern.Fields("Pin1").Value = Me.txtPin1.Text rsBearbeitenSpeichern.Fields("Pin2").Value = Me.txtPin2.Text '---->Fields("KellnerAuswahl").Value wird direkt bei Maus_Down Ereignis 'gespeichert oder Aktualisiert 'über Function " modListItemCheck.LvwListItemCheck(ListViewKellner, X, Y)" ' bzw " modListSubItemCheck.LvwListSubItemCheck ListViewKellner, X, Y rsBearbeitenSpeichern.Update End If Set rsBearbeitenSpeichern = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsBearbeitenSpeichern = Nothing Set objConn = Nothing End Sub '---------Tabelle MitarbeiterBearbeiten Uneingeschrenkt Speichern------------- Sub MitarbeiterBearbeitenUneingeschrenktSpeichern() Dim objConn As ADODB.Connection Dim rsBearbeitenSpeichern As ADODB.Recordset Set objConn = New ADODB.Connection Set rsBearbeitenSpeichern = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsBearbeitenSpeichern .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner WHERE Mitarbeiter='" & frmKellner.ListViewKellner.SelectedItem.Text & "'" End With If Not rsBearbeitenSpeichern.EOF = True Then 'Wenn Mitarbeiter vorhanden(weil ist ausgewählt ist auch vorhanden) eintragen im Recordset If Me.txtVorname.Text = "" And Me.txtNachname.Text <> "" Then rsBearbeitenSpeichern.Fields("Mitarbeiter").Value = Me.txtNachname.Text ElseIf Me.txtVorname.Text <> "" And Me.txtNachname.Text = "" Then rsBearbeitenSpeichern.Fields("Mitarbeiter").Value = txtVorname.Text Else rsBearbeitenSpeichern.Fields("Mitarbeiter").Value = Me.txtVorname.Text & " " & Me.txtNachname.Text End If rsBearbeitenSpeichern.Fields("Nachname").Value = Me.txtNachname.Text rsBearbeitenSpeichern.Fields("Vorname").Value = Me.txtVorname.Text rsBearbeitenSpeichern.Fields("Straße").Value = Me.txtStrasse.Text rsBearbeitenSpeichern.Fields("Ort").Value = Me.txtOrt.Text rsBearbeitenSpeichern.Fields("Land").Value = Me.txtLand.Text rsBearbeitenSpeichern.Fields("Telefon").Value = Me.txtTelefon.Text rsBearbeitenSpeichern.Fields("Mobil").Value = Me.txtMobil.Text rsBearbeitenSpeichern.Fields("Email").Value = Me.txtEmail.Text rsBearbeitenSpeichern.Fields("Pin1").Value = Me.txtPin1.Text rsBearbeitenSpeichern.Fields("Pin2").Value = Me.txtPin2.Text '---->Fields("KellnerAuswahl").Value wird direkt bei Maus_Down Ereignis 'gespeichert oder Aktualisiert 'über Function " modListItemCheck.LvwListItemCheck(ListViewKellner, X, Y)" ' bzw " modListSubItemCheck.LvwListSubItemCheck ListViewKellner, X, Y k = 0 For I = 14 To 22 rsBearbeitenSpeichern.Fields(I).Value = CBool(Me.CheckKasse.Item(k).Value) k = k + 1 Next I k = 0 For I = 23 To 34 rsBearbeitenSpeichern.Fields(I).Value = CBool(Me.CheckMENU.Item(k).Value) k = k + 1 Next I k = 0 For I = 35 To 46 rsBearbeitenSpeichern.Fields(I).Value = CBool(Me.CheckVerwaltung.Item(k).Value) k = k + 1 Next I 'For I = 41 To rsBearbeitenSpeichern.RecordCount - 1 ' k = 1 ' rsBearbeitenSpeichern.Fields(I).Value = frmKellner.ListViewKellner.ListItems.Item(k).Checked ' k = k + 1 'Next I rsBearbeitenSpeichern.Update End If Set rsBearbeitenSpeichern = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsBearbeitenSpeichern = Nothing Set objConn = Nothing End Sub '--------- Neuer Mitarbeiter prüffen------------- Function DatensatzPrueffenNeuerMitarbeiter(VarMitarbeiterLokal, VarPin1Lokal, VarPin2Lokal) As Boolean Dim objConn As ADODB.Connection Dim rsDatensatzPrueffen As ADODB.Recordset Set objConn = New ADODB.Connection Set rsDatensatzPrueffen = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsDatensatzPrueffen .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner" End With While Not rsDatensatzPrueffen.EOF = True If rsDatensatzPrueffen.Fields("Mitarbeiter").Value = VarMitarbeiterLokal Then MsgBox "Dieser Mitarbeiter existiert bereits" DatensatzPrueffenNeuerMitarbeiter = True GoTo 10 ElseIf rsDatensatzPrueffen.Fields("Pin1").Value = VarPin1Lokal Then MsgBox "Eintrag von Pin1 ist nicht erlaubt" DatensatzPrueffenNeuerMitarbeiter = True GoTo 10 ElseIf rsDatensatzPrueffen.Fields("Pin2").Value = VarPin2Lokal Then MsgBox "Eintrag von Pin2 ist nicht erlaubt" DatensatzPrueffenNeuerMitarbeiter = True GoTo 10 Else DatensatzPrueffenNeuerMitarbeiter = False End If rsDatensatzPrueffen.MoveNext Wend 10 Set rsDatensatzPrueffen = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Function err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsDatensatzPrueffen = Nothing Set objConn = Nothing End Function '--------- Neuer Mitarbeiter speichern------------- Sub NeuerMitarbeiterUneingeschrenktSpeichern() Dim objConn As ADODB.Connection Dim rsNeuerMitarbeiterSpeichern As ADODB.Recordset Set objConn = New ADODB.Connection Set rsNeuerMitarbeiterSpeichern = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsNeuerMitarbeiterSpeichern .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner" End With If Me.txtVorname.Text = "" And Me.txtNachname.Text <> "" Then VarMitarbeiterLokal = Me.txtNachname.Text ElseIf Me.txtVorname.Text <> "" And Me.txtNachname.Text = "" Then VarMitarbeiterLokal = txtVorname.Text Else VarMitarbeiterLokal = Me.txtVorname.Text & " " & Me.txtNachname.Text End If rsNeuerMitarbeiterSpeichern.AddNew For I = 1 To 13 rsNeuerMitarbeiterSpeichern.Fields(I).Value = "" Next I rsNeuerMitarbeiterSpeichern.Fields("Mitarbeiter").Value = VarMitarbeiterLokal rsNeuerMitarbeiterSpeichern.Fields("Nachname").Value = Me.txtNachname.Text rsNeuerMitarbeiterSpeichern.Fields("Vorname").Value = Me.txtVorname.Text rsNeuerMitarbeiterSpeichern.Fields("Straße").Value = Me.txtStrasse.Text rsNeuerMitarbeiterSpeichern.Fields("Ort").Value = Me.txtOrt.Text rsNeuerMitarbeiterSpeichern.Fields("Land").Value = Me.txtLand.Text rsNeuerMitarbeiterSpeichern.Fields("Telefon").Value = Me.txtTelefon.Text rsNeuerMitarbeiterSpeichern.Fields("Mobil").Value = Me.txtMobil.Text rsNeuerMitarbeiterSpeichern.Fields("Email").Value = Me.txtEmail.Text rsNeuerMitarbeiterSpeichern.Fields("Pin1").Value = Me.txtPin1.Text rsNeuerMitarbeiterSpeichern.Fields("Pin2").Value = Me.txtPin2.Text '---->Fields("KellnerAuswahl").Value wird direkt bei Maus_Down Ereignis 'gespeichert oder Aktualisiert 'über Function " modListItemCheck.LvwListItemCheck(ListViewKellner, X, Y)" ' bzw " modListSubItemCheck.LvwListSubItemCheck ListViewKellner, X, Y k = 0 For I = 14 To 22 rsNeuerMitarbeiterSpeichern.Fields(I).Value = CBool(Me.CheckKasse.Item(k).Value) k = k + 1 Next I k = 0 For I = 23 To 34 rsNeuerMitarbeiterSpeichern.Fields(I).Value = CBool(Me.CheckMENU.Item(k).Value) k = k + 1 Next I k = 0 For I = 35 To 46 rsNeuerMitarbeiterSpeichern.Fields(I).Value = CBool(Me.CheckVerwaltung.Item(k).Value) k = k + 1 Next I 'For I = 41 To rsNeuerMitarbeiterSpeichern.RecordCount - 1 ' k = 1 ' rsNeuerMitarbeiterSpeichern.Fields(I).Value = frmKellner.ListViewKellner.ListItems.Item(k).Checked ' k = k + 1 'Next I rsNeuerMitarbeiterSpeichern.Update Set rsNeuerMitarbeiterSpeichern = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsNeuerMitarbeiterSpeichern = Nothing Set objConn = Nothing End Sub Sub NeuerMitarbeiterNurPerseonlicheDatenSpeichern() Dim objConn As ADODB.Connection Dim rsNeuerMitarbeiterSpeichern As ADODB.Recordset Set objConn = New ADODB.Connection Set rsNeuerMitarbeiterSpeichern = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsNeuerMitarbeiterSpeichern .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner" End With If Me.txtVorname.Text = "" And Me.txtNachname.Text <> "" Then VarMitarbeiterLokal = Me.txtNachname.Text ElseIf Me.txtVorname.Text <> "" And Me.txtNachname.Text = "" Then VarMitarbeiterLokal = txtVorname.Text Else VarMitarbeiterLokal = Me.txtVorname.Text & " " & Me.txtNachname.Text End If rsNeuerMitarbeiterSpeichern.AddNew For I = 1 To 13 rsNeuerMitarbeiterSpeichern.Fields(I).Value = "" Next I rsNeuerMitarbeiterSpeichern.Fields("Mitarbeiter").Value = VarMitarbeiterLokal rsNeuerMitarbeiterSpeichern.Fields("Nachname").Value = Me.txtNachname.Text rsNeuerMitarbeiterSpeichern.Fields("Vorname").Value = Me.txtVorname.Text rsNeuerMitarbeiterSpeichern.Fields("Straße").Value = Me.txtStrasse.Text rsNeuerMitarbeiterSpeichern.Fields("Ort").Value = Me.txtOrt.Text rsNeuerMitarbeiterSpeichern.Fields("Land").Value = Me.txtLand.Text rsNeuerMitarbeiterSpeichern.Fields("Telefon").Value = Me.txtTelefon.Text rsNeuerMitarbeiterSpeichern.Fields("Mobil").Value = Me.txtMobil.Text rsNeuerMitarbeiterSpeichern.Fields("Email").Value = Me.txtEmail.Text rsNeuerMitarbeiterSpeichern.Fields("Pin1").Value = Me.txtPin1.Text rsNeuerMitarbeiterSpeichern.Fields("Pin2").Value = Me.txtPin2.Text '---->Fields("KellnerAuswahl").Value wird direkt bei Maus_Down Ereignis 'gespeichert oder Aktualisiert 'über Function " modListItemCheck.LvwListItemCheck(ListViewKellner, X, Y)" ' bzw " modListSubItemCheck.LvwListSubItemCheck ListViewKellner, X, Y k = 0 For I = 14 To 22 rsNeuerMitarbeiterSpeichern.Fields(I).Value = CBool(Me.CheckKasse.Item(k).Value) k = k + 1 Next I rsNeuerMitarbeiterSpeichern.Fields("FremdeTische").Value = True k = 0 For I = 23 To 34 rsNeuerMitarbeiterSpeichern.Fields(I).Value = CBool(Me.CheckMENU.Item(k).Value) k = k + 1 Next I rsNeuerMitarbeiterSpeichern.Fields("MENUSPERRE").Value = True k = 0 For I = 35 To 46 rsNeuerMitarbeiterSpeichern.Fields(I).Value = CBool(Me.CheckVerwaltung.Item(k).Value) k = k + 1 Next I rsNeuerMitarbeiterSpeichern.Fields("MitarbeiterVerwaltung").Value = True rsNeuerMitarbeiterSpeichern.Fields("MitarbeiterVerwaltungSeineKarteiPersoenlicheDaten").Value = True rsNeuerMitarbeiterSpeichern.Update Set rsNeuerMitarbeiterSpeichern = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsNeuerMitarbeiterSpeichern = Nothing Set objConn = Nothing End Sub Sub MitarbeiterLoeschen() Dim objConn As ADODB.Connection Dim rsMitarbeiterLoeschen As ADODB.Recordset Set objConn = New ADODB.Connection Set rsMitarbeiterLoeschen = New ADODB.Recordset Dim strPath As String On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & strPath & "asql.mdb" .CursorLocation = adUseClient .Open End With With rsMitarbeiterLoeschen .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *FROM Kellner WHERE Mitarbeiter='" & frmKellner.ListViewKellner.SelectedItem.Text & "'" End With If Not rsMitarbeiterLoeschen.EOF = True Then rsMitarbeiterLoeschen.Delete End If Set rsMitarbeiterLoeschen = Nothing Set objConn = Nothing exit_Sub: On Error GoTo 0 Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set rsMitarbeiterLoeschen = Nothing Set objConn = Nothing End Sub Sub PositionierenUndEinrichtenNurPersoenlicheDaten() Me.SSTab1.Visible = False AbstandRandFormular = MDIHauptmenu.ScaleHeight / 40 Me.cmdSpeichern.Height = 2 * AbstandRandFormular Me.Width = 0.85 * MDIHauptmenu.ScaleWidth - frmLink.Width Me.Height = 0.45 * MDIHauptmenu.ScaleHeight Me.Left = (MDIHauptmenu.ScaleWidth - frmLink.Width) / 2 - Me.Width / 2 Me.Top = MDIHauptmenu.ScaleHeight / 2 - Me.Height / 2 '____________________ Persönliche Daten __________________________ Me.Frame1.Top = AbstandRandFormular Me.Frame1.Left = AbstandRandFormular Me.Frame1.Width = Me.ScaleWidth - 2 * AbstandRandFormular Me.Frame1.Height = Me.ScaleHeight - Me.cmdSpeichern.Height - 2 * AbstandRandFormular Me.cmdAbbrechen.Top = Me.Frame1.Top + Frame1.Height + 0.5 * AbstandRandFormular Me.cmdAbbrechen.Left = Me.Frame1.Left + Frame1.Width - Me.cmdAbbrechen.Width Me.cmdSpeichern.Top = Me.cmdAbbrechen.Top Me.cmdSpeichern.Left = Me.cmdAbbrechen.Left - Me.cmdAbbrechen.Width - AbstandRandFormular Me.cmdSpeichern.Width = Me.cmdAbbrechen.Width Me.cmdSpeichern.Height = Me.cmdAbbrechen.Height AbstandRandFrame1 = Me.Frame1.Width / 40 AbstandZwieschenElementeFrame1 = Me.Frame1.Height / 30 Me.lblName.Left = AbstandRandFrame1 Me.lblName.Top = AbstandRandFrame1 Me.lblName.Height = (Me.Frame1.Height - 2 * AbstandRandFrame1 - 5 * AbstandZwieschenElementeFrame1) / 6 '(ist Automatisch)Me.lblName.Width = 0.18 * Frame1.Width Me.txtNachname.Left = Me.lblName.Left + Me.lblName.Width + 0.3 * AbstandRandFrame1 Me.txtNachname.Top = Me.lblName.Top Me.txtNachname.Height = Me.lblName.Height Me.txtNachname.Width = 1.2 * Me.lblName.Width Me.txtVorname.Left = Me.txtNachname.Left + Me.txtNachname.Width + 0.3 * AbstandRandFrame1 Me.txtVorname.Top = Me.txtNachname.Top Me.txtVorname.Height = Me.lblName.Height Me.txtVorname.Width = Me.txtNachname.Width Me.lblAdresse.Left = Me.lblName.Left Me.lblAdresse.Top = Me.lblName.Top + lblName.Height + AbstandZwieschenElementeFrame1 Me.lblAdresse.Height = Me.lblName.Height Me.lblAdresse.Width = Me.lblName.Width Me.txtOrt.Left = Me.txtNachname.Left Me.txtOrt.Top = Me.lblAdresse.Top Me.txtOrt.Height = Me.lblName.Height Me.txtOrt.Width = 0.5 * Me.txtNachname.Width Me.txtStrasse.Left = Me.txtOrt.Left + Me.txtOrt.Width + 0.3 * AbstandRandFrame1 Me.txtStrasse.Top = Me.txtOrt.Top Me.txtStrasse.Height = Me.txtOrt.Height Me.txtStrasse.Width = (Me.txtNachname.Width + Me.txtVorname.Width) - Me.txtOrt.Width Me.lblLand.Left = Me.lblAdresse.Left Me.lblLand.Top = Me.lblAdresse.Top + Me.lblAdresse.Height + AbstandZwieschenElementeFrame1 Me.lblLand.Height = Me.lblName.Height Me.lblLand.Width = Me.lblAdresse.Width Me.txtLand.Left = Me.txtOrt.Left Me.txtLand.Top = Me.txtOrt.Top + Me.txtOrt.Height + AbstandZwieschenElementeFrame1 Me.txtLand.Height = Me.lblName.Height Me.txtLand.Width = Me.txtNachname.Width Me.lblTelefon.Left = Me.lblLand.Left Me.lblTelefon.Top = Me.lblLand.Top + lblLand.Height + AbstandZwieschenElementeFrame1 Me.lblTelefon.Height = Me.lblName.Height Me.lblTelefon.Width = Me.lblLand.Width Me.txtTelefon.Left = Me.txtLand.Left Me.txtTelefon.Top = Me.txtLand.Top + txtLand.Height + AbstandZwieschenElementeFrame1 Me.txtTelefon.Height = Me.lblName.Height Me.txtTelefon.Width = Me.txtNachname.Width Me.lblMobil.Left = Me.lblTelefon.Left Me.lblMobil.Top = Me.lblTelefon.Top + lblTelefon.Height + AbstandZwieschenElementeFrame1 Me.lblMobil.Height = Me.lblName.Height Me.lblMobil.Width = Me.lblTelefon.Width Me.txtMobil.Left = Me.txtTelefon.Left Me.txtMobil.Top = Me.txtTelefon.Top + txtTelefon.Height + AbstandZwieschenElementeFrame1 Me.txtMobil.Height = Me.lblName.Height Me.txtMobil.Width = Me.txtNachname.Width Me.lblEmail.Left = Me.lblMobil.Left Me.lblEmail.Top = Me.lblMobil.Top + lblMobil.Height + AbstandZwieschenElementeFrame1 Me.lblEmail.Height = Me.lblName.Height Me.lblEmail.Width = Me.lblMobil.Width Me.txtEmail.Left = Me.txtMobil.Left Me.txtEmail.Top = Me.txtMobil.Top + txtMobil.Height + AbstandZwieschenElementeFrame1 Me.txtEmail.Height = Me.lblName.Height Me.txtEmail.Width = Me.txtNachname.Width Me.lblPin1.Left = Me.txtVorname.Left + Me.txtVorname.Width + 3 * AbstandRandFrame1 Me.lblPin1.Top = Me.txtMobil.Top Me.lblPin1.Height = Me.lblName.Height '(ist Automatisch) Me.lblPin1.Width = Me.txtMobil.Width Me.txtPin1.Left = Me.lblPin1.Left + Me.lblPin1.Width + 0.3 * AbstandRandFrame1 Me.txtPin1.Top = Me.lblPin1.Top Me.txtPin1.Height = Me.lblName.Height Me.txtPin1.Width = 0.7 * Me.txtEmail.Width Me.lblPIN2.Left = Me.lblPin1.Left Me.lblPIN2.Top = Me.lblPin1.Top + lblPin1.Height + AbstandZwieschenElementeFrame1 Me.lblPIN2.Height = Me.lblName.Height Me.lblPIN2.Width = Me.lblPin1.Width Me.txtPin2.Left = Me.txtPin1.Left Me.txtPin2.Top = Me.txtPin1.Top + txtPin1.Height + AbstandZwieschenElementeFrame1 Me.txtPin2.Height = Me.lblName.Height Me.txtPin2.Width = Me.txtPin1.Width End Sub Sub PositionierenUndEinrichtenUneingeschrenkt() AbstandRandFormular = MDIHauptmenu.ScaleHeight / 40 Me.cmdSpeichern.Height = 2 * AbstandRandFormular Me.Width = 0.85 * MDIHauptmenu.ScaleWidth - frmLink.Width Me.Height = 0.8 * MDIHauptmenu.ScaleHeight Me.Left = (MDIHauptmenu.ScaleWidth - frmLink.Width) / 2 - Me.Width / 2 Me.Top = MDIHauptmenu.ScaleHeight / 2 - Me.Height / 2 '____________________ Persönliche Daten __________________________ Me.Frame1.Top = AbstandRandFormular Me.Frame1.Left = AbstandRandFormular Me.Frame1.Width = Me.ScaleWidth - 2 * AbstandRandFormular Me.Frame1.Height = 0.45 * (Me.ScaleHeight - Me.cmdSpeichern.Height - 3 * AbstandRandFormular) AbstandRandFrame1 = Me.Frame1.Width / 40 AbstandZwieschenElementeFrame1 = Me.Frame1.Height / 30 Me.lblName.Left = AbstandRandFrame1 Me.lblName.Top = AbstandRandFrame1 Me.lblName.Height = (Me.Frame1.Height - 2 * AbstandRandFrame1 - 5 * AbstandZwieschenElementeFrame1) / 6 '(ist Automatisch)Me.lblName.Width = 0.18 * Frame1.Width Me.txtNachname.Left = Me.lblName.Left + Me.lblName.Width + 0.3 * AbstandRandFrame1 Me.txtNachname.Top = Me.lblName.Top Me.txtNachname.Height = Me.lblName.Height Me.txtNachname.Width = 1.2 * Me.lblName.Width Me.txtVorname.Left = Me.txtNachname.Left + Me.txtNachname.Width + 0.3 * AbstandRandFrame1 Me.txtVorname.Top = Me.txtNachname.Top Me.txtVorname.Height = Me.lblName.Height Me.txtVorname.Width = Me.txtNachname.Width Me.lblAdresse.Left = Me.lblName.Left Me.lblAdresse.Top = Me.lblName.Top + lblName.Height + AbstandZwieschenElementeFrame1 Me.lblAdresse.Height = Me.lblName.Height Me.lblAdresse.Width = Me.lblName.Width Me.txtOrt.Left = Me.txtNachname.Left Me.txtOrt.Top = Me.lblAdresse.Top Me.txtOrt.Height = Me.lblName.Height Me.txtOrt.Width = 0.5 * Me.txtNachname.Width Me.txtStrasse.Left = Me.txtOrt.Left + Me.txtOrt.Width + 0.3 * AbstandRandFrame1 Me.txtStrasse.Top = Me.txtOrt.Top Me.txtStrasse.Height = Me.txtOrt.Height Me.txtStrasse.Width = (Me.txtNachname.Width + Me.txtVorname.Width) - Me.txtOrt.Width Me.lblLand.Left = Me.lblAdresse.Left Me.lblLand.Top = Me.lblAdresse.Top + Me.lblAdresse.Height + AbstandZwieschenElementeFrame1 Me.lblLand.Height = Me.lblName.Height Me.lblLand.Width = Me.lblAdresse.Width Me.txtLand.Left = Me.txtOrt.Left Me.txtLand.Top = Me.txtOrt.Top + Me.txtOrt.Height + AbstandZwieschenElementeFrame1 Me.txtLand.Height = Me.lblName.Height Me.txtLand.Width = Me.txtNachname.Width Me.lblTelefon.Left = Me.lblLand.Left Me.lblTelefon.Top = Me.lblLand.Top + lblLand.Height + AbstandZwieschenElementeFrame1 Me.lblTelefon.Height = Me.lblName.Height Me.lblTelefon.Width = Me.lblLand.Width Me.txtTelefon.Left = Me.txtLand.Left Me.txtTelefon.Top = Me.txtLand.Top + txtLand.Height + AbstandZwieschenElementeFrame1 Me.txtTelefon.Height = Me.lblName.Height Me.txtTelefon.Width = Me.txtNachname.Width Me.lblMobil.Left = Me.lblTelefon.Left Me.lblMobil.Top = Me.lblTelefon.Top + lblTelefon.Height + AbstandZwieschenElementeFrame1 Me.lblMobil.Height = Me.lblName.Height Me.lblMobil.Width = Me.lblTelefon.Width Me.txtMobil.Left = Me.txtTelefon.Left Me.txtMobil.Top = Me.txtTelefon.Top + txtTelefon.Height + AbstandZwieschenElementeFrame1 Me.txtMobil.Height = Me.lblName.Height Me.txtMobil.Width = Me.txtNachname.Width Me.lblEmail.Left = Me.lblMobil.Left Me.lblEmail.Top = Me.lblMobil.Top + lblMobil.Height + AbstandZwieschenElementeFrame1 Me.lblEmail.Height = Me.lblName.Height Me.lblEmail.Width = Me.lblMobil.Width Me.txtEmail.Left = Me.txtMobil.Left Me.txtEmail.Top = Me.txtMobil.Top + txtMobil.Height + AbstandZwieschenElementeFrame1 Me.txtEmail.Height = Me.lblName.Height Me.txtEmail.Width = Me.txtNachname.Width Me.lblPin1.Left = Me.txtVorname.Left + Me.txtVorname.Width + 3 * AbstandRandFrame1 Me.lblPin1.Top = Me.txtMobil.Top Me.lblPin1.Height = Me.lblName.Height '(ist Automatisch) Me.lblPin1.Width = Me.txtMobil.Width Me.txtPin1.Left = Me.lblPin1.Left + Me.lblPin1.Width + 0.3 * AbstandRandFrame1 Me.txtPin1.Top = Me.lblPin1.Top Me.txtPin1.Height = Me.lblName.Height Me.txtPin1.Width = 0.7 * Me.txtEmail.Width Me.lblPIN2.Left = Me.lblPin1.Left Me.lblPIN2.Top = Me.lblPin1.Top + lblPin1.Height + AbstandZwieschenElementeFrame1 Me.lblPIN2.Height = Me.lblName.Height Me.lblPIN2.Width = Me.lblPin1.Width Me.txtPin2.Left = Me.txtPin1.Left Me.txtPin2.Top = Me.txtPin1.Top + txtPin1.Height + AbstandZwieschenElementeFrame1 Me.txtPin2.Height = Me.lblName.Height Me.txtPin2.Width = Me.txtPin1.Width '____________________ SSTab1 und CommanButton __________________________ Me.SSTab1.Visible = True Me.SSTab1.Tab = 0 Me.SSTab1.Top = Me.Frame1.Top + Me.Frame1.Height + AbstandRandFormular Me.SSTab1.Left = Me.Frame1.Left Me.SSTab1.Width = Me.Frame1.Width Me.SSTab1.Height = 0.55 * (Me.ScaleHeight - Me.cmdSpeichern.Height - 3 * AbstandRandFormular) Me.cmdAbbrechen.Top = Me.SSTab1.Top + SSTab1.Height + 0.5 * AbstandRandFormular Me.cmdAbbrechen.Left = Me.SSTab1.Left + SSTab1.Width - Me.cmdAbbrechen.Width Me.cmdSpeichern.Top = Me.cmdAbbrechen.Top Me.cmdSpeichern.Left = Me.cmdAbbrechen.Left - Me.cmdAbbrechen.Width - AbstandRandFormular Me.cmdSpeichern.Width = Me.cmdAbbrechen.Width Me.cmdSpeichern.Height = Me.cmdAbbrechen.Height '....... Rechte-Kasse ...........' AbstandRandFrame2 = AbstandRandFrame1 AbstandZwieschenElementeFrame2 = 1.3 * AbstandZwieschenElementeFrame1 Me.Frame2.Top = 1.5 * AbstandRandFrame2 Me.Frame2.Left = 0.5 * AbstandRandFrame2 Me.Frame2.Width = Me.SSTab1.Width - AbstandRandFrame2 Me.Frame2.Height = Me.SSTab1.Height - 2 * AbstandRandFrame2 Me.Frame2.BorderStyle = 0 Me.CheckKasse.Item(0).Left = AbstandRandFrame2 Me.CheckKasse.Item(0).Top = AbstandRandFrame2 Me.CheckKasse.Item(0).Height = 2 * AbstandZwieschenElementeFrame2 Me.CheckKasse.Item(0).Width = Me.Frame2.Width - 2 * AbstandRandFrame2 Me.CheckKasse.Item(0).Caption = "Kassenrechte für ausgewählten Mitarbeiter komplett deaktivieren(sperren)" Me.CheckKasse.Item(1).Left = Me.CheckKasse.Item(0).Left Me.CheckKasse.Item(1).Top = Me.CheckKasse.Item(0).Top + Me.CheckKasse.Item(0).Height + 2 * AbstandZwieschenElementeFrame2 Me.CheckKasse.Item(1).Height = Me.CheckKasse.Item(0) Me.CheckKasse.Item(1).Width = Me.Frame2.Width / 2 - AbstandRandFrame2 Me.CheckKasse.Item(1).Caption = "Mitarbeiter darf Positionen stornieren" For I = 2 To Me.CheckKasse.Count - 1 Me.CheckKasse.Item(I).Width = Me.CheckKasse.Item(I - 1).Width Me.CheckKasse.Item(I).Left = Me.CheckKasse.Item(I - 1).Left Me.CheckKasse.Item(I).Height = Me.CheckKasse.Item(I - 1).Height Me.CheckKasse.Item(I).Top = Me.CheckKasse.Item(I - 1).Top + Me.CheckKasse.Item(I - 1).Height + AbstandZwieschenElementeFrame2 Select Case I Case 2 Me.CheckKasse.Item(I).Caption = "Mitarbeiter darf Positionen umbuchen" Case 3 Me.CheckKasse.Item(I).Caption = "Mitarbeiter darf auf fremde Tische zugreifen" Case 4 Me.CheckKasse.Item(I).Caption = "Mitarbeiter darf Rabatte vergeben(Buchungen auf Haus)" Case 5 Me.CheckKasse.Item(I).Caption = "Mitarbeiter darf offene Tische löschen" End Select Next I Me.CheckKasse.Item(6).Left = Me.Frame2.Left + Me.Frame2.Width / 2 + 0.5 * AbstandRandFrame2 Me.CheckKasse.Item(6).Top = Me.CheckKasse.Item(0).Top + Me.CheckKasse.Item(0).Height + 2 * AbstandZwieschenElementeFrame2 Me.CheckKasse.Item(6).Height = Me.CheckKasse.Item(0) Me.CheckKasse.Item(6).Width = Me.Frame2.Width / 2 - 3 * AbstandRandFrame2 Me.CheckKasse.Item(6).Caption = "Mitarbeiter darf Gäste abkassieren(Zahlkellner)" For I = 7 To 8 'Me.CheckMENU.Count - 1 Me.CheckKasse.Item(I).Top = Me.CheckKasse.Item(I - 1).Top + Me.CheckKasse.Item(I - 1).Height + AbstandZwieschenElementeFrame2 Me.CheckKasse.Item(I).Width = Me.CheckKasse.Item(I - 1).Width Me.CheckKasse.Item(I).Left = Me.CheckKasse.Item(6).Left + AbstandRandFrame2 Me.CheckKasse.Item(I).Height = Me.CheckKasse.Item(I - 1).Height Select Case I Case 7 Me.CheckKasse.Item(I).Caption = "Mitarbeiter darf ohne Kassenbon kassieren" Case 8 Me.CheckKasse.Item(I).Caption = "Mitarbeiter darf Rechnungen austellen" End Select Next I '....... Rechte-MENU ...........' AbstandRandFrame3 = AbstandRandFrame2 AbstandZwieschenElementeFrame3 = AbstandZwieschenElementeFrame2 Me.Frame3.Top = 1.5 * AbstandRandFrame3 Me.Frame3.Left = 0.5 * AbstandRandFrame3 Me.Frame3.Width = Me.SSTab1.Width - AbstandRandFrame3 Me.Frame3.Height = Me.SSTab1.Height - 2 * AbstandRandFrame3 Me.Frame3.BorderStyle = 0 Me.CheckMENU.Item(0).Left = AbstandRandFrame3 Me.CheckMENU.Item(0).Top = AbstandRandFrame3 Me.CheckMENU.Item(0).Height = 2 * AbstandZwieschenElementeFrame3 Me.CheckMENU.Item(0).Width = Me.Frame3.Width - 2 * AbstandRandFrame3 Me.CheckMENU.Item(0).Caption = "MENU-Rechte für ausgewählten Mitarbeiter komplett deaktivieren(sperren)" Me.CheckMENU.Item(1).Left = Me.CheckMENU.Item(0).Left Me.CheckMENU.Item(1).Top = Me.CheckMENU.Item(0).Top + Me.CheckMENU.Item(0).Height + 2 * AbstandZwieschenElementeFrame3 Me.CheckMENU.Item(1).Height = Me.CheckMENU.Item(0) Me.CheckMENU.Item(1).Width = Me.Frame3.Width / 2 - AbstandRandFrame3 Me.CheckMENU.Item(1).Caption = "Mitarbeiter darf auf die Systemkonfiguration zugreiffen" Me.CheckMENU.Item(2).Left = Me.CheckMENU.Item(1).Left Me.CheckMENU.Item(2).Top = Me.CheckMENU.Item(1).Top + Me.CheckMENU.Item(1).Height + AbstandZwieschenElementeFrame3 Me.CheckMENU.Item(2).Height = Me.CheckMENU.Item(1) Me.CheckMENU.Item(2).Width = Me.Frame3.Width / 2 - AbstandRandFrame3 Me.CheckMENU.Item(2).Caption = "Mitarbeiter hat Zugriff auf Rechnungsübersicht" For I = 3 To 6 'Me.CheckMENU.Count - 1 Me.CheckMENU.Item(I).Top = Me.CheckMENU.Item(I - 1).Top + Me.CheckMENU.Item(I - 1).Height + AbstandZwieschenElementeFrame3 Me.CheckMENU.Item(I).Width = Me.CheckMENU.Item(I - 1).Width Me.CheckMENU.Item(I).Left = Me.CheckMENU.Item(2).Left + AbstandRandFrame3 Me.CheckMENU.Item(I).Height = Me.CheckMENU.Item(I - 1).Height Select Case I Case 3 Me.CheckMENU.Item(I).Caption = "Mitarbeiter darf nur seine eigene Rechnungen ansehen" Case 4 Me.CheckMENU.Item(I).Caption = "Mitarbeiter darf alle Rechnungen ansehen" Case 5 Me.CheckMENU.Item(I).Caption = "Mitarbeiter darf die Zahlart von Rechnungen ändern" Case 6 Me.CheckMENU.Item(I).Caption = "Mitarbeiter darf Rechnungen korigierren" End Select Next I Me.CheckMENU.Item(7).Left = Me.Frame3.Left + Me.Frame3.Width / 2 + 0.5 * AbstandRandFrame3 Me.CheckMENU.Item(7).Top = Me.CheckMENU.Item(0).Top + Me.CheckMENU.Item(0).Height + 2 * AbstandZwieschenElementeFrame3 Me.CheckMENU.Item(7).Height = Me.CheckMENU.Item(0) Me.CheckMENU.Item(7).Width = Me.Frame3.Width / 2 - 3 * AbstandRandFrame3 Me.CheckMENU.Item(7).Caption = "Mitarbeiter darf Kassenbericht Drucken" For I = 8 To 9 'Me.CheckMENU.Count - 1 Me.CheckMENU.Item(I).Top = Me.CheckMENU.Item(I - 1).Top + Me.CheckMENU.Item(I - 1).Height + AbstandZwieschenElementeFrame3 Me.CheckMENU.Item(I).Width = Me.CheckMENU.Item(I - 1).Width Me.CheckMENU.Item(I).Left = Me.CheckMENU.Item(I - 1).Left Me.CheckMENU.Item(I).Height = Me.CheckMENU.Item(I - 1).Height Select Case I Case 8 Me.CheckMENU.Item(I).Caption = "Mitarbeiter darf Stationsbericht Drucken" Case 9 Me.CheckMENU.Item(I).Caption = "Mitarbeiter hat Zugriff auf Kellnerbericht" End Select Next I For I = 10 To 11 'Me.CheckMENU.Count - 1 Me.CheckMENU.Item(I).Top = Me.CheckMENU.Item(I - 1).Top + Me.CheckMENU.Item(I - 1).Height + AbstandZwieschenElementeFrame3 Me.CheckMENU.Item(I).Width = Me.CheckMENU.Item(I - 1).Width Me.CheckMENU.Item(I).Left = Me.CheckMENU.Item(9).Left + AbstandRandFrame3 Me.CheckMENU.Item(I).Height = Me.CheckMENU.Item(I - 1).Height Select Case I Case 10 Me.CheckMENU.Item(I).Caption = "Mitarbeiter kann nur sein Kellnerbericht Drucken" Case 11 Me.CheckMENU.Item(I).Caption = "Mitarbeiter kann alle Kellnerberichte drucken" End Select Next I '....... Rechte-Verwaltung ...........' AbstandRandFrame4 = AbstandRandFrame2 AbstandZwieschenElementeFrame4 = AbstandZwieschenElementeFrame2 Me.Frame4.Top = 1.5 * AbstandRandFrame4 Me.Frame4.Left = 0.5 * AbstandRandFrame4 Me.Frame4.Width = Me.SSTab1.Width - AbstandRandFrame4 Me.Frame4.Height = Me.SSTab1.Height - 2 * AbstandRandFrame4 Me.Frame4.BorderStyle = 0 Me.CheckVerwaltung.Item(0).Left = AbstandRandFrame4 Me.CheckVerwaltung.Item(0).Top = AbstandRandFrame4 Me.CheckVerwaltung.Item(0).Height = 2 * AbstandZwieschenElementeFrame4 Me.CheckVerwaltung.Item(0).Width = Me.Frame4.Width - 2 * AbstandRandFrame4 Me.CheckVerwaltung.Item(0).Caption = "Verwaltungsrechte für ausgewählten Mitarbeiter komplett deaktivieren(sperren)" Me.CheckVerwaltung.Item(1).Left = Me.CheckVerwaltung.Item(0).Left Me.CheckVerwaltung.Item(1).Top = Me.CheckVerwaltung.Item(0).Top + Me.CheckVerwaltung.Item(0).Height + 2 * AbstandZwieschenElementeFrame4 Me.CheckVerwaltung.Item(1).Height = Me.CheckVerwaltung.Item(0) Me.CheckVerwaltung.Item(1).Width = Me.Frame4.Width / 2 - AbstandRandFrame4 Me.CheckVerwaltung.Item(1).Caption = "Mitarbeiter darf auf die Stations-Verwaltung zugreiffen" Me.CheckVerwaltung.Item(2).Left = Me.CheckVerwaltung.Item(1).Left Me.CheckVerwaltung.Item(2).Top = Me.CheckVerwaltung.Item(1).Top + CheckVerwaltung.Item(1).Height + AbstandZwieschenElementeFrame4 Me.CheckVerwaltung.Item(2).Height = Me.CheckVerwaltung.Item(1) Me.CheckVerwaltung.Item(2).Width = Me.Frame4.Width / 2 - AbstandRandFrame4 Me.CheckVerwaltung.Item(2).Caption = "Mitarbeiter darf auf die Mitarbeiter-Verwaltung zugreiffen" For I = 3 To 7 'Me.CheckMENU.Count - 1 Me.CheckVerwaltung.Item(I).Top = Me.CheckVerwaltung.Item(I - 1).Top + Me.CheckVerwaltung.Item(I - 1).Height + AbstandZwieschenElementeFrame4 Me.CheckVerwaltung.Item(I).Width = Me.CheckVerwaltung.Item(I - 1).Width Me.CheckVerwaltung.Item(I).Left = Me.CheckVerwaltung.Item(2).Left + AbstandRandFrame3 Me.CheckVerwaltung.Item(I).Height = Me.CheckVerwaltung.Item(I - 1).Height Select Case I Case 3 Me.CheckVerwaltung.Item(I).Caption = "Mitarbeiter darf die anderen Mitarbeiter komplett sperren" Case 4 Me.CheckVerwaltung.Item(I).Caption = "Mitarbeiter darf Stationen aktivieren/deaktivieren" Case 5 Me.CheckVerwaltung.Item(I).Caption = "Mitarbeiter hat Zugriff nur auf seine persönlichen Daten" Case 6 Me.CheckVerwaltung.Item(I).Caption = "Mitarbeiter hat Zugriff auf persönlichen Daten anderer Mitarbeiter" Case 7 Me.CheckVerwaltung.Item(I).Caption = "Mitarbeiter hat uneingeschränkten Zugriff auf die Mitarbeiterkartei" Me.CheckVerwaltung.Item(I).Width = 1.1 * Me.CheckVerwaltung.Item(I - 1).Width End Select Next I Me.CheckVerwaltung.Item(8).Left = Me.Frame3.Left + Me.Frame3.Width / 2 + 0.5 * AbstandRandFrame4 Me.CheckVerwaltung.Item(8).Top = Me.CheckVerwaltung.Item(0).Top + Me.CheckVerwaltung.Item(0).Height + 2 * AbstandZwieschenElementeFrame4 Me.CheckVerwaltung.Item(8).Height = Me.CheckVerwaltung.Item(0) Me.CheckVerwaltung.Item(8).Width = Me.Frame3.Width / 2 - 3 * AbstandRandFrame3 Me.CheckVerwaltung.Item(8).Caption = "Mitarbeiter darf auf die Speisekarte-Verwaltung zugreiffen" For I = 9 To 11 'Me.CheckMENU.Count - 1 Me.CheckVerwaltung.Item(I).Top = Me.CheckVerwaltung.Item(I - 1).Top + Me.CheckVerwaltung.Item(I - 1).Height + AbstandZwieschenElementeFrame4 Me.CheckVerwaltung.Item(I).Width = Me.CheckVerwaltung.Item(I - 1).Width Me.CheckVerwaltung.Item(I).Left = Me.CheckVerwaltung.Item(I - 1).Left Me.CheckVerwaltung.Item(I).Height = Me.CheckVerwaltung.Item(I - 1).Height Select Case I Case 9 Me.CheckVerwaltung.Item(I).Caption = "Mitarbeiter darf auf die Direktwahl-Verwaltung zugreiffen" Case 10 Me.CheckVerwaltung.Item(I).Caption = "Mitarbeiter darf auf die Kreditkarten-Verwaltung zugreiffen" Case 11 Me.CheckVerwaltung.Item(I).Caption = "Mitarbeiter darf auf die freien Berichten zugreifen" End Select Next I End Sub