sql+delphi编写数据库出现的问题。
我是石河子大学农学院大四的学生，在做毕业设计的时候遇到了困难，希望大家能够帮忙解决！导师要求我编写一个花卉信息查询系统，以delphi编一个前台，后台用sql sever2000做一个数据库。现在遇到的困难是，在一个界面了里面添加了一个ListBox，目的在于生成这个新窗体的时候在ListBox中自动能够添加关于这种花卉的一些性状，然后点击这些性状，在旁边的image控件里显示相关的图片，但是现在按照自己写的代码，最后运行结果是，每单击一下相关性状，ListBox中就会自动又添加一个相同的性状，并且出现错误提示。现在我重新安装系统，目前sql sever2000的企业管理器中没有办法添加服务器，郁闷。。。所以不能截图给大家看所提示的错误信息，现在我把相关代码发给大家，希望能够解决！！！拜托了！！！
procedure TForm7.ListBox1Click(Sender: TObject);
var
s_sql:string;
begin
s_sql:='select 图片名称 from yytp where 序号='''+inttostr(xh)+''' and 应用类型='''+ListBox1.Items[ListBox1.itemindex]+'''';
form2.ADOQuery1.Close;
form2.ADOQuery1.SQL.Clear;
form2.ADOQuery1.SQL.Add(s_sql);
form2.ADOQuery1.Open;
while not form2.ADOQuery1.Eof do
begin
listbox2.Items.Add(form2.ADOQuery1.FieldValues['图片名称']);
for i:=1 to listbox2.Count-1 do
begin
if listbox2.Items.Strings[listbox2.Count-1]=listbox2.Items.Strings[i-1] then
listbox2.Items.Delete(i);
end;
form2.ADOQuery1.Next;
end;
s_sql:='select 应用原则 from yyyz where 序号='''+inttostr(xh)+''' and 应用类型='''+ListBox1.Items[ListBox1.itemindex]+'''';
form2.ADOQuery1.Close;
form2.ADOQuery1.SQL.Clear;
form2.ADOQuery1.SQL.Add(s_sql);
form2.ADOQuery1.Open;
memo1.Lines.Add(form2.ADOQuery1.FieldValues['应用原则']);
end;
由于原程序文件太大了，所以提供了一个下载地址！！！再次感谢！！！
http://www.
