hallo liebe gemeinde,
sitze gerade an einem projekt für die firma dran und habe meine probleme
eigentlich ein simples programm das nur zum einen informationen in die datenbank speichert und zum anderen die informationen ausgeben soll
das mit dem Speichern funktioniert auch soweit sehr gut nur mit dem ausgeben habe ich meine probleme
ich würde gerne wenn man auf inventarliste auslesen drückt die gesamte liste angezeigt bekommt die in der datenbank hinterlegt ist.
als nächsten gedanken habe ich mir vorgestellt das man vielleicht speziel nach einem modell sucht oder nach einem benutzer. wäre sowas möglich?aber bin erstmal zufrieden wenn die ausgabe funktioniert
ich habe es versucht aber in meiner lösung gibt er es in einer msgbox aus(was ist nicht unbedingt toll finde) und nur die letzte Information in der datenbank und nicht alles.
Vielen Dank!
Spoiler anzeigen
#include <GUIConstants.au3>
#include <MySQL.au3>
#include <Array.au3>
$UserName = "root"
$Password = "*****"
$Database = "inventar2"
$MySQLServerName = "localhost"
$SQLInstance = _MySQLConnect($UserName,$Password,$Database,$MySQLServerName)
$SQLCode = "SELECT * FROM uebersicht" ;wählt aus der Tabelle accounts aus
$TableContents = _Query($SQLInstance,$SQLCode)
#Region ### START Koda GUI section ### Form=C:\******\Desktop\Koda\Forms\inventarliste.kxf
$Form1 = GUICreate("Inventarliste V. 0.1 Stand 09.11.2010", 625, 443, 193, 125)
$Labelueber = GUICtrlCreateLabel("Inventarliste ", 104, 16, 394, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Beenden", 192, 416, 105, 17, 0)
$Button2 = GUICtrlCreateButton("Info", 312, 416, 105, 17, 0)
$Button3 = GUICtrlCreateButton("Inventarliste auslesen", 16, 112, 201, 41, 0)
$Button4 = GUICtrlCreateButton("Neuer Eintrag - Notebook ", 16, 168, 201, 41, 0)
$Button5 = GUICtrlCreateButton("Neuer Eintrag - Rechner", 16, 224, 201, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; InfoFenster
$Form4 = GUICreate("Info", 625, 443, 246, 121)
$Label1 = GUICtrlCreateLabel("Changelog", 32, 40, 136, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Version 0.1", 16, 96, 68, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("- Unterstützt das Eintragen der Informationen in die MySQL Datenbank", 16, 120, 336, 17)
$Label4 = GUICtrlCreateLabel("- Unterteilt in Inventar - Rechner und Inventar - Notebook", 16, 144, 274, 17)
$buttonzuruck = GUICtrlCreateButton("zurück", 192, 408, 177, 25, 0)
; AusgabeFenster
$Form3 = GUICreate("Eintragen", 625, 443, 193, 125)
$Buttonabsenden = GUICtrlCreateButton("abschicken", 16, 392, 137, 17, 0)
$Input1 = GUICtrlCreateInput("", 16, 40, 145, 21)
$Label1 = GUICtrlCreateLabel("Raum", 216, 152, 32, 17)
$Input2 = GUICtrlCreateInput("", 176, 40, 177, 21)
$Label2 = GUICtrlCreateLabel("Ort", 288, 152, 18, 17)
$Input3 = GUICtrlCreateInput("", 368, 40, 153, 21)
$Input4 = GUICtrlCreateInput("", 16, 112, 177, 21)
$Label3 = GUICtrlCreateLabel("Vorname", 424, 88, 46, 17)
$Label4 = GUICtrlCreateLabel("Nachname", 16, 152, 56, 17)
$Input5 = GUICtrlCreateInput("", 208, 112, 200, 21)
$Input6 = GUICtrlCreateInput("", 424, 112, 113, 21)
$Input7 = GUICtrlCreateInput("", 16, 176, 177, 21)
$Input8 = GUICtrlCreateInput("", 216, 176, 50, 21)
$Input9 = GUICtrlCreateInput("", 288, 176, 177, 21)
$Label5 = GUICtrlCreateLabel("Inventarnummer", 16, 16, 80, 17)
$Label6 = GUICtrlCreateLabel("Hersteller", 176, 16, 48, 17)
$Label7 = GUICtrlCreateLabel("Modell", 368, 16, 35, 17)
$Label8 = GUICtrlCreateLabel("Betriebssystem", 16, 88, 74, 17)
$Label9 = GUICtrlCreateLabel("Service Pack", 208, 88, 68, 17)
$Label10 = GUICtrlCreateLabel("Seriennummer", 16, 216, 71, 17)
$Input11 = GUICtrlCreateInput("", 16, 240, 281, 21)
$Label11 = GUICtrlCreateLabel("Kommentar", 16, 280, 57, 17)
$Input10 = GUICtrlCreateInput("", 16, 312, 400, 21); Kommentar
$Label12 = GUICtrlCreateLabel("Beispiel : HD0002/08 Toshiba Satellite Pro Windows XP Professional Service Pack 3 Max Musterman 203 Heidelberg xxxxx", 16, 352, 599, 17)
$Buttonzuruck2 = GUICtrlCreateButton("zurück", 192, 392, 137, 17, 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
Case $Button2
GUISetState(@SW_HIDE,$Form1)
GUISetState(@SW_SHOW,$Form4)
While 1
$msg = GUIGetMsg($Form4)
Switch $msg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE,$Form4)
GUISetState(@SW_SHOW,$Form1)
ExitLoop
Case $buttonzuruck
GUISetState(@SW_HIDE,$Form4)
GUISetState(@SW_SHOW,$Form1)
ExitLoop
EndSwitch
WEnd
Case $Button3
With $TableContents
While Not .EOF
$NameList = .Fields ("ID").value & " " & .Fields ("Inventarnummer").value & " " & .Fields ("Hersteller").value & " " & @CRLF
.MoveNext
WEnd
EndWith
MsgBox(0,"Accountliste",$NameList)
Case $Button4
GUISetState(@SW_HIDE,$Form1)
GUISetState(@SW_SHOW,$Form3)
While 1
$msg = GUIGetMsg($Form3)
Switch $msg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE,$Form3)
GUISetState(@SW_SHOW,$Form1)
ExitLoop
case $Buttonzuruck2
GUISetState(@SW_HIDE,$Form3)
GUISetState(@SW_SHOW,$Form1)
ExitLoop
Case $Buttonabsenden
$Input1_inhalt = GUICtrlRead($Input1)
$Input2_inhalt = GUICtrlRead($Input2)
$Input3_inhalt = GUICtrlRead($Input3)
$Input4_inhalt = GUICtrlRead($Input4)
$Input5_inhalt = GUICtrlRead($Input5)
$Input6_inhalt = GUICtrlRead($Input6)
$Input7_inhalt = GUICtrlRead($Input7)
$Input8_inhalt = GUICtrlRead($Input8)
$Input9_inhalt = GUICtrlRead($Input9)
$Input10_inhalt = GUICtrlRead($Input10)
$Input11_inhalt = GUICtrlRead($Input11)
Dim $ColumnNames[13]
$ColumnNames[0]= "ID"
$ColumnNames[1]= "Inventarnummer"
$ColumnNames[2]= "Hersteller"
$ColumnNames[3]= "Modell"
$ColumnNames[4]= "Betriebssystem"
$ColumnNames[5]= "ServicePack"
$ColumnNames[6]= "Name"
$ColumnNames[7]= "Nachname"
$ColumnNames[8]= "Raum"
$ColumnNames[9]= "Ort"
$ColumnNames[10]= "Seriennummer"
$ColumnNames[11]= "Kommentar"
$ColumnNames[12]= ""
Dim $Room[13]
$Room[0]=""
$Room[1]=$Input1_inhalt
$Room[2]=$Input2_inhalt
$Room[3]=$Input3_inhalt
$Room[4]=$Input4_inhalt
$Room[5]=$Input5_inhalt
$Room[6]=$Input6_inhalt
$Room[7]=$Input7_inhalt
$Room[8]=$Input8_inhalt
$Room[9]=$Input9_inhalt
$Room[10]=$Input11_inhalt
$Room[11]=$Input10_inhalt
$Room[12]=""
_AddRecord($SQLInstance,"uebersicht",$ColumnNames,$Room)
ExitLoop
EndSwitch
WEnd
EndSwitch
WEnd