u_form_blue.pas.bak

双色球分析软件

         grid1_3.Cells[9,grid1_3.rowcount-2].ForeText:='8';
         grid1_3.Cells[10,grid1_3.rowcount-2].ForeText:='11';
         grid1_3.Cells[11,grid1_3.rowcount-2].ForeText:='14';
         grid1_3.Cells[12,grid1_3.rowcount-2].ForeText:='3';
         grid1_3.Cells[13,grid1_3.rowcount-2].ForeText:='6';
         grid1_3.Cells[14,grid1_3.rowcount-2].ForeText:='9';
         grid1_3.Cells[15,grid1_3.rowcount-2].ForeText:='12';
         grid1_3.Cells[16,grid1_3.rowcount-2].ForeText:='15';
///////为第三个表格设置结束//////////////////////////////////////////////
////////////////////////////////////////////
end;

procedure TForm_Blue.Image2Click(Sender: TObject);
begin
      CloseForm(handle);
end;

procedure TForm_Blue.TabCtrlDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
      TabTitle:Array[0..10] of string;
begin
      TabTitle[0]:='蓝球分布图';
      TabTitle[1]:='蓝球曲线图';
      TabTitle[2]:='螺旋走势图';
      
      //TabTitle[4]:='工龄段查询';
      with Control.Canvas   do
      begin
          if active then
          begin
             Font.Color:=clRed;
             Font.Name:='宋体';
             Font.Size:=10;
          end
          else
             begin
                Font.Style:=[];
                Font.Name:='宋体';
                Font.Size:=10;
             end;
          TextRect(Rect,Rect.Left+20,Rect.Top+3,TabTitle[TabIndex]);////输出标题
          ImageList1.Draw(Control.Canvas,Rect.Left+2,Rect.Top+2,TabIndex);///画图标
      end;///with
end;

procedure TForm_Blue.Grid1_1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TEasyGridDrawState);
begin
       with grid1_1 do
       begin
            canvas.Pen.Color:=rgb(255,0,0);
            canvas.Pen.Width:=2;
            canvas.MoveTo(192,0);
            canvas.LineTo(192,544);
       end;///with1
end;

procedure TForm_Blue.Grid1_2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TEasyGridDrawState);
begin
       with grid1_2 do
       begin
            canvas.Pen.Color:=rgb(255,0,0);
            canvas.Pen.Width:=2;
            canvas.MoveTo(136,0);
            canvas.LineTo(136,544);
       end;///with1
end;

procedure TForm_Blue.Grid1_3DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TEasyGridDrawState);
begin
       with grid1_3 do
       begin
            canvas.Pen.Color:=rgb(255,0,0);
            canvas.Pen.Width:=2;
            canvas.MoveTo(102,0);
            canvas.LineTo(102,544);
            canvas.MoveTo(187,0);
            canvas.LineTo(187,544);
       end;///with1
end;

procedure TForm_Blue.TabCtrlChange(Sender: TObject);
var
    i,j:integer;
    _Div:Array[1..100] of integer;
    _LastNum:Array[1..100] of integer;
    _LastNumSub:Array[1..100] of integer;
begin
////////TabCtrl.Tabindex=1是蓝球曲线走势图'///////////////
      if TabCtrl.TabIndex=1 then
      begin
          /////蓝球曲线图//////////
          chart1.Series[0].Clear;
          for i:=1 to 28 do
          begin
              Series1.Add(CP_Data[i,1],CP_SID[i],clTeeColor);
          end;///
          /////除3余数走势图//////////////
          chart2.Series[0].Clear;
          for i:=1 to 28 do
          begin
              _Div[i]:=CP_Data[i,1] mod 3;
               LineSeries1.Add(_Div[i],'',clTeeColor);
          end;///for
          /////蓝球威势图/////////////////////
          chart4.Series[0].Clear;
          for i:=1 to 28 do
          begin
              if CP_Data[i,1]<10 then
              begin
                 _LastNum[i]:=CP_Data[i,1];
              end   
              else
                 _LastNum[i]:=strToInt(trim(copy(inttostr(CP_Data[i,1]),2,1)));
              LineSeries3.Add(_LastNum[i],'',clteecolor);    
          end;////
          ///////计算尾数////////////////////////
          for i:=1 to  28 do
          begin
              _LastNumSub[i+1]:=_LastNum[i+1]-_LastNum[i];
          end;///
          _LastNumSub[1]:=2;
          chart5.Series[0].Clear;
          for i:=1 to 28 do
          begin
             
          end;///
          //////////////////////////////////////
      end;////
