ER/Studio - Embarcadero Technologies Product Documentation

USING ER/STUDIO > WORKING WITH THE DATA DICTIONARY
Create and Edit Libraries
1 In the Data Dictionary, right-click the Libraries folder and then click New Library.
2 Define the library as required and then click OK to complete the editor.
BASIC tab
The following describe options that require additional explanation:
Includes a text editor as well as all the editing and formatting tools that are available on the ER/Studio Macro
Editor. You can enter library code or you can use the Import button to import it. You can use Visual BASIC and/or
AI to create the code for the library.
Library Example
'This function generates the header for a templated insert
'procedure. Input is entity name that is used to generate
'procedure name. Platform is Oracle.
Function insertprocheader (ent As Entity) As String
Dim result As String
Dim attr As AttributeObj
'add create statement for the procedure with naming convention
result = "CREATE OR REPLACE PROCEDURE P" & ent.TableName & "INSERT" & vbCrLf
result = result & "(" & vbCrLf
'add parameter list for insert statement
'loop in actual sequence order
For i = 1 To ent.Attributes.Count
For Each attr In ent.Attributes
If attr.SequenceNumber = i Then
'make parameter line for column
result = result & "V" & attr.ColumnName & vbTab & vbTab & vbTab
result = result & "IN "
result = result & attr.Datatype & "," & vbCrLf
End If
Next attr
Next i
‘trim last comma of the parameter list
result = Left(result, Len(result) - 3)
'add last closed parantheses
result = result & ")" & vbCrLf
result = result & "AS" & vbCrLf & "BEGIN" & vbCrLf
'return header
insertprocheader = result
End Function
Call to Library Example
This sub main routine demonstrates how to call a library function.
NOTE: The library needs to be added to the reusable trigger or stored procedure.
Sub Main
Dim procstring As String
procstring = insertprocheader(CurrEntity)
'call other library functions for body of procedure
'call other library functions for end of procedure
'check procedure text with a message box
'disable when generating DDL
MsgBox(procstring)
'output procedure string variable to DDL wizard
resultstring = procstring
End Sub
EMBARCADERO TECHNOLOGIES > ER/STUDIO® 8.0.3 USER GUIDE 238