Delphi - Tietueen ominaisuuksien selvittäminen

Tietueen ominaisuuksien selvittäminen

Hakuehto "select osoite from puh" päättyy virheeseen. Miksi? Koska DBEditNimi- komponentti tarvitsee nimi- kenttää ja ao. haun tuloksena nimikenttää ei saada. Voisimme muuttaa ohjelmaa siten, että DBEditNimi- komponentissa olisikin aina tietueen 1. kentän tiedot:

1.: Lisää Hae- nappulan tapahtuman alkuun:

		DBEditNimi.DataField := '';

2.: ja tapahtuman loppuun:

		DBEditNimi.DataField := QueryPuh.Fields[0].FieldName;

3.: Kokeile nyt esim hakuehtoa:

		select puh,osoite from puh

Voisimme vielä muuttaa ohjelmaa siten, että "isossa" kenttäikkunassa näkyy aina aktiivisen kentän arvo:

1.: Lisää käsittelijä taulukon sarakkeen vaihtumiselle

		procedure TFormPuh.DBGridPuhColEnter(Sender: TObject);
		begin
		  DBEditNimi.DataField := DBGridPuh.SelectedField.FieldName;
		end;