mainform.pas

双色球彩票历史纪录分析并附带全部双色球开奖数据,chart数据分析

unit mainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, DB, ADODB, DBCtrls, Mask, TeeProcs, TeEngine, Chart,DateUtils,
  Series, Buttons,Grids, OleCtrls, SHDocVw,
  DBGrids;

type
  TfrmMainForm = class(TForm)
    DS: TDataSource;
    AC: TADOConnection;
    AQ: TADOQuery;
    GDS: TDataSource;
    StatusBar1: TStatusBar;
    AT: TADOQuery;
    GAT: TADOQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    QH: TDBEdit;
    H1: TDBEdit;
    H2: TDBEdit;
    H3: TDBEdit;
    H4: TDBEdit;
    H5: TDBEdit;
    H6: TDBEdit;
    L1: TDBEdit;
    DBN: TDBNavigator;
    DG: TDBGrid;
    TabSheet2: TTabSheet;
    tc: TChart;
    Series1: TBarSeries;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    FQFW: TComboBox;
    TBFS: TComboBox;
    btnSave: TBitBtn;
    TabSheet5: TTabSheet;
    tb: TStringGrid;
    TabSheet3: TTabSheet;
    Panel3: TPanel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBNavigator1: TDBNavigator;
    GDG: TDBGrid;
    TabSheet4: TTabSheet;
    GMTB: TStringGrid;
    //procedure DGColumnClick(Sender: TObject; Column: TdxDBTreeListColumn);
    procedure FormCreate(Sender: TObject);
    procedure FQFWChange(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TBFSChange(Sender: TObject);
    procedure tcDblClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure ATAfterEdit(DataSet: TDataSet);
    procedure ATAfterDelete(DataSet: TDataSet);
    procedure ATAfterInsert(DataSet: TDataSet);
    procedure tbDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
    procedure GATAfterEdit(DataSet: TDataSet);
    procedure GATAfterInsert(DataSet: TDataSet);
    procedure GATAfterDelete(DataSet: TDataSet);
    procedure TabSheet4Show(Sender: TObject);
    procedure GMTBDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure TabSheet4Hide(Sender: TObject);
    procedure wbNewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure TabSheet6Show(Sender: TObject);
    procedure GATBeforePost(DataSet: TDataSet);
    procedure GATNewRecord(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
  private
     blshow,blgmshow : boolean;
    { Private declarations }
  public
    ls:string;
     Adata,Atb : array of integer;
     procedure Totaldata();
     procedure SetValue(tc : Tchart);
    { Public declarations }
  end;

var
  frmMainForm: TfrmMainForm;
  lastQS:string;
   i:integer;

implementation

uses zs;

{$R *.dfm}

{procedure TfrmMainForm.DGColumnClick(Sender: TObject;
  Column: TdxDBTreeListColumn);
begin
AT.IndexFieldNames := column.FieldName ;
end; }

procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
setlength(adata,34);
setlength(atb,17);
blshow :=false;
blgmshow :=false;
end;

procedure TfrmMainForm.FormShow(Sender: TObject);
var
  query:TADOQuery;
begin
  query:=TADOQuery.Create(nil);
  query.Connection:=AC;
  with query do
  begin
    close;
    SQL.Clear;
    SQL.Add('select * from 购买记录 order by 编号 desc');
    //Parameters.ParamByName('QH').Value:='期号';
    //Parameters.ParamByName('GMJL').Value:=';
    open;
    LS:=query.FieldByName('购买期数').AsString;
  end;

end;

procedure TfrmMainForm.Totaldata();
  function  getDate(ij : integer) : string;

  begin

    result := 'select top ' +  inttostr(ij) + ' * from 开奖数据 order by 期号 desc'  ;

  end;
var
 strsql,strsql1 : string;
 i,w : integer;
 intYear,intMonth : integer;

begin
intyear   :=  yearof(date);
intMonth  :=  monthof(date);

case fqfw.ItemIndex  of
 0: strsql := 'select * from 开奖数据';
 1: strsql := 'select * from 开奖数据 where 期号 like ''%' + inttostr(intyear) + '%''';
 2: strsql := getdate(99);
 3: strsql := getdate(96);
 4: strsql := getdate(80);
 5: strsql := getdate(66);
 6: strsql := getdate(64);
 7: strsql := getdate(48);
 8: strsql := getdate(33);
 9: strsql := getdate(32);
 10: strsql := getdate(16);
 end;

  for i:= 1 to 33 do
    adata[i] :=0;
  for i:= 1 to 16 do
    atb[i] :=0;
  aq.Close;
  aq.SQL.Clear;
  aq.SQL.Add(strsql);
  aq.Open;

  if aq.RecordCount >0 then
  begin
    if tbfs.ItemIndex  <3 then
    begin
    aq.First;
    while not aq.Eof do
    begin
      adata[aq.FieldByName('红色1').AsInteger ] := adata[aq.FieldByName('红色1').AsInteger ]  +1;
      adata[aq.FieldByName('红色2').AsInteger ] := adata[aq.FieldByName('红色2').AsInteger ]  +1;
      adata[aq.FieldByName('红色3').AsInteger ] := adata[aq.FieldByName('红色3').AsInteger ]  +1;
      adata[aq.FieldByName('红色4').AsInteger ] := adata[aq.FieldByName('红色4').AsInteger ]  +1;
      adata[aq.FieldByName('红色5').AsInteger ] := adata[aq.FieldByName('红色5').AsInteger ]  +1;
      adata[aq.FieldByName('红色6').AsInteger ] := adata[aq.FieldByName('红色6').AsInteger ]  +1;
      atb[aq.FieldByName('蓝色').AsInteger ] := atb[aq.FieldByName('蓝色').AsInteger ]  +1;
      aq.Next;
    end;
    end;
    //==================
    if tbfs.ItemIndex =3  then
    begin
      aq.First;
      while not aq.Eof do
      begin
        if (aq.FieldByName('红色1').AsInteger + 1 = aq.FieldByName('红色2').AsInteger) then
          begin
            adata[aq.FieldByName('红色1').AsInteger ] := adata[aq.FieldByName('红色1').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色2').AsInteger + 1 = aq.FieldByName('红色3').AsInteger) then
          begin
            adata[aq.FieldByName('红色2').AsInteger ] := adata[aq.FieldByName('红色2').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色3').AsInteger + 1 = aq.FieldByName('红色4').AsInteger) then
          begin
            adata[aq.FieldByName('红色3').AsInteger ] := adata[aq.FieldByName('红色3').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色4').AsInteger + 1 = aq.FieldByName('红色5').AsInteger) then
          begin
             adata[aq.FieldByName('红色4').AsInteger ] := adata[aq.FieldByName('红色4').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色5').AsInteger + 1 = aq.FieldByName('红色6').AsInteger) then
          begin
           adata[aq.FieldByName('红色5').AsInteger ] := adata[aq.FieldByName('红色5').AsInteger ]  +1;
          end;
          aq.Next;
      end;
    end;
      //=====================
 if tbfs.ItemIndex =4  then
    begin
      aq.First;
      while not aq.Eof do
      begin
        if (aq.FieldByName('红色1').AsInteger + 1 = aq.FieldByName('红色2').AsInteger) and (aq.FieldByName('红色2').AsInteger + 1 = aq.FieldByName('红色3').AsInteger) then
          begin
            adata[aq.FieldByName('红色1').AsInteger ] := adata[aq.FieldByName('红色1').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色2').AsInteger + 1 = aq.FieldByName('红色3').AsInteger) and (aq.FieldByName('红色3').AsInteger + 1 = aq.FieldByName('红色4').AsInteger) then
          begin
            adata[aq.FieldByName('红色2').AsInteger ] := adata[aq.FieldByName('红色2').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色3').AsInteger + 1 = aq.FieldByName('红色4').AsInteger) and (aq.FieldByName('红色4').AsInteger + 1 = aq.FieldByName('红色5').AsInteger)  then
          begin
            adata[aq.FieldByName('红色3').AsInteger ] := adata[aq.FieldByName('红色3').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色4').AsInteger + 1 = aq.FieldByName('红色5').AsInteger) and (aq.FieldByName('红色5').AsInteger + 1 = aq.FieldByName('红色6').AsInteger)  then
          begin
             adata[aq.FieldByName('红色4').AsInteger ] := adata[aq.FieldByName('红色4').AsInteger ]  +1;
          end;
          aq.Next;
      end;
    end;
    //===============
     if tbfs.ItemIndex =5  then
    begin
      aq.First;
      while not aq.Eof do
      begin
        if (aq.FieldByName('红色1').AsInteger + 1 = aq.FieldByName('红色2').AsInteger) and (aq.FieldByName('红色2').AsInteger + 1 = aq.FieldByName('红色3').AsInteger) and (aq.FieldByName('红色3').AsInteger + 1 = aq.FieldByName('红色4').AsInteger) then
          begin
            adata[aq.FieldByName('红色1').AsInteger ] := adata[aq.FieldByName('红色1').AsInteger ]  +1;
          end;
          if (aq.FieldByName('红色2').AsInteger + 1 = aq.FieldByName('红色3').AsInteger) and (aq.FieldByName('红色3').AsInteger + 1 = aq.FieldByName('红色4').AsInteger) and (aq.FieldByName('红色4').AsInteger + 1 = aq.FieldByName('红色5').AsInteger) then
          begin
            adata[aq.FieldByName('红色2').AsInteger ] := adata[aq.FieldByName('红色2').AsInteger ]  +1;
          end;
          if (aq.FieldByName('红色3').AsInteger + 1 = aq.FieldByName('红色4').AsInteger) and (aq.FieldByName('红色4').AsInteger + 1 = aq.FieldByName('红色5').AsInteger) and (aq.FieldByName('红色5').AsInteger + 1 = aq.FieldByName('红色6').AsInteger) then
          begin
            adata[aq.FieldByName('红色3').AsInteger ] := adata[aq.FieldByName('红色3').AsInteger ]  +1;
          end;
          aq.Next;
      end;
    end;
    //===========================
    if tbfs.ItemIndex =6 then
    begin
      aq.First;
      while not aq.Eof do
      begin
 if (aq.FieldByName('红色1').AsInteger + 2 = aq.FieldByName('红色2').AsInteger) then
          begin
            adata[aq.FieldByName('红色1').AsInteger ] := adata[aq.FieldByName('红色1').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色2').AsInteger + 2 = aq.FieldByName('红色3').AsInteger) then
          begin
            adata[aq.FieldByName('红色2').AsInteger ] := adata[aq.FieldByName('红色2').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色3').AsInteger + 2 = aq.FieldByName('红色4').AsInteger) then
          begin
            adata[aq.FieldByName('红色3').AsInteger ] := adata[aq.FieldByName('红色3').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色4').AsInteger + 2 = aq.FieldByName('红色5').AsInteger) then
          begin
             adata[aq.FieldByName('红色4').AsInteger ] := adata[aq.FieldByName('红色4').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色5').AsInteger + 2 = aq.FieldByName('红色6').AsInteger) then
          begin
           adata[aq.FieldByName('红色5').AsInteger ] := adata[aq.FieldByName('红色5').AsInteger ]  +1;
          end;
          aq.Next;
      end;
    end;
//==================================
if tbfs.ItemIndex =7 then
    begin
      aq.First;
      while not aq.Eof do
      begin
        if (aq.FieldByName('红色1').AsInteger + 2 = aq.FieldByName('红色2').AsInteger) and (aq.FieldByName('红色2').AsInteger + 2 = aq.FieldByName('红色3').AsInteger) then
          begin
            adata[aq.FieldByName('红色1').AsInteger ] := adata[aq.FieldByName('红色1').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色2').AsInteger + 2 = aq.FieldByName('红色3').AsInteger) and (aq.FieldByName('红色3').AsInteger + 2 = aq.FieldByName('红色4').AsInteger) then
          begin
            adata[aq.FieldByName('红色2').AsInteger ] := adata[aq.FieldByName('红色2').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色3').AsInteger + 2 = aq.FieldByName('红色4').AsInteger) and (aq.FieldByName('红色4').AsInteger + 2 = aq.FieldByName('红色5').AsInteger)  then
          begin
            adata[aq.FieldByName('红色3').AsInteger ] := adata[aq.FieldByName('红色3').AsInteger ]  +1;
          end;
         if (aq.FieldByName('红色4').AsInteger + 2 = aq.FieldByName('红色5').AsInteger) and (aq.FieldByName('红色5').AsInteger + 2 = aq.FieldByName('红色6').AsInteger)  then
          begin
             adata[aq.FieldByName('红色4').AsInteger ] := adata[aq.FieldByName('红色4').AsInteger ]  +1;
          end;
          aq.Next;
      end
    end;
  end;


end;

procedure TfrmMainForm.FQFWChange(Sender: TObject);
begin
  Totaldata();
  setvalue(tc);
end;

procedure TfrmMainForm.TabSheet2Show(Sender: TObject);
begin
Totaldata();
setvalue(tc);
end;

procedure TfrmMainForm.SetValue(tc : Tchart);
var
 i : integer;
begin

tc.Series[0].Clear;

  case tbfs.ItemIndex of