数据库表映射Delphi类的一个小程序

实现数据库自动映射Delphi类

生成添,删, 改,查,方法

支持数据库直接导入

例子:

{@Powered By:Table2Class @Author:xwk @Date:2006-12-18 11:47:26}
 
unit TBoard_eZ32;
 
interface
 
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    ADODB, DB, Contnrs;
 
type
 
  {TTBoard_eZ32}
 
    TTBoard_eZ32 = class(TObject)
    private
        FConnection: TADOConnection;
        FId: Integer;
        FBoardId: Integer;
        FSendInitDynamicMsg: string;
        FParamByDefault: string;
        FProtocoltypeforCLIP: string;
    public
        property Connection: TADOConnection read FConnection write FConnection;
        property Id: Integer read FId write FId;
        property BoardId: Integer read FBoardId write FBoardId;
        property SendInitDynamicMsg: string read FSendInitDynamicMsg write FSendInitDynamicMsg;
        property ParamByDefault: string read FParamByDefault write FParamByDefault;
        property ProtocoltypeforCLIP: string read FProtocoltypeforCLIP write FProtocoltypeforCLIP;
        function Get(Condition: string = ''): Boolean;
        procedure Add;
        procedure Update(Condition: string = '');
        procedure Delete(Condition: string = '');
        constructor Create;
        destructor Destroy; override;
        procedure Clone(Obj: TTBoard_eZ32; CreateIt: Boolean = False);
    end;
 
 ............
end.

生成的代码采用了网上一个类似的软件的风格,觉得他写的挺好所以我就不自己写了

下载