|
A mellékelt példaprogram megnyitása előtt az SQLTable.pas-ban lévő komponenst telepítenie kell a Delphi alá.
A komponens működési elve nagyon egyszerű. A property-ken megadjuk azokat az adatokat, amik szükségesek az adott adatbázishoz való kapcsolódáshoz, majd egy másik property-ben megkapjuk az adatbázisban található táblák neveit. Egy SQL adatbázis tartalmaz rendszertáblákat is, ezért azt szintén megadhatjuk, hogy ezek a táblák szerepeljenek-e a listában.
Az adatbázishoz való kapcsolódáshoz a TADOConnection komponenst fogjuk használni, ezért létrehozunk egy ilyen típusú objektumot a komponensen belül. Ennek van egy GetTableNames nevű függvénye, ami a paraméterként megadott TStrings típusú objektumban visszaadja a táblák neveit. Opcionálisan megadható egy másik paraméter is, ami logikai típusú, és igaz érték esetén a rendszertáblákat is beolvassa a listába. A komponens Refresh metódusában ezt az eljárást használjuk fel. A property-kben megadott adatok alapján létrehozzuk a ConnectionString-et, és meghívjuk a GetTableNames eljárást, amivel a Tables property-be beolvastatjuk a táblák neveit.
Természetesen ahhoz, hogy az eredményt megkapjuk, az SQL szervernek futnia kell.
|