有一段时间没正经的用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