unit PruchaseMst; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wItem; type TPruchaseMst = class(TwItem) private { Private declarations } FOrdNum: string; FOrdCode: string; FCustName: string; FOrdDate: string; FDeliveryDate: string; FWaerhouse: string; FConnPerson: string; FQty: string; FUnitt: string; FUnitPrice: string; FAmount: string; FDescriptions: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property OrdNum: string read FOrdNum write FOrdNum; property OrdCode: string read FOrdCode write FOrdCode; property CustName: string read FCustName write FCustName; property OrdDate: string read FOrdDate write FOrdDate; property DeliveryDate: string read FDeliveryDate write FDeliveryDate; property Waerhouse: string read FWaerhouse write FWaerhouse; property ConnPerson: string read FConnPerson write FConnPerson; property Qty: string read FQty write FQty; property Unitt: string read FUnitt write FUnitt; property UnitPrice: string read FUnitPrice write FUnitPrice; property Amount: string read FAmount write FAmount; property Descriptions: string read FDescriptions write FDescriptions; end; implementation end.