Avattavan luettelon laatiminen DBGridissä

ThoughtcoMar 24, 2020

Haluatko tehdä kaikkien aikojen parhaan tietojen muokkausruudun? Alla on ohjeet käyttöliittymän luomiseen hakukenttien muokkaamiseksi DBGridin sisällä. Tarkastellaan erityisesti, kuinka DBLookupComboBox sijoitetaan DBGrid-soluun.

Tämän avulla pyydetään tietoja tietolähteestä, jota käytetään avattavan ruudun asuttamiseen.

DBLookupComboBox-näytön näyttäminen solussa DBGrid, sinun on ensin asetettava yksi saataville ajon aikana ...

Luo haku DBLookupComboBox -sovelluksella

Valitse "Data control" -sivu komponenttipaletista ja valitse DBLookupComboBox. Pudota yksi lomakkeen mihin tahansa kohtaan ja jätä oletusnimi "DBLookupComboBox1". Ei ole väliä mihin laitat sen, koska suurimman osan ajasta, se on näkymätön tai kelluu ristikon yli.

Lisää yksi DataSource- ja DataSet-komponentti yhdistelmäkentän "täyttämiseksi" arvoilla. Pudota TDataSource (nimellä DataSource2) ja TAdoQuery (nimeä se AdoQuery1) mihin tahansa lomakkeen kohtaa.

Jotta DBLookupComboBox toimisi kunnolla, on määritettävä vielä useita ominaisuuksia; ne ovat avain hakuyhteyteen:

instagram viewer
  • Tietolähde ja datakentistä määritä pääyhteys. Tietokenttä on kenttä, johon lisäämme hakuarvot.
  • ListSource on hakutietoaineiston lähde.
  • KeyField tunnistaa kentän ListSource jonka on vastattava datakentistä ala.
  • ListFields on hakukentän kentät tai kentät, jotka tosiasiallisesti näytetään yhdistelmässä. Listakenttä voi näyttää useamman kuin yhden kentän, mutta kertoimet tulisi erottaa puolipisteillä.
    Sinun on asetettava tarpeeksi suuri arvo DropDownWidth (ComboBoxin), jotta näet todella useita sarakkeita tietoja.
    Näin asetetaan kaikki tärkeät ominaisuudet koodista (lomakkeen OnCreate-tapahtuma handler):
menettely TForm1.FormCreate (Lähettäjä: TObject);
beginwith DBLookupComboBox1 dobegin
DataSource: = DataSource1; // -> AdoTable1 -> DBGrid1
ListSource: = DataSource2;
DataField: = 'AuthorEmail'; // AdoTable1: ltä - näytetään DBGridissä
KeyField: = 'Sähköposti';
Listakentät: = 'Nimi; Sähköposti ";
Näkyvä: = Väärä;
pää;
DataSource2.DataSet: = AdoQuery1;
AdoQuery1.Connection: = AdoConnection1;
AdoQuery1.SQL.Text: = 'VALITSE nimi, sähköposti kirjoittajilta';
AdoQuery1.Open;
pää;

Huomautus: Kun haluat näyttää useamman kuin yhden kentän DBLookupComboBoxissa, kuten yllä olevassa esimerkissä, sinun on varmistettava, että kaikki sarakkeet ovat näkyvissä. Tämä tehdään asettamalla DropDownWidth-ominaisuus.

Näet kuitenkin, että aluksi sinun on asetettava tämä erittäin suureen arvoon, mikä johtaa pudotetun luettelon liian laajaan (useimmissa tapauksissa). Yksi kiertotapa on asettaa tietyn kentän näyttöleveys pudotusvalikosta.

Tämä koodi, asetettu lomakkeen OnCreate-tapahtumaan, varmistaa, että sekä kirjoittajan nimi että sen sähköpostiosoite näkyvät avattavassa luettelossa:

AdoQuery1.FieldByName (sähköposti). DisplayWidth: = 10;
AdoQuery1.FieldByName ( 'nimi'). DisplayWidth: = 10;
AdoQuery1.DropDownWidth: = 150;

Mitä meillä on jäljellä, on todella tehdä yhdistelmäruutu hiiren osoittamalla solun päälle (muokkaustilassa), jolloin näytetään AuthorEmail-kenttä. Ensinnäkin, meidän on varmistettava, että DBLookupComboBox1 on siirretty ja mitoitettu solun yli, jossa AuthorEmail-kenttä näkyy.

menettely TForm1.DBGrid1DrawColumnCell
(Lähettäjä: TObject; 
const Rect: TRect; 
DataCol: kokonaisluku; 
Pylväs: TC-pylväs; 
Osavaltio: TGridDrawState);
beginif (gdFocused sisään Osavaltio) thenbeginif (Sarake. Ala. FieldName = DBLookupComboBox1.DataField) thenwith DBLookupComboBox1 tehdä
alkaa
Vasen: = Rect. Vasen + DBGrid1.vasen + 2;
Yläosa: = Rect. Ylä + DBGrid1.Top + 2;
Leveys: = Rect. Oikea - Rect. vasemmalle;
Leveys: = Rect. Oikea - Rect. vasemmalle;
Korkeus: = Rect. Pohja - oikea. top;
Näkyvä: = Totta;
pää;
pää
pää;

Seuraavaksi, kun poistumme solusta, meidän on piilotettava yhdistelmäruutu:

menettely TForm1.DBGrid1ColExit (Lähettäjä: TObject);
beginif DBGrid1.SelectedField. FieldName = DBLookupComboBox1.DataField sitten
DBLookupComboBox1.Visible: = Väärä
pää;

Huomaa, että editointitilassa kaikki näppäinpainallukset menevät DBGridin soluun, mutta meidän on varmistettava, että ne lähetetään DBLookupComboBoxiin. DBLookupComboBoxin tapauksessa olemme ensisijaisesti kiinnostuneita [Tab] -näppäimestä; sen pitäisi siirtää tulotarkennus seuraavaan soluun.

menettely TForm1.DBGrid1KeyPress (Lähettäjä: TObject; var-avain: Char);
beginif (avain = Chr (9)) sitten exit;
jos (DBGrid1.SelectedField. FieldName = DBLookupComboBox1.DataField) thenbegin
DBLookupComboBox1.SetFocus;
SendMessage (DBLookupComboBox1.Handle, WM_Char, sana (avain), 0);
pää
pää;

Kun valitset kohteen ("rivin") DBLookupComboBoxista, arvo tai vastaava KeyField - kenttä tallennetaan datakentistä ala.

instagram story viewer