阿
阿虫
Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个数据库，一个小界面，上放了一个DBGRID控件一个QUERY控件，一个BITBTN，一个
EDIT文本框，然后我又建了一个数据模块，里面放了一个TABLE和一个DATASOURCE控件，将它们的
各项属性都设好后，我给BITBTN的ONCLICK写了如下代码：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
strsql:string;
begin
if trim(edit1.text)<>'' then
begin
strsql:='select bh,yhmc from yhda where bh=''' +trim(edit1.text)+'''';
if query1.active then
query1.Active:=false;
query1.sql.Clear;
query1.sql.add(strsql);
query1.active:=true;
end;
end;
我的数据库中包含有BH，YHMC这两个字段，我想以BH 为条件进行查找，YHDA是我的数据库名，
可我点击BITBTN1时，根本没执行命令，为什么呀，其它地方因该没问题的，我又放了几个
按钮，让它们控件向前，向后之类的，没问题呀。
本人刚开始学数据库，希望大家拉兄弟一把。谢谢啦。
EDIT文本框，然后我又建了一个数据模块，里面放了一个TABLE和一个DATASOURCE控件，将它们的
各项属性都设好后，我给BITBTN的ONCLICK写了如下代码：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
strsql:string;
begin
if trim(edit1.text)<>'' then
begin
strsql:='select bh,yhmc from yhda where bh=''' +trim(edit1.text)+'''';
if query1.active then
query1.Active:=false;
query1.sql.Clear;
query1.sql.add(strsql);
query1.active:=true;
end;
end;
我的数据库中包含有BH，YHMC这两个字段，我想以BH 为条件进行查找，YHDA是我的数据库名，
可我点击BITBTN1时，根本没执行命令，为什么呀，其它地方因该没问题的，我又放了几个
按钮，让它们控件向前，向后之类的，没问题呀。
本人刚开始学数据库，希望大家拉兄弟一把。谢谢啦。
1');