...
public
{ Public declarations }
FilterList:TStringList;
...
var
i:Integer;
begin
UnOsoba:=TUnOsoba.Create(Self);
for i:=0 to ADOOsoba.FieldCount-1 do
UnosOsoba.FilterList:=TStringList.Create();
UnosOsoba.FilterList.Add('ID');
UnosOsoba.FilterList.Add('JMBG');
UnosOsoba.FilterList.Add('IME');
UnosOsoba.FilterList.Add('PREZIME');
Posle ovoga na formi 'Unos Osoba' imamo "OnActivate" :
...
public
{ Public declarations }
FilterList:TStringList;
...
var i:integer;
begin
for i:=0 to FilterList.Count-1 do begin
eFieldsList[i]:=TEdit.Create(pTopSifr);
lFieldsList[i]:=TLabel.Create(pTopSifr);
eFieldsList[i].Top:=(i div 4)*87 + 19;
lFieldsList[i].Top:=(i div 4)*88 + 2;
eFieldsList[i].Left:=((i mod 4)*235)+10;
lFieldsList[i].Left:=((i mod 4)*235)+10;
eFieldsList[i].Width:=205;
eFieldsList[i].Height:=30;
lFieldsList[i].Caption:=FilterList.Strings[i];
eFieldsList[i].Parent:=pTopSifr;
lFieldsList[i].Parent:=pTopSifr;
lFieldsList[i].Font.Style:=lFieldsList[i].Font.Style + [fsBold];
eFieldsList[i].Font.Style:=lFieldsList[i].Font.Style + [fsBold];
end;
eFieldsList[0].SetFocus;
Tada se otvori ta forma za unos - izmene i pojave se editi sa labelima za ID, JMBG, Prezime i Ime.
Meni je problem kako sad iz tih edita da memorišem podatke u Tabelu. U pitanju je ADOQuery?! Nešto slično ovome
INSERT INTO ImeTabele (ListaPolja) VALUES (VrednostiPolja)