form_redl.pas

双色球分析软件

       chart1.Legend.Visible:=false;
       for j:=1 to 6 do
       begin

           for i:=0 to 24 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
      ////////chart2///////////////
      chart2.Series[0].Clear;
       for i:=0 to 24 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 24 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 24 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 24 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 24 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 24 do
       begin

           R_CPData7[i+1]:=R_CPData1[6,i] mod 3;
           Lineseries6.Add(R_CPData7[i+1],'',clTeecolor);
       end;//for i
       
       ////////////////
      end;///TabCtrl=1
////////TabIndex=3 和值分析then////////////////////////////////

      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 ID<26 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 24 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 24 do
         begin
             LineSeries7.Add(R_CPTotal[i+1],R_CPID[i],clteecolor);
         end;//

         //////计算和差/////////////////////////////////
         for i:=0 to 24 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 24 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 ID<26 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 24 do
          begin
              for j:=1 to 6 do
              begin
                  if  length(trim(inttostr(R_CPData1[j,i+1])))=1 then
                  begin
                      R_CPLastNumber[j,i+1]:=R_CPData1[j,i+1];
                  end
                  else
                  begin
                      R_CPLastNumber[j,i+1]:=strtoint(copy(trim(inttostr(R_CPData1[j,i+1])),2,1));
                  end;
              end;///j
          end;//for i
          chart11.Series[0].Clear;
          for i:=0 to 24 do
          begin
              LineSeries10.Add(R_CPLastNumber[1,i+1],R_CPID[i+1],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 24 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.tabindex=5 then///////////////
      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 ID<26 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 24 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 24 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 24 do
         begin
             LineSeries16.Add(R_CPLastNumberTotal[i+1],'',clteecolor); 
         end;
         /////计算尾和之间的差的变化////////////////////////
         //////计算尾和差/////////////////////////////////
         for i:=0 to 24 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 24 do
         begin
             LineSeries17.Add(R_CPLastTotalSub[i+1],'',clteecolor);
             LineSeries18.Add(R_CPLastTotalSub1[i+1],'',clteecolor);
         end;
      end;////if tabctrl=5
////////Tabctrl.index=5//////////////////////////
////////////////////////////////////////////////////
end;

procedure TForm_Red.CheckBox1Click(Sender: TObject);
begin
     if checkbox1.Checked then
     begin
        Lineseries7.Marks.Visible:=true;
        Lineseries8.Marks.Visible:=true;
        Lineseries9.Marks.Visible:=true;
     end
     else
     begin
        Lineseries7.Marks.Visible:=false;
        Lineseries8.Marks.Visible:=false;
        Lineseries9.Marks.Visible:=false;
     end;
end;

procedure TForm_Red.CheckBox2Click(Sender: TObject);
begin
     if checkbox2.Checked then
     begin
        Lineseries10.Marks.Arrow.SmallDots:=true;
        Lineseries10.Marks.visible:=true;
        Lineseries11.Marks.Visible:=true;
        Lineseries12.Marks.Visible:=true;
        Lineseries13.Marks.Visible:=true;
        Lineseries14.Marks.Visible:=true;
        Lineseries15.Marks.Visible:=true;
     end
     else
     begin
        Lineseries10.Marks.Visible:=false;
        Lineseries11.Marks.Visible:=false;
        Lineseries12.Marks.Visible:=false;
        Lineseries13.Marks.Visible:=false;
        Lineseries14.Marks.Visible:=false;
        Lineseries15.Marks.Visible:=false;
     end;
end;

procedure TForm_Red.CheckBox3Click(Sender: TObject);
begin
     if checkbox3.Checked  then
     begin
        LineSeries16.Marks.Visible:=true;
        LineSeries17.Marks.Visible:=true;
        LineSeries18.Marks.Visible:=true;
     end
     else
     begin
        LineSeries16.Marks.Visible:=false;
        LineSeries17.Marks.Visible:=false;
        LineSeries18.Marks.Visible:=true;
     end;
end;

end.