form_redfenxil.pas

双色球分析软件

      begin

     ///首先得到彩票的数据//////////
         for j:=1 to 6 do
         begin
            with    AdoQuery1 do
            begin
              connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
              close;
              sql.Clear;
              strSql:='Select * From  CPData  where sID>="'+sbeginID+'"  and  sID<="'+sEndID+'"  order by sID';
              //showmessage(strSql);
              //parameters.ParamByName('beginID').Value:='6106';
              //parameters.ParamByName('EndID').Value:='6133';
              sql.Add(strSql);
              prepared;
              open;
              if recordcount<>0 then
              begin
                 i:=0;
                 while not eof do
                 begin
                      FieldIndex:='r'+inttostr(j);
                      R_CPData1[j,i]:=FieldByName(FieldIndex).AsInteger;
                      //R_CPData2[i]:=FieldByName('r2').AsInteger;
                      //R_CPData3[i]:=FieldByName('r3').AsInteger;
                      //R_CPData4[i]:=FieldByName('r4').AsInteger;
                      //R_CPData5[i]:=FieldByName('r5').AsInteger;
                      //R_CPData6[i]:=FieldByName('r6').AsInteger;
                      R_CPID[i]:=FieldByName('sID').AsString;
                      next;
                      inc(i);
                 end;///while
              end;//if
            end;///with
          end;//forj
         ////画chart1曲线/////////////////
         for i:=1 to 6 do
         begin
           chart1.Series[i-1].Clear;
           //chart1.Series[i-1].Title:=trim(grid1.cells[4*i-2,1].foretext)+'年';
         end;
       chart1.Legend.Visible:=false;
       for j:=1 to 6 do
       begin

           for i:=0 to 27 do
           begin
               With chart1.Series[j-1]  do
               Begin
                   XValues.DateTime:=False;
                   //Clear;
                   Add(R_CPData1[j,i],R_CPID[i],clTeecolor);
               end;//with
           end;///fori
        end;///j
        ////形状图形//////////
        with series7 do
        begin
             x0:=6;
             x1:=1;
             y0:=160;
             y1:=100;
        end;
       ////////chart2/是除3余数的曲线//////////////
       chart2.Series[0].Clear;
       for i:=0 to 27 do
       begin

           R_CPData2[i+1]:=R_CPData1[1,i] mod 3;
           Lineseries1.Add(R_CPData2[i+1],'',clTeecolor);
       end;//for i
       chart3.Series[0].Clear;
       for i:=0 to 27 do
       begin

           R_CPData3[i+1]:=R_CPData1[2,i] mod 3;
           Lineseries2.Add(R_CPData3[i+1],'',clTeecolor);
       end;//for i
       chart4.Series[0].Clear;
       for i:=0 to 27 do
       begin

           R_CPData4[i+1]:=R_CPData1[3,i] mod 3;
           Lineseries3.Add(R_CPData4[i+1],'',clTeecolor);
       end;//for i
       chart5.Series[0].Clear;
       for i:=0 to 27 do
       begin

           R_CPData5[i+1]:=R_CPData1[4,i] mod 3;
           Lineseries4.Add(R_CPData5[i+1],'',clTeecolor);
       end;//for i
        chart6.Series[0].Clear;
       for i:=0 to 27 do
       begin

           R_CPData6[i+1]:=R_CPData1[5,i] mod 3;
           Lineseries5.Add(R_CPData6[i+1],'',clTeecolor);
       end;//for i
       chart7.Series[0].Clear;
       for i:=0 to 27 do
       begin

           R_CPData7[i+1]:=R_CPData1[6,i] mod 3;
           Lineseries6.Add(R_CPData7[i+1],'',clTeecolor);
       end;//for i
    end;////if tabctrl=1
    ///////tabctrl=2/////////////
    if TabCtrl.TabIndex=2 then
    begin
       DrawTablex(Paintbox2,20,20,6,6,120,120,'6189');
       DrawTablex(Paintbox2,20,160,6,6,120,120,'6190');
       DrawTablex(Paintbox2,20,300,6,6,120,120,'6191');
       DrawTablex(Paintbox2,20,440,6,6,120,120,'6192');
       DrawTablex(Paintbox2,20,580,6,6,120,120,'6193');
       DrawTablex(Paintbox2,20,720,6,6,120,120,'6194');
       DrawTablex(Paintbox2,160,720,6,6,120,120,'6195');
       /////////////////////////////////////////
    end;////tabctrl=2
    /////////////////////////
    if TabCtrl.TabIndex=3 then
      begin
        ///首先得到彩票的数据//////////
         for j:=1 to 6 do
         begin
            with    AdoQuery1 do
            begin
              connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
              close;
              sql.Clear;
              strSql:='Select * From  CPData  where sID>="'+sbeginID+'"  and  sID<="'+sEndID+'"  order by sID';
              sql.Add(strSql);
              prepared;
              open;
              if recordcount<>0 then
              begin
                 i:=0;
                 while not eof do
                 begin
                      FieldIndex:='r'+inttostr(j);
                      R_CPData1[j,i]:=FieldByName(FieldIndex).AsInteger;
                      //R_CPData2[i]:=FieldByName('r2').AsInteger;
                      //R_CPData3[i]:=FieldByName('r3').AsInteger;
                      //R_CPData4[i]:=FieldByName('r4').AsInteger;
                      //R_CPData5[i]:=FieldByName('r5').AsInteger;
                      //R_CPData6[i]:=FieldByName('r6').AsInteger;
                      R_CPID[i]:=FieldByName('sID').AsString;
                      next;
                      inc(i);
                 end;///while
              end;//if
            end;///with
          end;//forj
         for i:=0 to 27 do
         begin
             for j:=1 to 6 do
             begin
                 R_CPTotal[i+1]:=R_CPTotal[i+1]+R_CPData1[j,i]
             end;//j
         end;//for i
         //showmessage(inttostr(R_CPTotal[1]));
         chart8.Series[0].Clear;
         chart9.Series[0].Clear;
         chart10.Series[0].Clear;
         for i:=0 to 27 do
         begin
             LineSeries7.Add(R_CPTotal[i+1],R_CPID[i],clteecolor);
         end;//

         //////计算和差/////////////////////////////////
         for i:=0 to 27 do
         begin
             R_CPTotalSub[i+2]:=abs(R_CPTotal[i+2]-R_CPTotal[i+1]);
             R_CPTotalSub1[i+2]:=R_CPTotal[i+2]-R_CPTotal[i+1];
         end;
         R_CPTotalSub[i+1]:=15;
         R_CPTotalSub1[i+1]:=15;
         for i:=0 to 27 do
         begin
             LineSeries8.Add(R_CPTotalSub[i+1],'',clteecolor);
             LineSeries9.Add(R_CPTotalSub1[i+1],'',clteecolor);
         end;//
         
      end;///Tabctrl=3
