home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBPRGS.EXE / TBINDEMO.PRG < prev    next >
Encoding:
Text File  |  1992-03-10  |  1016 b   |  51 lines
  1. // Tbindemo
  2. //
  3. // Demonstration program illustrating TBrowse inspector / debugger
  4. // Link with Tb07, Tbinsp
  5.  
  6. #include "Setcurs.ch"
  7. #include "Inkey.ch"
  8.  
  9. FUNCTION Tbindemo
  10.  
  11. FIELD Lname, Fname IN Tbdbf1
  12.  
  13. LOCAL oTbr := TBrowseDB(1, 1, MaxRow() - 3, MaxCol() - 1)
  14.  
  15. LOCAL aAfterKeys  := { ;
  16.                        { K_F1, {|o| TbDisp(o), .F. } } ;
  17.                      }
  18.  
  19.   CLEAR SCREEN
  20.   Set(_SET_CURSOR, SC_NONE)
  21.  
  22.   @ 0, 0 TO MaxRow() - 2, MaxCol()
  23.   USE TbDbf1
  24.   IF !File("Tbdbf1.ntx")
  25.     INDEX ON Upper(Lname + Fname) TO Tbdbf1
  26.   ELSE
  27.     SET INDEX TO Tbdbf1
  28.   ENDIF
  29.  
  30.   SetKey(K_F1, {|| TbDisp(oTbr) })
  31.  
  32.   AddAllColumns(oTbr)
  33.   oTbr:insColumn(1, TbColumnNew("Rec #", {|| Recno() }))
  34.   MyBrowse2(oTbr,, aAfterKeys)
  35.  
  36. RETURN NIL
  37.  
  38.  
  39. FUNCTION addAllColumns(oTbr)
  40.  
  41. LOCAL oTbc, ;
  42.       nFieldNum, ;
  43.       nFields := fcount()
  44.  
  45.   FOR nFieldNum := 1 TO nFields
  46.     oTbc := TBColumnNew(Field(nFieldNum), FieldBlock(Field(nFieldNum)))
  47.     oTbr:addColumn(oTbc)
  48.   NEXT
  49.  
  50. RETURN NIL
  51.