unit1.pas

广东幸运七星彩票分析系统 (ADO+SQL),Delphi写的

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    StatusBar1: TStatusBar;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    TabSheet6: TTabSheet;
    Panel1: TPanel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit22: TDBEdit;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    DateTimePicker1: TDateTimePicker;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    DBGrid3: TDBGrid;
    PageControl2: TPageControl;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    Label2: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    RadioButton1: TRadioButton;
    Label3: TLabel;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Edit1: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Button9: TButton;
    ADOQuery2: TADOQuery;
    Label6: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Button10: TButton;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    RichEdit1: TRichEdit;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    EditN1: TEdit;
    EditN2: TEdit;
    EditN3: TEdit;
    EditN4: TEdit;
    EditN5: TEdit;
    EditN6: TEdit;
    EditN7: TEdit;
    Label66: TLabel;
    Panel4: TPanel;
    CheckBox1: TCheckBox;
    Editn17: TEdit;
    Editn16: TEdit;
    Editn15: TEdit;
    Editn14: TEdit;
    Editn13: TEdit;
    Editn12: TEdit;
    Editn11: TEdit;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Panel6: TPanel;
    CheckBox8: TCheckBox;
    Edit2: TEdit;
    Label69: TLabel;
    Panel7: TPanel;
    Button11: TButton;
    Label71: TLabel;
    Label72: TLabel;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Label76: TLabel;
    Label77: TLabel;
    CheckBox4: TCheckBox;
    Label85: TLabel;
    ComboBox1: TComboBox;
    CheckBox7: TCheckBox;
    ComboBox2: TComboBox;
    Label78: TLabel;
    Label79: TLabel;
    Label80: TLabel;
    ComboBox3: TComboBox;
    CheckBox5: TCheckBox;
    ComboBox4: TComboBox;
    Label82: TLabel;
    CheckBox6: TCheckBox;
    Panel10: TPanel;
    ComboBoxsys1: TComboBox;
    Label83: TLabel;
    Panel11: TPanel;
    Label84: TLabel;
    Label86: TLabel;
    Label87: TLabel;
    Label88: TLabel;
    EditSYS1: TEdit;
    EditSYS2: TEdit;
    EditSYS3: TEdit;
    EditSYS4: TEdit;
    Button12: TButton;
    TabSheet10: TTabSheet;
    Label89: TLabel;
    Edit4: TEdit;
    Label81: TLabel;
    CheckBoxnu1: TCheckBox;
    CheckBox9: TCheckBox;
    Panel5: TPanel;
    RichEdit2: TRichEdit;
    ComboBox5: TComboBox;
    Button8: TButton;
    CheckBoxdrb1: TCheckBox;
    Timer1: TTimer;
    Button13: TButton;
    Chart1: TChart;
    Series1: TBarSeries;
    Chart3: TChart;
    Chart4: TChart;
    numSeries2: TPieSeries;
    Chart5: TChart;
    numSeries3: TPieSeries;
    Chart2: TChart;
    Chart6: TChart;
    numSeries4: TPieSeries;
    Chart7: TChart;
    numSeries5: TPieSeries;
    Chart8: TChart;
    numSeries6: TPieSeries;
    Chart9: TChart;
    numSeries7: TPieSeries;
    qoSeries1: THorizBarSeries;
    numSeries1: TPieSeries;
    Label15: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Panel8: TPanel;
    Label40: TLabel;
    Label41: TLabel;
    Label44: TLabel;
    EditUP2: TEdit;
    EditUP1: TEdit;
    SpeedButton1: TSpeedButton;
    ComboBoxUP1: TComboBox;
    Shape1: TShape;
    Label67: TLabel;
    EditUP3: TEdit;
    SpeedButton2: TSpeedButton;
    CheckBoxUP1: TCheckBox;
    CheckBoxUP2: TCheckBox;
    Button14: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label68: TLabel;
    RichEdit3: TRichEdit;
    procedure DateTimePicker1Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    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);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure TabSheet7Show(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure TabSheet6Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure TabSheet10Show(Sender: TObject);
    procedure TabSheet8Show(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);





  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  lastnum:array[1..7] of string;

Function drb(i:integer):string;

type
  recordresult=record
      max:string;
      min:string;
   end;
Function allnumchart(i:integer):string;
Function findmaxmin(i,j,k:integer):recordresult;
Function pscheck(i,j: Integer;sinput:string): string;
Function checknum(n1,n2,n3,n4,n5,n6,n7:string):string;

implementation

{$R *.dfm}




procedure TForm1.DateTimePicker1Click(Sender: TObject);
begin
  DBEdit2.Text :=dateToStr(DateTimePicker1.date);
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  DBEdit2.Text :=dateToStr(DateTimePicker1.date);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
 i,j:integer;
begin
  dbgrid2.Enabled :=false;
  Adotable1.Append ;
  dbmemo1.Enabled :=true;
  DateTimePicker1.Enabled :=true;
  button4.Enabled :=false;
  button5.Enabled :=true;
  button6.Enabled :=false;
  button7.Enabled :=false;
  button13.Visible :=true;
  for i:=1 to 22 do   //将dbedit(1-22) enabled :=true
    begin
      (self.findcomponent('dbedit'+inttostr(i)) as tdbedit).enabled :=true;
    end;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 if MessageBox(Form1.Handle, '真的要删除该纪录吗？' , '确认提示' ,MB_OKCANCEL)=1 then
  begin
    Adotable1.Delete;
    if CheckBoxdrb1.Checked=true then
    try
      drb(9999);
      drb(100);
      drb(50);
      drb(10);
    except
      showmessage('数据整理失败！');
    end;
    Adotable1.First;
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
 i:integer;
begin
  try
    Adotable1.Post;
      for i:=1 to 22 do   //将dbedit(1-22) enabled :=false
    begin
      (self.findcomponent('dbedit'+inttostr(i)) as tdbedit).enabled :=false;
    end;
    button4.Enabled :=true;
    button5.Enabled :=false;
    button6.Enabled :=true;
    button7.Enabled :=true;
    dbgrid2.Enabled :=true;
    button13.Visible :=false;
  except
    showmessage('保存失败，期数否重复或者其他数据有误');
    dbedit1.SetFocus;
  end;
  adotable1.Close;
  adotable1.Open;
  if CheckBoxdrb1.Checked=true then
    try
      drb(9999);
      drb(100);
      drb(50);
      drb(10);
    except
      showmessage('数据整理失败！');  
    end;
end;

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   begin
   key:=#0;
   dbedit2.SetFocus;
   end;
end;

procedure TForm1.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   begin