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)