SHARE
TWEET

Untitled

a guest Dec 6th, 2018 181 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. creare buton
  2. set path to "E:\\12C"
  3. Create table elevi( nume C(30), prenume C(30), inaltime N(3), greutate N(3))
  4. use elevi
  5. brow
  6. use
  7.  
  8. populare button
  9. close all
  10. use elevi
  11. input "Dati un nr inregistrari: " to n
  12. for i=1 to n
  13. vnume= ""
  14. vprenume= ""
  15. vinaltime =0
  16. vgreutate =0
  17. accept "Nume: " to vnume
  18. accept "Prenume: " to vprenume
  19. input  "Inaltime: " to vinaltime
  20. input  "Greutate: " to vgreutate
  21. append blank
  22. replace nume with vnume, prenume with vprenume, inaltime with vinaltime, greutate with vgreutate
  23. endfor
  24. use
  25.  
  26. inserare button
  27. close all
  28. use elevi
  29. vnume= ""
  30. vprenume= ""
  31. vinaltime =0
  32. vgreutate =0
  33. accept "Nume: " to vnume
  34. accept "Prenume: " to vprenume
  35. input  "Inaltime: " to vinaltime
  36. input  "Greutate: " to vgreutate
  37. append blank
  38. replace nume with vnume, prenume with vprenume, inaltime with vinaltime, greutate with vgreutate
  39. use
  40.  
  41. stergere button
  42. use elevi
  43. input "Dati inaltimea elevului: " to vinaltime
  44. delete for inaltime= vinaltime
  45. pack
  46. use
  47.  
  48. sortare button
  49. close all
  50. use elevi
  51. select* from elevi order by inaltime desc
  52. use
  53.  
  54. exit button
  55. close all
  56. thisform.release
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