牧羊人服饰系统 (ADO+SQL) 第三方控件：advstringgrid

				unit hycxunt;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
				  Dialogs;
				
				type
				  Thycxfrm = class(TForm)
				    procedure FormClose(Sender: TObject; var Action: TCloseAction);
				    procedure FormKeyPress(Sender: TObject; var Key: Char);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				var
				  hycxfrm: Thycxfrm;
				
				implementation
				
				uses thmainunt;
				
				{$R *.dfm}
				
				procedure Thycxfrm.FormClose(Sender: TObject; var Action: TCloseAction);
				begin
				inherited;
				thmainfrm:=nil;
				thmainfrm.Free;
				end;
				
				procedure Thycxfrm.FormKeyPress(Sender: TObject; var Key: Char);
				begin
				    if key=#13 then
				    begin
				      Perform(CM_DialogKey,Vk_TAB,0);
				      key:=#0;
				    end;
				end;
				
				end.