DELPHI请大家帮我看看这段搜索代码出错在哪儿啊？
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 作业单资料 where');
SQL.Add(Trim(ComboBox2.Text));
SQL.Add('= :a');
Parameters.ParamByName('a').Value := Trim(Edit3.Text);
Open;
end;
if ADOQuery1.RecordCount >0 then
begin
DataSource1.DataSet := ADOQuery1;
end
else
begin
DataSource1.DataSet := Nil;
Application.MessageBox('信息不全或不存在。','提示',64);
end;
end;
end;
DataSource1.DataSet := ADOQuery1;(这句运行的时候错误)
提示错误:DataSource1:circular datalinks are not allowed
这段代码想实现的功能是把搜索出来的数据通过DATASOURCE1显示在DBGRID
还有我想把把弄成模糊搜索,要怎么写?给个思路^^
看你的最终VIEW控件是不是也用ADOQUERY1 比如DBGRID
你的ADOQuery1.DataSource是不是设成了DataSource1
循环引用
检查Dat
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
