重载业务功能的DoRun方法如下:
procedure TKHWLLQGN.DoRun;
var
BForm : TKHWLLQTJ;
begin
BForm := TKHWLLQTJ.Create(self.Context);
try
if BForm.ShowModal = business.Forms.Controls.mrOk then
begin
inherited
end
else
begin
MainForm := nil;
MainFormName := '';
self.Terminate;
end;
finally
BForm.Free;
end;
end;