
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

DBDateTimePicker komponens

Példaprogram letöltése

13332 bájt

Dátum vagy idő megadására normál esetben használhatjuk a DateTimePicker komponenst. Ha viszont egy adatbázis dátum/idő mezőjébe szeretnénk egyszerűen adatot bekérni a felhasználótól, akkor meg kell elégednünk a DBEdit komponenssel, ami nem kényezteti el a felhasználót lehetőségeivel. Ebben a példában egy kis módosítással átalakítottuk a DataTimePicker komponenst, hogy képes legyen adatbázis mezőbe dátum, vagy idő megadására. Így jött létre a DBDateTimePicker komponens.

A mellékelt példaprogram megnyitása előtt a DBDateTimePicker.pas-ban lévő komponenst telepítenie kell a Delphi alá.

Ha olyan adatbeviteli komponenst készítünk, amely adatbázis mezőbe ír be adatot, akkor biztos, hogy szükség lesz egy TFieldDataLink osztályból származó objektumra, valamint egy DataSource és egy DataField property-re. A property-khez nem hozunk létre változót, mivel a megadott értéket rögtön a DataLink objektum azonos nevű property-jeibe írjuk. A DataField property-hez viszont szükség lesz egy property szerkesztőre, hogy csak dátum vagy idő, illetve dátum/idő típusú mezőket lehessen megadni.
A Change eljárást felülírjuk, mivel ez akkor fut le, amikor a komponensben megváltozik a dátum és/vagy idő érték.

  FDataLink.Edit;
  inherited Change;
  FDataLink.Modified;

Két fontos eljárás a DataChange és az UpdateData. Ezeket a DataLink objektum OnDataChange és OnUpdatedata eseményekhez rendeljük. A DataChange eljárásban kiolvassuk az aktuális rekord mezőjéből a dátum/idő értéket, és beírjuk a DateTime property-be:

  if Assigned(FDataLink.Field) then begin
    DateTime:=FdataLink.Field.AsDateTime;
  end;

Az UpdateData eljárásban ennek ellenkezője történik, tehát a DatTime property értékét írjuk ki a mezőbe:

  if Assigned(FDataLink.Field) then begin
    FDataLink.Field.AsDateTime:=DateTime;
  end;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3916	Windows	A javascript nyelv bemutatása	1. rész
3946	Windows	Javascript változók és operátorok	2. rész
3975	Windows	Kódvezérlés JScript-ben	3. rész
4004	Windows	Függvények és objektumok	4. rész
4036	Windows	Fejlett funkciók a JavaScript nyelvben	5. rész
4066	Windows	Fejlett funkciók a JavaScript nyelvben - folytatás	6. rész
4116	Windows	Reguláris kifejezések	7. rész
4145	Windows	Reguláris kifejezések - folytatás	8. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 620. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!