RAD SA BAZOM PODATAKA

  1. Sa DataBase Desktop programom formirali smo tabelu Robe.DB čija je struktura prikazana na slici:

  

   2. Formirali smo formu za rada sa datom tabelom kao na slici dole:

 

   Za polja opisana sa N u prikazu u DBGrid komponenti u Object TreeView odaberemo polje Kolicina i u njegovom svojstvu DisplayFormat postavimo ###,###,###.00 a što znači da će polje biti prikazano sa dve cifre iza decimale dok će celi deo broja biti posle svake tri cifre odvojen zarezom a što se vidi iz donje slike:

Da bi dodali polje u kojoj se izračunava vrednost robe treba prvo svojstvo Active komponente Table postaviti na False. Selekotovaćemo Table komponentu i pozvati FieldsEditor kada dobijemo ekran kao na slici dole:

Kliknućemo na desni taster miša i iz kontekstnog menija pozvati New Field . Daćemo tome polju naziv Vrednost a za tip polja odabrati Float a što se vidi iz donje slike.

Kliknućemo na OK. Za izračunata polja na događaju na Table komponenti OnCalcFields unecemo naziv Izracunaj_vrednost kada će biti otvorena data procedura u koju ubacujemo sledeći kod:

.
.
procedure TForm1.Izracunaj_vrednost(DataSet: TDataSet);
begin
Table1Vrednost.Value:=Table1Kolicina.Value * Table1Cena.Value;
end;
.

Zatim ćemo svojstvo Active na Table komponenti postaviti na True. Selektovaćemo DBGrid komponentu i u ColumnsEditor -u pozvati Add All Fields kada dobijemo ekran kao na donjoj slici:

 Kompletan kod programa možete preuzeti ovde.



http://vojo.milanovic.org
© Copyright, 2006, Mialnovic Vojo
All Rights Reserved.