这是一个工资管理系统

				unit Unit7;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
				  Dialogs;
				
				type
				  TForm7 = class(TForm)
				    procedure FormClose(Sender: TObject; var Action: TCloseAction);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				var
				  Form7: TForm7;
				
				implementation
				  uses unit2;
				{$R *.dfm}
				
				procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
				begin
				  form2.Show;
				end;
				
				end.