form_techanalysel.pas

双色球分析软件

unit Form_TechAnalyseL;

interface

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

type
  TForm_TechAnalyse = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Bevel1: TBevel;
    TabCtrl: TPageControl;
    TabSheet1: TTabSheet;
    Grid1: TEasyGrid;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Chart1: TChart;
    Series1: TLineSeries;
    TabSheet5: TTabSheet;
    TabSheet7: TTabSheet;
    Panel2: TPanel;
    TabSheet10: TTabSheet;
    Panel3: TPanel;
    TabSheet12: TTabSheet;
    Panel4: TPanel;
    TabSheet2: TTabSheet;
    Panel5: TPanel;
    PaintBox4: TPaintBox;
    TabSheet4: TTabSheet;
    ImageList1: TImageList;
    ADOQuery1: TADOQuery;
    Chart2: TChart;
    LineSeries1: TLineSeries;
    Chart3: TChart;
    LineSeries2: TLineSeries;
    CheckBox4: TCheckBox;
    Panel6: TPanel;
    PaintBox2: TPaintBox;
    Chart4: TChart;
    LineSeries3: TLineSeries;
    CheckBox5: TCheckBox;
    Chart5: TChart;
    LineSeries4: TLineSeries;
    ComboBox7: TComboBox;
    Label2: TLabel;
    ADOQuery2: TADOQuery;
    Label3: TLabel;
    ComboBox8: TComboBox;
    TabCtrl1: TPageControl;
    TabSheet6: TTabSheet;
    Grid3_1: TEasyGrid;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet11: TTabSheet;
    Grid3_2: TEasyGrid;
    Chart6: TChart;
    LineSeries5: TLineSeries;
    CheckBox1: TCheckBox;
    Chart7: TChart;
    LineSeries6: TLineSeries;
    Chart8: TChart;
    LineSeries7: TLineSeries;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Grid5_1: TEasyGrid;
    Grid5_2: TEasyGrid;
    Grid5_3: TEasyGrid;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Grid6_1: TEasyGrid;
    Label9: TLabel;
    Grid6_2: TEasyGrid;
    Label10: TLabel;
    Grid6_3: TEasyGrid;
    Panel7: TPanel;
    PaintBox1: TPaintBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Grid7_1: TEasyGrid;
    Grid7_2: TEasyGrid;
    Grid7_3: TEasyGrid;
    Button1: TButton;
    TabSheet13: TTabSheet;
    GroupBox1: TGroupBox;
    Chart10: TChart;
    Label14: TLabel;
    Bevel2: TBevel;
    Series4: TBarSeries;
    Chart9: TChart;
    Label15: TLabel;
    Bevel3: TBevel;
    BarSeries1: TBarSeries;
    procedure Image2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TabCtrlDrawTab(Control: TCustomTabControl; TabIndex: Integer;
      const Rect: TRect; Active: Boolean);
    procedure TabCtrlChange(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure ComboBox7Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure ComboBox8Click(Sender: TObject);
    procedure TabCtrl1DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    procedure TabCtrl1Change(Sender: TObject);
    procedure TabCtrl2DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    procedure Grid5_1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid5_2DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid5_3DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid6_1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid6_2DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid6_3DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid7_1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid7_2DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Grid7_3DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TEasyGridDrawState);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_TechAnalyse: TForm_TechAnalyse;
  Q_No:integer;
  R_CPFirstQ2:TStringList;
  bAddPoint:boolean;////是否增加点/////////////
  //////用于画圆grid5_1,grid5_2,grid5_3/////////////
  _DrawPD:Array[1..30] of double;
  _DrawSD:Array[1..30] of double;
  _DrawAC:Array[1..30] of double;
implementation

{$R *.dfm}
uses common;
procedure TForm_TechAnalyse.Image2Click(Sender: TObject);
begin
     CloseForm(handle)
end;

