我刚接触Delphi,希望高手能够把详细的步骤给出,供我参考下!
我的书中没有这方面的介绍!我用的书是"Delphi程序设计实用教程"电子工业出版内社出版的!
谢谢高手!
5 个解决方案
#1
使用Query时提示以下错误!
当为KeyField添加时提示
Circular datalinks are not allowed.
为什么啊?
当为KeyField添加时提示
Circular datalinks are not allowed.
为什么啊?
#2
这里是我做的一个程序,效果是和你的一样的,你参考一下吧!
procedure Tsjxmzlr.CBB_bdChange(Sender: TObject);
begin
ADOQ_sjd.Close;
ADOQ_sjd.SQL.Clear;
ADOQ_sjd.SQL.text := 'select sjd from sjb where bd=:bd order by id asc';//这是按条件提取相应的值!
ADOQ_sjd.Parameters.ParamByName('bd').Value := trim(CBB_bd.Text);这是条件值
ADOQ_sjd.Open;
CB_sjd.Clear;
while not ADOQ_sjd.Eof do
begin
CB_sjd.Items.Add(ADOQ_sjd.fieldbyname('sjd').AsString);这是添加到COMBBOX里面的数据字段!
ADOQ_sjd.Next;
end;
end;
procedure Tsjxmzlr.CBB_bdChange(Sender: TObject);
begin
ADOQ_sjd.Close;
ADOQ_sjd.SQL.Clear;
ADOQ_sjd.SQL.text := 'select sjd from sjb where bd=:bd order by id asc';//这是按条件提取相应的值!
ADOQ_sjd.Parameters.ParamByName('bd').Value := trim(CBB_bd.Text);这是条件值
ADOQ_sjd.Open;
CB_sjd.Clear;
while not ADOQ_sjd.Eof do
begin
CB_sjd.Items.Add(ADOQ_sjd.fieldbyname('sjd').AsString);这是添加到COMBBOX里面的数据字段!
ADOQ_sjd.Next;
end;
end;
#3
trim是什么东西啊?
#4
trim是去除空格用的,trim(CBB_bd.Text)就是忽略CBB_bd.Text的空格
#5
Circular datalinks are not allowed.
//检查下你的DataSet是不是不小心设置成环状了
//例如说DSet1->DSet2, DSet2->DSet3, DSet3->DSet1
//检查下你的DataSet是不是不小心设置成环状了
//例如说DSet1->DSet2, DSet2->DSet3, DSet3->DSet1
#1
使用Query时提示以下错误!
当为KeyField添加时提示
Circular datalinks are not allowed.
为什么啊?
当为KeyField添加时提示
Circular datalinks are not allowed.
为什么啊?
#2
这里是我做的一个程序,效果是和你的一样的,你参考一下吧!
procedure Tsjxmzlr.CBB_bdChange(Sender: TObject);
begin
ADOQ_sjd.Close;
ADOQ_sjd.SQL.Clear;
ADOQ_sjd.SQL.text := 'select sjd from sjb where bd=:bd order by id asc';//这是按条件提取相应的值!
ADOQ_sjd.Parameters.ParamByName('bd').Value := trim(CBB_bd.Text);这是条件值
ADOQ_sjd.Open;
CB_sjd.Clear;
while not ADOQ_sjd.Eof do
begin
CB_sjd.Items.Add(ADOQ_sjd.fieldbyname('sjd').AsString);这是添加到COMBBOX里面的数据字段!
ADOQ_sjd.Next;
end;
end;
procedure Tsjxmzlr.CBB_bdChange(Sender: TObject);
begin
ADOQ_sjd.Close;
ADOQ_sjd.SQL.Clear;
ADOQ_sjd.SQL.text := 'select sjd from sjb where bd=:bd order by id asc';//这是按条件提取相应的值!
ADOQ_sjd.Parameters.ParamByName('bd').Value := trim(CBB_bd.Text);这是条件值
ADOQ_sjd.Open;
CB_sjd.Clear;
while not ADOQ_sjd.Eof do
begin
CB_sjd.Items.Add(ADOQ_sjd.fieldbyname('sjd').AsString);这是添加到COMBBOX里面的数据字段!
ADOQ_sjd.Next;
end;
end;
#3
trim是什么东西啊?
#4
trim是去除空格用的,trim(CBB_bd.Text)就是忽略CBB_bd.Text的空格
#5
Circular datalinks are not allowed.
//检查下你的DataSet是不是不小心设置成环状了
//例如说DSet1->DSet2, DSet2->DSet3, DSet3->DSet1
//检查下你的DataSet是不是不小心设置成环状了
//例如说DSet1->DSet2, DSet2->DSet3, DSet3->DSet1