procedure Tmain.CustomItem16Click(Sender: TObject);
begin
if findmdiwindow=true then begin
showmessage('请关闭当前窗口');exit;end;
flag:=1;
planmanage:=tplanmanage.create(self);
factoryname:='一分厂';
planmanage.Caption:=planmanage.Caption+'-['+factoryname+']';