Ehlib könyvtár
Helló, ezt a témát tartom - a blogolvasó kérésére. Miután feltett egy kérdést: mint a TDBGridEh-ban. a mezőkben (a rekordokban), ahol a jelölőnégyzet be van állítva. lépjen másik asztalra. Néhány óra múlva letöltöttem az Ehlib könyvtár legújabb verzióját és telepítettem. Mint tudom, a TDBGridEh komponensben. szemben a TDBGrid-rel. van egy kibővített funkció. Nézzünk egy egyszerű példát. És először fogjuk létrehozni projektünket. Az űrlapon a következő összetevők vannak:
Létre kell hozni az adatbázisunkat, amellyel dolgozni fogunk. Az I. táblázat szerkezete a következő:
Vagyis világos, hogy hol jelenik meg a jelölőnégyzetek. van logikai típusunk. ha a MySQL adatbázist használja. ehhez a mezőhöz a BOOL típus kiválasztása szükséges.
Most állítsuk be a komponenseinket. Válassza ki a TADOConnection összetevőt, és állítsa a LoginPromt tulajdonságot hamisnak. Ezután a ConnectionString tulajdonságon keresztül. csatlakozzon adatbázisunkhoz. Hogyan kell csinálni, itt láthatja.
Ezután kiválasztjuk a TDataSource összetevőt és a DataSet tulajdonságot - válasszuk a TADOQuery lehetőséget.
Ezután válasszuk ki a TADOQuery összetevőt és a Connection tulajdonságot - válasszuk a TADOConnection lehetőséget. Végül válaszd ki a TDBGridEh összetevőt, és válaszd ki a TDataSource-ot a DataSource tulajdonságban.
Ha mindent helyesen csináltál, akkor az adatbázisunkhoz való kapcsolódásnak működnie kell. Ezután ismét válassza ki a TDBGridEh komponenst, és kattintson duplán kattintva az egérre, majd a következő ablak jelenik meg:
Ebben az ablakban 2 oszlopot (TColumns) hozunk létre. A FieldName tulajdonságoknál adja meg a - id értéket. és a második oszlop - jelölőnégyzetet.
A mezőnévnek a FieldName tulajdonságban meg kell egyeznie - a mezőnévvel, az MS Access táblában (esetünkben a TableTestben)
A CheckBox mezõjének jelölõnégyzetek tulajdonságaiban állítsa True értékre (ebben az esetben ez a mező egy jelölõnégyzet).
Most be kell kapcsolnunk az asztalunkat, mert az alábbi kódot írjuk az OnShow eseményre:
Állítsa a mutatót az első rekordra, és adja ki az eredményt - egy üzenetet, kaptam a következőket:
Vagyis, ha a mutató be van állítva, akkor a visszatérés igaz lesz. ha nem - hamis. Ez egyszerű.
A MySQL adatbázis és a BOOL mező használata a jelölőnégyzetek beállításához. az eredmény 1 vagy 0 érték lesz True / False helyett 1 - a jelölőnégyzet be van jelölve, 0 - nincs telepítve
Nos, most válassza ki azokat a rekordokat, amelyeken a jelölőnégyzet be van jelölve. Ehhez részben használjuk a cikket.
Válassza ki a TADOQuery összetevőt. a Paraméterek tulajdonságban - hozzon létre egy új paramétert, amely a Név tulajdonságban megadja a csekket. és a DataType tulajdonságban - ftBoolean. Mindannyian az számunkra maradt:
Most minden a mi kérelem mind olyan terület, ahol a négyzetet (a mutató), és az adatok bejegyzések bármit megtehetnek: átvinni más táblákhoz, törölni, szerkeszteni, és így tovább.
A forráskódot, mint mindig, csatolták, itt töltjük le (IDE Delphi 7).
Arra kértek egy fórumot, ahol vásárolhat egy monopóliumot. Természetesen azonnal értettem, hogy ez nem csak játék, hanem szerencse-edző is.