delphi 怎样把增、删、改、查例子功能封装一个单元或模块里。

Question

delphi 怎样把增、删、改、查例子功能封装一个单元或模块里。

Answer 1

例如：实现客户的增删改；  TMesCustomer = class(TComponent);
  private
  public
    FConn: TADOConnection;
    constructor Create(AOwner: TComponent; AConn: TADOConnection); override;
    destructor Destroy; override;
  protected
    FSQLText: string;
    FDataSet: TADOQuery;
    function Get(out ResultData: TADOQuery): Integer;
    function Save(const DeltaData: TADOQuery): Integer;
    function Delete(const customerID: string): Integer;
  end;  //------------------------------------------
constructor TMesCustomer.Create(AOwner: TComponent; AConn: TADOConnection);
begin
  inherited Create(AOwner);
  if AConn <> nil then
    FConn.Assign(AConn);
  
  FDataSet.connection := FConn;
  FSQLText := '';
end;destructor TMesCustomer.Destroy;
begin
  inherited Destroy;
end;function TMesCustomer.Get(out ResultData: TADOQuery): Integer;
begin
  FDataSet.close;
  FDataSet.SQL.add('select * from t_customers ');
  FDataSet.Open
end;function TMesCustomer.Delete(const customerID: string): Integer;
begin
  FDataSet.close;
  FDataSet.SQL.add('select * from t_customers where customerid='+customerID+'');
  FDataSet.ExecSQL;
end;....其他类似了

Answer 2

自己写类；
  TMesCustomer = class(TComponent); 
  private 
  public 
    FConn: TADOConnection; 
    constructor Create(AOwner: TComponent; AConn: TADOConnection); override; 
    destructor Destroy; override; 
  protected 
    FSQLText: string; 
    FDataSet: TADOQuery; 
    function Get(out ResultData: TADOQuery): Integer; 
    function Save(const DeltaData: TADOQuery): Integer; 
    function Delete(const customerID: string): Integer; 
  end;