这是什么问题？？？

2010-06-18 10:48:20 138 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

扩容时遇到问题？？？如果在扩容时遇到这个报错是因为磁盘的可用空间不足第一步：先用pvdisplay 查看当前物理卷组的信息不被使用的只有4M，所以我们这个卷组已经没有足够的空间给他使用了第二步：用vgdisplay 查看卷组还有没有空余控件free pe：剩余可分配空间所以我们现在物理卷，卷组都没有可用空间了，那我们就需要新加一个卷进去了。现在就可以扩容了发现报错了？？？？为什么嘞，因为我们没挂载这个lv卷。阅读详情

...全文

从零开始掌握机械臂运动控制：原理、建模与实践本文系统介绍了机械臂运动控制的核心原理与实践方法。从运动学与动力学建模的基础理论出发，详细解析了经典PID控制与现代MPC（模型预测控制）算法的应用，并通过ROS与MATLAB仿真案例，指导读者从零开始实现机械臂的轨迹规划与精准控制，为工业自动化应用提供完整的技术路径。阅读详情

向良玉

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

向良玉 2010-06-19

打赏
举报

就是这里出的错，运行完后出错，但是数据库都已经写进去了。。。
我自己调试的结果只知道
/////////////////////////////////////从memo中读取数据并分析 ///////////
之前出的错，把后面改成函数或者屏蔽都出错



function solve(ss: string;bb:string):string;

var i,i1,j,k,m,n,m2,m4,p,p1,p2,k1:integer;

a2,a3: array [1..1000] of string;

s,b:string;

t:double;

begin

  ss:=copy(ss,2,length(ss)-1);

  n:=length(ss);

  i:=0;

  k:=1;     //位置

  p:=1;     //数组

  m2:=0;

  while m2=0 do

  begin

   if copy(ss,i,1)=',' then

    begin

      a2[p]:=copy(ss,k,i-k);

      k:=i+1;

      p:=p+1;

    end

    else if copy(ss,i,1)=';' then

      begin

        a2[p]:=copy(ss,k,i-k);

        k:=i+1;

        p:=p+1;

        m2:=1;

      end;

      i:=i+1;

  end;

  for i:=1 to p-1 do

   begin

     s:='';

     for j:=1 to p-1 do

     begin

       if j=i then s:=s

       else

       begin

         s:=s+a2[j]+',';

       end;

     end;

     s:=copy(s,1,length(s)-1);

     if s='' then exit;           //为空则退出

     s:='('+s+';';

     m4:=0;



    if length(bb)=0 then   bb:=bb+s

     else

     begin

       for j:=1 to length(bb) do             //判断是否已加入

       begin

         if copy(bb,j,length(s))=s then

           m4:=1;

       end;

       if m4=0 then bb:=bb+s;

     end;   

       solve(s,bb);      //循环调用

   end;    //for

   form1.Memo1.Lines.Add(bb);

end;







procedure TForm1.Button3Click(Sender: TObject);

var i,i1,i2,i3,j,j2,k,kk,p,n,m,m1,m2,m3,m4,m5,ppp,p1,p2,c1:integer;

lmax,rmax,b,b1,b2,s,s1,ss,bb,a,strong:string;

a1,a2,ll: array [1..1000] of string;   //ll为最大项目集

mm:array [1..1000] of integer;      //记录最大频繁项目集的频数

t:double;

//conf:float;

