udataaccesscommon.pas

抽象三层访问数据库示例

unit uDataAccessCommon;

interface

uses Windows, Classes, SysUtils;

type
  TDataArray = array of OleVariant;

  TBatchDataSet = class
  private
    FTableName: string;
    FKeyFields: string;
    FData: OleVariant;
  public
    property TableName: string read FTableName write FTableName;
    property KeyFields: string read FKeyFields write FKeyFields;
    property Data: OleVariant read FData write FData;
  end;

implementation

end.