请帮助把下面的代码,分成二个unit,一个动态创建ADOCONN,一个动态创建查询组件(100)

把二个控件放在一个UNIT能正确执行,放在二个UNIT中出现错误.以下代码是放在一个单元里.unit test;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, ComCtrls, DB, ADODB;function GetAdoConn(AdoConnString:string):boolean;implementationFunction GetAdoConn(AdoConnString:string):boolean; //连接到数据库var adoconn:Tadoconnection; DeleteTable, CreateTable :string; Qrytable:TAdoQuery;//动态创建ADO连接begin try adoconn:=TAdoconnection.Create(nil); with AdoConn do begin close; LoginPrompt := False; CommandTimeOut:=10; ConnectionString := AdoConnString; open; end; //with except AdoConn.Free; end; //try///////////////////////////////////////////////////////////////////动态创建Query组件 Qrytable:=TAdoQuery.Create(nil) ; Qrytable.Connection :=AdoConn; DeleteTable:='if exists(select * from sysobjects where name=''Temtable'')'+ 'drop table Temtable'; CreateTable:='Create Table Temtable' + '( ' + 'SubCode varchar(9),' + 'Tddeino int,' + ')' ; try with Qrytable do begin close; sql.Clear; sql.Add(DeleteTable) ; sql.Add(CreateTable) ; execsql; Result:=true; end; finally Result:=false; Qrytable.Free ; end; end;end.

分发错,能正确解决,再加400分.决不失言

放在2个单元里的出错代码呢？

是啊，哪里出错？

Qrytable.Connection :=AdoConn;找不到Adoconn

Adoconn是局部的，在 GetAdoConn过程中，把它放到全局就找到了。

接受答案了.