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
#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
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
;-------------------------------------------------------------------------------------------
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