Code: Alles auswählen
UseSQLiteDatabase()
OpenDatabase(0,"Karten1.db","","")
OpenWindow(1,0,0,1100,590,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ListIconGadget(7000,5,5,1090,500,"Kartenname",280,#PB_ListIcon_FullRowSelect)
ButtonGadget(7001,10,515,100,20,"Karten")
ButtonGadget(7002,110,515,100,20,"")
ButtonGadget(7003,10,540,100,20,"")
AddKeyboardShortcut(1200,#PB_Shortcut_Escape,1206)
megaclosera = 0
Repeat
warteaufdaten = WaitWindowEvent()
If warteaufdaten = #PB_Event_Gadget
Select EventGadget()
Case 7001
AddGadgetColumn(7000,1,"Kartentyp",80)
AddGadgetColumn(7000,2,"Kategorie",100)
AddGadgetColumn(7000,3,"Typ",140)
AddGadgetColumn(7000,4,"Fähigkeit",100)
AddGadgetColumn(7000,5,"Attribut",100)
AddGadgetColumn(7000,6,"Level/Rang/Link",100)
AddGadgetColumn(7000,7,"ATK",60)
AddGadgetColumn(7000,8,"DEF",60)
AddGadgetColumn(7000,9,"Pendelskala",100)
AddGadgetColumn(7000,10,"Erlaubt",60)
AddGadgetColumn(7000,11,"Internetlink",275)
sqla$ = "SELECT * FROM YGO_Kartensammlung;"
If DatabaseQuery(0,sqla$)
While NextDatabaseRow(0)
AddGadgetItem(7000,-1,GetDatabaseString(0,0)+Chr(10)+GetDatabaseString(0,1)+Chr(10)+GetDatabaseString(0,2)+...)
Wend
FinishDatabaseQuery(0)
EndIf
Case 7002
AddGadgetColumn(7000,1,"Kartentyp",80)
AddGadgetColumn(7000,2,"Kategorie",100)
AddGadgetColumn(7000,3,"Typ",140)
AddGadgetColumn(7000,4,"Fähigkeit",100)
AddGadgetColumn(7000,5,"Attribut",100)
AddGadgetColumn(7000,6,"Level/Rang/Link",100)
AddGadgetColumn(7000,7,"ATK",60)
AddGadgetColumn(7000,8,"DEF",60)
AddGadgetColumn(7000,9,"Pendelskala",100)
AddGadgetColumn(7000,10,"Erlaubt",60)
AddGadgetColumn(7000,11,"Internetlink",275)
sqlb$ = "SELECT * FROM YGO_Kartensammlung;"
If DatabaseQuery(0,sqlb$)
While NextDatabaseRow(0)
AddGadgetItem(7000,-1,GetDatabaseString(0,0)+Chr(10)+GetDatabaseString(0,1)+Chr(10)+GetDatabaseString(0,2)+...)
Wend
FinishDatabaseQuery(0)
EndIf
EndSelect
EndIf
Until warteaufdaten = #PB_Event_CloseWindow
Wolfvater Loki