home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP5_8.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.6 KB  |  53 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP5_8.PRG                                           ⌐ª
  3. *⌐ª     Function: Σ»└└╦∙╤í╘±╩²╛▌┐Γ╦∙╤í╘±╡─╫╓╢╬╡─╖╢└²                   ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK ON
  6. * ╩╣╤í╘±╫╓╢╬╩▒, ╞┴─╗╧╘╩╛╦∙╤í╡─╫╓╢╬
  7.  
  8. * ╢¿╥σ╥╗╕÷╧╘╩╛╩²╛▌┐Γ╬─╝■╡─╔╧╡»╩╜▓╦╡Ñ:database
  9. DEFINE POPUP database FROM 2,10 PROMPT FILES LIKE *.DBF
  10. ON SELECTION POPUP database DO Database
  11.  
  12. * ╢¿╥σ╥╗╕÷╧╘╩╛╩²╛▌┐Γ╫╓╢╬╡─╔╧╡»╩╜▓╦╡Ñ:fieldlist
  13. DEFINE POPUP fieldlist FROM 2,10 PROMPT STRUCTURE MARGIN;
  14.    MESSAGE "Press <Enter> to mark or unmark fields, then <Esc> to exit"
  15. ON SELECTION POPUP fieldlist DO Fieldlist
  16.  
  17. CLEAR
  18. @ 1,5 SAY " ╤í╘±╥╗╕÷╩²╛▌┐Γ:"
  19. ACTIVATE POPUP database
  20. * ╝ñ╗ε▓╦╡Ñ╥╘╤í╘±╥╗╕÷╩²╛▌┐Γ
  21.  
  22. IF NOT EMPTY(DBF())
  23.    * ╚τ╣√╤í╘±┴╦╥╗╕÷╩²╛▌┐Γ
  24.    CLEAR
  25.    @ 1,5 SAY " ╤í╘±╩²╛▌┐Γ╫╓╢╬:"
  26.    mfieldlist = ""                    && ╫╓╢╬╤í╘±▒Σ┴┐
  27.    ACTIVATE POPUP fieldlist           && ╝ñ╗ε▓╦╡Ñ╧╘╩╛╩²╛▌┐Γ╫╓╢╬
  28.    IF NOT EMPTY(mfieldlist)
  29.       * ╚τ╣√╓┴╔┘╤í╘±┴╦╥╗╕÷╫╓╢╬
  30.       mfieldlist = "FIELDS " + LEFT(mfieldlist, LEN(mfieldlist)-1)
  31.       *╘┌╫╓╢╬╤í╘±▒Σ┴┐╓╨╘÷╝╙ "FILEDS", ▓ó│²╚Ñ╬▓▓┐╢║║┼.
  32.    ENDIF
  33.    BROWSE &mfieldlist
  34.    * Σ»└└╦∙╤í╘±╡─╩²╛▌┐Γ║═╦∙╤í╘±╡─╫╓╢╬
  35. ENDIF
  36. RELEASE POPUP database, fieldlist
  37. SET TALK OFF
  38. CLOSE DATABASES
  39. RETURN
  40.  
  41. * Process database file list selection
  42. PROCEDURE Database
  43. USE PROMPT()                          && ┤≥┐¬╦∙╤í╘±╡─╩²╛▌┐Γ
  44. DEACTIVATE POPUP database
  45. RETURN
  46.  
  47. PROCEDURE Fieldlist
  48. IF NOT PROMPT() $ mfieldlist
  49.    mfieldlist = mfieldlist + PROMPT() + ","
  50.    * ╘┌╫╓╢╬╤í╘±▒Σ┴┐╓╨╘÷╝╙╫╓╢╬║═╢║║┼
  51. ENDIF
  52. RETURN
  53.