SHARE
TWEET

rasputin22

a guest Oct 25th, 2018 159 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. programe.prg
  2.  
  3. create table(nume C(30), clasa N(3), matricol N(5), adresa C(50))
  4. use elevi
  5. browse
  6. use
  7.  
  8.  
  9.  
  10. populare.prg
  11.  
  12. SET PATH TO "E:\\12C"
  13. CLEAR
  14. SET TALK OFF
  15. USE elevi
  16. INPUT "Dati numar inregistrari: " TO n
  17. FOR i=1 TO n
  18.     vnume = ""
  19.     vclasa=0
  20.     vmatricol=0
  21.     vadresa= ""
  22.     ACCEPT "NUME = " TO vnume
  23.     INPUT "CLASA = " TO vclasa
  24.     INPUT "MATRICOL = " TO vmatricol
  25.     ACCEPT "ADRESA = " to vadresa
  26.     APPEND BLANK
  27.     replace nume WITH vnume, clasa WITH vclasa, matricol WITH vmatricol, adresa WITH vadresa,
  28. ENDFOR
  29. use
  30.  
  31.  
  32. afisare.prg
  33.  
  34. close all
  35. use elevi
  36. clear
  37. ?"Introduceti operatia dorita"
  38. ?"1-introducerea a n inregistrari"
  39. ?"2- afisarea inregistrarilor elevilor clasei date"
  40. input to op
  41. if(op==1)
  42. do populare
  43. endif
  44. if(op==2)
  45. input "Dati numarul clasei: " to vclasa
  46. select * from elevi where(clasa=vclasa)
  47. endif
  48. if(op==3)
  49. input "Dati nr matricol" to vmatricol
  50. browse for matricol=vmatricol
  51. endif
  52. if(op==4)
  53. accept "Dati numele milogului" to vnume
  54. delete for nume=vnume
  55. pack
  56. endif
  57. if(op==5)
  58. accept "Dati numele milogului" to vnume
  59. browse for nume=vnume
  60. pack
  61. endif
  62. if(op==6)
  63. accept "Dati numele milogului" to vnume
  64. locate for nume=vnume
  65. input "matricol" to vmatricol
  66. accept "adresa" to vadresa
  67. input "clasa" to vclasa
  68. accept "nume" to vnume
  69. replace nume with vnume
  70. replace clasa with vclasa
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top