望高人解释下

[caidaqin001]

有两个事件不太理解，望高人解释。

第一个：
begin
adoq_paall.Close;
adoq_paall.SQL.Clear;
adoq_paall.SQL.Text:='select * from materials where 1=2';
adoq_paall.Open;
adoq_paall.Append;
Count:=1;
dbg_pa.Columns[0].ReadOnly:=False;
btn_pasa.Enabled:=true;
end;



第二个：
var
sql1,sql2:string;
begin
sql1:='select * from materials where 1=1';
if trim(edt_paid.text)<>'' then
sql2:=' and MId_='''+trim(edt_paid.text)+'''';
if trim(edt_paid.text)<>'' then
sql2:=sql1+' and ProName_='''+trim(edt_pana.text)+'''';
if trim(edt_pasp.text)<>'' then
sql2:=sql2+' and Spec_='''+trim(edt_pasp.text)+'''';
if trim(edt_paun.text)<>'' then
sql2:=sql2+' and Unit_='''+trim(edt_paun.text)+'''';
adoq_paall.close;
adoq_paall.sql.text:=sql1+sql2;
adoq_paall.open;
edt_paid.text:='';
edt_pana.text:='';
edt_pasp.Text:='';
edt_paun.text:='';
btn_pasa.Enabled:=false;
end;

初学delphi数据库组件的开发，希望能详细些，谢谢。

[bdmh]

第一个：
begin
adoq_paall.Close;//关闭数据集
adoq_paall.SQL.Clear;//清空sql语句
adoq_paall.SQL.Text:='select * from materials where 1=2';//写sql语句
adoq_paall.Open;//打开数据集
adoq_paall.Append;//添加记录
Count:=1;
dbg_pa.Columns[0].ReadOnly:=False;//设置只读
btn_pasa.Enabled:=true;
end;

第二个，就是拼一个sql语句，然后adoq_paall打开

[habingwang]

不知你是不能理解这两个事件要实现的功能，还是不能理解这两种方式的写法。
第一个事件：在adoq_paall打开数据库不查询出任何数据后添加一行空数据行；
第二个事件：根据组合SQL（sql1+sql2）查询出符合条件的数据；

[落幕年代]

连接 sql的数据源 ……
ls bdmh 正解

[lmr2007]

ls bdmh 正解

[骑着骆驼写程序]

这个也太简单了吧

[cn960]

我也在学习DELPHI,发现数据库查询方面，用VFP比用其它语言方便得多

[superliu1122]

今天是怎么了，挖祖坟呢