home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_BROW.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  1.5 KB  |  48 lines
  1. //
  2. // Module Name: AD_BROW.COD - Menu_Act = 2
  3. // Selectors  : Brow_Frez, Brow_Lock, Brow_Width, Brow_Follw, Brow_Dele
  4. //            : Brow_Appd, Brow_Menu, Brow_Init, Brow_Edit, Brow_Compr
  5. //            : Brow_FMT, Brow_Clear, Flter_Cond, Item_View, Field_List
  6. // Description: This module is included to issue the dBASE BROWSE command
  7. // Syntax     : BROWSE [FIELDS <field name list>] [LOCK <expN>]
  8. //                  [WIDTH <expN>] [FREEZE <field name>]
  9. //                  [NOFOLLOW] [NOAPPEND] [NOMENU] [NOCLEAR]
  10. //                  [NOINIT] [NODELETE] [NOEDIT] [COMPRESS]
  11. //                  [WINDOW <window name>] [FORMAT]
  12. //
  13. {if Flter_Cond then}
  14. SET FILTER TO {Flter_Cond}
  15. GOTO TOP
  16. {endif}
  17. { if Brow_FMT then}
  18. SET FORMAT TO {lower(Brow_FMT)}
  19. {endif}
  20. //
  21. *-- Desc: Browse file - {Item_View}
  22. BROWSE \
  23. { if Field_list}FIELDS {lower(Field_list)} {endif}\
  24. { if Brow_Lock}LOCK {Brow_Lock} {endif}\
  25. { if Brow_Width}WIDTH {Brow_Width} {endif}\
  26. { if Brow_Frez}FREEZE {Brow_Frez} {endif}\
  27. { if Brow_Follw == 1}NOFOLLOW {endif}\
  28. { if Brow_Init == 1}NOINIT {endif}\
  29. { if Brow_Menu == 1}NOMENU {endif}\
  30. { if Brow_Appd == 1}NOAPPEND {endif}\
  31. { if Brow_Dele == 1}NODELETE {endif}\
  32. { if Brow_Edit == 1}NOEDIT {endif}\
  33. { if Brow_Compr == 1}COMPRESS {endif}\
  34. { if Brow_Clear == 1}NOCLEAR {endif}\
  35. { if Brow_FMT}FORMAT {endif}\
  36.  
  37. {if Brow_Clear == 1 then}
  38. SAVE SCREEN TO tmpbrow
  39. { endif}
  40. {if Flter_Cond then}
  41. SET FILTER TO
  42. {endif}
  43. { if Brow_FMT}
  44. SET FORMAT TO
  45. {endif}
  46. //
  47. // EOP AD_BROW.COD
  48.