#include "D:\Sharknex_Oracle_10g_73\AutoIT\Import_Export_Oracle.au3"
#include "D:\Sharknex_Oracle_10g_73\AutoIT\Sharknex.au3"
#include <string.au3>
#include <GUIConstants.au3>
#include <File.au3>
#Include <GuiStatusBar.au3>
#include <GUItab.au3>







Dim $MainGUI, $buttonInst, $oraclewindows, $oraclelinux, $as400, $exist, $SubGUISQL, $sqlBack, $sqle, $sql, $oraclewindowse, $oraclelinuxe, $as400e, $existe
Dim $SubGUIoraclewindows, $oraclewindowsBack, $SubGUIoraclelinux, $oraclelinuxBack, $SubGUIas400, $as400Back, $SubGUIexist, $existBack




$MainGUI = GUICreate("MainGUI", 600, 400, -1, -1)
$buttonInst = GUICtrlCreateButton("Welche DB soll erstellt / importiert / exportiert werden", 50, 300, -1, -1, 0)
$Group1 = GUICtrlCreateGroup("Datenbanken", 125, 76, 237, 185)
$sql = GUICtrlCreateRadio("SQL Server 2005", 150, 102, 83, 17)
$oraclewindows = GUICtrlCreateRadio("Oracle 10g Windows", 150, 132, 83, 17)
$oraclelinux = GUICtrlCreateRadio("Oracle 10g Linux", 150, 162, 83, 17)
$as400 = GUICtrlCreateRadio("DB2 auf AS400", 150, 192, 83, 17)
$exist = GUICtrlCreateRadio("Exist XML", 150, 222, 83, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateGroup("", -199, -199, 1, 1)


$SubGUIsql = GUICreate("SQL Server 2005", 413, 180, 303, 219)
$sqlBack = GUICtrlCreateButton("Zurück", 276, 109, 89, 21, 0)


$SubGUIoraclewindows = GUICreate("Pfadangabe für SharkNex 7.3 Installation", 1000, 600)
$oraclewindowsBack = GUICtrlCreateButton("Zurück", 276, 109, 89, 21, 0)
;Menueleiste
													$filemenu = GUICtrlCreateMenu ("&Datei öffnen")
														$sqlnetora = GUICtrlCreateMenuitem ("sqlnet.ora",$filemenu)
														$tnsnamesora = GUICtrlCreateMenuitem ("tnsnames.ora",$filemenu)
														$listenerora = GUICtrlCreateMenuitem ("listener.ora",$filemenu)
														$separator = GUICtrlCreateMenuitem ("",$filemenu,4)
														$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
													$filemenu2	= GUICtrlCreateMenu("&Ordner öffnen")
														$logordner = GUICtrlCreateMenuitem ("Logordner",$filemenu2)
															
			;										$filetransfer = GUICtrlCreateMenu ("&Datenaustausch")
			;											$expimp = GUICtrlCreateMenuitem ("&Import / Export",$filetransfer)
													$helpmenu = GUICtrlCreateMenu ("&Help")
														$infoitem = GUICtrlCreateMenuitem ("Info",$helpmenu)


														$tab=GUICtrlCreateTab (10,10,980,560)
;Erster Tab für Pfadangabe														
														$tab4=GUICtrlCreateTabitem ("CREATEDB.CMD")
														GUISetFont(25, 300, 4)
														GUICtrlCreateLabel("Pfadangaben für SharkNex Installation unter Oracle / Windows", 150,75,550,100)
														GUISetFont(12, 300,1)
														GUICtrlCreateLabel("Angabe Ordner in dem sich die SharkNex Scripte befinden:", 150,180,450,21)
														GUISetFont(10, 300, 0)
														GUICtrlCreateLabel("Servername: " & $HOST & $DOMAINE, 550,530,300,21)	
														GUISetFont(9, 300, 0)
														$obutton3 = GUICtrlCreateButton("Original Dateien für DB Erstellung aus SIC Ordner zurückkopieren", 175, 390, 400, 30)
														$einspielen = GUICtrlCreateButton("Einspielen Einstellungen", 175, 450, 400, 30)
														$PRG = GUICtrlCreateEdit("", 150, 200, 500, 21, 0)
														GUISetFont(8, 300, 0)
														GUICtrlCreateLabel("z.B. C:\Scripte_SharkNex / Diesen Ordner nach Installation NICHT löschen !!", 150,220,450,21)
														GUISetFont(9, 300, 0)
														$obutton1 = GUICtrlCreateButton("Ordner", 605, 225, 45, 21)
;Zweiter Tab für TBS														
														$tab0=GUICtrlCreateTabitem ("Datenfiles / TBS")
														GUICtrlCreateLabel("Pfadangabe zur Ablage der Tablespace Dateien", 242,50,250,17)
														GUICtrlCreateLabel("Größe TBS in MB", 775,50,250,17)
														GUICtrlCreateLabel("Größe Extent in MB", 875,50,250,17)
														
														GUICtrlCreateLabel("TEMP01:", 42, 85, 111, 21)
														$TEMP01 = GUICtrlCreateEdit("", 150, 80, 500, 21, 0)
														$button1 = GUICtrlCreateButton("Ordner", 675, 80, 45, 21)
														$GR1 = GUICtrlCreateEdit("", 800, 80, 50, 21, 0)
														$EXT1 = GUICtrlCreateEdit("", 890, 80, 50, 21, 0)
																	
														GUICtrlCreateLabel("SYSAUX01:", 42, 115, 111, 21)
														$SYSAUX01 = GUICtrlCreateEdit("", 150, 110, 500, 21, 0)
														$button2 = GUICtrlCreateButton("Ordner", 675, 110, 45, 21)
														$GR2 = GUICtrlCreateEdit("", 800, 110, 50, 21, 0)
														$EXT2 = GUICtrlCreateEdit("", 890, 110, 50, 21, 0)
														
														GUICtrlCreateLabel("UNDOTBS01:", 42, 145, 111, 21)
														$UNDOTBS01 = GUICtrlCreateEdit("", 150, 140, 500, 21, 0)
														$button3 = GUICtrlCreateButton("Ordner", 675, 140, 45, 21)
														$GR3 = GUICtrlCreateEdit("", 800, 140, 50, 21, 0)
														$EXT3 = GUICtrlCreateEdit("", 890, 140, 50, 21, 0)
														
														GUICtrlCreateLabel("USER01:", 42, 175, 111, 21)
														$USER01 = GUICtrlCreateEdit("", 150, 170, 500, 21, 0)
														$button4 = GUICtrlCreateButton("Ordner", 675, 170, 45, 21)
														$GR4 = GUICtrlCreateEdit("", 800, 170, 50, 21, 0)
														$EXT4 = GUICtrlCreateEdit("", 890, 170, 50, 21, 0)
														
														GUICtrlCreateLabel("SYSTEM01:", 42, 205, 111, 21)
														$SYSTEM01 = GUICtrlCreateEdit("", 150, 200, 500, 21, 0)
														$button5 = GUICtrlCreateButton("Ordner", 675, 200, 45, 21)
														$GR5 = GUICtrlCreateEdit("", 800, 200, 50, 21, 0)
														$EXT5 = GUICtrlCreateEdit("", 890, 200, 50, 21, 0)
														
														GUICtrlCreateLabel("APPL_DAT1_A:", 42, 235, 111, 21)
														$APPL_DAT1_A = GUICtrlCreateEdit("", 150, 230, 500, 21, 0)
														$button6 = GUICtrlCreateButton("Ordner", 675, 230, 45, 21)
														$GR6 = GUICtrlCreateEdit("", 800, 230, 50, 21, 0)
														$EXT6 = GUICtrlCreateEdit("", 890, 230, 50, 21, 0)
														
														GUICtrlCreateLabel("APPL_DAT1_B:", 42, 265, 111, 21)
														$APPL_DAT1_B = GUICtrlCreateEdit("", 150, 260, 500, 21, 0)
														$button7 = GUICtrlCreateButton("Ordner", 675, 260, 45, 21)
														$GR7 = GUICtrlCreateEdit("", 800, 260, 50, 21, 0)
														$EXT7 = GUICtrlCreateEdit("", 890, 260, 50, 21, 0)
														
														GUICtrlCreateLabel("APPL_LOB1_A:", 42, 295, 111, 21)
														$APPL_LOB1_A = GUICtrlCreateEdit("", 150, 290, 500, 21, 0)
														$button8 = GUICtrlCreateButton("Ordner", 675, 290, 45, 21)
														$GR8 = GUICtrlCreateEdit("", 800, 290, 50, 21, 0)
														$EXT8 = GUICtrlCreateEdit("", 890, 290, 50, 21, 0)
														
														GUICtrlCreateLabel("APPL_LOB1_B:", 42, 325, 111, 21)
														$APPL_LOB1_B = GUICtrlCreateEdit("", 150, 320, 500, 21, 0)
														$button9 = GUICtrlCreateButton("Ordner", 675, 320, 45, 21)
														$GR9 = GUICtrlCreateEdit("", 800, 320, 50, 21, 0)
														$EXT9 = GUICtrlCreateEdit("", 890, 320, 50, 21, 0)
														
														GUICtrlCreateLabel("APPL_IDX1_A:", 42, 355, 111, 21)
														$APPL_IDX1_A = GUICtrlCreateEdit("", 150, 350, 500, 21, 0)
														$button10 = GUICtrlCreateButton("Ordner", 675, 350, 45, 21)
														$GR10 = GUICtrlCreateEdit("", 800, 350, 50, 21, 0)
														$EXT10 = GUICtrlCreateEdit("", 890, 350, 50, 21, 0)
														
														GUICtrlCreateLabel("APPL_IDX1_B:", 42, 385, 111, 21)
														$APPL_IDX1_B = GUICtrlCreateEdit("", 150, 380, 500, 21, 0)
														$button11 = GUICtrlCreateButton("Ordner", 675, 380, 45, 21)
														$GR11 = GUICtrlCreateEdit("", 800, 380, 50, 21, 0)
														$EXT11 = GUICtrlCreateEdit("", 890, 380, 50, 21, 0)
														
														GUICtrlCreateLabel("APPL_EXT1:", 42, 415, 111, 21)
														$APPL_EXT1 = GUICtrlCreateEdit("", 150, 410, 500, 21, 0)
														$button12 = GUICtrlCreateButton("Ordner", 675, 410, 45, 21)
														$GR12 = GUICtrlCreateEdit("", 800, 410, 50, 21, 0)
														$EXT12 = GUICtrlCreateEdit("", 890, 410, 50, 21, 0)
														
														GUICtrlCreateLabel("APPL_IDXEXT1:", 42, 445, 111, 21)
														$APPL_IDXEXT1 = GUICtrlCreateEdit("", 150, 440, 500, 21, 0)
														$button13 = GUICtrlCreateButton("Ordner", 675, 440, 45, 21)
														$GR13 = GUICtrlCreateEdit("", 800, 440, 50, 21, 0)
														$EXT13 = GUICtrlCreateEdit("", 890, 440, 50, 21, 0)
;3 Tab für Sonstige Angaben 1														
														$tab1=GUICtrlCreateTabitem ("Sonstige Angaben 1")
														GUICtrlCreateLabel("Sonstige Pfadangaben für weitere Log bzw. Installationsdateien", 242,50,250,17)
														GUICtrlCreateLabel("Größe Log in MB", 775,50,250,17)
														
														GUICtrlCreateLabel("Redo-Log 1:", 42, 85, 111, 21)
														$REDO1 = GUICtrlCreateEdit("", 150, 80, 500, 21, 0)
														$button30 = GUICtrlCreateButton("Ordner", 675, 80, 45, 21)
														$GR30 = GUICtrlCreateEdit("", 800, 80, 50, 21, 0)
														
														GUICtrlCreateLabel("Redo-Log 2:", 42, 115, 111, 21)
														$REDO2 = GUICtrlCreateEdit("", 150, 110, 500, 21, 0)
														$button31 = GUICtrlCreateButton("Ordner", 675, 110, 45, 21)
																
														GUICtrlCreateLabel("Flashrecovery:", 42, 175, 111, 21)
														$FLASHRECOVERY = GUICtrlCreateEdit("", 150, 170, 500, 21, 0)
														$button32 = GUICtrlCreateButton("Ordner", 675, 170, 45, 21)
														
														GUICtrlCreateLabel("Import / Export:", 42, 235, 111, 21)
														$IMPEXP = GUICtrlCreateEdit("", 150, 230, 500, 21, 0)
														GUISetFont(8, 300)
														GUICtrlCreateLabel("(Ordner in dem der Ordner Export und Import erstellt werden)", 150, 250, 400, 21)
														GUISetFont(9, 300)
														$button33 = GUICtrlCreateButton("Ordner", 675, 230, 45, 21)
														
														GUICtrlCreateLabel("Log Installation:", 42, 295, 111, 21)
														$LOG = GUICtrlCreateEdit("", 150, 290, 500, 21, 0)
														GUISetFont(8, 300)
														GUICtrlCreateLabel("(Ordner in dem die Ordner adump, bdump, cdump, udump, dpdump erstellt werden)", 150, 310, 400, 21)
														GUISetFont(9, 300)
														$button34 = GUICtrlCreateButton("Ordner", 675, 290, 45, 21)
														
														GUICtrlCreateLabel("Oracle Home:", 42, 355, 111, 21)
														$ORACLE_HOME = GUICtrlCreateEdit("", 150, 350, 500, 21, 0)
														$button35 = GUICtrlCreateButton("Ordner", 675, 350, 45, 21)
;3 Tab für Sonstige Angaben 2														
														$tab2=GUICtrlCreateTabitem ("Sonstige Angaben 2")
														GUICtrlCreateLabel("Parameter INIT.ORA", 100,50,500,17)
														
														GUICtrlCreateLabel("Compatible:", 42, 85, 111, 21)
														$COMPATIBLE = GUICtrlCreateEdit("", 200, 80, 150, 21, 0)
														
														GUICtrlCreateLabel("pga_aggregate_target (MB):", 42, 115, 170, 21)
														$PGA_AGGREGATE_TARGET = GUICtrlCreateEdit("", 200, 110, 50, 21, 0)
														
														GUICtrlCreateLabel("sga_max_size (MB):", 42, 145, 111, 21)
														$SGA_MAX_SIZE = GUICtrlCreateEdit("", 200, 140, 50, 21, 0)
														
														GUICtrlCreateLabel("sga_target (MB):", 42, 175, 111, 21)
														$SGA_TARGET = GUICtrlCreateEdit("", 200, 170, 50, 21, 0)
														
														GUICtrlCreateLabel("Control_Files 1 + 2:", 42, 205, 111, 21)
														$CONTROL_FILES_1 = GUICtrlCreateEdit("", 200, 200, 300, 21, 0)
														$button41 = GUICtrlCreateButton("Ordner", 510, 200, 45, 21)
														$CONTROL_FILES_2 = GUICtrlCreateEdit("", 575, 200, 300, 21, 0)
														$button42 = GUICtrlCreateButton("Ordner", 885, 200, 45, 21)
														
														GUICtrlCreateLabel("SID / db_name:", 42, 235, 111, 21)
														$DB_NAME = GUICtrlCreateEdit("", 200, 230, 111, 21, 0)
														
														GUICtrlCreateLabel("ORACLE Angaben (User sys / system / DDL + DML (Sharknex)", 100,330,500,17)

														GUICtrlCreateLabel("User DDL + PW:", 42, 368, 111, 30)
														$DDL = GUICtrlCreateEdit("", 175, 360, 200, 21, 0)
														
														GUICtrlCreateLabel("User DML + PW:", 42, 398, 111, 30)
														$DML = GUICtrlCreateEdit("", 175, 390, 200, 21, 0)
															
														$PWDDL = GUICtrlCreateEdit("", 400, 360, 200, 21, 0)
														$PWDML = GUICtrlCreateEdit("", 400, 390, 200, 21, 0)
															
														GUICtrlCreateLabel("PW User SYS:", 42, 428, 111, 30)
														$PWSYS = GUICtrlCreateEdit("", 400, 420, 200, 21, 0)
														
														GUICtrlCreateLabel("PW User SYSTEM:", 42, 458, 111, 30)
														$PWSYSTEM = GUICtrlCreateEdit("", 400, 450, 200, 21, 0)
;4 Tab für Ausführen und Sichern														
														$tab3=GUICtrlCreateTabitem ("!!! Ausführen !!!")
														GUISetFont(15, 300)
														GUICtrlCreateLabel("Sichern der gerade gemachten Pfadangaben und ", 50, 100, 400, 23)	
														GUICtrlCreateLabel("Einstellungen in die Datei sic_Sharknex.txt", 50, 125, 400, 23)	
														GUISetFont(12, 300)
														$sicherung = GUICtrlCreateButton("Sichern Einstellungen", 140, 175, 200, 50)
														
														GUISetFont(15, 300)
														GUICtrlCreateLabel("Starten der DB Erstellung", 635, 125, 400, 23)	
														GUISetFont(12, 300)
														$create_cmd = GUICtrlCreateButton("Create_DB.cmd", 650, 175, 200, 50)
														GUISetFont(9, 300)
GUISetState(@SW_HIDE, $SubGUIoraclewindows)
															
			







$SubGUIoraclelinux = GUICreate("Oracle 10G Linux", 413, 180, 303, 219)
$oraclelinuxBack = GUICtrlCreateButton("Zurück", 276, 109, 89, 21, 0)

$SubGUIas400 = GUICreate("DB2 AS/400", 413, 180, 303, 219)
$as400Back = GUICtrlCreateButton("Zurück", 276, 109, 89, 21, 0)

$SubGUIexist = GUICreate("Exist XML", 413, 180, 303, 219)
$existBack = GUICtrlCreateButton("Zurück", 276, 109, 89, 21, 0)




	



GUISetState(@SW_SHOW, $MainGUI)

				While 1
					$oMsg = GUIGetMsg()

				Switch $oMsg
						Case $GUI_EVENT_CLOSE
							Exit
						Case $buttonInst
							$sqle = GUICtrlRead($sql)
							$oraclewindowse = GUICtrlRead($oraclewindows)
							$oraclelinuxe = GUICtrlRead($oraclelinux)
							$as400e = GUICtrlRead($as400)
							$existe = GUICtrlRead($exist)
							
							If $sqle = 1 Then
								GUISetState(@SW_HIDE, $MainGUI)
								GUISetState(@SW_SHOW, $SubGUIsql)
							EndIf
							
							If $oraclewindowse = 1 Then
								GUISetState(@SW_HIDE, $MainGUI)
								GUISetState(@SW_SHOW, $SubGUIoraclewindows)				
								sharknexgui()
							EndIf
							
							If $oraclelinuxe = 1 Then
								GUISetState(@SW_HIDE, $MainGUI)
								GUISetState(@SW_SHOW, $SubGUIoraclelinux)
							EndIf
							
							If $as400e = 1 Then
								GUISetState(@SW_HIDE, $MainGUI)
								GUISetState(@SW_SHOW, $SubGUIas400)
							EndIf
						
							If $existe = 1 Then
								GUISetState(@SW_HIDE, $MainGUI)
								GUISetState(@SW_SHOW, $SubGUIexist)
							EndIf
						
						Case $sqlBack
							GUISetState(@SW_HIDE, $SubGUIsql)
							GUISetState(@SW_SHOW, $MainGUI)			
							
						Case $oraclewindowsBack
							GUISetState(@SW_HIDE, $SubGUIoraclewindows)
							GUISetState(@SW_SHOW, $MainGUI)			
							
						Case $oraclelinuxBack
							GUISetState(@SW_HIDE, $SubGUIoraclelinux)
							GUISetState(@SW_SHOW, $MainGUI)			
							
						Case $as400Back
							GUISetState(@SW_HIDE, $SubGUIas400)
							GUISetState(@SW_SHOW, $MainGUI)			
							
						Case $existBack
							GUISetState(@SW_HIDE, $SubGUIexist)
							GUISetState(@SW_SHOW, $MainGUI)			
								
					EndSwitch
				WEnd


func sharknexgui()
								$nMsg = GUIGetMsg()

															Select
																case $nMsg = $tab
																	If _GUICtrlTabGetCurSel($tab) Then
																		If GUICtrlRead($PRG) = "" Then 
																			MsgBox(16, "WARNUNG", "Der Pfad zu den SharkNex Scripten auf dem 1.Reiter wurde nicht angegeben !")
																			;_GUICtrlTabSetCurFocus($tab,$tab4)
																		EndIf
																	EndIf
																;case $nMsg = $expimp
																;			ShellExecute("Import_Export")						
																case $nMsg = $sqlnetora
																		if $ORACLE_HOMEE <> "" Then
																			ShellExecute($ORACLE_HOMEE & "\NETWORK\ADMIN\sqlnet.ora", "", "", "edit")
																		Else
																			msgbox(4096,"SQLNET.ORA", "Datei kann nicht geöffnet werden, ORACLE_HOME nicht gesetzt. BITTE DATEN EINSPIELEN")
																		EndIf
																case $nMsg = $tnsnamesora 
																		if $ORACLE_HOMEE <> "" Then
																			ShellExecute($ORACLE_HOMEE & "\NETWORK\ADMIN\tnsnames.ora", "", "", "edit")
																		Else
																			msgbox(4096,"TNSNAMES.ORA", "Datei kann nicht geöffnet werden, ORACLE_HOME nicht gesetzt. BITTE DATEN EINSPIELEN")
																		EndIf
																case $nMsg = $listenerora
																		if $ORACLE_HOMEE <> "" Then
																			ShellExecute($ORACLE_HOMEE & "\NETWORK\ADMIN\listener.ora", "", "", "edit")
																		Else
																			msgbox(4096,"LISTENER.ORA", "Datei kann nicht geöffnet werden, ORACLE_HOME nicht gesetzt. BITTE DATEN EINSPIELEN")
																		EndIf
																case $nMsg = $logordner 
																		if $LOGE <> "" Then
																			ShellExecute($LOGE & "\dba", "", "", "open")
																		Else
																			msgbox(4096,"Logordner", "Der Ordner kann nicht geöffnet werden, LOG nicht gesetzt. BITTE DATEN EINSPIELEN")
																		EndIf
																case $nMsg = $exititem
																		GUISetState(@SW_HIDE, $SubGUIoraclewindows)
																		GUISetState(@SW_SHOW, $MainGUI)
																case $nMsg = $einspielen
																	if $PRGE <> "" Then
																		Werte_von_Datei_lesen()
																		msgbox(0,"Fertig","Werte wurden eingelesen")
																	Else
																		msgbox(0,"Abbruch","Sie haben noch nicht den Pfad zur createdb.cmd angegeben (siehe 1.Schritt)")
																	EndIf		
																case $nMsg = $sicherung
																	if $PRGE <> "" Then
																		File_loeschen()
																		Auslesen_Pfad()
																		Auslesen_TBS()
																		Auslesen_Extent()
																		encrypt()
																		Werte_in_Datei_schreiben()
																		msgbox(4096,"Schreiben", "Werte sind geschrieben")
																	Else
																		msgbox(0,"Abbruch","Sie haben noch nicht den Pfad zur createdb.cmd angegeben (siehe 1.Schritt)")
																	EndIf
																Case $nMsg = $obutton1
																	$PRGE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($PRG, $PRGE)
																	;Sichern der Dateien / Scripte
																	Sicherung()
																Case $nMsg = $obutton3
																	;Kopieren aller Dateien in einen SIC Ordner als Original
																	$ZURUECK = msgbox(4,"Zurückkopieren","Wollen Sie wirlich die gesicherten Dateien für die DB Erstellung zurückkopieren ?")
																	if $ZURUECK = 6 and $PRGE <> "" and FileExists($DIRFILE1) Then
																		FileCopy($DIRFILE11, $DIRFILE10, 1)
																		msgbox(0,"Fertig","Bestehende Dateien wurden überschrieben")
																	Else
																		msgbox(0,"Abbruch","Sie haben Nein geklickt oder Pfadangabe vergessen oder Dateien nicht vorhanden")
																	EndIf
																Case $nMsg = $button1
																	$TEMP01E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($TEMP01, $TEMP01E)
																Case $nMsg = $button2
																	$SYSAUX01E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($SYSAUX01, $SYSAUX01E)
																Case $nMsg = $button3
																	$UNDOTBS01E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($UNDOTBS01, $UNDOTBS01E)
																Case $nMsg = $button4
																	$USER01E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($USER01, $USER01E)
																Case $nMsg = $button5
																	$SYSTEM01E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($SYSTEM01, $SYSTEM01E)
																Case $nMsg = $button6
																	$APPL_DAT1_AE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($APPL_DAT1_A, $APPL_DAT1_AE)
																Case $nMsg = $button7
																	$APPL_DAT1_BE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($APPL_DAT1_B, $APPL_DAT1_BE)
																Case $nMsg = $button8
																	$APPL_LOB1_AE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($APPL_LOB1_A, $APPL_LOB1_AE)
																Case $nMsg = $button9
																	$APPL_LOB1_BE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($APPL_LOB1_B, $APPL_LOB1_BE)
																Case $nMsg = $button10
																	$APPL_IDX1_AE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($APPL_IDX1_A, $APPL_IDX1_AE)
																Case $nMsg = $button11
																	$APPL_IDX1_BE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($APPL_IDX1_B, $APPL_IDX1_BE)
																Case $nMsg = $button12
																	$APPL_EXT1E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($APPL_EXT1, $APPL_EXT1E)
																Case $nMsg = $button13
																	$APPL_IDXEXT1E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($APPL_IDXEXT1, $APPL_IDXEXT1E)
																Case $nMsg = $button30
																	$REDO1E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($REDO1, $REDO1E)
																Case $nMsg = $button31
																	$REDO2E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($REDO2, $REDO2E)
																Case $nMsg = $button32
																	$FLASHRECOVERYE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($FLASHRECOVERY, $FLASHRECOVERYE)
																Case $nMsg = $button33
																	$IMPEXPE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($IMPEXP, $IMPEXPE)
																Case $nMsg = $button34
																	$LOGE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($LOG, $LOGE)
																Case $nMsg = $button35
																	$ORACLE_HOMEE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($ORACLE_HOME, $ORACLE_HOMEE)
																Case $nMsg = $button36
																	$AUDIT_FILE_DESTE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($AUDIT_FILE_DEST, $AUDIT_FILE_DESTE)
																Case $nMsg = $button37
																	$BACKGROUND_DUMP_DESTE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($BACKGROUND_DUMP_DEST, $BACKGROUND_DUMP_DESTE)
																Case $nMsg = $button38
																	$CORE_DUMP_DESTE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($CORE_DUMP_DEST, $CORE_DUMP_DESTE)
																Case $nMsg = $button39
																	$USER_DUMP_DESTE = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($USER_DUMP_DEST, $USER_DUMP_DESTE)
																Case $nMsg = $button41
																	$CONTROL_FILES_1E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($CONTROL_FILES_1, $CONTROL_FILES_1E)
																Case $nMsg = $button42
																	$CONTROL_FILES_2E = FileSelectFolder("Bitte Ordner wählen", "")
																	GUICtrlSetData($CONTROL_FILES_2, $CONTROL_FILES_2E)
																Case $nMsg = $create_cmd
																	
																	$ERG = msgbox(4,"Starten der createdb.cmd","Wollen Sie wirlich die Datenbankerstellung starten ?")
																	if $ERG = 6 Then
																		if $PRGE <> "" Then
																			;Auslesen der Pfadangaben wenn nicht über Button ausgewählt wurde
																			Auslesen_Pfad()
																			; Auslesen der Größe TBS Felder 
																			Auslesen_TBS()
																			; Auslesen der Extent Felder
																			Auslesen_Extent()
																			; Messageboxen zur Überprüfung				
																			Pruefung_Messagebox()
																			;Zusammenfügung der Variablen für untergeorndete Ordner
																			Zus_Ordner()
																			;Anlegen der Ordner
																			Erstellen_Ordner()
																			;Öffnen des Files und Abänderung der Werte
																			createdbcmd()
																			createdbsql()
																			clonermanrestoresql()
																			clonedbcreationsql()
																			postscriptssql()
																			postdbcreationsql()
																			createtbssql()
																			createuserssql()
																			analyzedbcmd()
																			analyzedbsql()
																			exppar()
																			exportdbcmd()
																			imppar()
																			importdbcmd()
																			initora()
																			listenerora()
																			tnsnamesora()
																			appendtnsnamesora()
																			appendlistenerora()
																			ShellExecuteWait($PRGE & "\createdb.cmd", " " & $PWSYSE)
																			PostFileDelete()
																			msgbox(4096,"createdb.cmd", "createdb.cmd abgeschlossen")
																		Else
																			msgbox(4096,"Abbruch","Sie haben noch nicht den Pfad zur createdb.cmd gesetzt (siehe 1.Reiter)")
																		EndIf
																	Else
																		msgbox(0,"Abbruch","Sie haben die Erstellung der Datenbank abgebrochen")
																	EndIf
																Case $nMsg = $GUI_EVENT_CLOSE
																	GUISetState(@SW_HIDE, $SubGUIoraclewindows)
																	GUISetState(@SW_SHOW, $MainGUI)	
																EndSelect

EndFunc