Een vervolgkeuzelijst maken in een DBGrid

Wilt u het beste gegevensbewerkingsraster ooit maken? Hieronder vindt u instructies voor het bouwen van een gebruikersinterface voor het bewerken van zoekvelden In een DBGrid. We zullen met name kijken hoe we een DBLookupComboBox in een cel van een DBGrid kunnen plaatsen.

Wat dit zal doen, is een beroep doen op informatie uit een gegevensbron die zal worden gebruikt om een ​​vervolgkeuzelijst te vullen.

Om een ​​DBLookupComboBox te tonen in een cel van een DBGrid, moet u er eerst een beschikbaar maken tijdens runtime ...

Selecteer de "Data controls" pagina in het Component Palette en kies een DBLookupComboBox. Zet er een neer op het formulier en laat de standaardnaam "DBLookupComboBox1" staan. Het maakt niet uit waar je het neerzet, want meestal is het onzichtbaar of zweeft het over het raster.

Voeg nog een DataSource- en DataSet-component toe om de keuzelijst met waarden te "vullen". Zet een TDataSource (met de naam DataSource2) en TAdoQuery (noem het AdoQuery1) ergens op het formulier.

Om een ​​DBLookupComboBox goed te laten werken, moeten er nog een aantal eigenschappen worden ingesteld; zij zijn de sleutel tot de opzoekverbinding:

• Databron en Dataveld bepaal de belangrijkste verbinding. Het DataField is een veld waarin we de opgezochte waarden invoegen.
• ListSource is de bron van de opzoekgegevensset.
• KeyField identificeert het veld in de ListSource die moet overeenkomen met de waarde van de Dataveld veld.
• ListFields is het veld of de velden van de opzoekgegevensset die daadwerkelijk in de combo worden weergegeven. ListField kan meer dan één veld weergeven, maar veelvouden moeten worden gescheiden door puntkomma's.
  U moet een waarde instellen die groot genoeg is voor de DropDownWidth (van een ComboBox) om echt meerdere kolommen met gegevens te zien.
  Hier leest u hoe u alle belangrijke eigenschappen van code instelt (in de formulieren OnCreate-gebeurtenis handler):

procedure TForm1.FormCreate (Afzender: TObject);
begin met DBLookupComboBox1 dobegin
DataSource: = DataSource1; // -> AdoTable1 -> DBGrid1
ListSource: = DataSource2;
DataField: = 'AuthorEmail'; // van AdoTable1 - weergegeven in de DBGrid
KeyField: = 'E-mail';
ListFields: = 'Naam; E-mail ';
Zichtbaar: = False;
einde;
DataSource2.DataSet: = AdoQuery1;
AdoQuery1.Connection: = AdoConnection1;
AdoQuery1.SQL.Text: = 'SELECT Naam, E-mail VAN Auteurs';
AdoQuery1.Open;
einde;

Notitie: Als u meer dan één veld in een DBLookupComboBox wilt weergeven, zoals in het bovenstaande voorbeeld, moet u ervoor zorgen dat alle kolommen zichtbaar zijn. Dit wordt gedaan door de eigenschap DropDownWidth in te stellen.

U zult echter zien dat u dit in eerste instantie op een zeer grote waarde moet instellen, wat resulteert in een te brede lijst (in de meeste gevallen). Een tijdelijke oplossing is om de DisplayWidth van een bepaald veld in a in te stellen keuzelijst.

Deze code, geplaatst in de OnCreate-gebeurtenis voor het formulier, zorgt ervoor dat zowel de naam van de auteur als het e-mailadres worden weergegeven in de vervolgkeuzelijst:

AdoQuery1.FieldByName ('Email'). DisplayWidth: = 10;
AdoQuery1.FieldByName ('Name'). DisplayWidth: = 10;
AdoQuery1.DropDownWidth: = 150;

Wat we nog moeten doen, is om een ​​keuzelijst met invoervak ​​daadwerkelijk over een cel te laten zweven (in de bewerkingsmodus), waarbij het veld AuthorEmail wordt weergegeven. Eerst moeten we ervoor zorgen dat de DBLookupComboBox1 wordt verplaatst en de grootte wordt aangepast over de cel waarin het veld AuthorEmail wordt weergegeven.

procedure TForm1.DBGrid1DrawColumnCell
(Afzender: TObject; 
const Rect: TRect; 
DataCol: geheel getal; 
Kolom: TColumn; 
Staat: TGridDrawState);
beginif (gdFocused in Staat) thenbeginif (Kolom. Veld. FieldName = DBLookupComboBox1.DataField) daarmee DBLookupComboBox1 Doen
beginnen
Links: = Rect. Links + DBGrid1.Left + 2;
Boven: = Rect. Top + DBGrid1.Top + 2;
Breedte: = Rect. Rechts - Rect. Links;
Breedte: = Rect. Rechts - Rect. Links;
Hoogte: = Rect. Bodem - Recht. Top;
Zichtbaar: = waar;
einde;
einde
einde;

Vervolgens, wanneer we de cel verlaten, moeten we de keuzelijst met invoervak ​​verbergen:

procedure TForm1.DBGrid1ColExit (Afzender: TObject);
beginif DBGrid1.SelectedField. FieldName = DBLookupComboBox1.DataField vervolgens
DBLookupComboBox1.Visible: = False
einde;

Merk op dat in de bewerkingsmodus alle toetsaanslagen naar de cel van DBGrid gaan, maar we moeten ervoor zorgen dat ze naar de DBLookupComboBox worden gestuurd. In het geval van een DBLookupComboBox zijn we vooral geïnteresseerd in de [Tab] -toets; het zou de invoerfocus naar de volgende cel moeten verplaatsen.

procedure TForm1.DBGrid1KeyPress (Afzender: TObject; var Sleutel: Char);
beginif (key = Chr (9)) vervolgens Uitgang;
als (DBGrid1.SelectedField. FieldName = DBLookupComboBox1.DataField) dan beginnen
DBLookupComboBox1.SetFocus;
SendMessage (DBLookupComboBox1.Handle, WM_Char, word (Key), 0);
einde
einde;

Wanneer u een item ("rij") kiest uit een DBLookupComboBox, de waarde of de overeenkomstige KeyField veld wordt opgeslagen als de waarde van de Dataveld veld.