Beiträge von Ghostleader

Ghostleader

Hallo misterspeed,

also wenn ich das jetzt richtig verstanden habe, soll ich die 4 Funktionen am Anfang des Programmes starten und dann nur jeweils bei den Lagern bzw. beim Schliessfach Hiden und Show?
Ok wenn dem so ist wie mache ich das dann, setze ich einfach ganz oben wo auch die Globals sind die jeweiligen

_generateLagerSpalte($aSpalte1,1)
_generateLagerSpalte($aSpalte2,275)
_generateLagerSpalte($aSpalte3,545)

hin und damit ist dann gut?

Mfg Ghostleader

Ghostleader

Hallo autoBert,

danke für deine Antwort, hättest du bitte ein Bsp. für mich denn ich stehe gerade irgendwie auf der Leitung!

Mfg Ghostleader

Ghostleader

Hallo misterspeed,

danke erstmal für deine Antwort.

Leider weiss ich gerade nicht was du jetzt so richtig meinst, was das Problem aufwirft das ich es nicht so einfach fixen kann!
Könntest du oder jemand anderes bitte etwas genauer werden und am besten noch Tipps geben wie es am besten geht?

Mfg Ghostleader

Ghostleader

Hallo zusammen,

es geht ausschliesslich um die Funktionen der Lagerverwaltung in dem Script! (Ini hängt dran als Datei)
Bevor ich aber anfange, erstmal das Script:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=Lagerverwaltungstool.exe
#AutoIt3Wrapper_Outfile_x64=Lagerverwaltungstool.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Copyright by Ghostleader & Areneas
#AutoIt3Wrapper_Res_Fileversion=1.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Copyright by Ghostleader & Areneas
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ------------------------------------
|
Author: Ghostleader |
Script: Version 1.1.0 |
|
Script Functionen: |
- Lagerverwaltungstool = Version_1.1.0 |
- Bankschließfach = Version_1.1.0 |
|
Copyright by Ghostleader @ Areneas |
#ce ------------------------------------
#region INCLUDES
;------------------------------------------------------------------------------------------
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#endregion INCLUDES
#region GLOBAL
;------------------------------------------------------------------------------------------
Global $aSchliesfach1[17], $aSchliesfach2[17], $aSchliesfach3[17], $aSchliesfach4[17]
Global $aSpalte1[13], $aSpalte2[13], $aSpalte3[13]
Global $bSpalte1[13], $bSpalte2[13], $bSpalte3[13]
Global $cSpalte1[13], $cSpalte2[13], $cSpalte3[13]
Global $DataINI = 'data.ini'
#endregion GLOBAL
;------------------------------------------------------------------------------------------
#region GUI
$Form1 = GUICreate("Form1", 940, 550, 192, 5, $WS_BORDER & $WS_POPUP)
GUISetState()
$Backround = GUICtrlCreatePic("bilder\lager.tgx", 0, 0, 940, 550)
GUICtrlSetState(-1, $GUI_DISABLE)
$rightLabel = GUICtrlCreateLabel("Copyright By Ghostleader @ Areneas", 650, 500, 300, 25)
GUICtrlSetFont(-1, 11, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#endregion GUI
;------------------------------------------------------------------------------------------
#region Group´s
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$FrontLagerBank = GUICtrlCreateGroup("", 360, 180, 280, 195)
$GroupCombo = GUICtrlCreateGroup("", 28, 6, 276, 36)
$GroupSpeichern = GUICtrlCreateGroup("", 336, 6, 276, 36)
$Exit = GUICtrlCreateGroup("", 646, 6, 276, 36)
$LagerLabelGroup = GUICtrlCreateGroup("", 330, 135, 282, 45)
$LagerGroup = GUICtrlCreateGroup("", 200, 62, 590, 45)
$LagerSpalte1 = GUICtrlCreateGroup("", 70, 195, 190, 290)
$LagerSpalte2 = GUICtrlCreateGroup("", 345, 195, 190, 290)
$LagerSpalte3 = GUICtrlCreateGroup("", 615, 195, 190, 290)
$BankRahmen1 = GUICtrlCreateGroup("", 30, 112, 190, 370)
$BankRahmen2 = GUICtrlCreateGroup("", 270, 112, 190, 370)
$BankRahmen3 = GUICtrlCreateGroup("", 500, 112, 190, 370)
$BankRahmen4 = GUICtrlCreateGroup("", 730, 112, 190, 370)
#endregion Group´s
;------------------------------------------------------------------------------------------
#region Button´s
$Lager1Speichern = GUICtrlCreateButton("Speichern", 350, 16, 110, 22)
$Lager2Speichern = GUICtrlCreateButton("Speichern", 350, 16, 110, 22)
$Lager3Speichern = GUICtrlCreateButton("Speichern", 350, 16, 110, 22)
$SchliessfachSpeichern = GUICtrlCreateButton("Speichern", 350, 16, 110, 22)
$AccLoschen = GUICtrlCreateButton("Acc Löschen", 490, 16, 110, 22)
;------------------------------------------------------------------------------------------
$SchliessfachOben = GUICtrlCreateButton("Bankschließfach", 660, 16, 110, 22)
$ButtonExit = GUICtrlCreateButton("Exit", 800, 16, 110, 22)
;------------------------------------------------------------------------------------------
$SchliessfachLoschen = GUICtrlCreateButton("Schliesfach Löschen", 490, 16, 110, 22)
$LagerOben = GUICtrlCreateButton("Lagerverwaltung", 660, 16, 110, 22)
;------------------------------------------------------------------------------------------
$LagerFront = GUICtrlCreateButton("Lagerverwaltung", 375, 200, 250, 40)
$SchliessfachFront = GUICtrlCreateButton("Bankschließfach", 375, 260, 250, 40)
$Schliessen = GUICtrlCreateButton("Programm Schliessen", 375, 320, 250, 40)
;------------------------------------------------------------------------------------------
$Lager1 = GUICtrlCreateButton("LAGER 1", 210, 75, 170, 25)
$Lager2 = GUICtrlCreateButton("LAGER 2", 410, 75, 170, 25)
$Lager3 = GUICtrlCreateButton("LAGER 3", 610, 75, 170, 25)
#endregion Button´s
;------------------------------------------------------------------------------------------
#region Combo´s
$Combo1 = GUICtrlCreateCombo("", 120, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1,_setCombo())
$Combo3 = GUICtrlCreateCombo("", 120, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo3,_setCombo())
$Combo4 = GUICtrlCreateCombo("", 120, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo4,_setCombo())
$Combo2 = GUICtrlCreateCombo("", 120, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo2,_setCombo())
#endregion Combo´s
;------------------------------------------------------------------------------------------
#region Label´s
$LagerLabel1 = GUICtrlCreateLabel("", 340, 150, 100, 25)
GUICtrlSetFont(-1, 15, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label4 = GUICtrlCreateLabel("Account", 42, 17, 80, 19)
GUICtrlSetFont(-1, 11, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#endregion Label´s
;---------------------------------------------------------------------------------------------
#region Input´s
$LagerInput1 = GUICtrlCreateInput("", 430, 150, 170, 21)
$LagerInput2 = GUICtrlCreateInput("", 430, 150, 170, 21)
$LagerInput3 = GUICtrlCreateInput("", 430, 150, 170, 21)
#endregion Input´s
;---------------------------------------------------------------------------------------------
#region HIDE
GUICtrlSetState($GroupSpeichern, $GUI_HIDE)
GUICtrlSetState($Exit, $GUI_HIDE)
GUICtrlSetState($LagerSpalte1, $GUI_HIDE)
GUICtrlSetState($LagerSpalte2, $GUI_HIDE)
GUICtrlSetState($LagerSpalte3, $GUI_HIDE)
GUICtrlSetState($GroupCombo, $GUI_HIDE)
GUICtrlSetState($BankRahmen1, $GUI_HIDE)
GUICtrlSetState($BankRahmen2, $GUI_HIDE)
GUICtrlSetState($BankRahmen3, $GUI_HIDE)
GUICtrlSetState($BankRahmen4, $GUI_HIDE)
GUICtrlSetState($ButtonExit, $GUI_HIDE)
GUICtrlSetState($Lager1Speichern, $GUI_HIDE)
GUICtrlSetState($Lager2Speichern, $GUI_HIDE)
GUICtrlSetState($Lager3Speichern, $GUI_HIDE)
GUICtrlSetState($SchliessfachOben, $GUI_HIDE)
GUICtrlSetState($AccLoschen, $GUI_HIDE)
GUICtrlSetState($SchliessfachLoschen, $GUI_HIDE)
GUICtrlSetState($LagerOben, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_HIDE)
GUICtrlSetState($Lager1, $GUI_HIDE)
GUICtrlSetState($Lager2, $GUI_HIDE)
GUICtrlSetState($Lager3, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_HIDE)
GUICtrlSetState($LagerInput1, $GUI_HIDE)
GUICtrlSetState($LagerInput2, $GUI_HIDE)
GUICtrlSetState($LagerInput3, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_HIDE)
GUICtrlSetState($Combo4, $GUI_HIDE)
GUICtrlSetState($LagerLabelGroup, $GUI_HIDE)
GUICtrlSetState($LagerGroup, $GUI_HIDE)
#endregion HIDE
#region Generat´s
_generateLagerSpalte($aSpalte1,1)
_generateLagerSpalte($aSpalte2,275)
_generateLagerSpalte($aSpalte3,545)
_generateLagerSpalte2($bSpalte1,1)
_generateLagerSpalte2($bSpalte2,275)
_generateLagerSpalte2($bSpalte3,545)
_generateLagerSpalte3($cSpalte1,1)
_generateLagerSpalte3($cSpalte2,275)
_generateLagerSpalte3($cSpalte3,545)
_generateSchliessfachSpalte($aSchliesfach1,40)
_generateSchliessfachSpalte($aSchliesfach2,280)
_generateSchliessfachSpalte($aSchliesfach3,510)
_generateSchliessfachSpalte($aSchliesfach4,740)
#endregion Generat´s
#region Generate´s Hide
For $i = 1 To Ubound($aSchliesfach1)-1
GUICtrlSetState($aschliesfach1[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach2)-1
GUICtrlSetState($aschliesfach2[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach3)-1
GUICtrlSetState($aschliesfach3[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach4)-1
GUICtrlSetState($aschliesfach4[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte1) - 1
GUICtrlSetState($aSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte2) - 1
GUICtrlSetState($aSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte3) - 1
GUICtrlSetState($aSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte1) - 1
GUICtrlSetState($bSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte2) - 1
GUICtrlSetState($bSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte3) - 1
GUICtrlSetState($bSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte1) - 1
GUICtrlSetState($cSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte2) - 1
GUICtrlSetState($cSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte3) - 1
GUICtrlSetState($cSpalte3[$i], $GUI_HIDE)
Next
#endregion Generate´s Hide
;---------------------------------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $LagerFront
_ButtonLager1()
Case $LagerOben
_ButtonLager1()
Case $Lager1
_ButtonLager1()
Case $Lager2
_ButtonLager2()
Case $Lager3
_ButtonLager3()
Case $SchliessfachFront
_ButtonSchliessfach()
Case $SchliessfachOben
_ButtonSchliessfach()
Case $ButtonExit, $Schliessen
Exit
Case $Combo1
_LoadData()
Case $Combo3
_LoadData2()
Case $Combo4
_LoadData3()
Case $Combo2
_LoadDataSchliessfach()
Case $Lager1Speichern
_SaveData()
Case $Lager2Speichern
_SaveData2()
Case $Lager3Speichern
_SaveData3()
Case $SchliessfachSpeichern
_SaveDataSchliessfach()
Case $AccLoschen
_deleteAccount()
Case $SchliessfachLoschen
_deleteSchliessfach()
EndSwitch
WEnd
;_--------------------------------------------------------------------------------------------
Func _ButtonSchliessfach()
For $i = 1 TO UBound($aSpalte1) - 1
GUICtrlSetState($aSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte2) - 1
GUICtrlSetState($aSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte3) - 1
GUICtrlSetState($aSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte1) - 1
GUICtrlSetState($bSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte2) - 1
GUICtrlSetState($bSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte3) - 1
GUICtrlSetState($bSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte1) - 1
GUICtrlSetState($cSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte2) - 1
GUICtrlSetState($cSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte3) - 1
GUICtrlSetState($cSpalte3[$i], $GUI_HIDE)
Next

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

GUICtrlSetState($LagerFront, $GUI_HIDE)
GUICtrlSetState($SchliessfachFront, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($Lager1, $GUI_HIDE)
GUICtrlSetState($Lager2, $GUI_HIDE)
GUICtrlSetState($Lager3, $GUI_HIDE)
GUICtrlSetState($SchliessfachOben, $GUI_HIDE)
GUICtrlSetState($FrontLagerBank, $GUI_HIDE)
GUICtrlSetState($GroupSpeichern, $GUI_SHOW)
GUICtrlSetState($Exit, $GUI_SHOW)
GUICtrlSetState($LagerSpalte1, $GUI_HIDE)
GUICtrlSetState($LagerSpalte2, $GUI_HIDE)
GUICtrlSetState($LagerSpalte3, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($AccLoschen, $GUI_HIDE)
GUICtrlSetState($SchliessfachLoschen, $GUI_SHOW)
GUICtrlSetState($LagerOben, $GUI_SHOW)
GUICtrlSetState($GroupCombo, $GUI_SHOW)
GUICtrlSetState($ButtonExit, $GUI_SHOW)
GUICtrlSetState($Lager1Speichern, $GUI_HIDE)
GUICtrlSetState($Lager2Speichern, $GUI_HIDE)
GUICtrlSetState($Lager3Speichern, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_SHOW)
GUICtrlSetState($LagerLabel1, $GUI_HIDE)
GUICtrlSetState($LagerInput1, $GUI_HIDE)
GUICtrlSetState($LagerInput2, $GUI_HIDE)
GUICtrlSetState($LagerInput3, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_HIDE)
GUICtrlSetState($Combo4, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_SHOW)
GUICtrlSetState($BankRahmen1, $GUI_SHOW)
GUICtrlSetState($BankRahmen2, $GUI_SHOW)
GUICtrlSetState($BankRahmen3, $GUI_SHOW)
GUICtrlSetState($BankRahmen4, $GUI_SHOW)
GUICtrlSetState($LagerLabelGroup, $GUI_HIDE)
GUICtrlSetState($LagerGroup, $GUI_HIDE)
EndFunc
;------------------------------------------------------------------------------------------
Func _ButtonLager1()
For $i = 1 To Ubound($aSchliesfach1)-1
GUICtrlSetState($aschliesfach1[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach2)-1
GUICtrlSetState($aschliesfach2[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach3)-1
GUICtrlSetState($aschliesfach3[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach4)-1
GUICtrlSetState($aschliesfach4[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte1) - 1
GUICtrlSetState($bSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte2) - 1
GUICtrlSetState($bSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte3) - 1
GUICtrlSetState($bSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte1) - 1
GUICtrlSetState($cSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte2) - 1
GUICtrlSetState($cSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte3) - 1
GUICtrlSetState($cSpalte3[$i], $GUI_HIDE)
Next
GUICtrlSetState($SchliessfachLoschen, $GUI_HIDE)
GUICtrlSetState($LagerOben, $GUI_HIDE)
GUICtrlSetState($LagerFront, $GUI_HIDE)
GUICtrlSetState($SchliessfachFront, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($FrontLagerBank, $GUI_HIDE)
GUICtrlSetState($BankRahmen1, $GUI_HIDE)
GUICtrlSetState($BankRahmen2, $GUI_HIDE)
GUICtrlSetState($BankRahmen3, $GUI_HIDE)
GUICtrlSetState($BankRahmen4, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_HIDE)
GuiCtrlSetData($LagerLabel1, "Lager 1")
GUICtrlSetState($GroupCombo, $GUI_SHOW)
GUICtrlSetState($GroupSpeichern, $GUI_SHOW)
GUICtrlSetState($Exit, $GUI_SHOW)
GUICtrlSetState($LagerSpalte1, $GUI_SHOW)
GUICtrlSetState($LagerSpalte2, $GUI_SHOW)
GUICtrlSetState($LagerSpalte3, $GUI_SHOW)
GUICtrlSetState($ButtonExit, $GUI_SHOW)
GUICtrlSetState($Lager1Speichern, $GUI_SHOW)
GUICtrlSetState($Lager2Speichern, $GUI_HIDE)
GUICtrlSetState($Lager3Speichern, $GUI_HIDE)
GUICtrlSetState($SchliessfachOben, $GUI_SHOW)
GUICtrlSetState($AccLoschen, $GUI_SHOW)
GUICtrlSetState($LagerLabel1, $GUI_SHOW)
GUICtrlSetState($LagerInput1, $GUI_SHOW)
GUICtrlSetState($LagerInput2, $GUI_HIDE)
GUICtrlSetState($LagerInput3, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_SHOW)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_HIDE)
GUICtrlSetState($Combo4, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Lager1, $GUI_HIDE)
GUICtrlSetState($Lager2, $GUI_SHOW)
GUICtrlSetState($Lager3, $GUI_SHOW)
GUICtrlSetState($LagerGroup, $GUI_SHOW)
GUICtrlSetState($LagerLabelGroup, $GUI_SHOW)
EndFunc
;------------------------------------------------------------------------------------------
Func _ButtonLager2()
For $i = 1 To Ubound($aSchliesfach1)-1
GUICtrlSetState($aschliesfach1[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach2)-1
GUICtrlSetState($aschliesfach2[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach3)-1
GUICtrlSetState($aschliesfach3[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach4)-1
GUICtrlSetState($aschliesfach4[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte1) - 1
GUICtrlSetState($aSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte2) - 1
GUICtrlSetState($aSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte3) - 1
GUICtrlSetState($aSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte1) - 1
GUICtrlSetState($cSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte2) - 1
GUICtrlSetState($cSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte3) - 1
GUICtrlSetState($cSpalte3[$i], $GUI_HIDE)
Next
GUICtrlSetState($SchliessfachLoschen, $GUI_HIDE)
GUICtrlSetState($LagerOben, $GUI_HIDE)
GUICtrlSetState($LagerFront, $GUI_HIDE)
GUICtrlSetState($SchliessfachFront, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($FrontLagerBank, $GUI_HIDE)
GUICtrlSetState($BankRahmen1, $GUI_HIDE)
GUICtrlSetState($BankRahmen2, $GUI_HIDE)
GUICtrlSetState($BankRahmen3, $GUI_HIDE)
GUICtrlSetState($BankRahmen4, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_HIDE)
GuiCtrlSetData($LagerLabel1, "Lager 2")
GUICtrlSetState($GroupCombo, $GUI_SHOW)
GUICtrlSetState($GroupSpeichern, $GUI_SHOW)
GUICtrlSetState($Exit, $GUI_SHOW)
GUICtrlSetState($LagerSpalte1, $GUI_SHOW)
GUICtrlSetState($LagerSpalte2, $GUI_SHOW)
GUICtrlSetState($LagerSpalte3, $GUI_SHOW)
GUICtrlSetState($ButtonExit, $GUI_SHOW)
GUICtrlSetState($Lager1Speichern, $GUI_HIDE)
GUICtrlSetState($Lager2Speichern, $GUI_SHOW)
GUICtrlSetState($Lager3Speichern, $GUI_HIDE)
GUICtrlSetState($SchliessfachOben, $GUI_SHOW)
GUICtrlSetState($AccLoschen, $GUI_SHOW)
GUICtrlSetState($LagerLabel1, $GUI_SHOW)
GUICtrlSetState($LagerInput1, $GUI_HIDE)
GUICtrlSetState($LagerInput2, $GUI_SHOW)
GUICtrlSetState($LagerInput3, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_SHOW)
GUICtrlSetState($Combo4, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Lager1, $GUI_SHOW)
GUICtrlSetState($Lager2, $GUI_HIDE)
GUICtrlSetState($Lager3, $GUI_SHOW)
GUICtrlSetState($LagerGroup, $GUI_SHOW)
GUICtrlSetState($LagerLabelGroup, $GUI_SHOW)
EndFunc
;-------------------------------------------------------------------------------------------------
Func _ButtonLager3()
For $i = 1 To Ubound($aSchliesfach1)-1
GUICtrlSetState($aschliesfach1[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach2)-1
GUICtrlSetState($aschliesfach2[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach3)-1
GUICtrlSetState($aschliesfach3[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach4)-1
GUICtrlSetState($aschliesfach4[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte1) - 1
GUICtrlSetState($aSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte2) - 1
GUICtrlSetState($aSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte3) - 1
GUICtrlSetState($aSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte1) - 1
GUICtrlSetState($bSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte2) - 1
GUICtrlSetState($bSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte3) - 1
GUICtrlSetState($bSpalte3[$i], $GUI_HIDE)
Next
GUICtrlSetState($SchliessfachLoschen, $GUI_HIDE)
GUICtrlSetState($LagerOben, $GUI_HIDE)
GUICtrlSetState($LagerFront, $GUI_HIDE)
GUICtrlSetState($SchliessfachFront, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($FrontLagerBank, $GUI_HIDE)
GUICtrlSetState($BankRahmen1, $GUI_HIDE)
GUICtrlSetState($BankRahmen2, $GUI_HIDE)
GUICtrlSetState($BankRahmen3, $GUI_HIDE)
GUICtrlSetState($BankRahmen4, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_HIDE)
GuiCtrlSetData($LagerLabel1, "Lager 3")
GUICtrlSetState($GroupCombo, $GUI_SHOW)
GUICtrlSetState($GroupSpeichern, $GUI_SHOW)
GUICtrlSetState($Exit, $GUI_SHOW)
GUICtrlSetState($LagerSpalte1, $GUI_SHOW)
GUICtrlSetState($LagerSpalte2, $GUI_SHOW)
GUICtrlSetState($LagerSpalte3, $GUI_SHOW)
GUICtrlSetState($ButtonExit, $GUI_SHOW)
GUICtrlSetState($Lager1Speichern, $GUI_HIDE)
GUICtrlSetState($Lager2Speichern, $GUI_HIDE)
GUICtrlSetState($Lager3Speichern, $GUI_SHOW)
GUICtrlSetState($SchliessfachOben, $GUI_SHOW)
GUICtrlSetState($AccLoschen, $GUI_SHOW)
GUICtrlSetState($LagerLabel1, $GUI_SHOW)
GUICtrlSetState($LagerInput1, $GUI_HIDE)
GUICtrlSetState($LagerInput2, $GUI_HIDE)
GUICtrlSetState($LagerInput3, $GUI_SHOW)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_HIDE)
GUICtrlSetState($Combo4, $GUI_SHOW)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Lager1, $GUI_SHOW)
GUICtrlSetState($Lager2, $GUI_SHOW)
GUICtrlSetState($Lager3, $GUI_HIDE)
GUICtrlSetState($LagerGroup, $GUI_SHOW)
GUICtrlSetState($LagerLabelGroup, $GUI_SHOW)
EndFunc
;-------------------------------------------------------------------------------------------------
Func _generateLagerSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' ' ,$left,216+$Abstand,5)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,216+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _generateLagerSpalte2(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' ' ,$left,216+$Abstand,5)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,216+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _generateLagerSpalte3(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' ' ,$left,216+$Abstand,5)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,216+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _generateSchliessfachSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
$Fach = GUICtrlCreateLabel(' ' ,$left,216+$Abstand,5)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",5+$left,130+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
#region Load Lagerverwaltung
Func _LoadData() ;Lager Spalten
GUICtrlSetData($LagerInput1,IniRead($DataINI,GUICtrlRead($Combo1),1001,''))
For $i = 1 To UBound($aSpalte1)-1
GUICtrlSetData($aSpalte1[$i],IniRead($DataINI,GUICtrlRead($Combo1),1&$i,''))
GUICtrlSetData($aSpalte2[$i],IniRead($DataINI,GUICtrlRead($Combo1),2&$i,''))
GUICtrlSetData($aSpalte3[$i],IniRead($DataINI,GUICtrlRead($Combo1),3&$i,''))
Next
EndFunc
Func _LoadData2() ;Lager Spalten
GUICtrlSetData($LagerInput2,IniRead($DataINI,GUICtrlRead($Combo1),1002,''))
For $i = 1 To UBound($bSpalte1)-1
GUICtrlSetData($bSpalte1[$i],IniRead($DataINI,GUICtrlRead($Combo1),4&$i,''))
GUICtrlSetData($bSpalte2[$i],IniRead($DataINI,GUICtrlRead($Combo1),5&$i,''))
GUICtrlSetData($bSpalte3[$i],IniRead($DataINI,GUICtrlRead($Combo1),6&$i,''))
Next
EndFunc
Func _LoadData3() ;Lager Spalten
GUICtrlSetData($LagerInput3,IniRead($DataINI,GUICtrlRead($Combo1),1003,''))
For $i = 1 To UBound($cSpalte1)-1
GUICtrlSetData($cSpalte1[$i],IniRead($DataINI,GUICtrlRead($Combo1),7&$i,''))
GUICtrlSetData($cSpalte2[$i],IniRead($DataINI,GUICtrlRead($Combo1),8&$i,''))
GUICtrlSetData($cSpalte3[$i],IniRead($DataINI,GUICtrlRead($Combo1),9&$i,''))
Next
EndFunc
#endregion Load Lagerverwaltung
;-------------------------------------------------------------------------------------------
#region Save Lagerverwaltung
Func _SaveData() ;Lager Spalten
IniWrite($DataINI,GUICtrlRead($Combo1),1001,GUICtrlRead($LagerInput1))
For $i = 1 To UBound($aSpalte1)-1
IniWrite($DataINI,GUICtrlRead($Combo1),1&$i,GUICtrlRead($aSpalte1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),2&$i,GUICtrlRead($aSpalte2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),3&$i,GUICtrlRead($aSpalte3[$i]))
Next
_clearGUI()
EndFunc
Func _SaveData2() ;Lager Spalten
IniWrite($DataINI,GUICtrlRead($Combo1),1002,GUICtrlRead($LagerInput2))
For $i = 1 To UBound($bSpalte1)-1
IniWrite($DataINI,GUICtrlRead($Combo1),4&$i,GUICtrlRead($bSpalte1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),5&$i,GUICtrlRead($bSpalte2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),6&$i,GUICtrlRead($bSpalte3[$i]))
Next
_clearGUI()
EndFunc
Func _SaveData3() ;Lager Spalten
IniWrite($DataINI,GUICtrlRead($Combo1),1003,GUICtrlRead($LagerInput3))
For $i = 1 To UBound($cSpalte1)-1
IniWrite($DataINI,GUICtrlRead($Combo1),7&$i,GUICtrlRead($cSpalte1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),8&$i,GUICtrlRead($cSpalte2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),9&$i,GUICtrlRead($cSpalte3[$i]))
Next
_clearGUI()
EndFunc
#endregion Save Lagerverwaltung
;-------------------------------------------------------------------------------------------
Func _LoadDataSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
GUICtrlSetData($aSchliesfach1[$i],IniRead($DataINI,GUICtrlRead($Combo2),2000&$i,''))
GUICtrlSetData($aSchliesfach2[$i],IniRead($DataINI,GUICtrlRead($Combo2),3000&$i,''))
GUICtrlSetData($aSchliesfach3[$i],IniRead($DataINI,GUICtrlRead($Combo2),4000&$i,''))
GUICtrlSetData($aSchliesfach4[$i],IniRead($DataINI,GUICtrlRead($Combo2),5000&$i,''))
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _SaveDataSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
IniWrite($DataINI,GUICtrlRead($Combo2),2000&$i,GUICtrlRead($aSchliesfach1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),3000&$i,GUICtrlRead($aSchliesfach2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),4000&$i,GUICtrlRead($aSchliesfach3[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),5000&$i,GUICtrlRead($aSchliesfach4[$i]))
Next
_clearGUI()
EndFunc
;-------------------------------------------------------------------------------------------
Func _deleteAccount()
IniDelete("data.ini", GUICtrlRead($Combo1))
_clearGUI()
EndFunc
;------------------------------------------------------------------------------------------
Func _deleteSchliessfach()
$sBesitzer = GUICtrlRead($Combo2)
$aSections = IniReadSection("data.ini", $sBesitzer) ;sectionname auslesen
For $i = 1 To $aSections[0][0]
If StringRegExp($aSections[$i][0], "\d000") Then ;wir überprüfen den Sectionname mit einem regulären Ausdruck (geht auch einfacher mit StringLeft)
;~ConsoleWrite($aSections[$i][0] & @crlf)
IniDelete("data.ini", $sBesitzer, $aSections[$i][0]) ;jeden Key löschen, auf den der reguläre Ausdruck zutrifft
EndIf
Next
_clearGUI()
EndFunc
;------------------------------------------------------------------------------------------
Func _clearGUI()
GUICtrlSetData($LagerInput1,'')
GUICtrlSetData($LagerInput2,'')
GUICtrlSetData($LagerInput3,'')
GUICtrlSetData($Combo1,'')
GUICtrlSetData($Combo3,'')
GUICtrlSetData($Combo4,'')
GUICtrlSetData($Combo2,'')
For $i = 1 To UBound($aSpalte1)-1
GUICtrlSetData($aSpalte1[$i],'')
GUICtrlSetData($aSpalte2[$i],'')
GUICtrlSetData($aSpalte3[$i],'')
Next
For $i = 1 To UBound($bSpalte1)-1
GUICtrlSetData($bSpalte1[$i],'')
GUICtrlSetData($bSpalte2[$i],'')
GUICtrlSetData($bSpalte3[$i],'')
Next
For $i = 1 To UBound($cSpalte1)-1
GUICtrlSetData($cSpalte1[$i],'')
GUICtrlSetData($cSpalte2[$i],'')
GUICtrlSetData($cSpalte3[$i],'')
Next
For $i = 1 To UBound($aSchliesfach1)-1
GUICtrlSetData($aSchliesfach1[$i],'')
GUICtrlSetData($aSchliesfach2[$i],'')
GUICtrlSetData($aSchliesfach3[$i],'')
GUICtrlSetData($aSchliesfach4[$i],'')
Next
GUICtrlSetData($Combo1,_setCombo())
GUICtrlSetData($Combo3,_setCombo())
GUICtrlSetData($Combo4,_setCombo())
GUICtrlSetData($Combo2,_setCombo())
EndFunc
;-------------------------------------------------------------------------------------------
Func _setCombo()
Local $Sections = IniReadSectionNames($DataINI)
Local $SectionString = _ArrayToString($Sections,'|',1,UBound($Sections)-1)
Return($SectionString)
EndFunc
;-------------------------------------------------------------------------------------------

[/autoit]

So, nun erstmal zum Problem des speicherns:
Geht man in die Lagerverwaltung ist man automatisch in Lager eins. Erstellt man nun einen neuen Account (Eintrag in Combo), den dazugehörigen Lagerort (Input), befüllt die Spalten und klickt auf speichern so ist alles ok!
Geht man danach auf Lager 2 oder 3 ist 1. nicht automatisch der zuletzt erstellte Account oben in der Combo mehr ausgewehlt sondern man muss ihn selber wieder anwählen, 2. trägt man nun bei Lager 2 alles ein wie bei Lager 1 und geht auf speichern so wird in der Ini zwar alles gespeichert, aber es stehen vorm Speicherpunkt diese [] , die verhindern das man Lager 2 und 3 dann auslesen kann und ich weiss nicht warum!
Auch wäre es schön wenn automatisch die Einträge die man gemacht hat gespeichert werden wenn man das Lager oder den Account wechselt, jedoch weiss ich nicht wie ich das machen kann!

Nun zum Problem des ladens:
Ähnlich wie beim speichern ist es beim Laden. Geht man in die Lagerverwaltung ist man wieder automatisch in Lager1. Wählt man nun da einen Acount aus läd er alles aus der Ini, wechselt man nun das Lager (im selben Acount) so fliegt auch hier der zuletzt gewählte Account wieder aus der Combo sodas man diesen dann wieder anwählen muss. Auch werden wenn es mal klappt nur die Combo und der Lagerort gleich ausgewählt, die Spalten jedoch bleiben lehr warum auch immer!
Auch kann man nur in Lager eins zwischen den Accounts hin und her schalten (sodas alles angezeigt wird).
Geht man auf lager 2 klickt einen Acount an lädt er es, wählt man aber hier nun einen anderen Account so bleiben die Felder lehr (genauso bei Lager3)!

Ich hoffe ich hab es verständlich beschrieben um was es mir geht und jemand hat die Zeit um mal drüber zu sehen und sich der Probleme anzunehmen.
Wenn jemand was verändert bitte die änderungen im Code mit angeben damit ich es nachvollziehen und verstehen kann!

Vielen Dank schonmal im Voraus!

Mfg Ghostleader

Ghostleader

Hallo @night@,

DANKE für diese wirklich schön Preziese Antwort!
Das ist genau das was ich gerne hierzu noch wissen wollte!

Mfg Ghostleader nicht Ghostreader

Ps. Geht super

Ghostleader

Hallo @night@

du hast recht, es geht sogar darum das die Func zwar die Schliesfächer löscht aber das Lager in ruhe lässt .
Ich komme nur net mit der Func von dir klar (Sorry lange Leitung). Wo steht denn da das diese wie du gerade sagtest (alle Keys in einer gewählten Section, welche mit 2000, 3000, 4000 oder 5000 (etc.)anfangen löscht?
Das ist das was ich suche in deiner Func!

Mfg Ghostleader

Ghostleader

Hallo @night@,

ja so meinte ich das in Etwa.
So wie du das umgestellt hast könnte es gehen, jedoch bin ich mir bei Section noch net so sicher die Ini erstellt ja für das Bankschliessfach 4 Spalten a 16 Inputs pro Spalte. D.h. es sind ja immer zb. von 2000 - 2016, 3000 - 3016, 4000 - 4016 und 5000 - 5016 vergeben wie würde ich denn in diesem Fall die jeweils 16 einträge pro Spalte in deiner Variante auslesen, denn das ist das was ich net verstehe gerade!
Hier mal ein Bsp. aus der ini bei vollen 4 Spalten und demnach 64 Input Einträgen [Seppel] <--- ist der Account.

Spoiler anzeigen

[seppel]
20001=1
30001=2
40001=3
50001=4
20002=1
30002=2
40002=3
50002=4
20003=1
30003=2
40003=3
50003=4
20004=1
30004=2
40004=3
50004=4
20005=1
30005=22
40005=33
50005=4
20006=1
30006=2
40006=3
50006=4
20007=1
30007=2
40007=3
50007=4
20008=11
30008=2
40008=3
50008=4
20009=1
30009=2
40009=3
50009=4
200010=1
300010=2
400010=3
500010=4
200011=1
300011=22
400011=3
500011=44
200012=1
300012=2
400012=3
500012=4
200013=1
300013=2
400013=33
500013=4
200014=1
300014=2
400014=3
500014=4
200015=1
300015=2
400015=3
500015=4
200016=1
300016=2
400016=3
500016=4

Ich hoffe du verstehst wie ich das meine.

Mfg Ghostleader

Ghostleader

Hallo @night @,

danke für deine Antwort, aber ich glaube so leicht ist es leider nicht wenn ich nicht irre (wenn doch bitte sagen)!
In diesem kommplettem Script werden mehrere Accounts vergeben, daher kann ich ja vorher nich zb. Seppel als Section fest vergeben wenn ich nicht irre! Ich glaube du broggst etwas anders wie es hier der Fall ist!
In meinem Fall ist es ein Bankschliessfach pro Account um das es gerade geht (ein Teil hier aus diesem Script)!
Das heist die Speicher/ladefunktion kommt pro Account einmal zum tragen!
Am besten hier mal das ganze Script:

Spoiler anzeigen

[autoit]

#region INCLUDES
;------------------------------------------------------------------------------------------
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#endregion INCLUDES
#region GLOBAL
;------------------------------------------------------------------------------------------
Global $aSchliesfach1[17], $aSchliesfach2[17], $aSchliesfach3[17], $aSchliesfach4[17]
Global $aSpalte1[13], $aSpalte2[13], $aSpalte3[13]
Global $bSpalte1[13], $bSpalte2[13], $bSpalte3[13]
Global $cSpalte1[13], $cSpalte2[13], $cSpalte3[13]
Global $DataINI = 'data.ini'
#endregion GLOBAL
;------------------------------------------------------------------------------------------
#region GUI
$Form1 = GUICreate("Form1", 940, 550, 192, 5, $WS_BORDER & $WS_POPUP)
GUISetState()
$Backround = GUICtrlCreatePic("bilder\lager.tgx", 0, 0, 940, 550)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#endregion GUI
;------------------------------------------------------------------------------------------
#region Group´s
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$FrontLagerBank = GUICtrlCreateGroup("", 360, 180, 280, 195)
$GroupCombo = GUICtrlCreateGroup("", 28, 6, 276, 36)
$GroupSpeichern = GUICtrlCreateGroup("", 336, 6, 276, 36)
$Exit = GUICtrlCreateGroup("", 646, 6, 276, 36)
$LagerLabelGroup = GUICtrlCreateGroup("", 330, 135, 282, 45)
$LagerGroup = GUICtrlCreateGroup("", 200, 62, 590, 45)
$LagerSpalte1 = GUICtrlCreateGroup("", 70, 195, 190, 290)
$LagerSpalte2 = GUICtrlCreateGroup("", 345, 195, 190, 290)
$LagerSpalte3 = GUICtrlCreateGroup("", 615, 195, 190, 290)
$BankRahmen1 = GUICtrlCreateGroup("", 30, 112, 190, 370)
$BankRahmen2 = GUICtrlCreateGroup("", 270, 112, 190, 370)
$BankRahmen3 = GUICtrlCreateGroup("", 500, 112, 190, 370)
$BankRahmen4 = GUICtrlCreateGroup("", 730, 112, 190, 370)
#endregion Group´s
;------------------------------------------------------------------------------------------
#region Button´s
$Lager1Speichern = GUICtrlCreateButton("Speichern", 350, 16, 110, 22)
$Lager2Speichern = GUICtrlCreateButton("Speichern", 350, 16, 110, 22)
$Lager3Speichern = GUICtrlCreateButton("Speichern", 350, 16, 110, 22)
$SchliessfachSpeichern = GUICtrlCreateButton("Speichern", 350, 16, 110, 22)
$AccLoschen = GUICtrlCreateButton("Acc Löschen", 490, 16, 110, 22)
;------------------------------------------------------------------------------------------
$SchliessfachOben = GUICtrlCreateButton("Bankschließfach", 660, 16, 110, 22)
$ButtonExit = GUICtrlCreateButton("Exit", 800, 16, 110, 22)
;------------------------------------------------------------------------------------------
$SchliessfachLoschen = GUICtrlCreateButton("Schliesfach Löschen", 490, 16, 110, 22)
$LagerOben = GUICtrlCreateButton("Lagerverwaltung", 660, 16, 110, 22)
;------------------------------------------------------------------------------------------
$LagerFront = GUICtrlCreateButton("Lagerverwaltung", 375, 200, 250, 40)
$SchliessfachFront = GUICtrlCreateButton("Bankschließfach", 375, 260, 250, 40)
$Schliessen = GUICtrlCreateButton("Programm Schliessen", 375, 320, 250, 40)
;------------------------------------------------------------------------------------------
$Lager1 = GUICtrlCreateButton("LAGER 1", 210, 75, 170, 25)
$Lager2 = GUICtrlCreateButton("LAGER 2", 410, 75, 170, 25)
$Lager3 = GUICtrlCreateButton("LAGER 3", 610, 75, 170, 25)
#endregion Button´s
;------------------------------------------------------------------------------------------
#region Combo´s
$Combo1 = GUICtrlCreateCombo("", 120, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1,_setCombo())
$Combo3 = GUICtrlCreateCombo("", 120, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo3,_setCombo())
$Combo4 = GUICtrlCreateCombo("", 120, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo4,_setCombo())
$Combo2 = GUICtrlCreateCombo("", 120, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo2,_setCombo())
#endregion Combo´s
;------------------------------------------------------------------------------------------
#region Label´s
$LagerLabel1 = GUICtrlCreateLabel("", 340, 150, 100, 25)
GUICtrlSetFont(-1, 15, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label4 = GUICtrlCreateLabel("Account", 42, 17, 80, 19)
GUICtrlSetFont(-1, 11, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#endregion Label´s
;---------------------------------------------------------------------------------------------
#region Input´s
$LagerInput1 = GUICtrlCreateInput("", 430, 150, 170, 21)
$LagerInput2 = GUICtrlCreateInput("", 430, 150, 170, 21)
$LagerInput3 = GUICtrlCreateInput("", 430, 150, 170, 21)
#endregion Input´s
;---------------------------------------------------------------------------------------------
#region HIDE
GUICtrlSetState($GroupSpeichern, $GUI_HIDE)
GUICtrlSetState($Exit, $GUI_HIDE)
GUICtrlSetState($LagerSpalte1, $GUI_HIDE)
GUICtrlSetState($LagerSpalte2, $GUI_HIDE)
GUICtrlSetState($LagerSpalte3, $GUI_HIDE)
GUICtrlSetState($GroupCombo, $GUI_HIDE)
GUICtrlSetState($BankRahmen1, $GUI_HIDE)
GUICtrlSetState($BankRahmen2, $GUI_HIDE)
GUICtrlSetState($BankRahmen3, $GUI_HIDE)
GUICtrlSetState($BankRahmen4, $GUI_HIDE)
GUICtrlSetState($ButtonExit, $GUI_HIDE)
GUICtrlSetState($Lager1Speichern, $GUI_HIDE)
GUICtrlSetState($Lager2Speichern, $GUI_HIDE)
GUICtrlSetState($Lager3Speichern, $GUI_HIDE)
GUICtrlSetState($SchliessfachOben, $GUI_HIDE)
GUICtrlSetState($AccLoschen, $GUI_HIDE)
GUICtrlSetState($SchliessfachLoschen, $GUI_HIDE)
GUICtrlSetState($LagerOben, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_HIDE)
GUICtrlSetState($Lager1, $GUI_HIDE)
GUICtrlSetState($Lager2, $GUI_HIDE)
GUICtrlSetState($Lager3, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_HIDE)
GUICtrlSetState($LagerInput1, $GUI_HIDE)
GUICtrlSetState($LagerInput2, $GUI_HIDE)
GUICtrlSetState($LagerInput3, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_HIDE)
GUICtrlSetState($Combo4, $GUI_HIDE)
GUICtrlSetState($LagerLabelGroup, $GUI_HIDE)
GUICtrlSetState($LagerGroup, $GUI_HIDE)
#endregion HIDE
;---------------------------------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $LagerFront
_ButtonLager1()
Case $LagerOben
_ButtonLager1()
Case $Lager1
_ButtonLager1()
Case $Lager2
_ButtonLager2()
Case $Lager3
_ButtonLager3()
Case $SchliessfachFront
_ButtonSchliessfach()
Case $SchliessfachOben
_ButtonSchliessfach()
Case $ButtonExit, $Schliessen
Exit
Case $Combo1
_LoadData()
Case $Combo3
_LoadData2()
Case $Combo4
_LoadData3()
Case $Combo2
_LoadDataSchliessfach()
Case $Lager1Speichern
_SaveData()
Case $Lager2Speichern
_SaveData2()
Case $Lager3Speichern
_SaveData3()
Case $SchliessfachSpeichern
_SaveDataSchliessfach()
Case $AccLoschen
_deleteAccount()
Case $SchliessfachLoschen
_deleteSchliessfach()
EndSwitch
WEnd
;_--------------------------------------------------------------------------------------------
Func _ButtonSchliessfach()
For $i = 1 TO UBound($aSpalte1) - 1
GUICtrlSetState($aSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte2) - 1
GUICtrlSetState($aSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte3) - 1
GUICtrlSetState($aSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte1) - 1
GUICtrlSetState($bSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte2) - 1
GUICtrlSetState($bSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte3) - 1
GUICtrlSetState($bSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte1) - 1
GUICtrlSetState($cSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte2) - 1
GUICtrlSetState($cSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte3) - 1
GUICtrlSetState($cSpalte3[$i], $GUI_HIDE)
Next

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

GUICtrlSetState($LagerFront, $GUI_HIDE)
GUICtrlSetState($SchliessfachFront, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($Lager1, $GUI_HIDE)
GUICtrlSetState($Lager2, $GUI_HIDE)
GUICtrlSetState($Lager3, $GUI_HIDE)
GUICtrlSetState($SchliessfachOben, $GUI_HIDE)
GUICtrlSetState($FrontLagerBank, $GUI_HIDE)
GUICtrlSetState($GroupSpeichern, $GUI_SHOW)
GUICtrlSetState($Exit, $GUI_SHOW)
GUICtrlSetState($LagerSpalte1, $GUI_HIDE)
GUICtrlSetState($LagerSpalte2, $GUI_HIDE)
GUICtrlSetState($LagerSpalte3, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($AccLoschen, $GUI_HIDE)
GUICtrlSetState($SchliessfachLoschen, $GUI_SHOW)
GUICtrlSetState($LagerOben, $GUI_SHOW)
GUICtrlSetState($GroupCombo, $GUI_SHOW)
GUICtrlSetState($ButtonExit, $GUI_SHOW)
GUICtrlSetState($Lager1Speichern, $GUI_HIDE)
GUICtrlSetState($Lager2Speichern, $GUI_HIDE)
GUICtrlSetState($Lager3Speichern, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_SHOW)
GUICtrlSetState($LagerLabel1, $GUI_HIDE)
GUICtrlSetState($LagerInput1, $GUI_HIDE)
GUICtrlSetState($LagerInput2, $GUI_HIDE)
GUICtrlSetState($LagerInput3, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_HIDE)
GUICtrlSetState($Combo4, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_SHOW)
GUICtrlSetState($BankRahmen1, $GUI_SHOW)
GUICtrlSetState($BankRahmen2, $GUI_SHOW)
GUICtrlSetState($BankRahmen3, $GUI_SHOW)
GUICtrlSetState($BankRahmen4, $GUI_SHOW)
GUICtrlSetState($LagerLabelGroup, $GUI_HIDE)
GUICtrlSetState($LagerGroup, $GUI_HIDE)
_generateSchliessfachSpalte($aSchliesfach1,40)
_generateSchliessfachSpalte($aSchliesfach2,280)
_generateSchliessfachSpalte($aSchliesfach3,510)
_generateSchliessfachSpalte($aSchliesfach4,740)
EndFunc
;------------------------------------------------------------------------------------------
Func _ButtonLager1()
For $i = 1 To Ubound($aSchliesfach1)-1
GUICtrlSetState($aschliesfach1[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach2)-1
GUICtrlSetState($aschliesfach2[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach3)-1
GUICtrlSetState($aschliesfach3[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach4)-1
GUICtrlSetState($aschliesfach4[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte1) - 1
GUICtrlSetState($bSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte2) - 1
GUICtrlSetState($bSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte3) - 1
GUICtrlSetState($bSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte1) - 1
GUICtrlSetState($cSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte2) - 1
GUICtrlSetState($cSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte3) - 1
GUICtrlSetState($cSpalte3[$i], $GUI_HIDE)
Next
GUICtrlSetState($SchliessfachLoschen, $GUI_HIDE)
GUICtrlSetState($LagerOben, $GUI_HIDE)
GUICtrlSetState($LagerFront, $GUI_HIDE)
GUICtrlSetState($SchliessfachFront, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($FrontLagerBank, $GUI_HIDE)
GUICtrlSetState($BankRahmen1, $GUI_HIDE)
GUICtrlSetState($BankRahmen2, $GUI_HIDE)
GUICtrlSetState($BankRahmen3, $GUI_HIDE)
GUICtrlSetState($BankRahmen4, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_HIDE)
GuiCtrlSetData($LagerLabel1, "Lager 1")
GUICtrlSetState($GroupCombo, $GUI_SHOW)
GUICtrlSetState($GroupSpeichern, $GUI_SHOW)
GUICtrlSetState($Exit, $GUI_SHOW)
GUICtrlSetState($LagerSpalte1, $GUI_SHOW)
GUICtrlSetState($LagerSpalte2, $GUI_SHOW)
GUICtrlSetState($LagerSpalte3, $GUI_SHOW)
GUICtrlSetState($ButtonExit, $GUI_SHOW)
GUICtrlSetState($Lager1Speichern, $GUI_SHOW)
GUICtrlSetState($Lager2Speichern, $GUI_HIDE)
GUICtrlSetState($Lager3Speichern, $GUI_HIDE)
GUICtrlSetState($SchliessfachOben, $GUI_SHOW)
GUICtrlSetState($AccLoschen, $GUI_SHOW)
GUICtrlSetState($LagerLabel1, $GUI_SHOW)
GUICtrlSetState($LagerInput1, $GUI_SHOW)
GUICtrlSetState($LagerInput2, $GUI_HIDE)
GUICtrlSetState($LagerInput3, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_SHOW)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_HIDE)
GUICtrlSetState($Combo4, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Lager1, $GUI_HIDE)
GUICtrlSetState($Lager2, $GUI_SHOW)
GUICtrlSetState($Lager3, $GUI_SHOW)
GUICtrlSetState($LagerGroup, $GUI_SHOW)
GUICtrlSetState($LagerLabelGroup, $GUI_SHOW)
_generateLagerSpalte($aSpalte1,1)
_generateLagerSpalte($aSpalte2,275)
_generateLagerSpalte($aSpalte3,545)
EndFunc
;------------------------------------------------------------------------------------------
Func _ButtonLager2()
For $i = 1 To Ubound($aSchliesfach1)-1
GUICtrlSetState($aschliesfach1[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach2)-1
GUICtrlSetState($aschliesfach2[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach3)-1
GUICtrlSetState($aschliesfach3[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach4)-1
GUICtrlSetState($aschliesfach4[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte1) - 1
GUICtrlSetState($aSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte2) - 1
GUICtrlSetState($aSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte3) - 1
GUICtrlSetState($aSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte1) - 1
GUICtrlSetState($cSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte2) - 1
GUICtrlSetState($cSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($cSpalte3) - 1
GUICtrlSetState($cSpalte3[$i], $GUI_HIDE)
Next
GUICtrlSetState($SchliessfachLoschen, $GUI_HIDE)
GUICtrlSetState($LagerOben, $GUI_HIDE)
GUICtrlSetState($LagerFront, $GUI_HIDE)
GUICtrlSetState($SchliessfachFront, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($FrontLagerBank, $GUI_HIDE)
GUICtrlSetState($BankRahmen1, $GUI_HIDE)
GUICtrlSetState($BankRahmen2, $GUI_HIDE)
GUICtrlSetState($BankRahmen3, $GUI_HIDE)
GUICtrlSetState($BankRahmen4, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_HIDE)
GuiCtrlSetData($LagerLabel1, "Lager 2")
GUICtrlSetState($GroupCombo, $GUI_SHOW)
GUICtrlSetState($GroupSpeichern, $GUI_SHOW)
GUICtrlSetState($Exit, $GUI_SHOW)
GUICtrlSetState($LagerSpalte1, $GUI_SHOW)
GUICtrlSetState($LagerSpalte2, $GUI_SHOW)
GUICtrlSetState($LagerSpalte3, $GUI_SHOW)
GUICtrlSetState($ButtonExit, $GUI_SHOW)
GUICtrlSetState($Lager1Speichern, $GUI_HIDE)
GUICtrlSetState($Lager2Speichern, $GUI_SHOW)
GUICtrlSetState($Lager3Speichern, $GUI_HIDE)
GUICtrlSetState($SchliessfachOben, $GUI_SHOW)
GUICtrlSetState($AccLoschen, $GUI_SHOW)
GUICtrlSetState($LagerLabel1, $GUI_SHOW)
GUICtrlSetState($LagerInput1, $GUI_HIDE)
GUICtrlSetState($LagerInput2, $GUI_SHOW)
GUICtrlSetState($LagerInput3, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_SHOW)
GUICtrlSetState($Combo4, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Lager1, $GUI_SHOW)
GUICtrlSetState($Lager2, $GUI_HIDE)
GUICtrlSetState($Lager3, $GUI_SHOW)
GUICtrlSetState($LagerGroup, $GUI_SHOW)
GUICtrlSetState($LagerLabelGroup, $GUI_SHOW)
_generateLagerSpalte2($bSpalte1,1)
_generateLagerSpalte2($bSpalte2,275)
_generateLagerSpalte2($bSpalte3,545)
EndFunc
;-------------------------------------------------------------------------------------------------
Func _ButtonLager3()
For $i = 1 To Ubound($aSchliesfach1)-1
GUICtrlSetState($aschliesfach1[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach2)-1
GUICtrlSetState($aschliesfach2[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach3)-1
GUICtrlSetState($aschliesfach3[$i], $GUI_HIDE)
Next
For $i = 1 To Ubound($aSchliesfach4)-1
GUICtrlSetState($aschliesfach4[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte1) - 1
GUICtrlSetState($aSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte2) - 1
GUICtrlSetState($aSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($aSpalte3) - 1
GUICtrlSetState($aSpalte3[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte1) - 1
GUICtrlSetState($bSpalte1[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte2) - 1
GUICtrlSetState($bSpalte2[$i], $GUI_HIDE)
Next
For $i = 1 TO UBound($bSpalte3) - 1
GUICtrlSetState($bSpalte3[$i], $GUI_HIDE)
Next
GUICtrlSetState($SchliessfachLoschen, $GUI_HIDE)
GUICtrlSetState($LagerOben, $GUI_HIDE)
GUICtrlSetState($LagerFront, $GUI_HIDE)
GUICtrlSetState($SchliessfachFront, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($FrontLagerBank, $GUI_HIDE)
GUICtrlSetState($BankRahmen1, $GUI_HIDE)
GUICtrlSetState($BankRahmen2, $GUI_HIDE)
GUICtrlSetState($BankRahmen3, $GUI_HIDE)
GUICtrlSetState($BankRahmen4, $GUI_HIDE)
GUICtrlSetState($Schliessen, $GUI_HIDE)
GUICtrlSetState($SchliessfachSpeichern, $GUI_HIDE)
GuiCtrlSetData($LagerLabel1, "Lager 3")
GUICtrlSetState($GroupCombo, $GUI_SHOW)
GUICtrlSetState($GroupSpeichern, $GUI_SHOW)
GUICtrlSetState($Exit, $GUI_SHOW)
GUICtrlSetState($LagerSpalte1, $GUI_SHOW)
GUICtrlSetState($LagerSpalte2, $GUI_SHOW)
GUICtrlSetState($LagerSpalte3, $GUI_SHOW)
GUICtrlSetState($ButtonExit, $GUI_SHOW)
GUICtrlSetState($Lager1Speichern, $GUI_HIDE)
GUICtrlSetState($Lager2Speichern, $GUI_HIDE)
GUICtrlSetState($Lager3Speichern, $GUI_SHOW)
GUICtrlSetState($SchliessfachOben, $GUI_SHOW)
GUICtrlSetState($AccLoschen, $GUI_SHOW)
GUICtrlSetState($LagerLabel1, $GUI_SHOW)
GUICtrlSetState($LagerInput1, $GUI_HIDE)
GUICtrlSetState($LagerInput2, $GUI_HIDE)
GUICtrlSetState($LagerInput3, $GUI_SHOW)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Combo3, $GUI_HIDE)
GUICtrlSetState($Combo4, $GUI_SHOW)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Lager1, $GUI_SHOW)
GUICtrlSetState($Lager2, $GUI_SHOW)
GUICtrlSetState($Lager3, $GUI_HIDE)
GUICtrlSetState($LagerGroup, $GUI_SHOW)
GUICtrlSetState($LagerLabelGroup, $GUI_SHOW)
_generateLagerSpalte3($cSpalte1,1)
_generateLagerSpalte3($cSpalte2,275)
_generateLagerSpalte3($cSpalte3,545)
EndFunc
;-------------------------------------------------------------------------------------------------
Func _generateLagerSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' ' ,$left,216+$Abstand,5)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,216+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _generateLagerSpalte2(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' ' ,$left,216+$Abstand,5)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,216+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _generateLagerSpalte3(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' ' ,$left,216+$Abstand,5)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,216+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _generateSchliessfachSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
$Fach = GUICtrlCreateLabel(' ' ,$left,216+$Abstand,5)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",5+$left,130+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
#region Load Lagerverwaltung
Func _LoadData() ;Lager Spalten
GUICtrlSetData($LagerInput1,IniRead($DataINI,GUICtrlRead($Combo1),1001,''))
For $i = 1 To UBound($aSpalte1)-1
GUICtrlSetData($aSpalte1[$i],IniRead($DataINI,GUICtrlRead($Combo1),1&$i,''))
GUICtrlSetData($aSpalte2[$i],IniRead($DataINI,GUICtrlRead($Combo1),2&$i,''))
GUICtrlSetData($aSpalte3[$i],IniRead($DataINI,GUICtrlRead($Combo1),3&$i,''))
Next
EndFunc
Func _LoadData2() ;Lager Spalten
GUICtrlSetData($LagerInput2,IniRead($DataINI,GUICtrlRead($Combo3),1002,''))
For $i = 1 To UBound($bSpalte1)-1
GUICtrlSetData($bSpalte1[$i],IniRead($DataINI,GUICtrlRead($Combo3),4&$i,''))
GUICtrlSetData($bSpalte2[$i],IniRead($DataINI,GUICtrlRead($Combo3),5&$i,''))
GUICtrlSetData($bSpalte3[$i],IniRead($DataINI,GUICtrlRead($Combo3),6&$i,''))
Next
EndFunc
Func _LoadData3() ;Lager Spalten
GUICtrlSetData($LagerInput3,IniRead($DataINI,GUICtrlRead($Combo4),1003,''))
For $i = 1 To UBound($cSpalte1)-1
GUICtrlSetData($cSpalte1[$i],IniRead($DataINI,GUICtrlRead($Combo4),7&$i,''))
GUICtrlSetData($cSpalte2[$i],IniRead($DataINI,GUICtrlRead($Combo4),8&$i,''))
GUICtrlSetData($cSpalte3[$i],IniRead($DataINI,GUICtrlRead($Combo4),9&$i,''))
Next
EndFunc
#endregion Load Lagerverwaltung
;-------------------------------------------------------------------------------------------
#region Save Lagerverwaltung
Func _SaveData() ;Lager Spalten
IniWrite($DataINI,GUICtrlRead($Combo1),1001,GUICtrlRead($LagerInput1))
For $i = 1 To UBound($aSpalte1)-1
IniWrite($DataINI,GUICtrlRead($Combo1),1&$i,GUICtrlRead($aSpalte1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),2&$i,GUICtrlRead($aSpalte2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),3&$i,GUICtrlRead($aSpalte3[$i]))
Next
_clearGUI()
EndFunc
Func _SaveData2() ;Lager Spalten
IniWrite($DataINI,GUICtrlRead($Combo3),1002,GUICtrlRead($LagerInput2))
For $i = 1 To UBound($bSpalte1)-1
IniWrite($DataINI,GUICtrlRead($Combo3),4&$i,GUICtrlRead($bSpalte1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo3),5&$i,GUICtrlRead($bSpalte2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo3),6&$i,GUICtrlRead($bSpalte3[$i]))
Next
_clearGUI()
EndFunc
Func _SaveData3() ;Lager Spalten
IniWrite($DataINI,GUICtrlRead($Combo4),1003,GUICtrlRead($LagerInput3))
For $i = 1 To UBound($cSpalte1)-1
IniWrite($DataINI,GUICtrlRead($Combo4),7&$i,GUICtrlRead($cSpalte1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo4),8&$i,GUICtrlRead($cSpalte2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo4),9&$i,GUICtrlRead($cSpalte3[$i]))
Next
_clearGUI()
EndFunc
#endregion Save Lagerverwaltung
;-------------------------------------------------------------------------------------------
Func _LoadDataSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
GUICtrlSetData($aSchliesfach1[$i],IniRead($DataINI,GUICtrlRead($Combo2),2000&$i,''))
GUICtrlSetData($aSchliesfach2[$i],IniRead($DataINI,GUICtrlRead($Combo2),3000&$i,''))
GUICtrlSetData($aSchliesfach3[$i],IniRead($DataINI,GUICtrlRead($Combo2),4000&$i,''))
GUICtrlSetData($aSchliesfach4[$i],IniRead($DataINI,GUICtrlRead($Combo2),5000&$i,''))
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _SaveDataSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
IniWrite($DataINI,GUICtrlRead($Combo2),2000&$i,GUICtrlRead($aSchliesfach1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),3000&$i,GUICtrlRead($aSchliesfach2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),4000&$i,GUICtrlRead($aSchliesfach3[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),5000&$i,GUICtrlRead($aSchliesfach4[$i]))
Next
_clearGUI()
EndFunc
;-------------------------------------------------------------------------------------------
Func _deleteAccount()
IniDelete("data.ini", GUICtrlRead($Combo1))
_clearGUI()
EndFunc
;------------------------------------------------------------------------------------------
Func _deleteSchliessfach()
IniDelete("data.ini", GUICtrlRead($Combo2))
_clearGUI()
EndFunc
;------------------------------------------------------------------------------------------
Func _clearGUI()
GUICtrlSetData($LagerInput1,'')
GUICtrlSetData($LagerInput2,'')
GUICtrlSetData($LagerInput3,'')
GUICtrlSetData($Combo1,'')
GUICtrlSetData($Combo3,'')
GUICtrlSetData($Combo4,'')
GUICtrlSetData($Combo2,'')
For $i = 1 To UBound($aSpalte1)-1
GUICtrlSetData($aSpalte1[$i],'')
GUICtrlSetData($aSpalte2[$i],'')
GUICtrlSetData($aSpalte3[$i],'')
Next
For $i = 1 To UBound($bSpalte1)-1
GUICtrlSetData($bSpalte1[$i],'')
GUICtrlSetData($bSpalte2[$i],'')
GUICtrlSetData($bSpalte3[$i],'')
Next
For $i = 1 To UBound($cSpalte1)-1
GUICtrlSetData($cSpalte1[$i],'')
GUICtrlSetData($cSpalte2[$i],'')
GUICtrlSetData($cSpalte3[$i],'')
Next
For $i = 1 To UBound($aSchliesfach1)-1
GUICtrlSetData($aSchliesfach1[$i],'')
GUICtrlSetData($aSchliesfach2[$i],'')
GUICtrlSetData($aSchliesfach3[$i],'')
GUICtrlSetData($aSchliesfach4[$i],'')
Next
GUICtrlSetData($Combo1,_setCombo())
GUICtrlSetData($Combo3,_setCombo())
GUICtrlSetData($Combo4,_setCombo())
GUICtrlSetData($Combo2,_setCombo())
EndFunc
;-------------------------------------------------------------------------------------------
Func _setCombo()
Local $Sections = IniReadSectionNames($DataINI)
Local $SectionString = _ArrayToString($Sections,'|',1,UBound($Sections)-1)
Return($SectionString)
EndFunc
;-------------------------------------------------------------------------------------------

[/autoit]

Bitte keine Augen/Lachkrämpfe bekommen
Jemand noch ne Idee bitte?

Mfg Ghostleader

Ghostleader

Hallo Dietmar,

hier nuun anbei die ini.

Mfg Ghostleader

Ghostleader

Hallo Dietmar,

danke erstmal für deine Antwort.

Könntest du mir bitte noch nen Ansatz geben wie du das ungefähr meinst? Wäre echt nett!

Mfg Ghostleader

Ghostleader

Hallo zusammen,

in einem code muss ein bestimmter Teil aus der Ini gelöscht werden.
Ich führe hier gleich auf, die speicher Funktion und danach die von mir gedachte (nicht funktionierende) Löschfunktion.

Hier die Speicher/Lade Funktion:

Spoiler anzeigen

[autoit]

Func _LoadDataSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
GUICtrlSetData($aSchliesfach1[$i],IniRead($DataINI,GUICtrlRead($Combo2),2000&$i,''))
GUICtrlSetData($aSchliesfach2[$i],IniRead($DataINI,GUICtrlRead($Combo2),3000&$i,''))
GUICtrlSetData($aSchliesfach3[$i],IniRead($DataINI,GUICtrlRead($Combo2),4000&$i,''))
GUICtrlSetData($aSchliesfach4[$i],IniRead($DataINI,GUICtrlRead($Combo2),5000&$i,''))
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _SaveDataSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
IniWrite($DataINI,GUICtrlRead($Combo2),2000&$i,GUICtrlRead($aSchliesfach1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),3000&$i,GUICtrlRead($aSchliesfach2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),4000&$i,GUICtrlRead($aSchliesfach3[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),5000&$i,GUICtrlRead($aSchliesfach4[$i]))
Next
_clearGUI()
EndFunc

[/autoit]

So wird alles gespeichert was ja auch einwandfrei funktioniert!

Nun die angedachte Lösch Funktion:

Spoiler anzeigen

[autoit]

Func _deleteSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
IniDelete($DataINI,GUICtrlRead($Combo2),2000&$i,GUICtrlRead($aschliesfach1[$i]))
IniDelete($DataINI,GUICtrlRead($Combo2),3000&$i,GUICtrlRead($aschliesfach1[$i]))
IniDelete($DataINI,GUICtrlRead($Combo2),4000&$i,GUICtrlRead($aschliesfach1[$i]))
IniDelete($DataINI,GUICtrlRead($Combo2),5000&$i,GUICtrlRead($aschliesfach1[$i]))
Next
_clearGUI()
EndFunc

[/autoit]

Beim löschen soll er eigentlich die 4 spalten löschen, jedoch darf nicht Combo2 gelöscht werden da diese auch Daten einer anderen Function speichert.
Also dürfen nur die 4 $aschliesfach (2000, 3000, 4000, 5000) gelöscht werden!

Ich hoffe ihr habt da eine einfache Lösung für mich!

Mfg Ghostleader

Ghostleader

Hallo TheLuBu,

also ok, wenn es eine werden kann/soll meinst du es dann so?

[autoit]

Func _generateLagerSpalte(ByRef $ArrayToUse, ByRef $ArryToUse2, $left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
$ArryToUse[$i] = GUICtrlCreateLabel(' ' ,$left,100+$Abstand,80)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
For $i = 1 To UBound($ArrayToUse2)-1
$ArrayToUse2[$i] = GUICtrlCreateInput("",85+$left,100+$Abstand,170)
$Abstand +=21
Next
EndFunc

[/autoit]

Ist das so ok oder gibbet da auch Problem bzw. ist das da noch Falsch?

Mfg Ghostleader

Ghostleader

Hallo TheLuBu,

Also meinst du für die Labels und die Inputs ne getrennte Funktion wenn ich das richtig verstehe oder?

1mal:

[autoit]

Func _generateLagerSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,100+$Abstand,170)
$Abstand +=21
Next
EndFunc

[/autoit]

und zum 2ten:

[autoit]

Func _generateLagerSpalte(ByRef $ArrayToUse2,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse2)-1
GUICtrlCreateLabel(' ' ,$left,100+$Abstand,80)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Abstand +=21
Next
EndFunc

[/autoit]

Oder bin ich immernoch auf´m falschem Dampfer unterwegs?

Mfg Ghostleader

Ghostleader

Hallo TheLuBu,

ok soweit ganz klar und so ungefähr nam ich es auch schon an.
Nun Frage ich mich allerdings wie bzw. wo ich denn noch ein Arry übergeben soll.
In den beiden Functionen ist ja nix mehr drin was ich noch durch ein Arry übergeben kann/müsste. Ich kann doch aber jetzt nicht einfach was einfügen was ich garnicht brauche oder sehe ich das falsch?

Mfg Ghostleader

Ghostleader

Hallo TheLuBu,

ich hatte das erstmal aussen vor gelassen und mich um anderes gekümmert.
Nun habe ich nochmal drüber gesehen, jedoch finde ich immernochnicht heraus was er mir nun sagen möchte nach deiner Änderung.
Ich hoffe du wirst es mir noch verraten!

Mfg Ghostleader

Ghostleader

Hallo TheLuBu,

ach so meinst du das, du glaubst garnicht wie ich gerade rum gedoctert habe .

Aber so gibt es Probleme:

Spoiler anzeigen

C:\Dokumente und Einstellungen\Marc\Desktop\lager au3 datei\Lager.au3(240,71) : ERROR: _generateLagerSpalte() called by a previous line with 2 arg(s). Min = 3. First previous line calling this Func is 234.
Func _generateLagerSpalte(ByRef $ArrayToUse, ByRef $ArrayToUse2,$left)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Marc\Desktop\lager au3 datei\Lager.au3(240,71) : ERROR: _generateLagerSpalte() previously called with Const or expression on ByRef param(s).
Func _generateLagerSpalte(ByRef $ArrayToUse, ByRef $ArrayToUse2,$left)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Marc\Desktop\lager au3 datei\Lager.au3(234,37) : REF: first call to _generateLagerSpalte().
_generateLagerSpalte($aSpalte1,15)

Mfg Ghostleader

Ghostleader

Hallo TheLuBu,

also meinst du ich soll als bsp. für die Lagerspalte aus dieser Funktion:

[autoit]

Func _generateLagerSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
$ArrayToUse[$i] = GUICtrlCreateLabel(' Lagerplatz ' ,$left,100+$Abstand,80)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,100+$Abstand,170)
$Abstand +=21
Next
EndFunc

[/autoit]

2 getrennte machen verstehe ich das richtig? Also einmal fürs Label und einmal fürs Input?

Mfg Ghostleader

Ghostleader

Hallo TheLuBu,

danke für deine Super Hilfe und auch für die Tipps für die Änderungen! Ich werde mir das sobald ich alles fertig habe mal zur gemüte nehmen und dann mal sehen in wie weit ich es umgebaut bekomme!
Nun nochmal fix zurück. Also dank deiner Verbesserung verschwindet nun alles ausser das Label zur jeweiligen Funktion.
Bsp.

[autoit]

Func _generateLagerSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' Lagerplatz ' ,$left,100+$Abstand,80)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,100+$Abstand,170)
$Abstand +=21
Next
EndFunc

[/autoit]

Hier bleibt bei aufrufen von Button8 dann das Label (Lagerplatz) da ebenso ist es bei Button 7 mit Fach.

Hättest dafür vielleicht auch noch ne lösung?
Habe schon versucht das Label ausserhalb der Funktion zu setzen, jedoch kommt ja dann der Fehler das er unteranderem mit ,$left, nich anfangen kann!

Mfg Ghostleader

Ghostleader

Hallo TheLuBu,

danke für deine Antwort und auch das du mir beim zusammenfassen helfen magst!

Hier ersteinmal der gesamte Code:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Lagerverwaltungstool.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Copyright by Ghostleader & Areneas
#AutoIt3Wrapper_Res_Fileversion=1.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Copyright by Ghostleader & Areneas
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ------------------------------------
|
Author: Ghostleader |
Script: Version 1.1.0 |
|
Script Functionen: |
- Lagerverwaltungstool = Version_1.1.0 |
- Bankschließfach = Version_1.1.0 |
|
Copyright by Ghostleader @ Areneas |
#ce ------------------------------------
#region INCLUDES
;------------------------------------------------------------------------------------------
#include <Array.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#endregion INCLUDES
#region GLOBAL
;------------------------------------------------------------------------------------------
Global $aSchliesfach1[17], $aSchliesfach2[17], $aSchliesfach3[17], $aSchliesfach4[17]
Global $aSpalte1[37], $aSpalte2[37], $aSpalte3[37]
Global $DataINI = 'data.ini'
#endregion GLOBAL
;------------------------------------------------------------------------------------------
#region GUI
$Form1 = GUICreate("Form1", 990, 900, 192, 5)
GUISetState()
$Backround = GUICtrlCreatePic("bilder\lager.tgx", 0, 0, 1050, 900)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#endregion GUI
;------------------------------------------------------------------------------------------
#region GROUP+BUTTONS
$Group1 = GUICtrlCreateGroup("", 346, 6, 276, 36)
$Button2 = GUICtrlCreateButton("Speichern", 360, 16, 110, 22)
$Button9 = GUICtrlCreateButton("Speichern", 360, 16, 110, 22)
$Button4 = GUICtrlCreateButton("Acc Löschen", 500, 16, 110, 22)
;------------------------------------------------------------------------------------------
$Group2 = GUICtrlCreateGroup("", 706, 6, 276, 36)
$Button3 = GUICtrlCreateButton("Bankschließfach", 720, 16, 110, 22)
$Button1 = GUICtrlCreateButton("Exit", 860, 16, 110, 22)
;------------------------------------------------------------------------------------------
$Button5 = GUICtrlCreateButton("Schliesfach Löschen", 500, 16, 110, 22)
$Button6 = GUICtrlCreateButton("Lagerverwaltung", 720, 16, 110, 22)
;------------------------------------------------------------------------------------------
$Group7 = GUICtrlCreateGroup("", 360, 280, 280, 135)
$Button7 = GUICtrlCreateButton("Lagerverwaltung", 375, 300, 250, 40)
$Button8 = GUICtrlCreateButton("Bankschließfach", 375, 360, 250, 40)
#endregion GROUP+BUTTONS
;------------------------------------------------------------------------------------------
#region INPUTS, GROUPS, LABELS
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 8, 50, 276, 816)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Lagerort1", 20, 65, 80, 19)
GUICtrlSetFont(-1, 11, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input1 = GUICtrlCreateInput("", 100, 64, 170, 21)
$Group4 = GUICtrlCreateGroup("", 346, 50, 276, 816)
$Label2 = GUICtrlCreateLabel("Lagerort2", 360, 65, 80, 19)
GUICtrlSetFont(-1, 11, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input2 = GUICtrlCreateInput("", 440, 64, 170, 21)
$Group5 = GUICtrlCreateGroup("", 706, 50, 276, 816)
$Label3 = GUICtrlCreateLabel("Lagerort3", 720, 65, 80, 19)
GUICtrlSetFont(-1, 11, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input3 = GUICtrlCreateInput("", 800, 64, 170, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("", 8, 6, 276, 36)
$Combo1 = GUICtrlCreateCombo("", 100, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1,_setCombo())
$Combo2 = GUICtrlCreateCombo("", 100, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo2,_setCombo())
$Label4 = GUICtrlCreateLabel("Account", 22, 17, 80, 19)
GUICtrlSetFont(-1, 11, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group10 = GUICtrlCreateGroup("", 35, 200, 220, 364)
$Group11 = GUICtrlCreateGroup("", 275, 200, 220, 364)
$Group12 = GUICtrlCreateGroup("", 505, 200, 220, 364)
$Group13 = GUICtrlCreateGroup("", 735, 200, 220, 364)
#endregion INPUTS, GROUPS, LABELS
;---------------------------------------------------------------------------------------------
#region HIDE
GUICtrlSetState($Group1, $GUI_HIDE)
GUICtrlSetState($Group2, $GUI_HIDE)
GUICtrlSetState($Group3, $GUI_HIDE)
GUICtrlSetState($Group4, $GUI_HIDE)
GUICtrlSetState($Group5, $GUI_HIDE)
GUICtrlSetState($Group6, $GUI_HIDE)
GUICtrlSetState($Group10, $GUI_HIDE)
GUICtrlSetState($Group11, $GUI_HIDE)
GUICtrlSetState($Group12, $GUI_HIDE)
GUICtrlSetState($Group13, $GUI_HIDE)
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Button2, $GUI_HIDE)
GUICtrlSetState($Button3, $GUI_HIDE)
GUICtrlSetState($Button4, $GUI_HIDE)
GUICtrlSetState($Button5, $GUI_HIDE)
GUICtrlSetState($Button6, $GUI_HIDE)
GUICtrlSetState($Button9, $GUI_HIDE)
GUICtrlSetState($Label1, $GUI_HIDE)
GUICtrlSetState($Label2, $GUI_HIDE)
GUICtrlSetState($Label3, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input2, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_HIDE)
#endregion HIDE
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button7
_Buton7()
Case $Button8
_Buton8()
Case $Button6
_Buton7()
Case $Button1
Exit
Case $Combo1
_LoadData()
Case $Combo2
_LoadDataSchliessfach()
Case $Button2
_SaveData()
Case $Button9
_SaveDataSchliessfach()
Case $Button3
_Buton8()
Case $Button4
_deleteAccount()
EndSwitch
WEnd
Func _Buton8()
GUICtrlSetState($Button7, $GUI_HIDE)
GUICtrlSetState($Button8, $GUI_HIDE)
GUICtrlSetState($Group7, $GUI_HIDE)
GUICtrlSetState($Group1, $GUI_SHOW)
GUICtrlSetState($Group2, $GUI_SHOW)
GUICtrlSetState($Group3, $GUI_HIDE)
GUICtrlSetState($Group4, $GUI_HIDE)
GUICtrlSetState($Group5, $GUI_HIDE)
GUICtrlSetState($Group6, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Button3, $GUI_HIDE)
GUICtrlSetState($Button4, $GUI_HIDE)
GUICtrlSetState($Button5, $GUI_SHOW)
GUICtrlSetState($Button6, $GUI_SHOW)
GUICtrlSetState($Group6, $GUI_SHOW)
GUICtrlSetState($Button1, $GUI_SHOW)
GUICtrlSetState($Button2, $GUI_HIDE)
GUICtrlSetState($Button9, $GUI_SHOW)
GUICtrlSetState($Label1, $GUI_HIDE)
GUICtrlSetState($Label2, $GUI_HIDE)
GUICtrlSetState($Label3, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input2, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUICtrlSetState($Combo2, $GUI_SHOW)
GUICtrlSetState($Group10, $GUI_SHOW)
GUICtrlSetState($Group11, $GUI_SHOW)
GUICtrlSetState($Group12, $GUI_SHOW)
GUICtrlSetState($Group13, $GUI_SHOW)
GUICtrlSetState($aSpalte1, $GUI_HIDE)
_generateSchliessfachSpalte($aSchliesfach1,40)
_generateSchliessfachSpalte($aSchliesfach2,280)
_generateSchliessfachSpalte($aSchliesfach3,510)
_generateSchliessfachSpalte($aSchliesfach4,740)
EndFunc
;------------------------------------------------------------------------------------------
Func _Buton7()
GUICtrlSetState($Button5, $GUI_HIDE)
GUICtrlSetState($Button6, $GUI_HIDE)
GUICtrlSetState($Button7, $GUI_HIDE)
GUICtrlSetState($Button8, $GUI_HIDE)
GUICtrlSetState($Group7, $GUI_HIDE)
GUICtrlSetState($Group1, $GUI_SHOW)
GUICtrlSetState($Group2, $GUI_SHOW)
GUICtrlSetState($Group3, $GUI_SHOW)
GUICtrlSetState($Group4, $GUI_SHOW)
GUICtrlSetState($Group5, $GUI_SHOW)
GUICtrlSetState($Group6, $GUI_SHOW)
GUICtrlSetState($Button1, $GUI_SHOW)
GUICtrlSetState($Button2, $GUI_SHOW)
GUICtrlSetState($Button3, $GUI_SHOW)
GUICtrlSetState($Button4, $GUI_SHOW)
GUICtrlSetState($Label1, $GUI_SHOW)
GUICtrlSetState($Label2, $GUI_SHOW)
GUICtrlSetState($Label3, $GUI_SHOW)
GUICtrlSetState($Input1, $GUI_SHOW)
GUICtrlSetState($Input2, $GUI_SHOW)
GUICtrlSetState($Input3, $GUI_SHOW)
GUICtrlSetState($Combo1, $GUI_SHOW)
GUICtrlSetState($Label4, $GUI_SHOW)
_generateLagerSpalte($aSpalte1,15)
_generateLagerSpalte($aSpalte2,355)
_generateLagerSpalte($aSpalte3,715)
EndFunc
;------------------------------------------------------------------------------------------
Func _generateLagerSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' Lagerplatz ' ,$left,100+$Abstand,80)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",85+$left,100+$Abstand,170)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _generateSchliessfachSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
$Fach = GUICtrlCreateLabel(' Fach ' ,$left,216+$Abstand,40)
GUICtrlSetFont(-1, 10, 600)
GUICtrlSetColor(-1, 000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ArrayToUse[$i] = GUICtrlCreateInput("",45+$left,216+$Abstand,160)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _LoadData()
GUICtrlSetData($Input1,IniRead($DataINI,GUICtrlRead($Combo1),08,''))
GUICtrlSetData($Input2,IniRead($DataINI,GUICtrlRead($Combo1),09,''))
GUICtrlSetData($Input3,IniRead($DataINI,GUICtrlRead($Combo1),10,''))
For $i = 1 To UBound($aSpalte1)-1
GUICtrlSetData($aSpalte1[$i],IniRead($DataINI,GUICtrlRead($Combo1),1&$i,''))
GUICtrlSetData($aSpalte2[$i],IniRead($DataINI,GUICtrlRead($Combo1),2&$i,''))
GUICtrlSetData($aSpalte3[$i],IniRead($DataINI,GUICtrlRead($Combo1),3&$i,''))
Next
EndFunc
;-------------------------------------------------------------------------------------------
Func _LoadDataSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
GUICtrlSetData($aSchliesfach1[$i],IniRead($DataINI,GUICtrlRead($Combo2),4&$i,''))
GUICtrlSetData($aSchliesfach2[$i],IniRead($DataINI,GUICtrlRead($Combo2),5&$i,''))
GUICtrlSetData($aSchliesfach3[$i],IniRead($DataINI,GUICtrlRead($Combo2),6&$i,''))
GUICtrlSetData($aSchliesfach4[$i],IniRead($DataINI,GUICtrlRead($Combo2),7&$i,''))
Next
EndFunc
;-------------------------------------------------------------------------------------------
Func _SaveData()
IniWrite($DataINI,GUICtrlRead($Combo1),08,GUICtrlRead($Input1))
IniWrite($DataINI,GUICtrlRead($Combo1),09,GUICtrlRead($Input2))
IniWrite($DataINI,GUICtrlRead($Combo1),10,GUICtrlRead($Input3))
For $i = 1 To UBound($aSpalte1)-1
IniWrite($DataINI,GUICtrlRead($Combo1),1&$i,GUICtrlRead($aSpalte1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),2&$i,GUICtrlRead($aSpalte2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),3&$i,GUICtrlRead($aSpalte3[$i]))
Next
_clearGUI()
EndFunc
;------------------------------------------------------------------------------------------
Func _SaveDataSchliessfach()
For $i = 1 To UBound($aSchliesfach1)-1
IniWrite($DataINI,GUICtrlRead($Combo2),4&$i,GUICtrlRead($aSchliesfach1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),5&$i,GUICtrlRead($aSchliesfach2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),6&$i,GUICtrlRead($aSchliesfach3[$i]))
IniWrite($DataINI,GUICtrlRead($Combo2),7&$i,GUICtrlRead($aSchliesfach4[$i]))
Next
_clearGUI()
EndFunc
;-------------------------------------------------------------------------------------------
Func _deleteAccount()
IniDelete("data.ini", GUICtrlRead($Combo1))
_clearGUI()
EndFunc
;------------------------------------------------------------------------------------------
Func _clearGUI()
GUICtrlSetData($Input1,'')
GUICtrlSetData($Input2,'')
GUICtrlSetData($Input3,'')
GUICtrlSetData($Combo1,'')
For $i = 1 To UBound($aSpalte1)-1
GUICtrlSetData($aSpalte1[$i],'')
GUICtrlSetData($aSpalte2[$i],'')
GUICtrlSetData($aSpalte3[$i],'')
Next
For $i = 1 To UBound($aSchliesfach1)-1
GUICtrlSetData($aSchliesfach1[$i],'')
GUICtrlSetData($aSchliesfach2[$i],'')
GUICtrlSetData($aSchliesfach3[$i],'')
GUICtrlSetData($aSchliesfach4[$i],'')
Next
GUICtrlSetData($Combo1,_setCombo())
EndFunc
;-------------------------------------------------------------------------------------------
Func _setCombo()
Local $Sections = IniReadSectionNames($DataINI)
Local $SectionString = _ArrayToString($Sections,'|',1,UBound($Sections)-1)
Return($SectionString)
EndFunc
;-------------------------------------------------------------------------------------------

[/autoit]

So, aber nun erstmal zum eigentlichen. Wenn ich das mache so wie du es sagst (habe es mit Func _Button7() getestet) kommt volgender Fehler:
C:\Dokumente und Einstellungen\Marc\Desktop\lager au3 datei\Lager.au3(191,37) : WARNING: $aschliesfach: possibly used before declaration.
GUICtrlSetState($aschliesfach[$i],
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Marc\Desktop\lager au3 datei\Lager.au3(191,37) : ERROR: $aschliesfach: undeclared global variable.
GUICtrlSetState($aschliesfach[$i],
~~~~~~~~~~~~~~~~~~~~~~~~~~~^

Ich hoffe auch dafür hast du eine Lösung!

Mfg Ghostleader

Ghostleader

Hallo zusammen,
erstmal wieder ein Danke an euch beide!

i2c
Also ich habe versucht das mal anhand deines bsp. umzusetzen, jedoch leider ohne Erfolg ! Mich verwirrt es ein wenig das du wieder anders Codest wie Protex dies getan hat
Könntest du es bitte vielleicht nochmal anhand eines bsp. in der Schreibweise von Protex machen, also so wie es jetzt im Skript ist?

BugFix
Nein, ich finde ansich doch das Arrays eine tolle Sache sind, nur das es halt für mich als ich sag mal Autoit Leihe die Sache manchmal etwas ganz schön erschwert wird, da ich noch nicht so recht mit den folge Aufgaben wie eben gerade die von i2c klar komme!
Der Forteil von nur Labels und Inputs ist eben das man sie leicht jederzeit ein/ausblenden lassen kann, anders eben jetzt gerade bei dieser Sache!
Aber danke für diese Idee, werde sie bestimmt nochmal an anderer Stelle brauchen!

Mfg Ghostleader

Beiträge von Ghostleader

Speichern/Laden Funktioniert nicht richtig ua.

Speichern/Laden Funktioniert nicht richtig ua.

Speichern/Laden Funktioniert nicht richtig ua.

Speichern/Laden Funktioniert nicht richtig ua.

Brauche Hilfe beim löschen mit der INI delete Funktion

Brauche Hilfe beim löschen mit der INI delete Funktion

Brauche Hilfe beim löschen mit der INI delete Funktion

Brauche Hilfe beim löschen mit der INI delete Funktion

Brauche Hilfe beim löschen mit der INI delete Funktion

Brauche Hilfe beim löschen mit der INI delete Funktion

Brauche Hilfe beim löschen mit der INI delete Funktion

Func beim Wechsel nicht anzeigen

Func beim Wechsel nicht anzeigen

Func beim Wechsel nicht anzeigen

Func beim Wechsel nicht anzeigen

Func beim Wechsel nicht anzeigen

Func beim Wechsel nicht anzeigen

Func beim Wechsel nicht anzeigen

Func beim Wechsel nicht anzeigen

Func beim Wechsel nicht anzeigen