form_redfenxil.pas

双色球分析软件

unit Form_RedFenXiL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ExtCtrls, StdCtrls, EasyGrid, ComCtrls, TeEngine,
  Series, TeeProcs, Chart, DB, ADODB, TeeShape;

type
  TForm_RedFenXi = class(TForm)
    Image1: TImage;
    ImageList1: TImageList;
    Image2: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    TabCtrl: TPageControl;
    TabSheet1: TTabSheet;
    Grid1: TEasyGrid;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    TabSheet5: TTabSheet;
    TabSheet7: TTabSheet;
    Panel2: TPanel;
    PaintBox1: TPaintBox;
    TabSheet10: TTabSheet;
    Panel3: TPanel;
    TabSheet12: TTabSheet;
    Panel4: TPanel;
    PaintBox3: TPaintBox;
    TabSheet2: TTabSheet;
    Panel5: TPanel;
    TabSheet4: TTabSheet;
    Chart1: TChart;
    Series1: TLineSeries;
    ADOQuery1: TADOQuery;
    Series2: TLineSeries;
    Series3: TLineSeries;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Series6: TLineSeries;
    Series7: TChartShape;
    Chart2: TChart;
    LineSeries1: TLineSeries;
    Chart3: TChart;
    LineSeries2: TLineSeries;
    Chart4: TChart;
    LineSeries3: TLineSeries;
    Chart5: TChart;
    LineSeries4: TLineSeries;
    Chart6: TChart;
    LineSeries5: TLineSeries;
    Chart7: TChart;
    LineSeries6: TLineSeries;
    Chart8: TChart;
    LineSeries7: TLineSeries;
    Chart9: TChart;
    LineSeries8: TLineSeries;
    Chart10: TChart;
    LineSeries9: TLineSeries;
    CheckBox1: TCheckBox;
    Chart11: TChart;
    LineSeries10: TLineSeries;
    Chart12: TChart;
    LineSeries11: TLineSeries;
    Chart13: TChart;
    LineSeries12: TLineSeries;
    Chart14: TChart;
    LineSeries13: TLineSeries;
    Chart15: TChart;
    LineSeries14: TLineSeries;
    Chart16: TChart;
    LineSeries15: TLineSeries;
    CheckBox2: TCheckBox;
    Bevel3: TBevel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    Chart17: TChart;
    LineSeries16: TLineSeries;
    Chart18: TChart;
    LineSeries17: TLineSeries;
    Chart19: TChart;
    LineSeries18: TLineSeries;
    CheckBox3: TCheckBox;
    ComboBox7: TComboBox;
    Label2: TLabel;
    Chart20: TChart;
    LineSeries19: TLineSeries;
    Chart21: TChart;
    LineSeries20: TLineSeries;
    Chart22: TChart;
    LineSeries21: TLineSeries;
    Chart23: TChart;
    LineSeries22: TLineSeries;
    Panel6: TPanel;
    TabCtrl1: TPageControl;
    TabSheet6: TTabSheet;
    Grid1_1: TEasyGrid;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet11: TTabSheet;
    TabSheet13: TTabSheet;
    TabSheet14: TTabSheet;
    TabSheet15: TTabSheet;
    TabSheet16: TTabSheet;
    Chart24: TChart;
    LineSeries23: TLineSeries;
    Chart25: TChart;
    LineSeries24: TLineSeries;
    Chart26: TChart;
    LineSeries25: TLineSeries;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    CheckBox4: TCheckBox;
    Grid1_2: TEasyGrid;
    Grid1_3: TEasyGrid;
    Grid1_4: TEasyGrid;
    Grid1_5: TEasyGrid;
    Grid1_6: TEasyGrid;
    PaintBox2: TPaintBox;
    TabSheet17: TTabSheet;
    TabSheet18: TTabSheet;
    Grid2: TEasyGrid;
    PaintBox4: TPaintBox;
    TabSheet19: TTabSheet;
    Grid3: TEasyGrid;
    TabSheet20: TTabSheet;
    TabSheet21: TTabSheet;
    Chart27: TChart;
    Label15: TLabel;
    Bevel2: TBevel;
    Chart28: TChart;
    Label6: TLabel;
    Bevel4: TBevel;
    Series8: TBarSeries;
    Series9: TBarSeries;
    procedure FormCreate(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure TabCtrlDrawTab(Control: TCustomTabControl; TabIndex: Integer;
      const Rect: TRect; Active: Boolean);
    procedure TabCtrlChange(Sender: TObject);
    procedure Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
    procedure ComboBox5Click(Sender: TObject);
    procedure ComboBox6Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure ComboBox7Click(Sender: TObject);
    procedure Grid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure CheckBox4Click(Sender: TObject);
    procedure Grid2DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure TabCtrl1Change(Sender: TObject);
    procedure TabCtrl1DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Grid3DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
     OldX,OldY:Longint;
    CrossHairColor:TColor;
    CrossHairStyle:TPenStyle;
  end;

var
  Form_RedFenXi: TForm_RedFenXi;
  bAddpoint:boolean;
  bAddpoint1:boolean;
  bAddpoint2:boolean;
  bAddpoint3:boolean;
  bAddpoint4:boolean;
  bAddpoint5:boolean;
  CP_Data:Array[1..100,1..100] of integer;
implementation

{$R *.dfm}
uses common,U_Draw,U_constant,CommonUnit,CurrentUnit;
procedure TForm_RedFenXi.FormCreate(Sender: TObject);
var
    i,j:integer;
    sMax:string;
    CurrentPath:string;
    _Sum:integer;
    _OddNum:TStringList;///存储奇数个数//////////
    _Area1:TStringList;////存储一区的号码///////////
    _Area2:TStringList;////存储二区的号码////////////
    _Area3:TStringList;////存储三区的号码///////////////
    _Large:TStringList;/////存储大数的号码////////////////
    _Div_1:TStringList;/////存储一区号码的个数//////////
    _Div_2:TStringList;/////存储二区号码的个数//////////
    _Div_3:TStringList;/////存储三区号码的个数//////////
    _TmpB:string;/////存储区域比的
    _TmpC:string;/////存储除3余比/////
    _TmpD:string;///存储大小比/////////
begin
    CurrentPath:=ExtractFilePath(paramstr(0));
    ShowPloyForm(image1.Picture.bitmap,handle);
    /////////
    RecordProcess(Sender);
    //////////////
    for i:=1 to 33 do
    begin
        combobox1.Items.Add(inttostr(i));
        combobox2.Items.Add(inttostr(i));
        combobox3.Items.Add(inttostr(i));
        combobox4.Items.Add(inttostr(i));
        combobox5.Items.Add(inttostr(i));
        combobox6.Items.Add(inttostr(i));
    end;
    ///
    combobox7.Items.Add('除3走势');
    combobox7.Items.Add('除4走势');
    combobox7.Items.Add('除5走势');
    combobox7.Items.Add('除6走势');
    bAddPoint:=false;
    bAddPoint1:=false;
    bAddPoint2:=false;
    bAddPoint3:=false;
    bAddPoint4:=false;
    bAddPoint5:=false;
    /////////////////
    grid1.ColWidths[1]:=45;
     grid1.Cells[1,1].ForeText:='期号';
     grid1.RowHeights[1]:=20;
     for i:=2 to 34 do
     begin
         grid1.ColWidths[i]:=20;
         grid1.cells[i,1].foretext:=inttostr(i-1);
         grid1.cells[i,1].foretext:=inttostr(i-1);
     end;
     grid1.Cells[35,1].ForeText:='和值';
     grid1.ColWidths[35]:=36;
     grid1.Cells[36,1].ForeText:='奇偶';
     grid1.ColWidths[36]:=40;
     grid1.Cells[37,1].ForeText:='区域比';
     grid1.ColWidths[37]:=55;
     grid1.Cells[38,1].ForeText:='除3余';
     grid1.ColWidths[38]:=50;
     grid1.Cells[39,1].ForeText:='大小';
     grid1.ColWidths[39]:=36;

     with AdoQuery1 do
     begin
         connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
         close;
         sql.Clear;
         sql.Add('Select Top 1 * From  CPData  order by  sID desc');
         prepared;
         open;
         if recordcount<>0 then
         begin
            sMax:=FieldByName('sID').AsString;
         end;//if

     end;////with
     s_EndID:=trim(sMax);
     s_beginId:=formatFloat('##0',strToInt(trim(sMax))-27);
     ////////红球分布图///////////////////////////////////
     for i:=2 to 34 do
     begin
         grid1.Cells[i,1].Color:=rgb(255,255,0);
     end;/////
     grid1.Cells[35,1].Color:=rgb(233,240,210);;
     grid1.Cells[36,1].Color:=rgb(245,245,245);
     grid1.Cells[37,1].Color:=rgb(245,245,245);
     grid1.Cells[38,1].Color:=rgb(245,245,245);
     grid1.Cells[39,1].Color:=rgb(245,245,245);
     //////////////////////
     grid3.RowCount:=grid1.RowCount;  
     ///////首先取得数据//////////////////////////////
      ///////显示双色球记录////////////////////
     with AdoQuery1 do
     begin
         connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
         close;
         sql.Clear;
         sql.Add('Select * From  CPdata  Where  sID>=:sb and  sID<=:se order By sID');
         parameters.ParamByName('sb').Value:=trim(s_BeginId);
         parameters.ParamByName('se').Value:=trim(s_EndId);
         prepared;
         open;
         if recordcount<>0 then
         begin
            i:=1;
            while not Eof do
            begin
                 grid1.RowCount:=i+2;
                 //Canvas.Brush.Color:=rgb(255,0,0);
                 //Canvas.FillRect(grid1.CellRect(strToInt(trim(FieldByName('r1').AsString))+1,i+1));
                 
                 grid1.Cells[1,i+1].ForeText:=trim(FieldByName('sID').AsString);
                 /////(球１）／／／／／／／／／
                 grid1.Cells[strToInt(trim(FieldByName('r1').AsString))+1,i+1].ForeText:=trim(FieldByName('r1').AsString);
                 /////////
                 //grid3.Cells[strToInt(trim(FieldByName('r1').AsString))+1,i+1].ForeText:=trim(FieldByName('r1').AsString);
                 /////////将红球号码存储在数组中//////////////////////////
                 CP_Data[i,1]:=strToInt(trim(FieldByName('r1').AsString));
                 /////(球2)/////////
                 grid1.Cells[strToInt(trim(FieldByName('r2').AsString))+1,i+1].ForeText:=trim(FieldByName('r2').AsString);
                 /////////
                 //grid3.Cells[strToInt(trim(FieldByName('r2').AsString))+1,i+1].ForeText:=trim(FieldByName('r2').AsString);
                 /////////将红球号码存储在数组中//////////////////////////
                 CP_Data[i,2]:=strToInt(trim(FieldByName('r2').AsString));

                 /////(球3)/////////
                 grid1.Cells[strToInt(trim(FieldByName('r3').AsString))+1,i+1].ForeText:=trim(FieldByName('r3').AsString);
                 //grid3.Cells[strToInt(trim(FieldByName('r3').AsString))+1,i+1].ForeText:=trim(FieldByName('r3').AsString);
                 CP_Data[i,3]:=strToInt(trim(FieldByName('r3').AsString));
                 /////(球4)////////////
                 grid1.Cells[strToInt(trim(FieldByName('r4').AsString))+1,i+1].ForeText:=trim(FieldByName('r4').AsString);
                 //grid3.Cells[strToInt(trim(FieldByName('r4').AsString))+1,i+1].ForeText:=trim(FieldByName('r4').AsString);
                 CP_Data[i,4]:=strToInt(trim(FieldByName('r4').AsString));
                 /////(球5)////////////
                 grid1.Cells[strToInt(trim(FieldByName('r5').AsString))+1,i+1].ForeText:=trim(FieldByName('r5').AsString);
                 //grid3.Cells[strToInt(trim(FieldByName('r5').AsString))+1,i+1].ForeText:=trim(FieldByName('r5').AsString);
                 CP_Data[i,5]:=strToInt(trim(FieldByName('r5').AsString));
                 /////(球6)////////////
                 grid1.Cells[strToInt(trim(FieldByName('r6').AsString))+1,i+1].ForeText:=trim(FieldByName('r6').AsString);
                 //grid3.Cells[strToInt(trim(FieldByName('r6').AsString))+1,i+1].ForeText:=trim(FieldByName('r6').AsString);
                 CP_Data[i,6]:=strToInt(trim(FieldByName('r6').AsString));


                  CP_Data[i,7]:=strToInt(trim(FieldByName('b1').AsString));
                 //grid1.Canvas.Brush.Color:=rgb(0,0,0);
                 //grid1.Canvas.FillRect(grid1.CellRect(strToInt(trim(FieldByName('r1').AsString))+1,i+1));
                 next;
                 inc(i);
            end;///while
         end;//if
     end;//with
     for i:=1 to grid1.RowCount-1 do
     begin
         grid1.Cells[1,i].Color:=rgb(58,110,165);
         grid1.Cells[1,i].FontColor:=rgb(255,255,255);
     end;
     //////////
     grid1.InsertRow(rect(1,grid1.RowCount,grid1.ColCount-1,grid1.RowCount));