unit_jz.pas

来自「一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. 」· PAS 代码 · 共 40 行

unit Unit_Jz;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, ExtCtrls,DB, DBClient,Data_DL,Grids;

type
 Tjz=class(TObject)

 private
  Mydata:TDL_Data;
  SCds,MCds:TclientDataSet;
  Str:string;
 public
  constructor create;
  destructor destroy;override;
 end;

implementation

{ Tjz }

constructor Tjz.create;
begin
 Mydata:=TDL_Data.Create(nil);
 SCds:=TClientDataSet.Create(nil);
 Mcds:=TClientDataSet.Create(nil);
end;

destructor Tjz.destroy;
begin
  FreeAndNil(MYdata);
  FreeAndNil(SCds);
  FreeAndNil(Mcds);
  inherited;
end;

end.