showform.h

本系统里面包含数据库（SQL SERVER2000）

bool OpenForm(TForm * WForm)
{
  int i;
  bool FormExist;
  if(WForm==NULL) return false;
  FormExist = false;
  for(i=0;i<Screen->FormCount;i++)
  if(Screen->Forms[i]->ClassType()==WForm->ClassType())
  {
    FormExist=true;
    break;
  }
  if(FormExist==false) return FormExist;
  if(WForm->WindowState==wsMinimized)
    ShowWindow(WForm->Handle,SW_SHOWNORMAL);
  else
    ShowWindow(WForm->Handle,SW_SHOW);
  if(!WForm->Visible) WForm->Visible=true;
  WForm->BringToFront();
  WForm->SetFocus();
  return true;
}