home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBPRGS.EXE / TB08.PRG < prev    next >
Encoding:
Text File  |  1992-03-04  |  1.8 KB  |  72 lines
  1.     // Tb08.prg
  2.     //
  3.     // Simple use of MyBrowse2, with parameterization, to browse a database
  4.     //
  5.     // Compile with /a /m /n /w
  6.     // Link with tb07.obj, tbutils, Dict
  7.  
  8.     #include "Tbutils.ch"    // for DEF_... separator characters
  9.     #include "Inkey.ch"
  10.  
  11.     #define K_MINUS 45
  12.  
  13.     FUNCTION Tb08
  14.  
  15.     FIELD Lname, Fname, Addr1, Addr2, Addr3, Addr4 IN TbDbf1
  16.  
  17.     LOCAL oTbr  := TBrowseDb(1, 1, MaxRow() - 1, MaxCol() - 1)
  18.     LOCAL oTbc1 := TBColumnNew("Last name",  {|| Lname })
  19.     LOCAL oTbc2 := TBColumnNew("First name", {|| Fname })
  20.     LOCAL oTbc3 := TBColumnNew("Address 1",  {|| Addr1 })
  21.     LOCAL oTbc4 := TBColumnNew("Address 2",  {|| Addr2 })
  22.     LOCAL oTbc5 := TBColumnNew("Address 3",  {|| Addr3 })
  23.     LOCAL oTbc6 := TBColumnNew("Address 4",  {|| Addr4 })
  24.     LOCAL nKey
  25.     LOCAL lExitRequested
  26.     LOCAL aBeforeKeys := { ;
  27.                            { K_DOWN,  {|| .F. } },  ;
  28.                            { K_UP,    {|| .F. } }   ;
  29.                          }
  30.  
  31.     LOCAL aAfterKeys  := { ;
  32.                            { K_ENTER, {|o| FldEdit(o)   } }, ;
  33.                            { K_MINUS, {|o| RecDelete(o) } }  ;
  34.                          }
  35.  
  36.       SET DELETED ON
  37.  
  38.       oTbr:colSep  := DEF_CSEP
  39.       oTbr:headSep := DEF_HSEP
  40.       oTbr:footSep := DEF_FSEP
  41.  
  42.       CLEAR SCREEN
  43.       @ 0, 0 TO MaxRow(), MaxCol()
  44.  
  45.       USE TbDbf1
  46.  
  47.       oTbr:addColumn(oTbc1)
  48.       oTbr:addColumn(oTbc2)
  49.       oTbr:addColumn(oTbc3)
  50.       oTbr:addColumn(oTbc4)
  51.       oTbr:addColumn(oTbc5)
  52.       oTbr:addColumn(oTbc6)
  53.       MyBrowse2(oTbr, aBeforeKeys, aAfterKeys)
  54.  
  55.     RETURN NIL
  56.  
  57.     FUNCTION RecDelete(oTbr)
  58.  
  59.       // .
  60.       // .
  61.       // .
  62.  
  63.     RETURN .F.
  64.  
  65.     FUNCTION FldEdit(oTbr)
  66.  
  67.       // .
  68.       // .
  69.       // .
  70.  
  71.     RETURN .F.
  72.