home *** CD-ROM | disk | FTP | other *** search
VERSION 5.00 Begin VB.Form omsForm Caption = "OMS" ClientHeight = 7290 ClientLeft = 60 ClientTop = 345 ClientWidth = 9375 LinkTopic = "Form1" ScaleHeight = 7290 ScaleWidth = 9375 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command34 Caption = "RoleStanding" Height = 372 Left = 5400 TabIndex = 51 Top = 6720 Width = 1935 End Begin VB.CommandButton Command33 Caption = "FactorStanding" Height = 372 Left = 5400 TabIndex = 50 Top = 6360 Width = 1935 End Begin VB.CommandButton Command32 Caption = "RoleStandingLink" Height = 372 Left = 7560 TabIndex = 49 Top = 6720 Width = 1695 End Begin VB.CommandButton Command31 Caption = "FactorStandingLink" Height = 372 Left = 7560 TabIndex = 48 Top = 6360 Width = 1695 End Begin VB.CommandButton Command30 Caption = "StepActivityLink" Height = 372 Left = 7560 TabIndex = 47 Top = 6000 Width = 1695 End Begin VB.CommandButton Command28 Caption = "StrategyStepLink" Height = 372 Left = 7560 TabIndex = 46 Top = 5280 Width = 1695 End Begin VB.CommandButton Command27 Caption = "StrategyFactorLink" Height = 372 Left = 7560 TabIndex = 45 Top = 4920 Width = 1695 End Begin VB.CommandButton Command26 Caption = "StrategyRoleLink" Height = 372 Left = 7560 TabIndex = 44 Top = 4560 Width = 1695 End Begin VB.CommandButton Command25 Caption = "Activity" Height = 372 Left = 5400 TabIndex = 43 Top = 6000 Width = 1935 End Begin VB.CommandButton Command24 Caption = "Step" Height = 372 Left = 5400 TabIndex = 42 Top = 5640 Width = 1935 End Begin VB.CommandButton Command23 Caption = "Factor" Height = 372 Left = 5400 TabIndex = 41 Top = 5280 Width = 1935 End Begin VB.CommandButton Command22 Caption = "Role" Height = 372 Left = 5400 TabIndex = 40 Top = 4920 Width = 1935 End Begin VB.CommandButton Command21 Caption = "FactorStanding" Height = 372 Left = 7560 TabIndex = 37 Top = 2280 Width = 1692 End Begin VB.CommandButton Command20 Caption = "NextFactor" Height = 372 Left = 5400 TabIndex = 32 Top = 3360 Width = 1935 End Begin VB.CommandButton Command19 Caption = "NextFactorStandingLink" Height = 375 Left = 5400 TabIndex = 31 Top = 3000 Width = 1935 End Begin VB.CommandButton Command18 Caption = "FactorStanding" Height = 372 Left = 5400 TabIndex = 30 Top = 2640 Width = 1935 End Begin VB.CommandButton Command17 Caption = "FirstFactorStandingLink" Height = 372 Left = 5400 TabIndex = 29 Top = 2280 Width = 1935 End Begin VB.CommandButton Command16 Caption = "Last thing to do before Exit" Height = 492 Left = 5520 TabIndex = 28 Top = 120 Width = 2532 End Begin VB.CommandButton Command15 Caption = "First thing to do before OMS" Height = 492 Left = 1200 TabIndex = 27 Top = 120 Width = 2532 End Begin VB.CommandButton Command14 Caption = "Strategy" Height = 375 Left = 5400 TabIndex = 26 Top = 4560 Width = 1935 End Begin VB.CommandButton Command13 Caption = "FactorStanding" Height = 375 Left = 7560 TabIndex = 25 Top = 3360 Width = 1692 End Begin VB.CommandButton Command12 Caption = "Factor" Height = 375 Left = 7560 TabIndex = 24 Top = 1920 Width = 1692 End Begin VB.CommandButton Command11 Caption = "FirstFactor" Height = 375 Left = 5400 TabIndex = 23 Top = 1920 Width = 1935 End Begin VB.TextBox Text13 Height = 285 Left = 3120 TabIndex = 22 Text = "Text13" Top = 4560 Width = 2055 End Begin VB.TextBox Text12 Height = 285 Left = 3120 TabIndex = 21 Text = "Text12" Top = 4320 Width = 2055 End Begin VB.TextBox Text11 Height = 285 Left = 3120 TabIndex = 20 Text = "Text11" Top = 4080 Width = 2055 End Begin VB.TextBox Text10 Height = 285 Left = 3120 TabIndex = 19 Text = "Text10" Top = 3840 Width = 2055 End Begin VB.TextBox Text9 Height = 285 Left = 3120 TabIndex = 18 Text = "Text9" Top = 3600 Width = 2055 End Begin VB.TextBox Text8 Height = 285 Left = 3120 TabIndex = 17 Text = "Text8" Top = 3360 Width = 2055 End Begin VB.TextBox Text7 Height = 285 Left = 3120 TabIndex = 16 Text = "Text7" Top = 3120 Width = 2055 End Begin VB.TextBox Text6 Height = 285 Left = 3120 TabIndex = 15 Text = "Text6" Top = 2880 Width = 2055 End Begin VB.TextBox Text5 Height = 285 Left = 3120 TabIndex = 14 Text = "Text5" Top = 2640 Width = 2055 End Begin VB.TextBox Text4 Height = 285 Left = 3120 TabIndex = 13 Text = "Text4" Top = 2400 Width = 2055 End Begin VB.TextBox Text3 Height = 285 Left = 3120 TabIndex = 12 Text = "Text3" Top = 2160 Width = 2055 End Begin VB.TextBox Text2 Height = 285 Left = 3120 TabIndex = 11 Text = "Text2" Top = 1920 Width = 2055 End Begin VB.CommandButton Command10 Caption = "IsFactorStandingNameNotUnique" Height = 375 Left = 240 TabIndex = 10 Top = 4320 Width = 2535 End Begin VB.CommandButton Command9 Caption = "IsRoleStandingNameNotUnique" Height = 375 Left = 240 TabIndex = 9 Top = 3960 Width = 2535 End Begin VB.CommandButton Command8 Caption = "IsFactorNameNotUnique" Height = 375 Left = 240 TabIndex = 8 Top = 3600 Width = 2535 End Begin VB.CommandButton Command7 Caption = "IsRoleNameNotUnique" Height = 375 Left = 240 TabIndex = 7 Top = 3240 Width = 2535 End Begin VB.CommandButton Command6 Caption = "IsActivityNameNotUnique" Height = 375 Left = 240 TabIndex = 6 Top = 2880 Width = 2535 End Begin VB.CommandButton Command5 Caption = "IsStepNameNotUnique" Height = 375 Left = 240 TabIndex = 5 Top = 2520 Width = 2535 End Begin VB.CommandButton Command4 Caption = "Exit OLE Automation" Height = 495 Left = 3720 TabIndex = 4 Top = 360 Width = 1812 End Begin VB.TextBox Text1 Height = 285 Left = 240 TabIndex = 3 Text = "Text1" Top = 1920 Width = 2535 End Begin VB.CommandButton Command3 Caption = "IsStrategyNameNotUnique" Height = 375 Left = 240 TabIndex = 2 Top = 2160 Width = 2535 End Begin VB.CommandButton Command2 Caption = "Close OMS Object" Height = 495 Left = 5520 TabIndex = 1 Top = 600 Width = 2535 End Begin VB.CommandButton Command1 Caption = "Create OMS Object" Height = 495 Left = 1200 TabIndex = 0 Top = 600 Width = 2535 End Begin VB.Label Label24 Caption = "13." Height = 255 Left = 2880 TabIndex = 69 Top = 4560 Width = 255 End Begin VB.Label Label23 Caption = "12." Height = 255 Left = 2880 TabIndex = 68 Top = 4320 Width = 255 End Begin VB.Label Label22 Caption = "11." Height = 255 Left = 2880 TabIndex = 67 Top = 4080 Width = 255 End Begin VB.Label Label21 Caption = "10." Height = 255 Left = 2880 TabIndex = 66 Top = 3840 Width = 255 End Begin VB.Label Label20 Caption = "9." Height = 255 Left = 2880 TabIndex = 65 Top = 3600 Width = 255 End Begin VB.Label Label19 Caption = "8." Height = 255 Left = 2880 TabIndex = 64 Top = 3360 Width = 255 End Begin VB.Label Label18 Caption = "7." Height = 255 Left = 2880 TabIndex = 63 Top = 3120 Width = 255 End Begin VB.Label Label17 Caption = "6." Height = 255 Left = 2880 TabIndex = 62 Top = 2880 Width = 255 End Begin VB.Label Label16 Caption = "5." Height = 255 Left = 2880 TabIndex = 61 Top = 2640 Width = 255 End Begin VB.Label Label15 Caption = "4." Height = 255 Left = 2880 TabIndex = 60 Top = 2400 Width = 255 End Begin VB.Label Label14 Caption = "3." Height = 255 Left = 2880 TabIndex = 59 Top = 2160 Width = 255 End Begin VB.Label Label13 Caption = "2." Height = 255 Left = 2880 TabIndex = 58 Top = 1920 Width = 255 End Begin VB.Label Label12 Caption = "1." Height = 255 Left = 0 TabIndex = 57 Top = 1920 Width = 255 End Begin VB.Line Line5 X1 = 120 X2 = 120 Y1 = 4920 Y2 = 7200 End Begin VB.Line Line4 X1 = 120 X2 = 5160 Y1 = 7200 Y2 = 7200 End Begin VB.Line Line3 X1 = 5160 X2 = 5160 Y1 = 7200 Y2 = 4920 End Begin VB.Line Line2 X1 = 120 X2 = 5160 Y1 = 4920 Y2 = 4920 End Begin VB.Label Label11 Caption = "4. Press the ""Close...Object"" button, then ""Last...Exit"" button before press the ""Exit OLE..."" button." BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 372 Left = 240 TabIndex = 56 Top = 6720 Width = 4692 End Begin VB.Label Label10 Caption = "3. Look carefully on the inputs. (please check the source code comments or related references." BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 372 Left = 240 TabIndex = 55 Top = 6240 Width = 4692 End Begin VB.Label Label9 Caption = "2. Press the ""Create...Object"" button" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 54 Top = 5880 Width = 4692 End Begin VB.Label Label8 Caption = "1. Press the ""First thing...OMS"" button" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 53 Top = 5520 Width = 4692 End Begin VB.Label Label7 Caption = "Steps for using this application properly:" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 52 Top = 5040 Width = 3852 End Begin VB.Label Label6 Alignment = 2 'Center Caption = "Add" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 7080 TabIndex = 39 Top = 4200 Width = 735 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "Delete" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 7920 TabIndex = 38 Top = 3000 Width = 975 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Modify" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 7920 TabIndex = 36 Top = 1560 Width = 975 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Is...NameNotUnique" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 35 Top = 1560 Width = 2532 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Inputs and Outputs" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 3120 TabIndex = 34 Top = 1560 Width = 2052 End Begin VB.Line Line1 X1 = 120 X2 = 9240 Y1 = 1320 Y2 = 1320 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Read" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 5760 TabIndex = 33 Top = 1560 Width = 1092 End Attribute VB_Name = "omsForm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False '==========================================================================; ' This code and information is provided "as is" without warranty of any ' kind, either expressed or implied, including but not limited to the ' implied warranties of merchantability and/or fitness for a particular ' purpose.. ' Copyright (c) 1998 Multiactive Software Inc. All Rights Reserved. '==========================================================================; Dim OMS As Object 'Object for OMS Dim App As Object 'Object for Enterprise 97 Dim id As Long 'ID for strategy, step, activity, role, role standing, success factor, and success factor standing (depends on the circumstance) Dim lck As Long 'Lock for write (0 for read-only, 1 for read-write) Dim names As String 'Name, like strategy name, step name... Dim description As String 'Description, like strategy description... Dim subtype As Integer 'SubType Dim score As Integer 'Score for standings (0..100) Dim weight As Integer 'Weight (0..100) Dim factorid As Long 'Factor Id Dim factorstandingid As Long 'Factor Standing Id Dim strategyid As Long 'Strategy Id Dim stepid As Long 'Step Id Dim order As Integer 'Chronological order for steps and activities Dim roleid As Long 'Role Id Dim rolestandingid As Long 'Role Standing Id Dim stepcount As Integer 'Step count Dim activitycount As Integer 'Activity count Dim duration As Integer 'Effort time Dim interval As Integer 'Duration time Dim cost As Integer 'Cost Dim priority As String 'Priorty (Maximium 3 characters) Dim hotlisttype As Integer 'Hotlist Type (Icon number in the activity 0..9) Dim withrole As Long 'With Role (by role id) Dim alarm As Integer 'Alarm (0 for disable; 1 for able) Dim alarmminute As Long 'Alarm Lead Minutes (leave it blank if 0 for alarm) ' This function is called when the user clicks the "Create OMS Object" button Private Sub Command1_Click() If Not OMS Is Nothing Then 'Check is OMS already created Exit Sub End If Set OMS = Nothing Set OMS = CreateObject("Maximizer.OMS") 'Create object Call OMS.OpenStratLibFiles 'First thing to do before using any OMS function End Sub ' This function is called when the user clicks the IsFactorStandingNameNotUnique button Private Sub Command10_Click() If OMS Is Nothing Then Exit Sub End If 'IsFactorStandingNameNotUnique("Factor Standing Name") Text1.Text = OMS.IsFactorStandingNameNotUnique("Factor Standing Test 1") End Sub ' This function is called when the user clicks the ReadFirstFactor button Private Sub Command11_Click() If OMS Is Nothing Then Exit Sub End If 'ReadFirstFactor("Lock for write", "ID", "Name", "Description", "SubType") Call OMS.ReadFirstFactor(lck, id, names, description, subtype) 'Display the data in the text boxes Text2.Text = lck Text3.Text = id factorid = id Text4.Text = names Text5.Text = description Text6.Text = subtype factorstandingid = 0 End Sub ' This function is called when the user clicks the ModifyFactor button Private Sub Command12_Click() If OMS Is Nothing Then Exit Sub End If 'ModifyFactor("ID which is generated by Maximizer", "Name", "Description", "SubType") Call OMS.ModifyFactor(Text3.Text, Text4.Text, Text5.Text, Text6.Text) End Sub ' This function is called when the user clicks the DeleteFactorStanding button Private Sub Command13_Click() If OMS Is Nothing Then Exit Sub End If 'DeleteFactorStanding("the standing ID") Call OMS.DeleteFactorStanding(Text3.Text) End Sub ' This function is called when the user clicks the AddStrategy button Private Sub Command14_Click() 'AddStrategy If OMS Is Nothing Then Exit Sub End If 'AddStrategy("ID which is generated by Maximizer--leave it blank", "Name", "Description", "Step Count", "Activity Count", "Duration", "Interval", "Cost") Call OMS.AddStrategy(id, Text4.Text, Text5.Text, Text6.Text, Text7.Text, Text8.Text, Text9.Text, Text10.Text) Text3.Text = id End Sub ' This function is called when the user clicks the "First thing to do before OMS" button Private Sub Command15_Click() If Not App Is Nothing Then Exit Sub End If Set App = Nothing 'To open the application Set App = CreateObject("Maximizer.Application") 'To be visible App.SetVisibilityState ("Restore") 'To open a database Call App.OpenDatabase("Open", "Enterprise Test 1", , "MASTER", "CONTROL") 'OK End Sub ' This function is called when the user clicks the "Last thing to do before exit" button Private Sub Command16_Click() If App Is Nothing Then Exit Sub End If 'To close the current database App.CloseDatabase 'To close the Enterprise application Set App = Nothing End Sub ' This function is called when the user clicks the "ReadFirstFactorStandingLink" button Private Sub Command17_Click() If OMS Is Nothing Then Exit Sub End If lck = Text2.Text 'take the text2 box's text 'ReadFirstFactorStandingLink("Lock", "Factor Id", "Factor Standing Id") 'Provide either factorid or factorstandingid, then the function will search for the other id Call OMS.ReadFirstFactorStandingLink(lck, factorid, factorstandingid) 'Display the data in the text boxes Text2.Text = lck Text5.Text = factorid Text6.Text = factorstandingid End Sub ' This function is called when the user clicks the "ReadFactorStanding" button Private Sub Command18_Click() If OMS Is Nothing Then Exit Sub End If id = 0 'Assign a specific(EXISTING ID!!!) id before running this function! id = Text3.Text 'ReadFactorStanding("id", "Name", "Score", "SubType") Call OMS.ReadFactorStanding(id, names, score, subtype) 'Display the data in the text boxes Text2.Text = lck Text3.Text = id factorstandingid = id 'For some "Read..Link" functions Text4.Text = names Text5.Text = score Text6.Text = subtype factorid = 0 'For some "Read..Link" functions End Sub ' This function is called when the user clicks the "ReadNextFactorStandingLink" button Private Sub Command19_Click() If OMS Is Nothing Then Exit Sub End If lck = Text2.Text factorstandingid = 0 'ReadNextFactorStandingLink("Lock", "Factor Id", "Factor Standing Id") 'Because it is a link function, that means it needs either factorid or factorstandingid for searching each other 'Therefore, user needs to run either readfirstfactor, readnextfactor or readfactorstanding before running this function Call OMS.ReadNextFactorStandingLink(lck, factorid, factorstandingid) Text2.Text = lck Text5.Text = factorid Text6.Text = factorstandingid End Sub ' This function is called when the user clicks the Close OMS Object button Private Sub Command2_Click() If OMS Is Nothing Then Exit Sub End If 'Last thing needs to do before close the object Call OMS.CloseStratLibFiles Set OMS = Nothing End Sub ' This function is called when the user clicks the "ReadNextFactor" button Private Sub Command20_Click() If OMS Is Nothing Then Exit Sub End If 'ReadNextFactor("Lock", "Id", "Name", "Description", "SubType") Call OMS.ReadNextFactor(lck, id, names, description, subtype) 'Display the data to the text boxes Text2.Text = lck Text3.Text = id factorid = id 'will use in some "Read..Link" functions Text4.Text = names Text5.Text = description Text6.Text = subtype factorstandingid = 0 End Sub ' This function is called when the user clicks the "ModifyFactorStanding" button Private Sub Command21_Click() If OMS Is Nothing Then Exit Sub End If 'ModifyFactorStanding("ID", "Name", "Score", "SubType") Call OMS.ModifyFactorStanding(Text3.Text, Text4.Text, Text5.Text, Text6.Text) End Sub ' This function is called when the user clicks the "AddRole" button Private Sub Command22_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! names = Text4.Text description = Text5.Text 'AddRole("Id", "Name", "Description") 'the id will be generated by Enterprise, so leave it in blank! Call OMS.AddRole(id, names, description) Text3.Text = id End Sub ' This function is called when the user clicks the "AddFactor" button Private Sub Command23_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! names = Text4.Text description = Text5.Text subtype = Text6.Text 'AddFactor("Id", "Name", "Description", "SubType") Call OMS.AddFactor(id, names, description, subtype) Text3.Text = id End Sub ' This function is called when the user clicks the "AddStep" button Private Sub Command24_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! names = Text4.Text description = Text5.Text activitycount = Text6.Text duration = Text7.Text interval = Text8.Text cost = Text9.Text 'AddStep("Id", "Name", "Description", "Activity Included", "Effort Time", "Duration", "Cost") 'Usually activitycount, duration, interval, and cost are all equal to 0 when you first create a step Call OMS.AddStep(id, names, description, activitycount, duration, interval, cost) Text3.Text = id End Sub ' This function is called when the user clicks the "AddActivity" button Private Sub Command25_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! names = Text4.Text description = Text5.Text priority = Text6.Text hotlisttype = Text7.Text withrole = Text8.Text duration = Text9.Text cost = Text10.Text alarm = Text11.Text alarmminute = Text12.Text 'AddActivity("Id", "Name", "Description", "Priority", "Hotlist Type", "With Role", "Effort Time", "Cost", "Alarm", "Alarm Lead Minutes") Call OMS.AddActivity(id, names, description, priority, hotlisttype, withrole, duration, cost, alarm, alarmminute) Text3.Text = id End Sub ' This function is called when the user clicks the "AddStrategyRoleLink" button Private Sub Command26_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! strategyid = Text3.Text roleid = Text4.Text weight = Text5.Text 'AddStrategyRoleLink("Strategy Id", "Role Id", "Weight") Call OMS.AddStrategyRoleLink(strategyid, roleid, weight) End Sub ' This function is called when the user clicks the "AddStrategyFactorLink" button Private Sub Command27_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! strategyid = Text3.Text factorid = Text4.Text weight = Text5.Text 'AddStrategyFactorLink("Strategy Id", "Factor Id", "Weight") Call OMS.AddStrategyFactorLink(strategyid, factorid, weight) End Sub ' This function is called when the user clicks the "AddStrategyStepLink" button Private Sub Command28_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! strategyid = Text3.Text stepid = Text4.Text order = Text5.Text 'AddStrategyStepLink("Strategy Id", "Step Id", "Chronlogical Order") Call OMS.AddStrategyStepLink(strategyid, stepid, order) End Sub ' This function is called when the user clicks the IsStrategyNameNotUnique button Private Sub Command3_Click() If OMS Is Nothing Then Exit Sub End If 'IsStrategyNameNotUnique("Strategy Name") Text1.Text = OMS.IsStrategyNameNotUnique("Strategy Test 1") End Sub ' This function is called when the user clicks the "AddStepActivityLink" button Private Sub Command30_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! stepid = Text3.Text activityid = Text4.Text order = Text5.Text 'AddStepActivityLink("Step Id", "Activity Id", "Chronlogical Order") Call OMS.AddStepActivityLink(stepid, activityid, order) End Sub ' This function is called when the user clicks the "AddFactorStandingLink" button Private Sub Command31_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! factorid = Text3.Text factorstandingid = Text4.Text 'AddFactorStandingLink("Factor Id", "Factor Standing Id") Call OMS.AddFactorStandingLink(factorid, factorstandingid) End Sub ' This function is called when the user clicks the "AddRoleStandingLink" button Private Sub Command32_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! roleid = Text3.Text rolestandingid = Text4.Text Call OMS.AddRoleStandingLink(roleid, rolestandingid) End Sub ' This function is called when the user clicks the "AddFactorStanding" button Private Sub Command33_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! names = Text4.Text score = Text5.Text subtype = Text6.Text 'AddFactorStanding("Id", "Name", "Score", "SubType") 'Id is generated by Enterprise, please leave it blank! Call OMS.AddFactorStanding(id, names, score, subtype) Text3.Text = id End Sub ' This function is called when the user clicks the "AddRoleStanding" button Private Sub Command34_Click() If OMS Is Nothing Then Exit Sub End If 'Assign text to valuables, make sure you input to the correct field! names = Text4.Text score = Text5.Text 'AddRoleStanding("Id", "Name", "Score", "SubType") 'Id is generated by Enterprise, please leave it blank! Call OMS.AddRoleStanding(id, names, score) Text3.Text = id End Sub 'Exit this VB application Private Sub Command4_Click() Unload omsForm End Sub ' This function is called when the user clicks the IsStepNameNotUnique button Private Sub Command5_Click() If OMS Is Nothing Then Exit Sub End If 'IsStepNameNotUnique("Step Name") 'Return 0 if it is not unique Text1.Text = OMS.IsStepNameNotUnique("Step Test 1") End Sub ' This function is called when the user clicks the IsActivityNameNotUnique button Private Sub Command6_Click() If OMS Is Nothing Then Exit Sub End If 'IsActivityNameNotUnique("Activity Name") 'Return 0 if it is not unique Text1.Text = OMS.IsActivityNameNotUnique("Activity Test 1") End Sub ' This function is called when the user clicks the IsRoleNameNotUnique button Private Sub Command7_Click() If OMS Is Nothing Then Exit Sub End If 'IsRoleNameNotUnique("Role Name") 'Return 0 if it is not unique Text1.Text = OMS.IsRoleNameNotUnique("Role Test 1") End Sub ' This function is called when the user clicks the IsFactorNameNotUnique button Private Sub Command8_Click() If OMS Is Nothing Then Exit Sub End If 'IsFactorNameNotUnique("Factor Name") 'Return 0 if it is not unique Text1.Text = OMS.IsFactorNameNotUnique("Factor Test 1") End Sub ' This function is called when the user clicks the IsRoleStandingNameNotUnique button Private Sub Command9_Click() If OMS Is Nothing Then Exit Sub End If 'IsRoleStandingNameNotUnique("Role Standing Name") 'Return 0 if it is not unique Text1.Text = OMS.IsRoleStandingNameNotUnique("Role Standing Test 1") End Sub 
(.txt)