brauche mal eure hilfe

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.0.0
Author: Sirocool
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
$Meldung = ""
; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include "LogIn.au3"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#cs ----------------------------------------------------------------------------
Script Function: Password
#ce ----------------------------------------------------------------------------
$INI3Status = False
$INI3StatusAlt = True
$User = "Test|Test2|Test3"
$Pass = "test|34|56"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter\Login.kxf
$hGui = GUICreate("Login", 265, 168, 502, 319)
GUISetBkColor(0xFFFFFF)
$Login = GUICtrlCreateGroup("Login", 16, 8, 225, 105)
$Label1 = GUICtrlCreateLabel("Name", 24, 32, 32, 17)
$Label2 = GUICtrlCreateLabel("Password", 24, 72, 50, 17)
$UserIN = GUICtrlCreateInput("", 96, 32, 121, 21)
$PassIN = GUICtrlCreateInput("", 96, 72, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Okay = GUICtrlCreateButton("Okay", 16, 128, 75, 25, 0,"MS Sans Serif")
$Chancel = GUICtrlCreateButton("Chancel", 168, 128, 75, 25, 0,"MS Sans Serif")
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter.kxf
$hGui2 = GUICreate("Callcenter", 655, 449, 193, 125)
GUISetBkColor(0xFFFFFF)
$Terminubersicht = GUICtrlCreateGroup("Termin Übersicht", 8, 8, 433, 233)
$ListView1 = GUICtrlCreateListView("Nummer|Datum|Zeit|Frau|Mann|Kundenname|Anschrift|Telefon|Telefonnummer|Bemerkungen|CCA|FN|Hand|NA|nOK|Grund Mobil & Festnetz|", 24, 32, 402, 190)
GUICtrlSetFont($Listview1, 8, 400, 0, "MS Sans Serif")
; ### hier Kontextmenü für ListView einfügen:
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_edit = GUICtrlCreateMenuItem('Patient bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Patient löschen', $mnu)
; ### Ende Kontextmenü
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Kalender = GUICtrlCreateGroup("Kalender", 456, 8, 185, 233)
$MonthCal1 = GUICtrlCreateMonthCal("18/01/2009", 464, 24, 170, 178)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Menu = GUICtrlCreateGroup("Menu", 8, 256, 633, 105)
$Button = GUICtrlCreateButton("Terminplanung", 24, 280, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Adressbuch", 128, 280, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 232, 280, 75, 25, 0)
$Button4 = GUICtrlCreateButton("Button4", 336, 280, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 440, 280, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 544, 280, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Button7", 24, 320, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Button8", 128, 320, 75, 25, 0)
$Button9 = GUICtrlCreateButton("Button9", 232, 320, 75, 25, 0)
$Button10 = GUICtrlCreateButton("Button10", 336, 320, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Button11", 440, 320, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Button12", 544, 320, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Login1 = GUICtrlCreateGroup("Login", 8, 360, 633, 73)
$Name1 = GUICtrlCreateLabel("Name", 32, 390, 32, 17)
$Password1 = GUICtrlCreateLabel("Password", 224, 390, 50, 17)
$ok1 = GUICtrlCreateButton("OK", 440, 390, 75, 25, 0)
$chanel1 = GUICtrlCreateButton("CHANEL", 544, 390, 75, 25, 0)
$UserIN1 = GUICtrlCreateInput("", 80, 390, 121, 21)
$PassIN1 = GUICtrlCreateInput("", 296,390, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

_FillListView()
GUISetState(@SW_HIDE, $hGui2)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle#
Case $hGui
Switch $msg[0] ; Event
Case $Okay ;und von hier
$Meldung = False
if _LogIn($UserIN,$PassIN,$User,$Pass,$hGui2,"Zeigen") = True then GUISetState(@SW_HIDE, $hGui)
Case $Chancel
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $hGui2
Switch $msg[0] ;Fehler: Hier das hast du vergessen

Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui2)

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

#cs ------------------
Diese funktion ist schon für fenster 2 mit
#ce -------------------
Func _FillListView()

EndFunc

[/autoit]

[autoit]

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: Hendrik Norkowski

Script Function:
Dies ist ein UDF-Script. UDFs: _LogIn
Das schrip fragt Benutzerdaten ab und gibt bei erfold die Gewünschten felder frei!

Sreibe: _LogIn ($UserInput,$PasswortInput,$UserDaten,$Passwortdaten,$Veränderfeld,$Status ("Zeigen","Verstecken")
Setzen sie Befor sie Die Func beim Ersten mal ausführen umbedingt $Meldung = False
Trenne die User und Passworter mit "|"
Wenn sie mehrere Objekte mit einem Passwort anzeigen mochten, füchren sie die Func erneut mit den gleichen daten aus bist auf $Feld
wollen sie die Func jedoch auf eine Neues Passwortfeld beziehen nehmen sie die neuen daten, und setzen sie $Meldung = False wieder

Um die Felder zu verstecken, befor das paswort eingegeben wurde müssen sie dieses Tun: GuiCtrlSetState ($Feld,$Status) $Status = $GUI_HIDE zum verstecken, $GUI_SHOW zum anzeigen
#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
Global $INI3Status = False
Func _LogIn($InUser, $InPass, $UserData, $PassData, $FreiFeld, $AnzeigeStatus)

$PassINR = GUICtrlRead($InUser)
$UserINR = GUICtrlRead($InPass)
If $PassINR <> "" Then
If $UserINR <> "" Then
$sUser = StringSplit($UserData, "|")
$sPass = StringSplit($PassData, "|")
$Benutzerdaten = True
For $i = 1 To $sUser[0]
If $sUser[0] = $sPass[0] Then
If $UserINR = $sUser[$i] Then
If $PassINR = $sPass[$i] Then
$INI3Status = True
EndIf
EndIf
Else
$Benutzerdaten = False
EndIf
Next
If $Benutzerdaten = False Then
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Fehler in den Benutzerdaten!")
EndIf
ElseIf $sPass[0] <> $sUser[0] Then
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Falscher Benutzerdatenbank!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
If $INI3Status = True Then
If $AnzeigeStatus = "Zeigen" Then
GUISetState(@SW_SHOW, $FreiFeld)
Return True
ElseIf $AnzeigeStatus = "Verstecken" Then
GUISetState(@SW_HIDE, $FreiFeld)
Return False
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Falsche Benutzerdaten!")
EndIf
EndIf
EndFunc ;==>_LogIn

[/autoit]