/////////TabCtrl.TabIndex=2是蓝球的螺旋走势图///////////////////
      if TabCtrl.TabIndex=2 then
      begin
          for i:=1 to 16 do
          begin
              combobox1.Items.Add(inttostr(i)); 
          end;///
          ///////设置第一个表格Grid2_1//////////////
          grid2_1.SetMerges(rect(1,1,1,4));
          grid2_1.ColWidths[1]:=55;
          grid2_1.Cells[1,1].ForeText:='[1]号图';

          grid2_2.SetMerges(rect(1,1,1,4));
          grid2_2.ColWidths[1]:=55;
          grid2_2.Cells[1,1].ForeText:='[2]号图';

          grid2_3.SetMerges(rect(1,1,1,4));
          grid2_3.ColWidths[1]:=55;
          grid2_3.Cells[1,1].ForeText:='[3]号图';

          grid2_4.SetMerges(rect(1,1,1,4));
          grid2_4.ColWidths[1]:=55;
          grid2_4.Cells[1,1].ForeText:='[4]号图';

          grid2_5.SetMerges(rect(1,1,1,4));
          grid2_5.ColWidths[1]:=55;
          grid2_5.Cells[1,1].ForeText:='[5]号图';
          ///////添加颜色////////////////////////
          grid2_1.RowCount:=grid1_1.RowCount+3;
          grid2_2.RowCount:=grid1_1.RowCount+3;
          grid2_3.RowCount:=grid1_1.RowCount+3;
          grid2_4.RowCount:=grid1_1.RowCount+3;
          grid2_5.RowCount:=grid1_1.RowCount+3;
          ///////添加数字///////////////////////
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_1.Cells[j+1,i].ForeText:=Grid2_1_1[i,j];
                  grid2_1.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_2.Cells[j+1,i].ForeText:=Grid2_1_2[i,j];
                  grid2_2.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_3.Cells[j+1,i].ForeText:=Grid2_1_3[i,j];
                  grid2_3.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_4.Cells[j+1,i].ForeText:=Grid2_1_4[i,j];
                  grid2_4.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_5.Cells[j+1,i].ForeText:=Grid2_1_5[i,j];
                  grid2_5.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          //显示数据期号./////////////////////////////////////////////
          for i:=1 to 28 do
          begin
              grid2_1.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          for i:=1 to 28 do
          begin
              grid2_2.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          for i:=1 to 28 do
          begin
              grid2_3.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          for i:=1 to 28 do
          begin
              grid2_4.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          for i:=1 to 28 do
          begin
              grid2_5.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          ///////在对应的格格中显示蓝球号码///////////////////////
          /////在表格Grid2_1中显示////////////////
          for i:=1 to 28 do
          begin
              for j:=1 to 16 do
              begin
                  if CP_Data[i,1]=j then
                  begin
                    if (CP_Data[i,1] mod 4)=1 then
                    begin
                       grid2_1.Cells[2,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1] mod 4)=2 then
                    begin
                       grid2_1.Cells[3,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1] mod 4)=3 then
                    begin
                       grid2_1.Cells[4,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1] mod 4)=0 then
                    begin
                       grid2_1.Cells[5,i+4].ForeText:=inttostr(j);
                    end;

                  end;//if CP
              end;//j
          end;//fori
          ///////在表格Grid2_2中显示//////////////////////////////
          for i:=1 to 28 do
          begin
              for j:=1 to 16 do
              begin
                  if CP_Data[i,1]=j then
                  begin
                    if (CP_Data[i,1]=1) or (CP_Data[i,1]=8) or (CP_Data[i,1]=9) or (CP_Data[i,1]=16) then
                    begin
                       grid2_2.Cells[2,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=2) or (CP_Data[i,1]=7) or (CP_Data[i,1]=10) or (CP_Data[i,1]=15) then
                    begin
                       grid2_2.Cells[3,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=3) or (CP_Data[i,1]=6) or (CP_Data[i,1]=11) or (CP_Data[i,1]=14) then
                    begin
                       grid2_2.Cells[4,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=4) or (CP_Data[i,1]=5) or (CP_Data[i,1]=12) or (CP_Data[i,1]=13) then
                    begin
                       grid2_2.Cells[5,i+4].ForeText:=inttostr(j);
                    end;

                  end;//if CP
              end;//j
          end;//fori
          ///////在表格Grid2_3中显示//////////////////////////////
          for i:=1 to 28 do
          begin
              for j:=1 to 16 do
              begin
                  if CP_Data[i,1]=j then
                  begin
                    if (CP_Data[i,1]=1) or (CP_Data[i,1]=2) or (CP_Data[i,1]=3) or (CP_Data[i,1]=4) then
                    begin
                       grid2_3.Cells[2,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=5) or (CP_Data[i,1]=6) or (CP_Data[i,1]=7) or (CP_Data[i,1]=8) then
                    begin