Az mdb formátumú adatbázisok használata a delphi projektben
A munka célja. megtanuljuk, hogyan csatlakozzon a Microsoft Access által létrehozott projekt adatbázisokhoz; használja őket a programban.
A munkafolyamat. hozzon létre egy "Polyclinic" adatbázist az Access-ben, amely három táblából áll (a mezőnevekben nem lehet szóköz).
1) Látogatások (orvosi_polisz száma, dátum_nézet, diagnózis)
Függetlenül határozza meg a mezők típusát, a kulcsmezőket, ha szükséges, illesszen táblákat az adatsémára. Töltse ki a táblázatokat rekordokkal (legalább 10 rekordot minden táblázatban). Mentse az adatbázist a jövőbeli projektmappába.
Hozzon létre egy új projektet Delphi-ben. Mentse el.
A DBGrid összetevő DBControl lapjáról a ADO: ADOConnection, ADOTable lapon a DataSource összetevő DataAccess lapján adja hozzá a formanyomtatványokat.
Customize ADOConnection1: ConnectionString tulajdon - válasszuk a ConnectionString - Építőanyag: Ellátó OLE DB - válassza ki a Microsoft Jet 4.0 OLE DB Provider, a Kapcsolat lapon, válassza ki az adatbázis adja relatív útvonal (\ nazvanie_ bazy_dannyh.mdb.) A Speciális lapon állítsa be az Olvasás / Írás engedélyt, és távolítsa el az előző jelölőnégyzetet.
A LoginPrompt tulajdonság (jelszó megadása az adatbázis megnyitásához) hamis.
A DataSource1 konfigurálása: a DataSet tulajdonság - ADOTable1.
ADOTable1 beállítása: Kapcsolat tulajdonság - ADOConnection1, TableName - Patient.
A DBGrid1 konfigurálása: a DataSource tulajdonság - DataSource1.
Az ADOTable1 aktív értéke igaz.
Ha minden rendben van, a DBGrid megjeleníti a rekordokat a Beteg táblázatból.
Adja hozzá a DB Navigator űrlapot. Csatlakoztassa a DBGrid'u-hoz. Az adatbázis-módosításokért felelős összes gomb elrejtése. Maga a DBGrid csak olvasható.
Hozzon létre egy másik űrlapot. Tervezzük úgy, mint "Adatok bevitele a betegekről".
A DBGrid helyett használja a DataControl egyéb lapjait, használja a DBComboBox mezőt a Nemek és a Helyek mező számára. A DBEdit összetevők két tulajdonságot konfigurálnak: DataSource és DataField.
Hasonlóképpen, az orvosok adatainak bevitelére szolgáló formanyomtatvány, amely a beteg orvosi látogatásokra vonatkozó adatok bevitelére szolgál.
Szervezze át az űrlapról formára történő átmenetet.
Hozzon létre egy új űrlapot: "Betegadatok keresése".
Adja hozzá az Adatforrás, az ADOConnection és az ADOQuery összetevőket ehhez az űrlaphoz, és állítsa be őket.
Adja hozzá az űrlap komponenseit a beteg információinak igény szerinti megjelenítéséhez (használhatja a DBCtrlGrid-et, helyezze a többi összetevőt rajta).
Szervezze meg a következő kérdéseket: vezetéknév, születési idő, egészségügyi szakpolitikai szám stb.
ADOQuery1.Close; // zárja be a lekérdezést
ADOQuery1.SQL.Clear; / / törölje az SQL-t az új lekérdezési feltételhez
ADOQuery1.SQL.Text: = 'A kért mező kiválasztása: p1'; // formázza a lekérdezési szöveget, p1 - a lekérdezés bemeneti paramétere
ADOQuery1.Parameters [0] .Value: = edit1.text; // hozzárendel egy értéket a lekérdezési paraméterhez
ADOQuery1.Open; // nyissa meg a lekérdezést
Egy másik példa lekérdezés:
ADOQuery1.Close; // zárja be a lekérdezést
ADOQuery1.SQL.Clear; / / törölje az SQL-t az új lekérdezési feltételhez
ADOQuery1.SQL.Text: = 'Válassza ki a kívánt mezőt, például' '' + Edi1.text + '%' ''; // a kérés szövegét alkotja, a szükséges mező a Edit1.textben megadott karakterekkel kezdődik
ADOQuery1.Open; // nyissa meg a lekérdezést
Külön formanyomtatványt adhat az orvosokra vonatkozó információk megkeresésében (a kérelem feltételei, hogy önmagad legyen).
A lekérdezések szervezése több táblázatból:
- Minden olyan beteg, aki egy adott napon ellátogatott a klinikára; (a lekérdezés végén a rendelés hozzáadásával megadhatja a csoportosítás egy adott mezőt)
- Minden olyan beteg, aki diagnosztizál ...
- Minden, később született beteg ....
Gondolj a 3 komplex lekérdezésedre (használd a lekérdezési kifejezésekben és, vagy) és tervezd őket.