在数据表中加了一个主键
Delphi/Pascal code?
procedure TForm1.Button1Click(Sender: TObject);
begin
adoQuery1.Filter:='ID='+IntToStr(cxLookupComboBox1.EditValue);
adoQuery1.Filtered:=True;
Edit1.Text:=adoQuery1.FieldByName('B').AsString;
Edit2.Text:=adoQuery1.FieldByName('C').AsString;
adoQuery1.Filtered:=False;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Text:='select * from test';
open;
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024