implementation
procedure TForm2.ResultSearchShow();//把最终查询结果显示到memeo中
var
        sFile:string; //图片存取路径和名称
begin
...........这部分是对Query1查询结果的操作     
end;{$R *.dfm}
procedure TForm2.PriZHClick(Sender: TObject);  //上一章
var
        zhang,jie:string;
begin
    try           //设置新的查询参数值
        table2.Open;
        table2.First;
        jie:=table2.fieldbyname('j_num').AsString ;
        table2.Close;
    except
        showmessage('访问时Table2出错!');
    end;
    
    zhang:=inttostr(strtoint(DBEdit_zhnum.Text)-1);//修改字符串zhang的值    if strtoint(zhang)>0 then
        begin
           DBEdit_zhnum.Text:=zhang;
           DBEdit_jnum.Text:=jie;
           OK:='0';//是否继续标志,0-继续,1-暂停
//开始查询
           Query1.Close;
           Query1.SQL.Clear;
           Query1.Params[0].AsString:=zhang ;
           Query1.Params[0].AsString:=jie;
           Query1.SQL.Add('select zha ng_table.zh_name,jie_table.j_name,docu_table.JiLu_num,docu_table.flag,docu_table.document');
           Query1.SQL.Add('from zhang_table,jie_table,docu_table');
           Query1.SQL.Add('where docu_table.zh_num=zhang_table.zh_num and docu_table.j_num=jie_table.j_num');//对涉及到的三个表进行关联
           Query1.SQL.Add('and docu_table.zh_num=zhang and docu_table.j_num=jie');
           Query1.SQL.Add('order by docu_table.j_num');
           Query1.ExecSQL;           ResultSearchShow();//显示查询结果
           DBEdit_zhangN.Text:=ZhName ;
           DBEdit_jieN.Text:=JieName;
        end
        else showmessage('目前为第一章');
end;

解决方案 »

  1.   

    以上为程序中部分代码,调试时常出错提示:Abstract Erorr
    诚请老菜鸟帮忙!!!!急
      

  2.   

    Query1.Close;
               Query1.SQL.Clear;
               Query1.Params[0].AsString:=zhang ;
               Query1.Params[0].AsString:=jie;
               Query1.SQL.Add('select zha.................
    ------------------------
    先Query1.Add
    再给语句中的参数赋值怎么有两个params[0]呢??
    语句中的参数要用:来引导...