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;
解决方案 »
- Delphi 动态创建的窗体间如何传值?
- incmonth函数碰到2009-02-28!
- 怎样定义一个datetime类型值
- 请问用Delphi操作Excel的一个问题
- 数据导入
- 删除文件夹的一个老问题,呵呵,在线等.
- 我有一个表,由几个字段构成,但是我想使用永久字段,除了生成固有的字段之外,增加一个计算字段,不用在IDE下用代码如何实现?
- 高分请教:请问用intraweb做的dll和exe, 如何在因特网上发布???
- 关于多个线程访问TStringList全局变量的同步问题???
- 请各位DELPHI高手帮我解答一个疑难
- 问一个简单的三层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]呢??
语句中的参数要用:来引导...