Delphi 2.0
4. óra
Adatbáziskezelés I.
Feladat: Hallgatói nyilvántartás készítése.
Mezők: Név , Születési dátum, Szem.ig. szám, tankör, ösztöndíj.
Készítsünk egy menüből hívható formot, amin lapozgatni lehet az adatok között.
Megoldás: Válasszuk ki a Database menüpontból az Explore pontot. Erre azért van szükség, hogy egy álnevet (alias) hozzunk létre. Kattintsunk a Database objektumra és nyomjuk meg az egér jobb szemét. Válasszuk ki a New menüpontot. Válasszuk ki az alias típusát (STANDARD) és nyomjuk meg az ok gombot. Írjuk be az új álnevet (ora4)! A Definition részben adjuk meg azt a könyvtárat, amire az alias mutat (path), majd állítsuk be a Default Drivert (DBASE). Kattintsuk a bal oldalon a Database objektumra, majd nyomjuk meg az egér jobb szemét és az apply menüpontra kattintsunk, hogy a beállításokat rögzítse. Ezután zárjuk be a Database Explorer-t.
Indítsuk el a Program files\Borland\Database Desktop könyvtárból a DBD32 (Database Desktop) programot, aminek segítségével tudunk táblákat létrehozni. Állítsuk be a munkakönyvtárat a leendő adataink könyvtárára a File/Working Directory menüpont segytségével. Az aliases-nél pedig válasszuk ki az előbb beállított álnevünket (ora4). És OK gomb. A táblák létrehozásához a File/New/Table menüpontra van szükségünk. Válasszuk ki a kívánt tábla típust (dBASE IV). Írjuk be az első mező nevét, a típusát a szóközre kinyíló listából választhatjuk ki, a hosszát kell még megadnunk, a tizedesjegyek számát.
Field Name | Type | Size | Dec |
NEV | C | 25 | |
SZULDAT | D | ||
SZEMIGSZAM | C | 8 | |
TANKOR | C | 10 | |
OSZTONDIJ | N | 4 |
Indexet állítsuk be a define gomb lenyomásával. Az indexelni kívánt mezőre kell állni és OK. Ezután már csak a nevet kell megadni ahogyan hivatkozni szeretnénk rá. Ezután Save as... és megadjuk a nevét a táblának: hallgatók (az alias megadására is figyeljünk!).Ezután kiléphetünk a Database Desktop-ból.
Hozzunk létre egy adatmodult (File/New Data Module). A Name tulajdonságához írjunk be egy nevet (adatmodul), majd mentsük el abba a könyvtárba, ahova a táblát is mentettük adatok néven. Helyezzünk el rajta a Data Access palettáról egy Table és egy Data Source komponenst, majd a jellemzőket az alábbiak szerint állítsuk be:
Komponens | Jellemző | Érték |
Table1 | Name | tblhallgatok |
DatabaseName | ora4 (az az álnév, amit létrehoztunk) | |
TableName | hallgatók | |
Active | True (ilyenkor tervezés közben is látszanak az adatok) | |
IndexName | Nev (ami szerint rendezve szeretnénk látni az adatokat) | |
DataSource1 | Name | dsrhallgatok |
DataSet | tblhallgatok |
A formunk unit-jában biztosítsuk az utat az adatmodul felé:
unit unit1;
...
implementation
{$R *.DFM}
uses adatok;
...
end.
A DataControls palettáról helyezzünk el 5 db DBEdit-et az adatok megjelenítésére, egy DBNavigator-t a karbantartásra, 5 db Label-t a magyarázószövegnek és egy Button-t a kilépéshez.
Komponens | Jellemző | Érték |
DBEdit1 | Name | eNev |
DataSource | adatmodul.dsrhallgatok | |
DataField | Nev | |
DBEdit2 | Name | eSzuldat |
DataSource | adatmodul.dsrhallgatok | |
DataField | Szuldat | |
DBEdit3 | Name | eSzemigszam |
DataSource | adatmodul.dsrhallgatok | |
DataField | Szemigszam | |
DBEdit4 | Name | eTankor |
DataSource | adatmodul.dsrhallgatok | |
DataField | Tankor | |
DBEdit5 | Name | eOsztondij |
DataSource | adatmodul.dsrhallgatok | |
DataField | Osztondij | |
DBNavigator | Name | Navigator |
DataSource | adatmodul.dsrhallgatok | |
Button1 | Name | BtnKilepes |
Caption | Kilépés | |
OnClick esemény | Close; | |
Form1 | Name | frmkarbantart |
Caption | Hallgatók adatainak karbantartása |
Kérjünk egy új form-ot (File/New Form) és hozzuk létre rajta az előző ablakot hívó és az alkalmazást befejező menüpontokat:
Karbantart Kilépés
Állítsuk be az OnClick eseményeket.
procedure TForm1.Karbantarts1Click(Sender: TObject);
begin
frmkarbantart.Showmodal;
end;
procedure TForm1.Kilps1Click(Sender: TObject);
begin
Close;
end;
Adjuk nevet neki a Name tulajdonságának kitöltésével és a címsorába írjunk a Caption használatával.
A Project/Options menüpontban Main form-nak állítsuk be a menüs ablakot és az auto-create forms résznél pedig a legelső helyre húzzuk az adatmodult. (különben nem látja a megjelenítő ablak az adatokat)