PureBoard

Code: Alles auswählen

UseSQLiteDatabase()
OpenDatabase(0,"Karten.db","","")

OpenWindow(1,0,0,1100,600,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ListIconGadget(1,5,5,1090,500,"Kartenname",100,#PB_ListIcon_FullRowSelect)
AddGadgetColumn(1,1,"Kartentyp",80)
AddGadgetColumn(1,2,"Kategorie",100)
AddGadgetColumn(1,3,"Typ",100)
AddGadgetColumn(1,4,"Fähigkeit",100)
AddGadgetColumn(1,5,"Attribut",100)
AddGadgetColumn(1,6,"Level/Rang/Link",100)
AddGadgetColumn(1,7,"ATK",60)
AddGadgetColumn(1,8,"DEF",60)
AddGadgetColumn(1,9,"Pendelskala",100)
AddGadgetColumn(1,10,"Erlaubt",60)
AddGadgetColumn(1,11,"Internetlink",100)
ButtonGadget(2,10,515,100,20,"")
Repeat
  event = WaitWindowEvent()
  If event = #PB_Event_Gadget
    Select EventGadget()
      Case 2
        sql$ = "SELECT * FROM YGO_Kartensammlung;"
        If DatabaseQuery(0,sql$)
          auswerten = Val(sql$)
          For i = 1 To 11
            SetGadgetItemData(1,auswerten,i)
          Next
        EndIf
    EndSelect
  EndIf
Until event = #PB_Event_CloseWindow
CloseDatabase(0)
End