Question

delphi7接收数据怎么写代码？

procedure TForm1.btn1Click(Sender: TObject);
begin
with qry1 do
begin
close;
SQL.Clear;
SQL.Add('select * from 商品资料 where 商品编码 like (edt1.Text)');
//Parameters.ParamByName('a').Value:=Trim(edt1.Text);
DBGrid1.Columns[0].FieldName:=OraQuery1.Fields[0].FieldName;
end;
这是我已经写了的 现在怎么把他们一行记录在edt.text里面显示

Answer 1

看到你这么写：select * from 商品资料 where 商品编码 like (edt1.Text)

我都不知道该怎么回答了

追问

我没用哪个了

我要把dbedit的内容复制出来  转到 edit里面

追答

edt1.Text := qry1.FieldByName('商品编码').AsString;

追问

没有qry1控件