【结贴】[请求]modellib？**

拓思科技

报这个错是怎么回事啊？
启动功能时报错

jiahaiming

楼主，看看错误停在哪里？
把调用栈也提供一下

拓思科技

调用栈：
TCodeRelevancyDefStorage:: LoadCodeRelevancyDef
TCodeCreator:: DoInit
TCodeCreator:: ReInit
TCodeCreator:: .ctor
TCodeServiceFunc:: DoCreateCodeCreator
TBizModuleCreateMsgHandle:: DoCreateCodeCreator
TBizModuleCreateMsgHandle:: DoExecute
TFuncManager:: InternalRunFunc
TFuncManager:: RunFunc
TFuncManager:: RunFunc
TSTANDARDSTYLEMAINFORM:: UIRunFunc
TFuncManager:: RunFunc
TOperatorFuncTreeView:: Click
TOperatorFuncTreeView:: WndProc

代码：文号资源集1818行开始
static procedure TCodeRelevancyDefStorage.LoadCodeRelevancyDef(AOwner: TComponent;
                                          ACodeDefList: TCodeDefList;
                                          ACodeRelevancyDefList: TCodeRelevancyDefList;
                                          AInfoURL,AFuncURL: string);
var
  lQuery: TSQLDataset;
  lCodeDefIDs: TStrings;
  lCodeRelevancyDef: TCodeRelevancyDef;
const
  cSQL1 = 'select * from %s where (FFuncURL isNull or FFuncURL=''%s'') and FInfoURL=''%s''';
  cSQL2 = 'select * from %s where FInfoURL=''%s''';
begin
  if not Assigned(ACodeRelevancyDefList) or (AInfoURL='') then exit;
  lQuery := TSQLDataset.Create(AOwner);
  lCodeDefIDs := TStringList.Create;
  try
    lQuery.Database.URL := TDBProcedureLib.OperationDBConnectionURL;
    if AFuncURL='' then
      lQuery.SQL.Text := SysUtils.Format(cSQL2,[GetCodeRelevancyDefTabName, SysUtils.AnsiUpperCase(AInfoURL)])
    else
      lQuery.SQL.Text := SysUtils.Format(cSQL1,[GetCodeRelevancyDefTabName, SysUtils.AnsiUpperCase(AFuncURL), SysUtils.AnsiUpperCase(AInfoURL)]);
    lQuery.Open; //执行到这里报错
    while not lQuery.Eof do
    begin
      lCodeDefIDs.Add(lQuery.FieldByName('FCodeGUID').AsString);
      lQuery.Next;
    end;
    TCodeDefStorage.LoadCodeDefs(AOwner, ACodeDefList, lCodeDefIDs);
    lQuery.First;
    while not lQuery.Eof do
    begin
      lCodeRelevancyDef := ACodeRelevancyDefList.AddCodeRelevancyDef;
      LoadCodeRelevancyDefByDataset(lCodeRelevancyDef, ACodeDefList, lQuery);
      lQuery.Next;
    end;
    lQuery.Close;
  finally
    lCodeDefIDs.Free;
    lQuery.Free;
  end;
end;

atiger

楼主，设置断点跟踪一下，
1、把 lQuery.Database.URL  和  lQuery.SQL.Text    这两个值帖出来看看
2、用 lQuery.ConnectionString  和  lQuery.CommandText  来代替上面两个方法试试

拓思科技

lQuery.Database.URL:
Biz:\COLLABORATION\Collaboration.Database

lQuery.SQL.Text:
select * from TGENERALCODERELEVANCYDEF where FInfoURL='FILE:\F:\PROGRAM FILES\JUSTEP\X3 DEVELOPER\LIB\MODELLIB'

第2条  是说把lQuery.Database.URL替换成 lQuery.ConnectionString ，lQuery.SQL.Text替换成lQuery.CommandText吗？

Akon

楼主，1、先检查一下报错的目录中modellib.dll文件是否还在？
2、还在的话，将用到的资源都编译一下，试试

拓思科技

这个路径指示的是我本地的modellib.dll，这个还在

atiger

第2条  是说把lQuery.Database.URL替换成 lQuery.ConnectionString ，lQuery.SQL.Text替换成lQuery.CommandText吗？
对
例如
lQuery.ConnectionString:='DATABASEURL=Biz:\XXX\XXX.Database';
lQuery.CommandText := 'select * from  XXXX  where sl =10';

拓思科技

按照版主第2条，全部编译一次就OK了。谢谢

Akon

OK，那结贴了