Proiectarea Sistemelor Informatice - 2

Studiu de caz : Implementarea unei clase de asociere intre clase de

obiecte

Aplicatie 1

Angajatii unei entitati colaboreaza la efectuarea unor proiecte, fiecare putând participa la nici un proiect

sau la mai multe. Pentru fiecare proiect, un angajat ponteaza un numar de ore in fiecare zi in care

colaboreaza la desfasurarea acestuia. Sa se realizeze implementarea in Visual Basic 6.0 a claselor si a

legaturilor dintre acestea. Sa se realizeze o interfata ce permite calculul numarului de ore total pentru

fiecare lucrare efectuata de catre un angajat.

Diagrama claselor

+Vechime() : Double

+afis_nr_total_ore() : Double

+afis_nr_total_ore_proiect() : Double

+marca

+nume

+dataAngajare

Angajat

+cod

+denumire

Departament

+sunt angajati

1..*

+lucreaza

1

+total_ore() : Double

+Numar

+DataInceput

+DataFinalizare

+Descriere

Proiect

+Total_ore_data() : Double

-Data : Date

-Nrore

Realizeaza

1..*

+este realizat

0..*

+realizeaza

Interfata ce permite calculul numarului de ore total pentru fiecare lucrare efectuata de catre un angajat

PSI 2 Seminar 4 2/4

‘realizarea clasei proiect

Public numar As Integer

Public dataInceput As Date

Public dataFinalizare As Date

Public descriere As String

‘realizarea clasei angajat

Private Marca_angajat As String

Private Nume_angajat As String

Private Data_Angajare As Date

‘implementarea legaturii cu clasa Realizeaza

Private colectieRealizeaza As New Collection

Public Sub adauga_proiecte(r As Relizeaza)

colectieRealizeaza.Add r

End Sub

Public Function afis_nr_proiecte() As Integer

afis_proiecte = colectieRealizeaza.Count

End Function

Public Function afis_nr_total_ore() As Integer

‘afisarea numarului total de ore

Dim total As Double

For i = 1 To colectieRealizeaza.Count

total = total + colectieRealizeaza.Item(i).nr_ore

Next

afis_nr_total_ore = total

End Function