Bază de date cu privire la câinii violenți în microsoft Access

Enuntul temei:

Sa se creeze o baza de date care tine evidenta proprietarilor de câini periculosi din orasul Craiova.Baza de date trebuie sa contina urmatoarele informatii despre proprietari:

-nume;

-initiala;

-prenume;

-adresa;

-cnp;

-statut social;

-rasa de câine;

-numarul de exemplare;

-incidente;

-masuri adoptate;

Date de intrare:

1. Crearea tabelului “Tabel_proprietari” ce contine urmatoarele câmpuri:

- cnp-cheie primara;

- nume;

- initiala;

- prenume;

- adresa;

- statut social;

2. Crearea tabelului “Tabel_câini” ce contine urmatoarele câmpuri:

- nr_crt-cheie primara;

- rasa de câine;

- numarul de exemplare;

- incidente;

- masuri adoptate;

3. Crearea query-ului “Query_câini” ce contine urmatoarele câmpuri:

- nr_crt;

- cnp;

- nume;

- initiala;

- prenume;

- adresa;

- statut social;

- rasa de câine;

- numarul de exemplare;

- incidente;

- masuri adoptate;

Obs:Pentru query-ul “Query_câini” legatura dintre tabelele “Tabel_proprietari” si “Tabel_câini” s-a facut între câmpurile declarate chei primare în tabelele respective adica cnp si nr_crt.

Date de iesire:

- adaugare;

- modificare;

- stergere;

- salvare;

- anulare;

- iesire;

- înapoi;

- cautare;

- ordonare în functie de:-nume;

-nr_exemplare;

Obs:Baza de date este creata în Access cu numele de Câini periculosi.

Obs:Codul pentru datele de iesire este creat în Visual Basic 6.0.

Obs:Câmpul Data1 este un controler care face legatura între baza de date din Access si forma din Visual Basic.

Listingul programului în Visual Basic 6.0:

Private Sub Cauta_Click()

Data1.RecordSource = "select * from q_caini where Nume like '" & txtcauta.Text & "*' "

Data1.Refresh

End Sub

Private Sub OrdNr_exemplare_Click()

Data1.RecordSource = "SELECT * FROM [Tabel_caini]" & _

"ORDER BY [Numar_de_exemplare]"

Data1.Refresh

End Sub

Private Sub Ordnume_Click()

Data1.RecordSource = "SELECT * FROM [Tabel_proprietari]" & _

"ORDER BY [Nume]"

Data1.Refresh

End Sub

Private Sub save_Click()

On Error GoTo eroare

If Text2 = "" Then

MsgBox ("Nu ati completat Codul Numeric Personal!")

End If

If Text3 = "" Then

MsgBox ("Nu ati completat numele!")

End If

If Text4 = "" Then

MsgBox ("Nu ati completat initiala!")

End If

If Text5 = "" Then

MsgBox ("Nu ati completat Prenumele!")

End If

If Text6 = "" Then

MsgBox ("Nu ati completat Adresa!")

End If

If Text7 = "" Then

MsgBox ("Nu ati completat Statutul Social!")

End If

If Text8 = "" Then

MsgBox ("Nu ati completat Rasa cainelui!")

End If

If Text9 = "" Then

MsgBox ("Nu ati completat Nr de exemplare!")

End If

If Text10 = "" Then

MsgBox ("Nu ati completat Incidentele!")

End If

If Text11 = "" Then

MsgBox ("Nu ati completat masurile adoptate!")

End If

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

Text8.Enabled = False

Text9.Enabled = False

Text10.Enabled = False