#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: Tim Kempe Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #NoTrayIcon #include #include #include #include #include #include #include #include #include Opt("TrayMenuMode", 1) Opt("GUIDataSeparatorChar", "|") $Grundstein = GUICreate("Automobile Kempe", 1185, 863, -1, -1) $Tab = GUICtrlCreateTab(5, 74, 1176, 750) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $Tab_Seite1 = GUICtrlCreateTabItem("Werkzeug-Lager") $Werkzeug_Suchen = GUICtrlCreateInput("Suchen", 29, 119, 300, 21) $Werkzeug_Liste = GUICtrlCreateList("", 29, 144, 300, 656) $Werkzeug_AnzeigeBild = GUICtrlCreatePic("", 529, 171, 0, 0, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Werkzeug_AnzeigebildVonAusen = GUICtrlCreatePic("", 385, 171, 100, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Werkzeug_AnzeigebildVonInnen = GUICtrlCreatePic("", 385, 291, 100, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Werkzeug_BeschreibungenBild = GUICtrlCreatePic("", 385, 411, 100, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Werkzeug_Neu = GUICtrlCreateButton("Neu", 384, 528, 107, 25, 0) $Werkzeug_Lagerort = GUICtrlCreateInput("", 360, 120, 300, 21) $Tab_Seite2 = GUICtrlCreateTabItem("Erledigte Arbeiten") $EA_Kennzeicheneingabe = GUICtrlCreateInput("", 59, 160, 121, 21) $EA_Label1 = GUICtrlCreateLabel("Kennzeichen:", 59, 128, 69, 17) $EA_Label3 = GUICtrlCreateLabel("Datum \ Uhrzeit:", 459, 128, 82, 17) $EA_Datum = GUICtrlCreateInput("", 459, 160, 121, 21) $EA_Eingabe = GUICtrlCreateEdit("", 48, 248, 1089, 553, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN)) GUICtrlSetData(-1, "Edit2") GUICtrlSetFont(-1, 11, 400, 0, "Arial") $EA_Label2 = GUICtrlCreateLabel("Kilometerstand:", 259, 128, 76, 17) $EA_Kilometerstand = GUICtrlCreateInput("", 259, 160, 121, 21) $EA_AuftragsListe = GUICtrlCreateList("", 688, 120, 449, 110) $EA_AuftragFertig = GUICtrlCreateCheckbox("Auftrag komplett fertig", 48, 216, 145, 17) $EA_Speichern = GUICtrlCreateButton("Speichern", 200, 208, 75, 25, 0) $Tab_Seite3 = GUICtrlCreateTabItem("Artikel-Lager") $Artikel_Suchen = GUICtrlCreateInput("Suchen", 29, 119, 300, 21) $Artikel_Liste = GUICtrlCreateList("", 29, 144, 300, 656) $Artikel_AnzeigeBild = GUICtrlCreatePic("", 529, 171, 0, 0, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Artikel_AnzeigebilVonAusen = GUICtrlCreatePic("", 385, 171, 100, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Artikel_Neu = GUICtrlCreateButton("Neu", 384, 296, 107, 25, 0) $Artikel_Lagerort = GUICtrlCreateInput("", 360, 120, 300, 21) $Tab_Seite4 = GUICtrlCreateTabItem("Arbeiten-Auslesen") $AA_Auslesen = GUICtrlCreateEdit("", 56, 120, 729, 673, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN)) GUICtrlSetData(-1, "Edit2") GUICtrlSetFont(-1, 11, 400, 0, "Arial") $AA_Auftraege = GUICtrlCreateList("", 816, 264, 353, 474) $AA_AnzeigeGruppe = GUICtrlCreateGroup("Anzeigen", 816, 128, 353, 121) $AA_ErledigteAnzeigen = GUICtrlCreateCheckbox("Erledigte", 864, 168, 97, 17) $AA_OffeneAnzeigen = GUICtrlCreateCheckbox("Offene", 864, 192, 97, 17) $AA_NichtAbgeschlosseneAnzeigen = GUICtrlCreateCheckbox("Noch nicht als abgeschlossen gekennzeichnete Arbeiten", 864, 144, 289, 17) $AA_DatumAuswaehlen = GUICtrlCreateDate("2013/04/02 14:39:4", 864, 216, 186, 21) GUICtrlCreateGroup("", -99, -99, 1, 1) $AA_Rechnung = GUICtrlCreateCheckbox("Rechnung geschrieben", 816, 768, 209, 17) $AA_Speichern = GUICtrlCreateButton("Speichern und neu ", 1024, 760, 139, 25, 0) $Tab_Seite5 = GUICtrlCreateTabItem("Mastereinstellungen") GUICtrlSetState(-1, $GUI_SHOW) $M_BenutzerHinzu = GUICtrlCreateButton("Benutzer hinzufügen", 14, 320, 200, 25, 0) $M_BenutzerEntf = GUICtrlCreateButton("Benutzer entfernen", 14, 376, 200, 25, 0) $M_BenutzerListe = GUICtrlCreateList("", 224, 320, 177, 84) $M_Passwort = GUICtrlCreateInput("", 423, 360, 200, 21) $M_Label1 = GUICtrlCreateLabel("Passwort:", 423, 336, 50, 17) $M_BenutzerFreigabe = GUICtrlCreateCombo("", 649, 360, 145, 25) $M_Label2 = GUICtrlCreateLabel("Freigabe:", 649, 336, 48, 17) $M_SpeicherortEA = GUICtrlCreateButton("Speicherort für die Erledigten Arbeiten ändern", 14, 136, 400, 30, 0) $M_SpeicherortEAEingabe = GUICtrlCreateInput("", 459, 140, 400, 21) $M_SpeicherortArtikel = GUICtrlCreateButton("Artikel-Lager Speicherort ändern", 14, 232, 400, 30, 0) $M_SpeicherortWerkzeug = GUICtrlCreateButton("Werkzeug-Lager Speicherort ändern", 14, 184, 400, 30, 0) $M_SpeicherortWerkzeugeEingabe = GUICtrlCreateInput("", 459, 188, 400, 21) $M_SpeicherortArtikelInput = GUICtrlCreateInput("", 459, 236, 400, 21) $M_LetzteLogins = GUICtrlCreateEdit("", 16, 576, 1153, 233, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN)) GUICtrlSetData(-1, "Edit1") GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $M_Label3 = GUICtrlCreateLabel("Letzte Logins:", 16, 552, 70, 17) GUICtrlCreateTabItem("") $MenuItem3 = GUICtrlCreateMenu("&Benutzer") $Menue_Abmelden = GUICtrlCreateMenuItem("Abmelden", $MenuItem3) $Menue_PWaendern = GUICtrlCreateMenuItem("Passwort ändern", $MenuItem3) $MenuItem2 = GUICtrlCreateMenu("&Anwendung") $Menue_Beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem2) $Menue_Hilfe = GUICtrlCreateMenuItem("Hilfe F1", $MenuItem2) GUISetState(@SW_SHOW) Dim $Grundstein_AccelTable[1][2] = [["{F1}", $Menue_Hilfe]] GUISetAccelerators($Grundstein_AccelTable) If FileRead(@AppDataDir & "\Verwaltung.Werkstatt\Berechtigung.BlÖd") == "1" Then Else GUICtrlDelete($Tab_Seite5) GUICtrlDelete($Tab_Seite4) GUISwitch($Grundstein,$Tab_Seite2) EndIf $Nutzer = FileRead(@AppDataDir & "\Verwaltung.Werkstatt\Nutzer.BlÖd") MsgBox(0, "Hallo", "Herzlich Willkommen" & $Nutzer) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE _Beenden() Case $Menue_Abmelden _Abmelden() Case $Menue_PWaendern Case $Menue_Beenden _Beenden() Case $Menue_Hilfe _Hilfe() Case $Werkzeug_Suchen Case $Werkzeug_AnzeigebildVonAusen Case $Werkzeug_AnzeigebildVonInnen Case $Werkzeug_BeschreibungenBild Case $Werkzeug_Neu Case $EA_AuftragsListe Case $EA_Speichern Case $Artikel_Suchen Case $Artikel_AnzeigebilVonAusen Case $Artikel_Neu Case $AA_ErledigteAnzeigen Case $AA_OffeneAnzeigen Case $AA_NichtAbgeschlosseneAnzeigen Case $AA_DatumAuswaehlen Case $AA_Speichern Case $M_BenutzerHinzu Case $M_BenutzerEntf Case $M_BenutzerListe Msgbox(0,"",GUICtrlRead($M_BenutzerListe)) Case $M_Passwort Case $M_BenutzerFreigabe Case $M_SpeicherortEA EndSwitch WEnd Func _Beenden() $Beenden = MsgBox(292, "Beenden?", "Soll das Programm beendet werden? Wenn ja drücken Sie bitte auf JA zum Abbrechen auf NEIN.", "10") If $Beenden = "6" Then MsgBox(0, "Auf Wiedersehen", "Das Programm wird nun beendet.", 5) Exit EndIf EndFunc ;==>_Beenden Func _Abmelden() Run(@AppDataDir & "\Verwaltung.Werkstatt\Passwort.exe") Exit EndFunc ;==>_Abmelden Func _Hilfe() MsgBox(48, "Kommt noch", "Die Hilfe Kommt noch!") EndFunc ;==>_Hilfe