FlexPro guarda todos los objetos que usted crea o importa en una base de datos del proyecto. Puede organizar esta base de datos del proyecto jerárquicamente creando carpetas. Puede pensar en una base de datos del proyecto de FlexPro como un disco duro en su ordenador. Los conjuntos de datos, fórmulas, objetos de presentación, planillas y documentos que necesita para su análisis ocupan el lugar de los archivos de su disco duro en una base de datos del proyecto de FlexPro. De forma similar a un disco duro, puede crear una jerarquía de carpetas en una base de datos del proyecto FlexPro para organizar sus objetos FlexPro.
Crear una base de datos del proyecto
FlexPro puede abrir varias bases de datos al mismo tiempo, que se mantienen en la lista Databases. Para crear una nueva base de datos vacía, utilice el método Add de la lista Databases. El método Add transfiere la base de datos recién creada para que pueda asignarla inmediatamente a una variable para acceder a ella más tarde:
Dim Doc As Database
Set Doc = Databases.Add
Abrir una base de datos
Utilice el método Open de la lista Databases para abrir una base de datos guardada en un archivo.
Dim Doc As Database
Set Doc = Databases.Open("C:\Databases\MyDatabase.fpd", fpOpenModeBackup)
Guardar una base de datos
Si la base de datos se ha creado recientemente y aún no se ha guardado, utilice el método SaveAs. El segundo argumento determina cómo debe guardarse la base de datos.
Doc.SaveAs "C:\Databases\MyDatabase.fpd", fpSaveModeOneFile
Utilice el método Save para guardar una base de datos que ya se haya abierto como archivo o que se haya guardado previamente.
Doc.Save
Puede utilizar el método Save de la lista Databases para guardar todas las bases de datos que estén abiertas en ese momento. Para los que aún no tienen nombre de archivo, aparece un cuadro de diálogo para especificar el nombre.
Databases.Save
Cerrar una base de datos
Puede cerrar una única base de datos utilizando su método Close.
Doc.Close fpSaveChanges
También puede cerrar todas las bases de datos que estén abiertas en ese momento.
Databases.Close fpPromptToSaveChanges
Acceso a las bases de datos
Para acceder a una base de datos de la lista Databases, utilice el nombre de la ruta o el nombre que aparece en la ventana principal de FlexPro.
Set Doc = Databases("C:\Databases\MyDatabase.fpd")
Puede utilizar el método ActiveDatabase del objeto Application para acceder a la base de datos activa en ese momento.
ActiveDatabase.Close
Creación de objetos y carpetas
Puede utilizar el método Add del objeto Folder para crear objetos y carpetas en la base de datos. Utilice la propiedad RootFolder del objeto Database para acceder a la carpeta raíz.
Dim Fld As Folder
Set Fld = ActiveDatabase.RootFolder.Add("Folder", fpObjectTypeFolder)
El método Add también puede añadir otros objetos y pasa el nuevo objeto como resultado.
With Fld.Add("Series", fpObjectTypeFormula)
.Formula = "(100, 0.0, 0.1)"
End With
Acceso a los objetos
Para acceder a un objeto de una carpeta, utilice el método Object de la carpeta. Puede especificar el nombre del objeto y el tipo de objeto o solo el nombre con la extensión correspondiente al tipo.
ActiveDatabase.RootFolder.Object("Diagram", fpObjectTypeDiagram2D) _
.Comments = "Measurement 1"
o
ActiveDatabase.RootFolder.Object("Diagram.2D").Comments = "Measurement 1"
Puede utilizar la propiedad Parent, que tiene todo objeto FlexPro, para acceder al objeto en el que se encuentra el objeto, que generalmente es una carpeta. El siguiente ejemplo accede al comentario de una carpeta en la que se almacena el conjunto de datos asignado a la variable de objeto "Dataset".
Dataset.Parent.Comments = "Measurement 1"
Búsqueda de objetos en la base de datos
Puede utilizar el método Objects del objeto Folder para buscar objetos. Hay varias opciones entre las que elegir.
El siguiente ejemplo busca todos los objetos del conjunto de datos cuyo nombre empiece por "sig".
Dim Objects
Set Objects = ActiveDatabase.RootFolder.Objects("^sig*\.dat$")
La expresión regular se estructura de la siguiente manera:
Secuencia |
Significado |
|---|---|
"^sig" |
especifica que el nombre del objeto debe empezar por "sig". |
".*" |
representa una secuencia de caracteres de cualquier longitud |
"\.dat$" |
especifica que el nombre del objeto debe terminar con ".dat", es decir, el objeto debe ser un conjunto de datos. |
El siguiente ejemplo encuentra un objeto de conjunto de datos "eeñal" y un "plot" de diagrama 2D.
Dim Objects
Set Objects = ActiveDatabase.RootFolder.Objects("Signal", "Plot.2d")
El siguiente ejemplo encuentra todos los objetos cuya propiedad Origin tiene el valor "Measurement 1".
Dim Constraints As New SearchConstraints
With Constraints.Add
.SearchItem = fpSearchItemOrigin
.CompareOperation = fpSearchCompareOpTextIs
.SearchValue = "Measurement 1"
End With
Dim Objects
Set Objects = ActiveDatabase.RootFolder.Objects(Constraints)
Puede utilizar el método Objects del objeto Database para acceder a objetos de diferentes carpetas al mismo tiempo. El siguiente ejemplo elimina dos objetos.
ActiveDatabase.Objects(Array("\Diagram.2d", _
"\Measurement1\Signal")).Delete
Puede utilizar el método Search del objeto Folder para buscar objetos en toda la base de datos o en partes de ella. El siguiente ejemplo busca todos los conjuntos de datos cuyo valor máximo sea superior a 10 y mueve estos conjuntos de datos a la carpeta "Data Folder".
Dim Constraints As New SearchConstraints
With Constraints.Add
.SearchItem = fpSearchItemObjectType
.CompareOperation = fpSearchCompareOpObjectTypeIsKindOf
.SearchValue = fpObjectTypeDataSet
End With
With Constraints.Add
.SearchItem = fpSearchItemMaximum
.CompareOperation = fpSearchCompareOpValueGreater
.SearchValue = 10#
End With
ActiveDatabase.RootFolder.Search(True, Constraints). _
MoveTo ActiveDatabase.Object("\Data Folder.FLD")