Kezdjük az frmBetegek ablakkal. Az előző részben szó volt róla, hogy az adatfelvitelt és a módosítást ugyanabban az ablakban, az frmModify1-ben hajtjuk végre. Az adatok módosításához hagyományos Edit mezőket használunk, nem pedig DBEdit-et. Így rengeteg bonyodalmat elkerülhetünk.
Amikor az frmBetegek Form-on az új gombra kattintunk, akkor csak meg kell nyitnunk az frmModify1 ablakot, üresen. Módosítás esetén, az ablak megjelenítése előtt meghívjuk annak SetModify metódusát, amely beállítja a Form Caption property-jét. A Caption értéke alapján meg tudjuk majd határozni, hogy módosításról vagy új adatról van szó, hiszen mindkét esetben más fejlécet használunk.
Amikor módosítunk valamit, akkor meg kell jelenítenünk az előző adatokat. Ezt a SetModify metódusban kell implementálnunk. Az egyes Edit mezőknek a Text tulajdonságait be kell állítanunk egyesével. A felhasználó az frmBetegek ablakban, a DBGrid segítségével már rápozícionált a módosítandó személyre, ezért nekünk csak az aktuális rekord mezőit kell beolvasnunk.
with DM.tBetegek do begin
Edit1.Text:=FieldByName('BNev').AsString;
Edit2.Text:=FieldByName('SzulIdo').AsString;
A mezőket célszerű nevük alapján azonosítanunk, és AsString-ként beolvasnunk, hiszen a Text property sztringet vár.
A megadott adatok ellenőrzését és rögzítését az OK gomb lenyomásakor tesszük meg.
Az első lépés, hogy végrehajtjuk az ellenőrzéseket. Ha valami nem stimmel, akkor hibaüzenetet küldünk a felhasználónak, majd kilépünk a rögzítési algoritmusból.
Amikor adatokat rögzítünk, el kell gondolkoznunk azon, hogy mely adatok megadása legyen kötelező. Jelen példában a beteg nevének és születési idejének megadását tesszük kötelezővé.
if TrimRight(Edit1.Text)='' then begin
ShowMessage('Nincs megadva a beteg neve!');
Edit1.SetFocus;
Exit;
end;
Az ellenőrzések egy másik kategóriája az adatok formátumának ellenőrzése. Ez különösen igaz a számokra és a dátumokra. Ha hibás adatot próbálnánk rögzíteni, azt a BDE úgysem engedné meg. Szerencsésebb esetben, adna egy angol nyelvű hibaüzenetet. Magyar nyelvű alkalmazásunkban ennek viszont nincs helye, ezért meg kell előznünk a problémát.
A hibaüzenetek megadásánál törekednünk kell arra, hogy rövid, tömör, de egyértelmű üzeneteket adjunk, amelyből a felhasználó rájön a hiba okára.
Egy szám, vagy egy dátum formátumának ellenőrzésére kiválóan alkalmas a try – except blokk.
try
StrToDate(Edit2.Text);
except
ShowMessage('A dátum formátuma nem megfelelő!');
Edit2.SetFocus;
Exit;
end;
Az ellenőrzések végrehajtása után következik az adatok rögzítése. A rögzítés algoritmusa, módosítás és új adat felvitele esetén is ugyanaz, csak az első esetben az Edit, a másodikban az Append parancsot használjuk.
if Caption='Új beteg felvitele' then
Append
else
Edit;
Az adatok rögzítésénél, az egyes mezőkbe be kell másolnunk a megfelelő Edit mező tartalmát. Itt is célszerű az AsString elérést alkalmaznunk.
FieldByName('BNev').AsString:=Edit1.Text;
A BKod mezőnek nem kell értéket adnunk, mert Autoincremet-re állítottuk.
Az OKod mező alapján tudjuk a beteget az orvoshoz kötni. Ennek a mezőnek az értékét az orvosok tábla aktuális rekordjából olvassuk ki.
FieldByName('OKod').Value:=DM.tOrvosok.FieldByName('OKod').Value;
Az adatrögzítést a Post utasítás zárja le.
Amikor egy hálózatos alkalmazást készítünk, nagyon fontos, hogy az adott rekordot minél kevesebb ideig használjuk. Előfordulhat ugyanis, hogy egy másik gépről is azt a rekordot akarják elérni. Ha Edit mezőket alkalmazunk, akkor csak az adatok beolvasásakor és rögzítésekor használjuk a megadott rekordot.
Törlésnél egy „Biztosan törölni akarja...” típusú kérdés segítségével szokás levédeni a programot.
Ha törlünk egy beteget, akkor törölnünk kell a hozzá tartozó vizsgálatokat is. Mivel master-detail kapcsolatokat használunk, ez azt jelenti, hogy a vizsgalat táblában elérhető összes rekordot törölnünk kell.
with DM.tVizsgalat do begin
Last;
while not Bof do
Delete;
end;
DM.tBetegek.Delete;
Ne feledkezzünk meg a parancsgombok aktivitásának frissítéséről sem. Ezt új felvitel és törlés esetében kell megtennünk.
A betegek adatait kezelő ablakokhoz hasonlóan kell elkészítenünk a vizsgálatokat feldolgozó két ablakot.
A program most már alkalmas arra, hogy egy egygépes rendszerben használjuk. Használatához, természetesen szükséges a BDE paradox kezelése.