Query与SQL的参数传递方式
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;