望高人解释下

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

第一个：
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数据库组件的开发，希望能详细些，谢谢。