procedure TForm15.FormCreate(Sender: TObject);
var she,yun:string;
tree:TTreeNode;
begin
adoquery1.sql.clear;
adoquery1.sql.add('select distinct 舍区名称 from 舍区设置');
adoquery1.Open ;
tree:=TreeView1.Items.GetFirstNode;
while not adoquery1.Eof do
begin
she:= adoquery1.FieldByName('舍区名称').AsString ;
tree:=treeview1.Items.add(tree,she);
ADOQuery2.sql.Clear ;
ADOQuery2.SQL.Add('select distinct 院系名 from 院系 where 舍区名称=:she');
ADOQuery2.Open ;
while not ADOQuery2.Eof do
begin
yun:=ADOQuery2.FieldByName('院系').asstring;
treeview1.Items.AddChild(tree,yun) ;
ADOQuery2.Next ;
end;
ADOQuery1.Next ;
end;
end;上面这段代码提示如下错误:
不正常地定义参数对像,提供了不一致或不完整的信息!
var she,yun:string;
tree:TTreeNode;
begin
adoquery1.sql.clear;
adoquery1.sql.add('select distinct 舍区名称 from 舍区设置');
adoquery1.Open ;
tree:=TreeView1.Items.GetFirstNode;
while not adoquery1.Eof do
begin
she:= adoquery1.FieldByName('舍区名称').AsString ;
tree:=treeview1.Items.add(tree,she);
ADOQuery2.sql.Clear ;
ADOQuery2.SQL.Add('select distinct 院系名 from 院系 where 舍区名称=:she');
ADOQuery2.Open ;
while not ADOQuery2.Eof do
begin
yun:=ADOQuery2.FieldByName('院系').asstring;
treeview1.Items.AddChild(tree,yun) ;
ADOQuery2.Next ;
end;
ADOQuery1.Next ;
end;
end;上面这段代码提示如下错误:
不正常地定义参数对像,提供了不一致或不完整的信息!
解决方案 »
- 提示错误信息: Undeclared identifier: 'ParamByName'
- 求教,如何用delphi读取xml
- Delphi做成Ocx嵌入网页中发布,客户端安装的问题
- 我想做个会计凭证输入界面怎么做?
- 关于写文本文件的问题:如何使当前写进去的内容永远在第一行?
- 谁能告诉我,这错在哪里???谢谢
- delhpi2010中的多线程类怎么没有CreateAnonymousThread方法
- 这个怎么转换
- 找工作!本人要失业了!想找成都的软件公司,实在不行别的地方也可以
- CSDN论坛离线浏览器源代码打开TDBISAMQuery,TDBISAMLable两个控件找不到,请问在那能找到这个控件包
- 为什么我的CoolTrayIcon 缩小后是两个?
- 如何控制死循环不卡进程
she:= adoquery1.FieldByName('舍区名称').AsString ;
tree:=treeview1.Items.add(tree,she);
ADOQuery2.sql.Clear ;
ADOQuery2.SQL.Add('select distinct 院系名 from 院系 where 舍区名称=:she');
ADOQuery2.Open ;
写成:
tree:=treeview1.Items.add(tree,she);
ADOQuery2.sql.Clear ;
ADOQuery2.SQL.Add('select distinct 院系名 from 院系 where 舍区名称=:she');
Parameters[0].Value:= adoquery1.FieldByName('舍区名称').AsString ;
ADOQuery2.Open ;