主页 / user-377941

Comrade Archer's questions

Martin Hope
Comrade Archer
Asked: 2020-03-25 14:17:52 +0000 UTC
  • 0

今天是个好日子。请告诉我。有两个表（国家，城市），它​​们之间的关系是使用主从进行的，一切正常。问题是在添加一个不在表中的新城市（通过 TEdit）时。如果添加一个新的国家不需要外键，那么在添加城市的情况下，它是必需的。用DBEdit，原来是这样添加数据的，因为它自动将城市的外键绑定到国家，但是如何用通常的TEdit注册这个，这里需要写什么以便它也添加键来自所选国家？

 begin
  Form4.Query_City.Insert; // не выполняется: ошибка "Field 'ID' cannot be modified."
  Form4.Query_City.FieldByName('ГОРОД').AsString := Form5.Edit1.Text;
  Form4.Query_City.Open;
  Form4.Query_City.Post;

上面的代码适用于添加不在列表中的新国家，但不适用于城市

sql
Martin Hope
Comrade Archer
Asked: 2020-03-24 00:56:39 +0000 UTC
  • 0

有两种形式。一个是主要的，它有几个按钮用于切换到第二种形式。第二个表单是模板：填写它的所有字段和按钮都是空的。如何将模板表单中的按钮的操作代码分配给主表单中的按钮。需要在 //STR[9] 上写什么，以便 button1 分配此行下面描述的代码？

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
Form5.Caption:= 'Add New Value';
Form5.DBLookupListBox1.ListSource:=Form4.DS_country;
Form5.DBLookupListBox1.ListField:='Country;Country_ID';
Form5.DBLookupListBox1.KeyField:=('Country_ID');
Form5.DBEdit1.DataSource:=Form4.DS_country;
Form5.DBEdit1.DataField:=('Country');

                                             //STR[9]**               Form5.Button1 (?????)**

begin
 Form4.ADOQuery1.SQL.Clear;
Form4.ADOQuery1.SQL.Add('Select Country from ВИД WHERE Country='+#39+Form5.Edit1.Text+#39);
Form4.ADOQuery1.Open;
if Form4.ADOQuery1.IsEmpty then
  begin
  Form4.Query_vid.Insert;
  Form4.Query_vid.FieldByName('Country').AsString := Form5.Edit1.Text;
  Form4.Query_vid.Open;
  Form4.Query_vid.Post;
  MessageBox(Handle, 'new data was entered','Add New Value',MB_ICONINFORMATION);
  end
 else
  begin
  Form4.Query_vid.Cancel;
  Form4.ADOQuery1.Cancel;
  MessageBox(Handle,PChar(''+Form5.Edit1.text+'is already on the list'),'Ошибка',MB_ICONWARNING);
  end;
end;

问题是模板表单中所有组件的所有值都是空的，我希望它们只有在按下主表单的某个按钮后才能填充。

delphi