PREZENTAREA SISTEMULUI INFORMATIC FINALIZAT

1. PREZENTAREA INTERFETEI UTILIZATOR

Meniul principal:

Introducere date studenti

Contracte

Reziliere contract

Plati chirie si intretinere

2.PREZENTAREA SITUATIILOR DE IESIRE

Oglinda caminului

Situatia studentilor dupa subventia primita

Situatia studentilor pe camere

Situatia studentilor scutiti de taxa

Situatia studentilor restantieri

PREZENTAREA PROGRAMULUI SURSA

Forma FrmIntroducereStudenti , butonul CmdSalvare.Click

t1=thisform.text1.value

t2=thisform.text2.value

t3=thisform.textvalue

t4=thisform.text4.value

t5=thisform.text5.value

t6=thisform.text6.value

t7=thisform.text7.value

t8=thisform.text8.value

t9=thisform.text9.value

t10=thisform.text10.value

t=thisform.combo1.value

use studenti

locate for nrm=t9

if found()

messagebox('Numar matricol existent !',64,'Atentie !')

else

go bottom

append blank

replace nume with t1

replace parinti with t2

replace data_n with t3

replace loc_n with t4

replace cod with t5

replace dom_st with t6

replace facultate with t7

replace nation with t8

replace nrm with t9

replace an with t10

replace categ with substr(t,1,1)

messagebox('Studentul a fost salvat !',64,'Salvare')

endif

Forma FrmContracte butonul CmdSalvare.Click

close all

t9=thisform.text9.value

use studenti

locate for nrm=t9

if found()

t1=thisform.text1.value

t2=thisform.text2.value

t3=thisform.textvalue

t4=thisform.text4.value

t5=thisform.text5.value

t6=thisform.text6.value

t7=thisform.text7.value

t8=thisform.text8.value

t10=thisform.text10.value

t11=thisform.text11.value

t12=thisform.text12.value

t13=thisform.text1value

t14=thisform.text14.value

t15=thisform.text15.value

use contract

go bott

append blank

replace nume with t1

replace parinti with t2

replace data_n with t3

replace loc_n with t4

replace cod with t5

replace dom_st with t6

replace facultate with t7

replace camin with t8

replace nrm with t9

replace an with t10

replace adresa_c with t11

replace nrcam with t12

replace nrc with t13

replace data_c with t14

replace nation with t15

Messagebox('Datele au fost introduse !',64,'salvare ')

else

messagebox('Numar matricol inexistent !',64,'Atentie !')

endif

Forma FrmPlati, butonul CmdSalvare.Click

close all

t9=thisform.text9.value

use contract

locate for nrm=t9

if found()

t1=thisform.text1.value

t2=thisform.text2.value

t3=thisform.textvalue

t5=thisform.text5.value

t7=thisform.text7.value

t8=thisform.text8.value

t10=thisform.text10.value

t11=thisform.text11.value

t12=thisform.text12.value

t13=thisform.text1value

t14=thisform.text14.value

t=thisform.combo1.value

use chirie

go bott

append blank

replace nume with t1

replace facultate with t7

replace camin with t8

replace nrm with t9

replace an with t10

replace nrcam with t12

replace nrc with t13

replace data_c with t14

replace data_p with t2

replace suma with t3

replace platit with t

Messagebox('Datele au fost introduse !',64,'salvare ')

else

messagebox('Numar matricol sau contract inexistent !',64,'Atentie !')

endif

FormaFrmSituatii , butonul Cmds1.Click

close all

use contract

report form raport1 preview

FormaFrmSituatii , butonul Cmds2.Click

thisform.release

do form s2

close all

use studenti

t=thisform.combo1.value

report form raport2 preview for categ=substr(t,1,1)

FormaFrmSituatii , butonul CmdsClick

close all

t=thisform.text1.value

use contract

report form raport3 preview for nrcam=t

FormaFrmSituatii , butonul Cmds4.Click

close all

use studenti

report form raport4 preview for categ='2' or categ='3' or categ='4'

FormaFrmSituatii , butonul Cmds5.Click

close all

use chirie

report form raport5 preview for platit='NU'