home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / MISC / BANKER.PRG < prev    next >
Encoding:
Text File  |  1993-08-31  |  1.3 KB  |  68 lines
  1. ************
  2. * BANKER.PRG
  3. ************
  4.  
  5. #DEFINE BUTTONEVENT 6
  6. SET PROCEDURE TO BANKER
  7.  
  8. USE BANKER2
  9. INDEX ON NAME TO BANKER2
  10.  
  11. DECLARE anames[RECCOUNT() + 1]
  12. anames[1] = 'Customers'
  13. FILL ARRAY ALL START WITH 2 anames ;
  14.     WITH SUBSTR(NAME,1,20)
  15. GOTO TOP
  16.  
  17. SET LISTBOX TO 7
  18.  
  19. mname = anames[2]
  20. tname = NAME
  21.  
  22. CREATE BUTTON ' Done ' AT 23,35
  23. CENTER("Demo Application",2,0,75,10)
  24.  
  25. @ 6,0 SAY "  Lending Customer's Name:" GET tname ;
  26.     VALID NEWNAME(tname) CHANGE
  27. @ 8,0 SAY "           Account Number:" GET acct_no
  28. @ 9,45 GET mname LISTBOX @anames VALID LISTNAME()
  29. @ 10,0 SAY "     Date the Loan Opened:" GET date_open
  30. @ 12,0 SAY "    Beginning Loan Amount:" ;
  31.     GET beg_amount
  32. @ 14,0 SAY "          Current Balance:" GET balance
  33. @ 16,0 SAY "            Loan Category:" GET category
  34.  
  35. DO WHILE .T.
  36.     tname = NAME
  37.     READ SAVE
  38.     IF LASTKEY() = 27 .OR. EVENT() = BUTTONEVENT
  39.         EXIT
  40.     ENDIF
  41. ENDDO
  42.  
  43. CLEAR GETS
  44. RETURN
  45.  
  46. ******************
  47. FUNCTION NEWNAME()
  48. ******************
  49. PARAMETER findme
  50. SEEK TRIM(findme)
  51. IF .NOT. EOF()
  52.     tname = NAME
  53.     mname = SUBSTR(NAME,1,20)
  54.     UPDATE GETS
  55.     GETNO(1)
  56. ELSE
  57.     BEEP
  58.     MESSAGE(TRIM(findme),' Does Not Exist')
  59.     RETURN(.F.)
  60. ENDIF
  61. RETURN(.T.)
  62.  
  63. *******************
  64. FUNCTION LISTNAME()
  65. *******************
  66. retval = NEWNAME(mname)
  67. RETURN(retval)
  68.