Query on the fly

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Ja vec dosta dugo imam praksu da sve sto je moguce kreiram dinamicki, osim formi, mada i to imam obicaj ako se radi o nekoj komponenti.

Svako ko radi sa bazama podataka, ima vrlo cesto potrebu da izvrshi neki upit nad bazom. Svaki put kreirati dinamicki moze da bude nezgodno pa vam poklanjam unit koji ce vecinu stvari automatizovati za vas.

[Link mogu videti samo ulogovani korisnici]

Nekoliko reci o unitu...
Unit je napravljen za Absolute Database. Moze se jednostavno izmeniti da radi za bilo koju drugu komponentu... obican TQuery, TSDQuery,TADOQuery...i ostale

Postoji i klasa TABLQuery. Nju nemojte koristiti jer je komplikovano za objasniti. Ona radi na specifican, samo meni potreban nacin.

Kako se prilagodjava unit
-----------------------------------
Prvo je potrebno prilagoditi unit za vas slucaj. Uklonite iz USES klauzule "ABSMain". To je specificno za AbsoluteDatabase.

Ako koristite delfijeve TQuery i TDatabase komponente, onda to izgleda ovako:
1. Promenite TABQuery = class(TABSQuery) u TABQuery = class(TQuery)
*** TAbQuery mozete nazvati TPericinQuery, sve jedno...

2. pronadjite sva ponavljanja TABSDatabase i promenite u TDatabase (ili komponentu koju vi koristite

Kako se radi sa unitom
-----------------------------------

1. Stavite unit u USES tamo gde vam treba.
2. Primer koriscenja: (recimo, treba vam funkcija koja ce da vrati sumu kolicine neke robe

Primer

0. function GetSumaKolicineCipela:integer;
1. var
2.   qry:TABQuery;
3. begin
4.   qry:=Create_Query('', DataModule1.MojaBaza);   {ovde moze odmah upit, ali ja ne volim}
5.   try
6.     qry.sql.text:='SELECT sum(RBA_QtnKolicina) FROM Roba WHERE                    RBA_CdiTipRobe = 1'; //cipele
7.     qry.open;
8.     result := qry.fields[0].asInteger;
9.     qry.close;
10.   finally
11.     DeleteQuery(qry);
12.   end;
13. end;