//////////TabCtrl.index=尾数走势4////////////////////////////
      if TabCtrl.TabIndex=4 then
      begin
         ///首先得到彩票的数据//////////
         for j:=1 to 6 do
         begin
            with    AdoQuery1 do
            begin
              connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
              close;
              sql.Clear;
              strSql:='Select * From  CPData  where sID>="'+sbeginID+'"  and  sID<="'+sEndID+'"  order by sID';
              sql.Add(strSql);
              prepared;
              open;
              if recordcount<>0 then
              begin
                 i:=0;
                 while not eof do
                 begin
                      FieldIndex:='r'+inttostr(j);
                      R_CPData1[j,i]:=FieldByName(FieldIndex).AsInteger;
                      //R_CPData2[i]:=FieldByName('r2').AsInteger;
                      //R_CPData3[i]:=FieldByName('r3').AsInteger;
                      //R_CPData4[i]:=FieldByName('r4').AsInteger;
                      //R_CPData5[i]:=FieldByName('r5').AsInteger;
                      //R_CPData6[i]:=FieldByName('r6').AsInteger;
                      R_CPID[i]:=FieldByName('sID').AsString;
                      next;
                      inc(i);
                 end;///while
              end;//if
            end;///with
          end;//forj
          ////得到尾数/////////////////////
          for i:=0 to 27 do
          begin
              for j:=1 to 6 do
              begin
                  if  length(trim(inttostr(R_CPData1[j,i])))=1 then
                  begin
                      R_CPLastNumber[j,i+1]:=R_CPData1[j,i];
                  end
                  else
                  begin
                      R_CPLastNumber[j,i+1]:=strtoint(copy(trim(inttostr(R_CPData1[j,i])),2,1));
                  end;
              end;///j
          end;//for i
          chart11.Series[0].Clear;
          for i:=0 to 27 do
          begin
              LineSeries10.Add(R_CPLastNumber[1,i+1],R_CPID[i],clteecolor);
          end;
          chart12.Series[0].Clear;
          chart13.Series[0].Clear;
          chart14.Series[0].Clear;
          chart15.Series[0].Clear;
          chart16.Series[0].Clear;
          for i:=0 to 27 do
          begin
              LineSeries11.Add(R_CPLastNumber[2,i+1],'',clteecolor);
              LineSeries12.Add(R_CPLastNumber[3,i+1],'',clteecolor);
              LineSeries13.Add(R_CPLastNumber[4,i+1],'',clteecolor);
              LineSeries14.Add(R_CPLastNumber[5,i+1],'',clteecolor);
              LineSeries15.Add(R_CPLastNumber[6,i+1],'',clteecolor);
          end;
          
      end;////tabctrl=4
