// Five DBF Viewer — browse database with TBrowse
// Usage: ./dbfview  (opens dbf/customer.dbf)
// Keys: Up/Down/Left/Right PgUp/PgDn Home/End ESC=quit
// Copyright (c) 2026 Charles KWON OhJun (charleskwonohjun@gmail.com)

FUNCTION Main()
   LOCAL oBrowse, oCol, nKey, i, nFields

   CLS
   SetCursor(0)

   USE "dbf/customer"

   nFields := FCount()
   IF nFields = 0
      ? "Cannot open database"
      Inkey(0)
      RETURN NIL
   ENDIF

   // Title
   @ 0, 0 SAY PadR("customer.dbf - " + AllTrim(Str(RecCount())) + " records, " + AllTrim(Str(nFields)) + " fields - ESC to quit", 80)

   // Build browse
   oBrowse := TBrowseDB(1, 0, 22, 79)

   FOR i := 1 TO nFields
      oCol := TBColumnNew(FieldName(i), FieldBlock(i))
      oBrowse:addColumn(oCol)
   NEXT

   // Browse loop
   DO WHILE .T.
      oBrowse:forceStable()

      // Status
      @ 23, 0 SAY PadR("Rec:" + AllTrim(Str(RecNo())) + "/" + AllTrim(Str(RecCount())) + IIF(Eof()," EOF","") + IIF(Deleted()," DEL",""), 80)

      nKey := Inkey(0)

      DO CASE
      CASE nKey = 5
         oBrowse:up()
      CASE nKey = 24
         oBrowse:down()
      CASE nKey = 19
         oBrowse:left()
      CASE nKey = 4
         oBrowse:right()
      CASE nKey = 18
         oBrowse:pageUp()
      CASE nKey = 3
         oBrowse:pageDown()
      CASE nKey = 1
         oBrowse:goTop()
      CASE nKey = 6
         oBrowse:goBottom()
      CASE nKey = 27
         EXIT
      ENDCASE
   ENDDO

   CLS
   SetCursor(1)
   USE
   RETURN NIL