Utilizarea Mediului Delphi în Gestionarea Bazelor de Date

7.1 CONSULTARE BAZĂ DE DATE

Realizarea unui program prin care să se consulte o bază de date creată în mediul de lucru Access şi să se vizualiueze un tabel, din cadrul acesteia, într-o formă Delphi.

Cerinţele problemei:

Tabelul din baza de date creată în Access să se poată vizualiza în totalitate. Pe forma finală să se regăsească următoarele elemente:

• O etichetă care să conţină denumirea tabelului;

• O bară cu butoane de control;

• Informaţiile din tabel să fie afişate sub formă de Sheet;

• Tabelul afişat să conţină bare de defilare (HorzScrollBar şi VertScrollBar) atât pe verticală cât şi pe orizontală;

• Un buton pentru părăsirea aplicaţiei.

Rezolvare:

1. Pregătirea consultării bazei de date.

• Pe form se va plasa o componentă de tip non-visual ADOConnection având ca scop conectarea form-ului la tipul de bază de date ce va fi accesată şi se va deschide după operaţia de selectare.

• O componentă non-visual ADOTable se aduce pe form, prin intermediul ei se va seta tabelul de lucru din baza de date activă.

• O a treia componentă non-visual, intitulată DataSource se va fixa pe form, având rolul de a preciza sursa de date activă în acel moment.

După selectarea proprietăţilor celor trei componente, tabelul selectat devine activ aşteptând să fie vizualizat.

2. Afişarea conţinutului unui tabel pe form.

Dacă se solicită vizualizarea fişierului sub formă de foaie de calcul, în care să se poată vedea şi denumirile câmpurilor, se va folosi componenta visuală DBGrid care permite această variantă de afişare. În acest scop, se va fixa pe form un DBGrid, se redimensionează conform cerinţelor şi se cupleză la sursa de date. În urma acestor operaţii Grid-ul a fost pregătit pentru a primi informaţii. Preluarea informaţiilor din tabelul activ şi aducerea în grid se realizează prin intermediul componentei ADOTable setându-i proprietatea Active pe True.

3. Adăugarea elementelor adiţionale.

• Titlul tabelului se realizează printr-o etichetă plasată pe formă şi căreia i se schimbă numele în concordanţă cu fişierul şi tabelul consultat.

• Butoanele de navigare se afişează prin intermediul componentei visuale DBNavigator. Componenta se va cupla la sursa de date pentru a fi activă pe sursa respectivă.

• Butonul de închidere va fi creat de componenta Button. Funcţia butonului se va realiza prin cod program.

4. Lansarea în execuţie a form-ului.

• Se salvează Unit-ul realizat cu ajutorul comenzii File | Save As, eventual se poate, în această fază, să i se atibuie alt nume dacă se doreşte acest lucru.

• Se salvează proiectul generat cu ajutorul comenzii File | Save Project As. Denumirea implicită dată de sistem se poate schimba.

• Se lansează în execuţie proiectul realizat prin comanda Run | Run din meniul principal.

Etape de lucru:

1. Se deschide o nouă aplicaţie FileNewApplication.

2. În coloana de valorii a proprietăţii Caption a form-ului se va scrie numele apllicaţiei, de exemplu, Consultare BD.

3. Pe form se aduc următoarele componente:

• ADOConnection din pagina ADO;

• ADOTable din pagina ADO;

• DataSource din pagina Data Access.

4. În vederea conectării la sursa de date se va executa dublu click pe ADOConnection. În fereastra Connection String se execută dublu click pe butonul intitulat Build având ca efect deschiderea ferestrei cu numele Data Link Properties. Din această fereastră se va selecta tipul de obiect corespunzător bazei de date ce va fi activată. Dacă baza de date a fost creată în Access se va selecta Microsoft Jet 4,0 OLE DB Provider şi apoi butonul Next.

5. În fereastra Data Link Properties se execută dublu click pe butonul trei puncte din dreapta căsuţei 1. Select or enter a database name. Se selectează baza de date şi se deschide prin butonul Open.

6. Se execută textul de conectare corectă , prin Text Connection. Apoi se apasă OK de două ori.

7. Pe formă se selectează ADOTable. Se verifică dacă la proprietatea Name este ADOTable1. Proprietatea Connection se va seta pe ADOConnection1.

8. De pe formă se selectează componenta Data Source. Proprietatea Data Set se setează pe ADOTabe1. Proprietatea Name trebuie să fie DataSource1.

9. Se revine la ADOTable. Se selectează proprietatea TableName. Din lista tabelelor afişate, care se deschide acţionând săgeata din dreapta a coloanei de valorii, se va selecta un tabel, de exemplu tabelul Facturi, a cărui structură este prezentată în Fig nr.7.1 „Structura tabelului Facturi”.