单击按钮运行查询

时间:2016-04-04 22:40:58

标签: delphi delphi-7

我是编码新手,我只需要知道如何将SQL语句分配给onclick按钮。

我的SQL工作得很好并且完成了工作。

Select * From fields
where rno ='R1';

这很好用。我现在要做的就是将此SQL附加到表单上的按钮以获得相同的结果。 我有ADO Connection,ADO Query和Datasource以及DBgrid1都工作正常

由于

1 个答案:

答案 0 :(得分:2)

输入按钮的OnClick事件,然后在那里打开您的查询。

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text := 'SELECT * FROM fields WHERE mo = :mo';
  ADOQuery1.Parameters.ParamByName('mo').Value := 'R1';
  ADOQuery1.Open;
end;