【搞定】协同常量库释放资源问题**

cgh

在协同常量库的RUNFUNCS功能中，我加了如下代码：
func:='Biz:\COLLABORATION\DesktopFunc.Func';

  cnt:=TContextCurrent.Create(systemcore.TSystemCore.Operator.Context);
  YHID:=cnt.Operator.ID;

try
  query1:=TQuery.Create(nil);
  query1.ConnectionString:='DATABASEURL=Biz:\COLLABORATION\JJSJK.Database';
  query1.Close;
  query1.CommandText:='select count(*) as num from ldb where upper(yhid)='''+YHID+'''';
  query1.Open;
  if query1.FindField('num').AsInteger > 0 then
     func:='Biz:\COLLABORATION\LDZYCX.Func'
finally
  query1.Free;
  query1:=nil;
end;
Result :=Func ;
目的就在于我想通过领导表去判断登录的人员是否为领导，然后确定他登陆以后运行那些功能。运行后都正常，不过在关闭平台后，会出错。出错的地方是在标准风格窗体里的destructor TStandardStyleMainForm.Destroy; 下面。所以想请问一下在协同常量库下应该如何释放资源？

jiahaiminghr

楼主，代码贴完整点，看看你是如何声明的。

另外提供一下错误截图

atiger

楼主，报啥错误？把原始的信息帖出来看看，

另外，
1、我不是太明白，你这段逻辑怎么写到“协同常量库”，而不是登录窗体或者主窗体上？
2、你用的是哪个版本，我在2619中，这个“协同常量库”这个资源集中没有runfuncs 方法

cgh

是我弄错了，我把他写到主窗体上就没事了~~谢谢，结了吧

atiger

ok