39 lines
875 B
ObjectPascal
39 lines
875 B
ObjectPascal
unit ProductInspect;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
wItem;
|
|
|
|
type
|
|
TProductInspect = class(TwItem)
|
|
private
|
|
{ Private declarations }
|
|
FInspPerson: string;
|
|
FInspDate: string;
|
|
FInspQty: string;
|
|
FGoodQty: string;
|
|
FDefQty: string;
|
|
FDescriptions: string;
|
|
protected
|
|
{ Protected declarations }
|
|
public
|
|
{ Public declarations }
|
|
published
|
|
{ Published declarations }
|
|
property InspPerson: string read FInspPerson write FInspPerson;
|
|
property InspDate: string read FInspDate write FInspDate;
|
|
property InspQty: string read FInspQty write FInspQty;
|
|
property GoodQty: string read FGoodQty write FGoodQty;
|
|
property DefQty: string read FDefQty write FDefQty;
|
|
property Descriptions: string read FDescriptions write FDescriptions;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
|
|
end.
|
|
|