楼上的,可否说的详细一点
我只是用分离的方法,让程序更容易维护。
举个例子:
1、逻辑单元中定义这个类
type
TStock = class
private
FStockCode: string;
FStockPrice: Real;
public
procedure SetStockCode(const AStockCode: string);
function GetStockCode: string;
procedure SetStockPrice(const AStockPrice: real);
function GetStockPrice: real;
property StockCode read GetStockCode write SetStockCode;
property StockPrice read GetStockPrice write SetStockPrice;
end;
2、数据存取单元
type
TDMStockForm = class(TDataModule)
ADOConn: TADOConnection;
ADOQuery: TADOQuery;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
function ReadStockInfo: TStock;
procedure WriteStockInfo(AStock: TStock);
{ Public declarations }
end;
3、显示单元
通过对AStock对象的读取和写入来完成数据的增加、删除。
我现在遇到的问题是怎么对表中多条记录通过这个业务单元返回到显示单元,因为我这些中定义的是单个对象的操作,怎么存储多条记录呢?
public
SetID
把这些都定义在逻辑层