|
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.
https://www.mycity.rs/must-login.png
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
function GetSumaKolicineCipela:integer;
var
qry:TABQuery;
begin
qry:=Create_Query('', DataModule1.MojaBaza); {ovde moze odmah upit, ali ja ne volim}
try
qry.sql.text:='SELECT sum(RBA_QtnKolicina) FROM Roba WHERE RBA_CdiTipRobe = 1'; //cipele
qry.open;
result := qry.fields[0].asInteger;
qry.close;
finally
DeleteQuery(qry);
end;
end;
|