begin

    kk:=0;     

    //将数据给回变量

    adoquery1.Close();

    adoquery1.SQL.Clear();

    adoquery1.SQL.Add('select max(c) as cc from frequent');

    adoquery1.Open();

    c:=adoquery1.Fields[0].AsInteger;

    for i:=1 to c do

    begin

    adoquery1.Close();

    adoquery1.SQL.Clear();

    adoquery1.SQL.Add('select l,r from frequent where c='+inttostr(i));

    adoquery1.Open();

    l[i]:=adoquery1.Fields[0].AsString;

    r[i]:=adoquery1.Fields[1].AsString;

    end;



   //最大频繁项目集

   s:=l[c];

   //lmax:=l[c];             //先把最大的添加到最大频繁项目集

  // rmax:=r[c];            //先把最大的添加到最大频繁项目集次数

   k:=1;    //所至位置

   p:=1;    //数组位数

   i:=1;

   m2:=0;

   while(m2=0) do            //输入到数组中，方便比较

   begin

     if copy(s,i,1)=','  then          //   一组中的一段

     begin

      a1[p]:=copy(s,k,i-k);

      lmax:=lmax+a1[p]+',';

       k:=i+1;

       p:=p+1;

     end

     else if copy(s,i,1)=';'  then       //    一组中最后一个

     begin

       a1[p]:=copy(s,k,i-k);    //获取这一组

       lmax:=lmax+a1[p]+';';

       k:=i+1;

       p:=p+1;                            //得到数组长度

     end

     else if copy(s,i,1)='*' then          //遇到结束符

     begin

       m2:=1;//停止

     end;

       i:=i+1;

   end;



   while(c>1) do

   begin

  c:=c-1;

  s:=l[c];

  ppp:=0;////////////////////////////相同项个数限制变量

   k:=1;    //所至位置

   p1:=1;    //数组位数

   i:=1;

   m2:=0;

   while(m2=0) do            //输入到数组中，方便比较

   begin

     if copy(s,i,1)=','  then          //   一组中的一段

     begin

     if copy(s,k,i-k)<>'' then

      a2[p1]:=copy(s,k,i-k);

       k:=i+1;

       p1:=p1+1;

     end

     else if copy(s,i,1)=';'  then       //    一组中最后一个

     begin

       a2[p1]:=copy(s,k,i-k);    //获取这一组

       k:=i+1;

       p1:=p1+1;

       m1:=0;

       for m:=1 to p1-1 do              //判断组中是否c-1个都不存在于现有的不完全的最大频繁项目集

       begin

         for j:=1 to p-1 do

         begin

           if a1[j]=a2[m] then

           m1:=m1+1;                   // 有相同项

         end;

       end;

       if m1=ppp then           //c-1个都不在,就将不存在的添加到现有的最大频繁项目集中

       begin

          for m:=1 to p1-1 do

          begin

            m3:=0;

            for j:=1 to p-1 do

            begin

            if a1[j]=a2[m] then m3:=1;                   // 有相同项

            end;

            if m3=0 then           //不同,则添加进去

            begin

              a1[p]:=a2[m];

              p:=p+1;

            end;

           lmax:=lmax+a2[m]+',';        //存入最大频繁项目集

          end;

          lmax:=copy(lmax,1,length(lmax)-1);

          lmax:=lmax+';';

       end;

       p1:=1;

     end

     else if copy(s,i,1)='*' then          //遇到结束符

     begin   

       ppp:=ppp+1;  //限制数量+1,再次循环

       i:=0;       //重新再开始

       if ppp=c then

         m2:=1;//停止

     end;

       i:=i+1;

   end;

  end;

  lmax:=lmax+'*';

