Scopul lucrării. aflați cum să vă conectați la bazele de date create în Microsoft Access; utilizați-le în program.
Cursul de lucru. creați o bază de date "Policlinică" din Access care conține trei tabele (nu trebuie să existe spații în numele câmpurilor):
1) Vizite (Număr_prize_medicale, data_visit, diagnosticare)
Identificați independent tipurile de câmpuri, câmpurile cheie, dacă este necesar, asociați tabelele în schema de date. Completați tabelele cu înregistrări (cel puțin 10 înregistrări în fiecare tabel). Salvați baza de date în viitorul dosar de proiect.
Începeți un nou proiect în Delphi. Salvează-l.
Adăugați la componentele formularului din fila ADO: ADOConnecție, ADOTable din fila DataAccess a componentei DataSource din fila DBControl a componentei DBGrid.
Personalizeaza ADOConnection1: Proprietate connectionString - selectați Utilizare ConnectionString - Build: Furnizori OLE DB - selectați Microsoft Jet 4.0 OLE DB Provider, pe fila Connection, selectați baza de date, specificați o cale relativă; (. \ Nazvanie_ bazy_dannyh.mdb) pe fila Complex, setați permisiunile de citire / scriere și caseta de selectare pentru a elimina anterior.
Proprietatea LoginPrompt (solicitați parola pentru a deschide baza de date) este setată la false.
Configurați DataSource1: proprietatea DataSet - ADOTable1.
Configurați ADOTable1: Proprietate conexiune - ADOConnecție1, Nume_pagină - pacient.
Configurați DBGrid1: proprietatea DataSource - DataSource1.
Proprietatea activă a ADOTable1 este setată la true.
Dacă totul se face corect, DBGrid va afișa înregistrările din tabelul Patient.
Adăugați în formularul DB Navigator. Atașați-l la DBGrid'u. Ascundeți toate butoanele responsabile de modificările bazei de date. Însuși DBGrid să facă readonly.
Creați un alt formular. Proiectați-l ca "Introducerea datelor despre pacienți".
În loc de DBGrid utilizați alte componente din fila DataControl, utilizați DBComboBox pentru câmpurile Gender și numărul site-ului. Componentele DBEdit configurează două proprietăți: DataSource și DataField.
În mod similar, un formular pentru introducerea datelor despre medic, un formular pentru introducerea datelor privind vizitele la un doctor bolnav.
Organizați tranziția de la formă la formular.
Creați un nou formular "Căutarea datelor pacientului".
Adăugați componentele DataSource, ADOConnecție, ADOQuery la acest formular și configurați-le.
Adăugați la componentele formularului pentru afișarea informațiilor despre pacient la cerere (puteți utiliza DBCtrlGrid, plasați restul componentelor pe acesta).
Organizați cereri pentru: numele de familie, data nașterii, numărul de politică medicală și așa mai departe.
ADOQuery1.Close; // închideți interogarea
ADOQuery1.SQL.Clear; // șterge SQL pentru noua condiție de interogare
ADOQuery1.SQL.Text: = 'Selectați de unde câmpul obligatoriu =: p1'; // formează textul interogării, p1 - parametrul de intrare al interogării
ADOQuery1.Parameters [0]. Valoare: = editare1.text; // atribuiți o valoare specifică parametrului de interogare
ADOQuery1.Open; // deschideți interogarea
Un alt exemplu de interogare:
ADOQuery1.Close; // închideți interogarea
ADOQuery1.SQL.Clear; // șterge SQL pentru noua condiție de interogare
ADOQuery1.SQL.Text: = 'Selectați de unde doriți câmpul ca' '' + Edi1.text + '%' ''; // formați textul cererii, câmpul necesar începe cu caracterele introduse în Edit1.text
ADOQuery1.Open; // deschideți interogarea
Pentru a emite un formular separat pentru a căuta informații despre doctori (termenii de solicitare pentru a veni singuri).
Organizați interogări din mai multe tabele:
- Toți pacienții care au vizitat clinica într-o anumită zi; (prin adăugarea ordinului la sfârșitul interogării, puteți specifica gruparea după un anumit câmp)
- Toți pacienții diagnosticați cu ...
- Toți pacienții născuți mai târziu ....
Gândiți-vă la 3 dintre interogările dvs. complexe (utilizați în termenii de interogare și, sau) și proiectați-le.