数据库表映射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.
    
    

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

下载