home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBPRGS.EXE / TB11.PRG < prev    next >
Encoding:
Text File  |  1992-01-10  |  1001 b   |  41 lines
  1.     // Tb11.prg
  2.     //
  3.     // General purpose for clause
  4.     //
  5.     // Link with tbutils, tb07
  6.  
  7.     #include "Inkey.ch"
  8.  
  9.     FUNCTION Tb11
  10.     
  11.     FIELD Lname, Fname, AcBal IN TbDbf1
  12.     LOCAL oTbr := TBrowseNew(1, 1, MaxRow() - 1, MaxCol() - 1), ;
  13.           lExitRequested := .F., nKey
  14.     
  15.     LOCAL bFor := {|| AcBal > 0 }
  16.     
  17.       CLEAR SCREEN
  18.       @ 0, 0 TO MaxRow(), MaxCol()
  19.       USE TbDbf1
  20.       IF !File("tbdbf1.ntx")
  21.         INDEX ON upper(Lname + Fname) TO TbDbf1
  22.       ELSE
  23.         SET INDEX TO TbDbf1
  24.       ENDIF
  25.     
  26.       addAllFields(oTbr)
  27.       oTbr:insColumn(1, tbColumnNew("Rec #", {|| recno() }))
  28.       oTbr:freeze := 1
  29.       oTbr:goTopBlock    := {||  TBForStart(bFor)   }
  30.       oTbr:goBottomBlock := {||  TBForEnd(bFor)     }
  31.       oTbr:skipBlock     := {|n| TBForSkip(n, bFor) }
  32.     
  33.       oTbr:goTop()
  34.       IF !Eval(bFor)
  35.         Alert("No matching records", {"OK"})
  36.       ELSE
  37.         MyBrowse2(oTbr)
  38.       ENDIF
  39.  
  40.     RETURN NIL
  41.