一个餐饮行业的销售管理类的源码

				unit CHILDWIN;
				
				interface
				
				uses Windows, Classes, Graphics, Forms, Controls, StdCtrls;
				
				type
				  TMDIChild = class(TForm)
				    Memo1: TMemo;
				    procedure FormClose(Sender: TObject; var Action: TCloseAction);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				implementation
				
				{$R *.dfm}
				
				procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
				begin
				  Action := caFree;
				end;
				
				end.