Delphi-双色球分析软件(1)

有一段时间没正经的用delphi了，前两天下载了Delphi2010，用它来找找Delphi的感觉，把写的一些东西共享出来，大家共同学习一下，呵呵。

我想做一个双色球的分析软件，以下是其中实现的部分类的单元文件，其他文件后续一点一点的补齐，有不妥的地方，希望大家指正，谢谢啦！

 

在使用Delphi2010是，发现个问题，在用show函数调用窗体时，主窗口总是在子窗口的下面。

 

{工具类单元，包括一些用到的辅助类定义}

unit uCustomUtils;

interface

uses
  Classes;

type
  TLottery = packed record
   {红球集合}
    RedBalls: TStringList;
    {篮球}
    BlueBall: string;
    {开奖期号}
    Period: string;
    {开奖时间}
    Time: string;
    {奇偶数比}
    OddEvenCompare: string;
    {大小比}
    BigSmallCompare: string;
    {和值}
    Sum: string;
  end;
  pLottery = ^TLottery;

implementation

end.

 

 

{数据库辅助单元，通过这个类去与数据库打交道,因为当前用到的是Access数据库，}

{所以继承了一个Access的类，其他数据库，可以再另行实现}

unit uDBHelper;

interface

uses
  Classes, ADODB, SysUtils, Windows,

  uCustomUtils;

const
  CONNECTION_STRING_ACCESS = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';

type
  TDBHelper = class
  private
    FDBFilePath: string;
    FCommandText: string;
    FConnection: TADOConnection;
  public
    {执行Insert,Delete,Update操作}
    procedure Execute; virtual; abstract;
    {执行select操作}
    procedure SelectExecute; virtual; abstract;
    {打开数据库连接}
    procedure Open; virtual; abstract;
    {关闭数据库连接}
    procedu