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;
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;
解决方案 »
- 哪位大虾能帮我翻译下啊,万分感激啊!
- 请教各位cxLookupComboBox手动添加数据问题.
- getwindowrect不能正确使用,请指教
- DBLookupComboBox赋值问题
- 如何抓取像豪杰和realone播放窗口的图像,用普通方法捉的图像为空的
- 很简单的问题,急
- 我在服务器端用server.socket的非阻塞式开了300个线程,客户端同样也是用的非阻塞式通讯。为什么当服务器连接到42个客户端的时候其它的客
- 关于rose的问题
- Tquery如何在DBgrid浏览时进行插入,删除,修改---十万火急
- 特殊的showmodal问题。
- 问一个简单的三层C/S数据库结构的问题?急~~
- Please help me???? Query与SQL的参数传递
诚请老菜鸟帮忙!!!!急
Query1.SQL.Clear;
Query1.Params[0].AsString:=zhang ;
Query1.Params[0].AsString:=jie;
Query1.SQL.Add('select zha.................
------------------------
先Query1.Add
再给语句中的参数赋值怎么有两个params[0]呢??
语句中的参数要用:来引导...