procedure TBSCM.N17Click(Sender: TObject);
var iTemp:Integer;
bHasForm:Boolean;
begin
bHasForm:=False;
for iTemp:=0 to MDIChildCount-1 do
begin
if MDIChildren[iTemp].Name = 'MscDataForm' then //MscDataForm是查询的子窗口名称
begin
(MDIChildren[iTemp] as TForm).Show;
bHasForm:=True;
end;
end;
if bHasForm=False then with TMscDataForm.Create(Application) do Show;
end;