procedure TForm_TechAnalyse.FormCreate(Sender: TObject);
var
     i,j:integer;
     CurrentPath:string;
     //////////////////////

     //////////////////////////
     PDMin1:Array[1..100,1..100] of string;///存储偏度红球1的分值/////
     PDMin2:Array[1..100,1..100] of string;///存储偏度红球2的分值/////
     PDMin3:Array[1..100,1..100] of string;///存储偏度红球3的分值/////
     PDMin4:Array[1..100,1..100] of string;///存储偏度红球4的分值/////
     PDMin5:Array[1..100,1..100] of string;///存储偏度红球5的分值/////
     PDMin6:Array[1..100,1..100] of string;///存储偏度红球6的分值/////
     iSortList1:TStringList;///存储排序后的红球1的分值
     iSortList2:TStringList;///存储排序后的红球2的分值
     iSortList3:TStringList;///存储排序后的红球3的分值
     iSortList4:TStringList;///存储排序后的红球4的分值
     iSortList5:TStringList;///存储排序后的红球5的分值
     iSortList6:TStringList;///存储排序后的红球6的分值
     iSortList7:TStringList;
     ////////
     SDMin1:Array[1..10,1..100] of string;///存储散度红球1的分值/////
     SDMin2:Array[1..10,1..100] of string;///存储散度红球2的分值/////
     SDMin3:Array[1..10,1..100] of string;///存储散度红球3的分值/////
     SDMin4:Array[1..10,1..100] of string;///存储散度红球4的分值/////
     SDMin5:Array[1..10,1..100] of string;///存储散度红球5的分值/////
     SDMin6:Array[1..10,1..100] of string;///存储散度红球6的分值/////
     SDMin7:Array[1..10,1..100] of string;///存储散度红球1的分值/////
     SDMin8:Array[1..10,1..100] of string;///存储散度红球2的分值/////
     SDMin9:Array[1..10,1..100] of string;///存储散度红球3的分值/////
     SDMin10:Array[1..10,1..100] of string;///存储散度红球4的分值/////
     SDMin11:Array[1..10,1..100] of string;///存储散度红球5的分值/////
     SDMin12:Array[1..10,1..100] of string;///存储散度红球6的分值/////
     SDMin13:Array[1..10,1..100] of string;///存储散度红球1的分值/////
     SDMin14:Array[1..10,1..100] of string;///存储散度红球2的分值/////
     SDMin15:Array[1..10,1..100] of string;///存储散度红球3的分值/////
     SDMin16:Array[1..10,1..100] of string;///存储散度红球4的分值/////
     SDMin17:Array[1..10,1..100] of string;///存储散度红球5的分值/////
     SDMin18:Array[1..10,1..100] of string;///存储散度红球6的分值/////
     SDMin19:Array[1..10,1..100] of string;///存储散度红球1的分值/////
     SDMin20:Array[1..10,1..100] of string;///存储散度红球2的分值/////
     SDMin21:Array[1..10,1..100] of string;///存储散度红球3的分值/////
     SDMin22:Array[1..10,1..100] of string;///存储散度红球4的分值/////
     SDMin23:Array[1..10,1..100] of string;///存储散度红球5的分值/////
     SDMin24:Array[1..10,1..100] of string;///存储散度红球6的分值/////
     SDMin25:Array[1..10,1..100] of string;///存储散度红球1的分值/////
     SDMin26:Array[1..10,1..100] of string;///存储散度红球2的分值/////
     SDMin27:Array[1..10,1..100] of string;///存储散度红球3的分值/////
     SDMin28:Array[1..10,1..100] of string;///存储散度红球4的分值/////
     SDMin29:Array[1..10,1..100] of string;///存储散度红球5的分值/////
     SDMin30:Array[1..10,1..100] of string;///存储散度红球6的分值/////
     SDMin31:Array[1..10,1..100] of string;///存储散度红球1的分值/////
     SDMin32:Array[1..10,1..100] of string;///存储散度红球2的分值/////
     SDMin33:Array[1..10,1..100] of string;///存储散度红球3的分值/////
    
     iSDSortList1:TStringList;///存储排序后的红球1的分值
     iSDSortList2:TStringList;///存储排序后的红球2的分值
     iSDSortList3:TStringList;///存储排序后的红球3的分值
     iSDSortList4:TStringList;///存储排序后的红球4的分值
     iSDSortList5:TStringList;///存储排序后的红球5的分值
     iSDSortList6:TStringList;///存储排序后的红球6的分值
     iSDSortList7:TStringList;///存储排序后的红球1的分值
     iSDSortList8:TStringList;///存储排序后的红球2的分值
     iSDSortList9:TStringList;///存储排序后的红球3的分值
     iSDSortList10:TStringList;///存储排序后的红球4的分值
     iSDSortList11:TStringList;///存储排序后的红球5的分值
     iSDSortList12:TStringList;///存储排序后的红球6的分值
     iSDSortList13:TStringList;///存储排序后的红球1的分值
     iSDSortList14:TStringList;///存储排序后的红球2的分值
     iSDSortList15:TStringList;///存储排序后的红球3的分值
     iSDSortList16:TStringList;///存储排序后的红球4的分值
     iSDSortList17:TStringList;///存储排序后的红球5的分值
     iSDSortList18:TStringList;///存储排序后的红球6的分值
     iSDSortList19:TStringList;///存储排序后的红球1的分值
     iSDSortList20:TStringList;///存储排序后的红球2的分值
     iSDSortList21:TStringList;///存储排序后的红球3的分值
     iSDSortList22:TStringList;///存储排序后的红球4的分值
     iSDSortList23:TStringList;///存储排序后的红球5的分值
     iSDSortList24:TStringList;///存储排序后的红球6的分值
     iSDSortList25:TStringList;///存储排序后的红球1的分值
     iSDSortList26:TStringList;///存储排序后的红球2的分值
     iSDSortList27:TStringList;///存储排序后的红球3的分值
     iSDSortList28:TStringList;///存储排序后的红球4的分值
     iSDSortList29:TStringList;///存储排序后的红球5的分值
     iSDSortList30:TStringList;///存储排序后的红球6的分值
     iSDSortList31:TStringList;///存储排序后的红球1的分值
     iSDSortList32:TStringList;///存储排序后的红球2的分值
     iSDSortList33:TStringList;///存储排序后的红球2的分值
     iSDSortList7x:TStringList;
     //////记录AC值///////////////////////
     sAC:Array[1..10,1..10] of string;
     sACList:TStringList;
     sACList1:TStringList;
     sRow:integer;
     sMax:string;


begin
    ShowPloyForm(image1.Picture.Bitmap,handle);
      //////////
       bAddPoint:=false;
      CurrentPath:=ExtractFilePath(paramstr(0));
      /////////////////
      /////取得最大的期号/////////////////////////
     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);
     ////////
     combobox1.Items.clear;
     combobox1.Items.Add('除3走势');
     combobox1.Items.Add('除4走势');
     combobox1.Items.Add('除5走势');
     combobox1.Items.Add('除6走势');
     combobox1.Items.Add('除7走势');
     combobox1.Items.Add('除8走势');
     combobox1.Items.Add('除9走势');
     
     //////
     combobox7.Items.clear;
     combobox7.Items.Add('第一个红球');
     combobox7.Items.Add('第二个红球');
     combobox7.Items.Add('第三个红球');
     combobox7.Items.Add('第四个红球');