Code : Tout sélectionner
UseSQLiteDatabase()
; XIncludeFile "DataTable.pbi"
; Global DataFile$=GetCurrentDirectory()+"\DB\Teste.sqlite"
; Global Event
;
Procedure OpenMainWindows()
; Enumeration TbCivilite
; #Id
; #Pays
; #Localite
; #CodePostal
; EndEnumeration
OpenWindow(0,0,0,800,600,"Teste")
; Table::CreateTable(0,0,0,800,600,"Teste",DataFile$,"TbLocalite","","")
; Table::AddColumn(0,#Id,"ID","id",100,#True)
; Table::AddColumn(0,#Pays,"Pays","idPays",100)
; Table::AddColumn(0,#Localite,"Localite","localite",100)
; Table::AddColumn(0,#CodePostal,"Code postal","code_postal",100)
; Table::DrawTable(0)
EndProcedure
OpenMainWindows()
Repeat
Event=WaitWindowEvent()
Until Event=#PB_Event_CloseWindow