home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / tdas.ark / STUDENT2.PRG < prev    next >
Encoding:
Text File  |  1986-08-24  |  1.5 KB  |  66 lines
  1. *******************************************************************************
  2. *        Here's the program you'll be using to update or edit an exist-       *
  3. *        ing record of a student in the "active" file                         *
  4. *******************************************************************************
  5. STORE T to Editrec
  6. ERASE
  7. DO WHILE Editrec
  8.   STORE "               " to Mname
  9.   USE B:Student
  10.   @ 3,31 SAY "YOUR COMPANY NAME"
  11.   @ 13,1 SAY "Enter the student's last name OR the acct. number";
  12.   GET Mname
  13.   READ NOUPDATE
  14.  
  15.   IF Mname = "               "
  16.     STORE F to Editrec
  17.     LOOP
  18.   ENDIF
  19.  
  20.   IF VAL(Mname)>500
  21.        SET Index TO ID,Lname
  22.        STORE $(Mname,1,4) to Findstud
  23.   ELSE
  24.        SET Index TO Lname,ID
  25.        STORE TRIM(Mname) to Findstud
  26.   ENDIF
  27.  
  28. FIND &Findstud
  29.  
  30. IF #=0
  31.   @ 22,0 SAY Findstud+" is not in the data file."
  32.   LOOP
  33. ENDIF
  34. @ 22,0
  35.  
  36. IF #>0
  37.   STORE # to Placemark
  38.  
  39. IF .NOT. ACCT:NUM=Findstud .OR. .NOT.Lname=Findstud
  40.   SKIP
  41.     IF Lname=Findstud .AND..NOT.EOF
  42.       ERASE
  43.       @ 1,1 SAY "Oops!  We have more than one "+Findstud
  44.       SKIP -1
  45.       DISPLAY Fname,Lname WHILE Lname=Findstud
  46.       INPUT "Enter number from left column, or 0 to abort" to Placemark
  47.     ENDIF
  48. ENDIF
  49.  
  50.   IF Placemark >0
  51.     GO Placemark
  52.     SET format TO STUDENT2
  53.     READ
  54.     Clear Gets
  55.     SET format TO Screen
  56.   ENDIF
  57. ENDIF
  58. ERASE
  59. STORE F to Editrec
  60. ENDDO
  61. RELEASE Timer,Editrec,Mname,Placemark,Findstud,Find
  62. RETURN
  63. 
  64. *
  65.  IF Query = "N"
  66.   STORE F to Ad