home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_EDIT.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  1.5 KB  |  54 lines
  1. //
  2. // Module Name: AD_EDIT.COD - Menu_Act = 3
  3. // Selectors  : Edit_Frez, Edit_Lock, Edit_Width, Edit_Follw, Edit_Dele
  4. //            : Edit_Appd, Edit_Menu, Edit_Init, Edit_Edit, Edit_Compr
  5. //            : Edit_FMT, Edit_Clear Flter_Cond,Item_View, Field_List
  6. //            : For_Expr, While_Exp, Scope
  7. // Description: to issue the dBASE EDIT/APPEND command
  8. // Syntax     : EDIT [<scope>] [FIELDS <field name list>]
  9. //                 [WHILE <expL>] [FOR <expL>]
  10. //                 [NOFOLLOW] [NOAPPEND] [NOMENU] [NOCLEAR]
  11. //                 [NOINIT] [NODELETE] [NOEDIT] [<expN>]
  12. //
  13. {if Flter_Cond then}
  14. SET FILTER TO {Flter_Cond}
  15. GOTO TOP
  16. {endif}
  17. //
  18. {if Edit_FMT}
  19. *-- Desc: attach format file {Edit_FMT}
  20. SET FORMAT TO {Edit_FMT}
  21. {endif}
  22. {if Edit_Mode == 0}
  23. APPEND
  24. {else}
  25. EDIT \
  26. {if !Scope && !For_Expr && !While_Exp then} &gc_scope. {endif}\
  27. {if Scope}{upper(Scope)} {endif}\
  28. {if Field_list}FIELDS {lower(Field_list)} {endif}\
  29. {if While_Exp}WHILE {While_Exp} {endif}\
  30. {if For_Expr}FOR {For_Expr} {endif}\
  31. { if Edit_Follw == 1}NOFOLLOW {endif}\
  32. { if Edit_Appd == 1}NOAPPEND {endif}\
  33. { if Edit_Menu == 1}NOMENU {endif}\
  34. { if Edit_Init == 1}NOINIT {endif}\
  35. { if Edit_Dele == 1}NODELETE {endif}\
  36. { if Edit_Edit == 1}NOEDIT {endif}\
  37. { if Edit_Clear == 1}NOCLEAR {endif}\
  38. {endif // if Edit_Mode == 0}
  39.  
  40. {if Edit_Clear == 1 then}
  41. SAVE SCREEN TO tmpbrow
  42. { endif}
  43. //
  44. {if Flter_Cond then}
  45. SET FILTER TO
  46. {endif}
  47. {if Edit_FMT}
  48. *-- close format file so as not to affect READ's
  49. SET FORMAT TO
  50. {endif}
  51. //
  52. // EOP AD_EDIT.COD
  53.  
  54.