Question

delphi中button与EDIT的连接

问题1如题,我的目的是要在EDIT1里写文字,点击BUTTON1后,得到相应的回应

问题2上步之后再在数据库中查询,最后显示在TDBGRID中,具体步骤是什么啊,谢谢了
谢谢两位的回答。对,意思就是在EDIT输入想查询的名字,点击BUTTON(我给它起名为“查询”),就能在下面的表中显示结果;但我用的是BDE中的QUERY作的连接数据库,而且连上了已经,也能在其SQL中做查询,能实现,我只是想用BUTTON和EDIT这个组合实现

Answer 1

如果你要做的是点击BUTTON1后在数据库中查询edit1里面的项的话 可以这么做
使用如下组件:button1,edit1,adoquery1,adoconnction1,datasource1,dbgrid1
数据库表名为aaa
在adoconnection1的connectionstring属性里连接数据库;
把adoquery1的connection属性连接adoconnection1,SQL属性里添加一句select * from aaa
把datasource1的dataset属性连接adoquery1
把dbgrid1的datasource属性连接datasource1,给dbgrid1的columns属性添加若干个column,然后把每个column的FieldName设置为你需要的表的列名,假如第一个column,也就是column[0]的FieldName属性设为表aaa中的列名称"姓名",那么之后会在这个colum里显示姓名下面的数据.

然后假设edit1里面输入的是名字,在button1的onclick事件里添加如下代码
begin
with adoquery1 do
begin
Close;
Sql.Clear;
Sql.Add('select * from aaa where 姓名='''+Edit1.text+''''); //注释,这句话不能分行写;还有其他写法,这里只写这种;'是单引号.
Open;//注释,如果用select语句,这里用Open;如果是其他语句,用ExecSQL;
end;
end;

运行之后,会在dbgrid1中间看到符合条件的所有记录

Answer 2

button1添加代码 如果是要复制 edit1的文字到一个变量就这样
var
s:string;
begin
s:=edit1.text;
end;

dbgrid只要关联好数据库就自动显示数据库里的数据 比如关联adoquery1
查询语句
with ADOQuery1 do
begin
close;
sql.clear;
sql.add("select * from 数据库 where 条件");
open;
end;