home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBPRGS.EXE / TB06.PRG < prev    next >
Encoding:
Text File  |  1992-01-10  |  1.1 KB  |  42 lines
  1.     // Tb06.prg
  2.     //
  3.     // Simple use of MyBrowse1 to browse a database
  4.     //
  5.     // Compile with /a /m /n /w
  6.     // Link with tb05.obj, tbutils
  7.  
  8.     #include "Tbutils.ch"    // for DEF_... separator characters
  9.  
  10.     FUNCTION Tb06
  11.  
  12.     FIELD Lname, Fname, Addr1, Addr2, Addr3, addr4 IN TbDbf1
  13.  
  14.     LOCAL oTbr  := TBrowseDb(1, 1, MaxRow() - 1, MaxCol() - 1)
  15.     LOCAL oTbc1 := TBColumnNew("Last name",  {|| Lname })
  16.     LOCAL oTbc2 := TBColumnNew("First name", {|| Fname })
  17.     LOCAL oTbc3 := TBColumnNew("Address 1",  {|| Addr1 })
  18.     LOCAL oTbc4 := TBColumnNew("Address 2",  {|| Addr2 })
  19.     LOCAL oTbc5 := TBColumnNew("Address 3",  {|| Addr3 })
  20.     LOCAL oTbc6 := TBColumnNew("Address 4",  {|| Addr4 })
  21.     LOCAL nKey
  22.     LOCAL lExitRequested
  23.  
  24.       oTbr:colSep  := DEF_CSEP
  25.       oTbr:headSep := DEF_HSEP
  26.       oTbr:footSep := DEF_FSEP
  27.  
  28.       CLEAR SCREEN
  29.       @ 0, 0 TO MaxRow(), MaxCol()
  30.  
  31.       USE TbDbf1
  32.  
  33.       oTbr:addColumn(oTbc1)
  34.       oTbr:addColumn(oTbc2)
  35.       oTbr:addColumn(oTbc3)
  36.       oTbr:addColumn(oTbc4)
  37.       oTbr:addColumn(oTbc5)
  38.       oTbr:addColumn(oTbc6)
  39.       MyBrowse1(oTbr)
  40.  
  41.     RETURN NIL
  42.