Computer Buyer 1998 October/dpcb1098.iso/Business/Maxim/MAX5/data.z/oms.frm

Text File | 1998-05-15 | 39KB | 1,259 lines

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
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