---"紧急呼叫高手"---"救急如救人"---帮我看看出什么问题了---

 在我这个系统中,"材料管理"的查询按钮出现了个问题,查询的时候总是出错,帮我看看是什么问题吧... 
      可以下载我附件的朋友就在你电脑上帮我看看,不可以的看下我下面的代码吧,谢谢大伙的救急!! 
      祝福论坛上看到我帖子的朋友身体健康,万事如意!!! 
      主窗口在附图. 
--------------------------------------------------------- 
      以下是代码: 
      查询: 
procedure   TfrmCLBM_FZLR.btnQueryClick(Sender:   TObject); 
begin 
    aqCLBM.filter   :=   'MatCode   like'   +   ''''   +   trim(edit1.text)   +   '%'''   +   '   and   MatName   like   '   +   '''%'   +     trim(edit2.text)   +   '%'''   +   '   and   Size   like'   +   '''%'   +   trim(edit3.text)   +   '%'''; 
    aqCLBM.filtered   :=   true; 
end; 
    确定: 
procedure   TfrmCLBM_FZLR.btnOKClick(Sender:   TObject); 
var 
    I:   integer; 
begin 
    //设置动态数组长度 
    setLength(ClbmRec,   dbgrid.SelectedRows.Count); 
    //将DbGrid里的数据传进到全局数组clbmRec中 
    for   i   :=   0   to   dbgrid.SelectedRows.Count   -   1   do 
    begin 
        DBGrid.DataSource.DataSet.GotoBook(pointer(DBGrid.SelectedRows.Items[i])); 
        clbmRec[i].clbm   :=   aqCLBM.fieldbyname('MatCode').asstring; 
        clbmRec[i].clmc   :=   aqCLBM.fieldbyname('MatName').asstring; 
        clbmRec[i].ggxh   :=   aqCLBM.fieldbyname('Size').asstring; 
        clbmRec[i].jldw   :=   aqCLBM.fieldbyname('CUnit').asstring; 
        clbmRec[i].jhdj   :=   aqCLBM.fieldbyname('Price').value; 
        clbmRec[i].djdw   :=   aqCLBM.fieldbyname('PUnit').asstring; 
    end; 
    close; 
end; 
      其他的: 
procedure   TfrmCLBM_FZLR.FormCreate(Sender:   TObject); 
begin 
//初始化变量 
    setLength(clbmRec,0); 
    aqCLBM.Active   :=   True; 
end; 
procedure   TfrmCLBM_FZLR.btnOKClick(Sender:   TObject); 
var 
    I:   integer; 
begin 
    //设置动态数组长度 
    setLength(ClbmRec,   dbgrid.SelectedRows.Count); 
    //将DbGrid里的数据传进到全局数组clbmRec中 
    for   i   :=   0   to   dbgrid.SelectedRows.Count   -   1   do 
    begin 
        DBGrid.DataSource.DataSet.GotoBook(pointer(DBGrid.SelectedRows.Items[i])); 
        clbmRec[i].clbm   :=   aqCLBM.fieldbyname('MatCode').asstring; 
        clbmRec[i].clmc   :=   aqCLBM.fieldbyname('MatName').asstring; 
        clbmRec[i].ggxh   :=   aqCLBM.fieldbyname('Size').asstring; 
        clbmRec[i].jldw   :=   aqCLBM.fieldbyname('CUnit').asstring; 
        clbmRec[i].jhdj   :=   aqCLBM.fieldbyname('Price').value; 
        clbmRec[i].djdw   :=   aqCLBM.fieldbyname('PUnit').asstring; 
    end; 
    close; 
end; 
-------------------------------------------------------------------------------------- 
ADOQuery1的name是aqCLBM 
用户名:zxz密码123 
我现在没那么多分,只好给20分了,求求大家看在我诚意的份上看看吧～