Extras din seminar
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
Preview document
Conținut arhivă zip
- Proiectarea Sistemelor Informatice.pdf