开源的网站整站程序,功能强大带采集系统.

				unit Gld650_01;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
				  BAS100_01;
				
				type
				  TGld650_01Form = class(TBas100_01Form)
				    procedure FormCreate(Sender: TObject);
				    procedure FormClose(Sender: TObject; var Action: TCloseAction);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				var
				  Gld650_01Form: TGld650_01Form;
				
				implementation
				
				{$R *.DFM}
				
				procedure TGld650_01Form.FormCreate(Sender: TObject);
				begin
				  inherited;
				//
				end;
				
				procedure TGld650_01Form.FormClose(Sender: TObject;
				  var Action: TCloseAction);
				begin
				  inherited;
				//
				end;
				
				initialization
				  RegisterClass(TGld650_01Form);
				
				finalization
				  UnRegisterClass(TGld650_01Form);
				
				end.