udataaccesscommon.pas

来自「抽象三层访问数据库示例」· PAS 代码 · 共 24 行

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.