Sub Globals
Private dbtable As Table
Private dipilih As PilihRT
End Sub
Sub Activity_Create(FirstTime As Boolean)
dbtable.Initialize(Me,"dbtable",5)
dbtable.AddToActivity(Activity,0,0dip,100%x,80%y)
dbtable.HeaderColor=Colors.Blue
dbtable.HeaderFontColor=Colors.White
dbtable.SetHeader(Array As String("Loker","Customer","Room","Terapis","Waktu"))
dipilih.Initialize
End Sub
Sub dbtable_CellClick(Col As Int, Row As Int)
dipilih.Show
End Sub