向主从表 Delphi 添加新值时绑定外键

Question

主从链接有 2 个表。向明细表添加新值时，不绑定从主表中选择的外键。

M-D 连接本身是在表单上执行的，分别使用两个 Dblookupcombobox 和 DataSource、ADOQuery。 enter image description here

使用 [ + ] 按钮，可以添加组合框中不存在的新值。但是问题从第二个 [ + ] （又名细节）开始，当创建一个新行时，您需要它来绑定上一个 LookUpComboBox（Master）的外键。第二个按钮的按钮代码[+]：

begin
Form4.ADOQuery1.SQL.Clear;
Form4.ADOQuery1.SQL.Add('Select City from City WHERE   City='+#39+Form5.DBEdit1.Text+#39); //checking for duplicates
Form4.ADOQuery1.Open;
if Form4.ADOQuery1.IsEmpty then
  begin
  Form4.Query_city.FieldByName('City').AsString := Form5.DBEdit1.Text; //The PROBLEM is  SOMEWHERE HERE! It Adds a new value without binding the foreign key
  Form4.Query_city.Open;
  Form4.Query_city.Post;
  MessageBox(Handle, 'New data entered','Adding a new value',MB_ICONINFORMATION);
  end
 else
  begin
  Form4.Query_spec.Cancel;
  Form4.ADOQuery1.Cancel;
  MessageBox(Handle,PChar(''+Form5.DBEdit1.text+' already on the list!'),'Error',MB_ICONWARNING);
  end;
 end;

新值被写入 DBEdit1。它与表有相应的绑定。 那么如何使用对应的外键插入字段呢？

Answer 1

由于您的方式，您使这变得不必要地困难 代码是结构化的。试试这样的：

打开 ADOQuery1，选择其全部内容，例如

procedure TForm4.OpenCitiesTable;
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select City from City');
  ADOQuery1.Open;
end;

并在用户执行任何导致想要添加新城市的操作时将其保持打开状态。

然后，当用户想要添加城市时，调用此过程，例如供应城市 来自 Form5.DBEdit1.Text 的值。

procedure TForm4.AddCity(ACity : String);
begin
  ACity := Trim(ACity);  // remove any leading or trailing blanks
  //  Do any formatting checks on ACity here, re.g convert it to Proper case

  //  check for adding a duplicate
  if ADOQuery1.Locate('City', ACity, []) then begin
    ShowMessageFmt('%s is already in the City table', [ACity]);
    Exit;
  end;

  try
    ADOQuery1.Insert;
    ADOQuery1.FieldByName('City').AsString := ACity;
  finally
    ADOQuery1.Post;
    //  at this point you might want to refresh the contents of whatever source
    //  you are populating Form5.DBEdit1.Text from
  end;
end;

我假设您可以自己调整与 TForm4.Query_spec 相关的代码；

顺便说一句，您可能需要考虑使用 TDBLookUpComboBox 而不是 DBEdit1。