为什么我编的控件的方法不能在一个中调用两次

Question

CISConn是什么？
将CISConn动态创建试试

Answer 1

try
  CISQuery.Close; //加试试
  CISQuery.CursorLocation := clUseServer;
  CISQuery.LockType := ltBatchOptimistic;
  CISQuery.Connection := CIsConn;
  

Answer 2

function TCISSQLCotrol.CsData(TableIdArray: OleVariant; const FSQLStr,
  BSQLStr: WideString): OleVariant;
var TableName,CsSQLStr: string;
    i,IDNum: Integer;
begin
  TableName := '';  if CISConn.Connected = false then
  begin
    Result := '尚未连结数据库';
    exit;
  end;
  for i:= VarArrayLowBound(TableIDArray,1) to VarArrayHighBound(TableIDArray,1)-1 do
  begin
    IDNum := TableIDArray[i];
    case IDNum of//生成SQL语句
      1:TableName := TableName + 'JJR_MAIN';
      2:TableName := TableName + 'JJR_JBZL';
      3:TableName := TableName + 'BMGL';
      4:Tablename := TableName + 'GSGL';
      5:TableName := TableName + 'BMYJ';
      6:Tablename := TableName + 'RY_GDGL';
      7:Tablename := TableName + 'GLYTABLE';
    end;
    Tablename := Tablename + ' '+ chr(65+i) + ',';
  end;
  Tablename[Length(Tablename)]:=' ';
  if CISConn.Connected = false then
  begin
    Result := '尚未连结数据库';
    exit;
  end;
  try
  CISQuery.CursorLocation := clUseServer;
  CISQuery.LockType := ltBatchOptimistic;
  CISQuery.Connection := CIsConn;
  CSSQLStr := FSQLStr + ' '+TableName+' '+ BSQLStr;
  CheckQuery.SQL.Clear;
  CISQuery.SQL.Add(CsSQLStr);
  CISQuery.Open;
  result:=ADODB_TLB._Recordset(CIsQuery.Recordset);
  except
    begin
      Result := '查询出错';
      exit;
    end;
  end;
  CISQuery.Close; //打开数据没有关闭
end;