home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / f / fpmudemo.zip / MUCODE.TXT next >
Text File  |  1993-02-08  |  4KB  |  139 lines
  1. Multi-User Demo Program                                By: Grover Cox
  2.  
  3.  
  4. Page 
  5.  
  6.       1 * Program: MUDEMO.PRG
  7.       2 *    Date: 01/18/93
  8.       3 *      By: Grover Cox
  9.       4 * Multi-user demo program
  10.       5 *
  11.       6 * Program setup
  12.       7 CLOSE ALL
  13.       8 CLEAR ALL
  14.       9 RELEASE ALL
  15.      10 CLEAR
  16.      11 SET SYSMENU OFF
  17.      12 SET TALK OFF
  18.      13 SET MESSAGE TO 24 CENTER
  19.      14 SET ESCAPE OFF
  20.      15 SET SCORE OFF
  21.      16 SET STAT OFF
  22.      17 SET HOURS TO 12
  23.      18 SET CLOCK ON
  24.      19 SET BORDER TO DOUBLE
  25.      20 SET PROCEDURE TO MUDEMO
  26.      21 * Multi-user configuration commands
  27.      22 SET EXCLUSIVE OFF
  28.      23 SET REPROCESS TO AUTOMATIC  && Set retries to indefinite time period
  29.      24 *
  30.      25 @ 0,0,24,79 BOX REPLICATE(CHR(176),9)   && Background for main screen
  31.      26 ver_no='1.00'   && Always change program version no. here
  32.      27 DIMENSION Mitems[3]     && Main Menu items
  33.      28 Mitems[1]='\<Add Name'
  34.      29 Mitems[2]='\<Edit Names'
  35.      30 Mitems[3]='E\<xit'
  36.      31 *
  37.      32 * Program starting here
  38.      33 *
  39.      34 @ 00,24 SAY 'Multi-User Demo Program '+ver_no
  40.      35 DO MainMenu
  41.      36 *
  42.      37 * Program clean-up
  43.      38 CLOSE ALL
  44.      39 RELEASE WINDOW ALL
  45.      40 SET PROCEDURE TO
  46.      41 CLEAR
  47.      42 SET SYSMENU ON
  48.      43 CLEAR ALL
  49.      44 RETURN     && End program
  50.      45 
  51.      46 PROCEDURE MainMenu
  52.      47  SELECT 0
  53.      48  USE MUFILE
  54.      49  DO WHILE .T.
  55.      50     Mchoice=0
  56.      51     @ 3,30 MENU Mitems,3,3
  57.      52     READ MENU TO Mchoice
  58.      53     DO CASE
  59.      54        CASE Mchoice=1
  60.      55           DO EditScrn WITH 'ADD'
  61.      56        CASE Mchoice=2
  62.      57           DO SelRcd
  63.      58           DO EditScrn WITH 'EDIT'
  64.      59        CASE Mchoice=3
  65.      60           EXIT
  66.      61     ENDCASE
  67.      62  ENDDO
  68.      63  SELECT MUFILE
  69.      64  USE
  70.      65  RETURN
  71.      66 
  72.      67 PROCEDURE EditScrn
  73.      68 * Record already selected before now
  74.      69  PARAMETER Smode    && Add, Edit
  75.      70  PRIVATE Smode, Rw, YelBl
  76.      71 * Screen setup code
  77.      72  DO CASE
  78.      73     CASE Smode='ADD'
  79.      74        SCATTER MEMVAR BLANK
  80.      75     CASE Smode='EDIT'
  81.      76        =RLOCK()     && Multi-user command
  82.      77        SCATTER MEMVAR
  83.      78  ENDCASE
  84.      79  DEFINE WINDOW AddEdit FROM 3,3 TO 18,76;
  85.      80    TITLE ' Multi-User Demo ' DOUBLE
  86.      81  ACTIVATE WINDOW AddEdit
  87.      82  Rw=2
  88.      83  YelBl='GR+/B'
  89.      84 * Screen Elements
  90.      85  @ Rw,5 SAY 'Mode:'
  91.      86  @ Rw,11 SAY '<'+Smode+'>' COLOR &YelBl
  92.      87  @ Rw,52 SAY 'Today:'
  93.      88  @ Rw,59 SAY DTOC(DATE()) COLOR &YelBl
  94.      89  @ Rw+2,5 SAY 'Name   :' GET m.Name
  95.      90  @ Rw+4,5 SAY 'Address:' GET m.Address
  96.      91  @ Rw+6,5 SAY 'City   :' GET m.City
  97.      92  @ Rw+6,41 SAY 'State:' GET m.State FUNCTION '!A'
  98.      93  @ Rw+6,52 SAY 'Zip:' GET m.Zip PICTURE '99999-9999'
  99.      94  SaveCanx=1
  100.      95  @ Rw+9,28 GET SaveCanx FUNCTION '*TH \!\<Save;\<Cancel' SIZE 1,6,3
  101.      96  READ
  102.      97 * Screen clean-up code
  103.      98  IF SaveCanx=1      && If Save selected
  104.      99     DO CASE
  105.     100       CASE Smode='ADD'
  106.     101         APPEND BLANK
  107.     102         GATHER MEMVAR
  108.     103       CASE Smode='EDIT'
  109.     104         GATHER MEMVAR
  110.     105     ENDCASE
  111.     106  ENDIF
  112.     107  UNLOCK     && Multi-user command
  113.     108  DEACTIVATE WINDOW AddEdit
  114.     109  RELEASE WINDOW AddEdit
  115.     110  RETURN
  116.     111 
  117.     112 PROCEDURE SelRcd
  118.     113 * Select record to edit
  119.     114  DEFINE WINDOW Select FROM 9,10 TO 16,65 DOUBLE;
  120.     115    TITLE ' Select Name to Edit ';
  121.     116    FOOTER ' Press <ENTER> to select '
  122.     117  ACTIVATE WINDOW Select
  123.     118  ON KEY LABEL Enter KEYBOARD CHR(23)
  124.     119  BROWSE FIELDS NAME,ADDRESS IN WINDOW Select NOEDIT
  125.     120  ON KEY LABEL Enter
  126.     121  DEACTIVATE WINDOW Select
  127.     122  RELEASE WINDOW Select
  128.     123  RETURN
  129.     124 
  130.  
  131.     MUFILE.DBF  File Structure
  132.     Fld#  Field Name    Type        Width
  133.         1  NAME        Character    25            
  134.         2  ADDRESS        Character    30            
  135.         3  CITY        Character    25            
  136.         4  STATE        Character    2            
  137.         5  ZIP        Character    10            
  138.                 ** Total **     93
  139.