///////////////////////////////求关联规则//////////////////////

   s:=lmax;

   k:=1;    //所至位置

   p1:=1;    //数组位数

   b2:='select orderID from order_pro where ';

   i:=1;

   m2:=0;

   while(m2=0) do           //遇到结束符结束

   begin

     if copy(s,i,1)=','  then          //   一组中的一段

     begin

       a1[p1]:=copy(s,k,i-k);

       b2:=b2+'['+a1[p1]+']=1 and ';

       k:=i+1;

       p1:=p1+1;

     end

     else if copy(s,i,1)=';'  then       //    一组中最后一个

     begin

       a1[p1]:=copy(s,k,i-k);    //获取这一组

       b:=b2+'['+a1[p1]+']=1';           //动态生成语句

       k:=i+1;

       p1:=p1+1;

       //开始执行这一段

       adoquery1.Close();

       adoquery1.SQL.Clear();

       adoquery1.SQL.Add(b);

       adoquery1.Open();

       m3:=adoquery1.RecordCount;   //算出一个最大频繁项目的个数

       for j:=1 to p1-1 do

       begin

         ss:=ss+a1[j]+',';

       end;

       ss:=copy(ss,1,length(ss)-1);

       ll[kk]:=ss;       //将最大频繁项目存入数组

       mm[kk]:=m3;

       kk:=kk+1;

       ss:='('+ss+';';                  //装饰下ss以便判断

       //////////调用函数solve

         solve(ss,bb);

      memo1.Lines.Add('*');                       //将数据存入memo

        bb:='';

        ss:='';

     b2:='select orderID from order_pro where ';          //重置语句

     p1:=1;

     end

     else if copy(s,i,1)='*' then          //遇到结束符

       begin

         m2:=1;//停止

       end;

       i:=i+1;

   end;

   adoquery1.Close();



   /////////////////////////////////////从memo中读取数据并分析   ///////////

   ss:='';

   kk:=-1;

   for i1:=0 to memo1.Lines.Count-2 do

   begin

     if memo1.Lines.Strings[i1]<>'*' then      //将一组带重复数据的字符都给s

     begin                                      //去掉重复项

       if ss='' then ss:=memo1.Lines.Strings[i1]

       else

       begin

         k:=1;    //所至位置

         p:=1;    //数组位数

         s:=memo1.Lines.Strings[i1];

         m2:=length(memo1.Lines.Strings[i1]);

         for i:=1 to m2+1  do            //输入到数组中，方便比较

         begin

           if copy(s,i,1)=','  then          //   一组中的一段

           begin

             a1[p]:=copy(s,k,i-k);

           //   showmessage(s+'+'+a1[p]);

             k:=i+1;

             p:=p+1;

           end

           else if copy(s,i,1)=';'  then       //    一组中最后一个

           begin

             Setlength(bb,0);          //初始化bb

             a1[p]:=copy(s,k,i-k);    //获取这一组

             k:=i+1;

             p:=p+1;

             for i2:=1 to p-1 do

             begin

               bb:=bb+a1[i2]+',';

             end;

             bb:=copy(bb,1,length(bb)-1)+';';



             m4:=0;    //判断是否重复

             for j:=0 to length(ss)  do

             begin

               if copy(ss,j,length(bb))=bb then

                 m4:=1;

             end;

             if m4=0 then

               ss:=ss+bb;      //ss中不存在，加入

             p:=1;                            //初始化p

           end;//else 3

         end;  //for 2

       end;  //else 2

     end  //if

     else        //处理完数据后开始计算   (46,75,73;(75,73;(73;(75;(46,73;(46;(46,75;(23,75,73;(23,73;(23;(23,75;(23,46,73;(23,46;(23,46,75;

     begin

        kk:=kk+1;

         ss:=ss+'*';

         ss:=copy(ss,2,length(ss)-1);

         b2:='select orderID from order_pro where ';

         i3:=1;

         p1:=1;

         k:=1;

         m3:=0;

         while(m3=0) do           //遇到结束符结束

         begin

           if copy(ss,i3,1)=','  then          //   一组中的一段

           begin

             a1[p1]:=copy(ss,k,i3-k);

             if copy(a1[p1],1,1)='(' then

                a1[p1]:=copy(a1[p1],2,length(a1[p1])-1);

             b2:=b2+'['+a1[p1]+']=1 and ';

             k:=i3+1;

             p1:=p1+1;

           end

           else if copy(ss,i3,1)=';'  then       //    一组中最后一个

           begin

           a1[p1]:=copy(ss,k,i3-k);    //获取这一组

           if copy(a1[p1],1,1)='(' then

                a1[p1]:=copy(a1[p1],2,length(a1[p1])-1);

           b:=b2+'['+a1[p1]+']=1';           //动态生成语句

           k:=i3+1;

           p1:=p1+1;

           s1:='';

           for j2:=1 to p1-1 do

           begin

             s1:=s1+a1[j2]+',';

           end;

           s1:=copy(s1,1,length(s1)-1);

          //开始执行这一段

           adoquery1.Close();

           adoquery1.SQL.Clear();

           adoquery1.SQL.Add(b);

           adoquery1.Open();

           m5:=adoquery1.RecordCount;   //算出一个最大频繁项目的个数

           t:=mm[kk]/m5;

           if t>=0.6 then strong:='是'

           else  strong:='否';

           b:='insert into rules values('+#39+ll[kk]+#39+','+#39+s1+#39+','+floattostr(t)+','+#39+strong+#39+')';

           adoquery1.Close();

           adoquery1.SQL.Clear();

           adoquery1.SQL.Add(b);

           adoquery1.ExecSQL;     

           b2:='select orderID from order_pro where ';          //重置语句

           p1:=1;

           end

           else if copy(ss,i3,1)='*' then          //遇到结束符

           begin

             m3:=1;//停止

           end;

           i3:=i3+1;

         end;

         ss:='';

     end;//else 1

     

   end;   //for 1

   memo1.Clear;

   form1.PageControl1.ActivePageIndex:=3;

   form1.ADOTable3.Active:=true;

end;