Wie kann ich mit einer DBLookupComboBox wählen Sie eine foreign key-Wert, ohne sofort die änderung der Ziel-Tabelle? (Delphi 5 Pro)

Wenn ich Sie richtig verstehe, Sie wollen eine DBLookupComboBox. Geben Sie Werte für die folgenden Eigenschaften

• datasource - in Verbindung mit der Tabelle, die Sie Bearbeiten, vermutlich 'items'
• datafield - der name des Feldes in der Tabelle, die Sie Bearbeiten, vermutlich, 'item_type'
• listsource - in Verbindung mit der Tabelle, die besiedelten die combobox, vermutlich 'item_types'
• Liste Feld - name des Feldes aus 'item_types", die Sie anzeigen möchten, und vermutlich 'name'
• Schlüssel-Feld - name des Feldes aus 'item_types', die eingefügt werden in die Elemente aufnehmen, vermutlich, 'item_type'

Dem Tisch bevölkerten die combobox ist nie bearbeitet.

Können Sie überprüfen die Werte vor der Veröffentlichung der neuen/bearbeiteten 'items' aufnehmen.

Kann ich Ihnen zeigen, wie Sie ein nicht-Daten bewusst combobox, wenn notwendig, aber es ist einfacher zu verwenden, die Daten bewusst-version.

Bezüglich der überprüfung, ich verwende den folgenden code Vorlage im Bearbeiten-Dialoge.

Function TEditQuestion.Execute (n: longint): boolean;
var
 gen: longint;

begin
 sdsEditQuestion.params[0].asinteger:= n;  // TSQLDataSet
 with qEditQuestion do                     // TClientDataSet
  begin
   open;
   if n = -1 then                          // new record
    begin
     caption:= 'New record';
     insert;
     fieldbyname ('alive').asinteger:= 1;
     // initialise necessary fields in the dataset
    end
   else caption:= 'Editing record ' + inttostr (n);

   edit;
   if showmodal = mrOK then
    begin
     // validation code comes here. Set 'result' to true if everything is ok
     if result then
      begin
       if n = -1 then
        begin
         with qGenID do
          begin
           open;
           gen:= fields[0].asinteger;    // get new value from generator
           close
          end;

         FieldByName ('id').asinteger:= gen;
        end;
       post;
       applyupdates (0)
      end
     else cancel  // showmodal = OK, result = false
   else           // showmodal cancelled
    begin
     cancel;
     result:= false
    end;
  end             // with qEditQuestion
 end;