/////////tabctrl=5/////////////////////
      if TabCtrl.TabIndex=5 then
      begin
         ///首先得到彩票的数据//////////
         for j:=1 to 6 do
         begin
            with    AdoQuery1 do
            begin
              connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
              close;
              sql.Clear;
              strSql:='Select * From  CPData  where sID>="'+sbeginID+'"  and  sID<="'+sEndID+'"  order by sID';
              sql.Add(strSql);
              prepared;
              open;
              if recordcount<>0 then
              begin
                 i:=0;
                 while not eof do
                 begin
                      FieldIndex:='r'+inttostr(j);
                      R_CPData1[j,i]:=FieldByName(FieldIndex).AsInteger;
                      //R_CPData2[i]:=FieldByName('r2').AsInteger;
                      //R_CPData3[i]:=FieldByName('r3').AsInteger;
                      //R_CPData4[i]:=FieldByName('r4').AsInteger;
                      //R_CPData5[i]:=FieldByName('r5').AsInteger;
                      //R_CPData6[i]:=FieldByName('r6').AsInteger;
                      R_CPID[i]:=FieldByName('sID').AsString;
                      next;
                      inc(i);
                 end;///while
              end;//if
            end;///with
          end;//forj
          ////得到尾数/////////////////////
          for i:=0 to 27 do
          begin
              for j:=1 to 6 do
              begin
                  if  length(trim(inttostr(R_CPData1[j,i+1])))=1 then
                  begin
                      R_CPLastNumber1[j,i+1]:=R_CPData1[j,i+1];
                  end
                  else
                  begin
                      R_CPLastNumber1[j,i+1]:=strtoint(copy(trim(inttostr(R_CPData1[j,i+1])),2,1));
                  end;
              end;///j
          end;//for i
          //////计算尾数和/////////////
          for i:=0 to 27 do
          begin
             for j:=1 to 6 do
             begin
                 R_CPLastNumberTotal[i+1]:=R_CPLastNumberTotal[i+1]+R_CPLastNumber1[j,i]
             end;//j
         end;//for i
         //////////////////////
         chart17.Series[0].Clear;
         chart18.Series[0].Clear;
         chart19.Series[0].Clear;
         for i:=0 to 27 do
         begin
             LineSeries16.Add(R_CPLastNumberTotal[i+1],'',clteecolor); 
         end;
         /////计算尾和之间的差的变化////////////////////////
         //////计算尾和差/////////////////////////////////
         for i:=0 to 27 do
         begin
             R_CPLastTotalSub[i+2]:=abs(R_CPLastNUmberTotal[i+2]-R_CPLastNumberTotal[i+1]);
             R_CPLastTotalSub1[i+2]:=R_CPLastNumberTotal[i+2]-R_CPLastNumberTotal[i+1];
         end;
         R_CPLastTotalSub[1]:=5;
         R_CPLastTotalSub1[1]:=5;
         for i:=0 to 27 do
         begin
             LineSeries17.Add(R_CPLastTotalSub[i+1],'',clteecolor);
             LineSeries18.Add(R_CPLastTotalSub1[i+1],'',clteecolor);
         end;
      end;////if tabctrl=5
////////Tabctrl.index=5//////////////////////////
////////TabCtrl.index=6是号码特征图/////////////////////////
       if TabCtrl.TabIndex=6  then
       begin
           ///首先得到彩票的数据//////////
         for j:=1 to 6 do
         begin
            with    AdoQuery1 do
            begin
              connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
              close;
              sql.Clear;
              strSql:='Select * From  CPData  where sID>="'+sbeginID+'"  and  sID<="'+sEndID+'"  order by sID';
              sql.Add(strSql);
              prepared;
              open;
              if recordcount<>0 then
              begin
                 i:=0;
                 while not eof do