VERSION 5.00
Begin VB.Form JobControl 
   BorderStyle     =   3  'Œ޲۸
   Caption         =   "ޮގs"
   ClientHeight    =   3270
   ClientLeft      =   1335
   ClientTop       =   6525
   ClientWidth     =   3120
   LinkTopic       =   "JobControl"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'Z ް
   ScaleHeight     =   3270
   ScaleWidth      =   3120
   ShowInTaskbar   =   0   'False
   Begin VB.OptionButton ContinueJob 
      Caption         =   "p"
      Height          =   255
      Left            =   120
      TabIndex        =   11
      Top             =   2880
      Width           =   1215
   End
   Begin VB.OptionButton StopJob 
      Caption         =   "~"
      Height          =   255
      Left            =   120
      TabIndex        =   10
      Top             =   2544
      Width           =   1215
   End
   Begin VB.OptionButton DeleteJob 
      Caption         =   "o^폜"
      Height          =   255
      Left            =   120
      TabIndex        =   9
      Top             =   2210
      Width           =   1215
   End
   Begin VB.OptionButton ReleaseJob 
      Caption         =   "ۗ"
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   1876
      Width           =   1335
   End
   Begin VB.OptionButton HoldJob 
      Caption         =   "ۗ"
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   1542
      Width           =   1095
   End
   Begin VB.CommandButton CancelBtn 
      Caption         =   "ݾ"
      Height          =   315
      Left            =   1740
      TabIndex        =   3
      Top             =   1020
      Width           =   1275
   End
   Begin VB.CommandButton OkBtn 
      Caption         =   "OK"
      Height          =   315
      Left            =   1740
      TabIndex        =   2
      Top             =   600
      Width           =   1275
   End
   Begin VB.OptionButton ResumeJob 
      Caption         =   "ĊJ"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   4
      Top             =   1208
      Width           =   1155
   End
   Begin VB.OptionButton SuspendJob 
      Caption         =   "ꎞ~"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   874
      Width           =   1155
   End
   Begin VB.OptionButton TerminateJob 
      Caption         =   "I"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   540
      Value           =   -1  'True
      Width           =   1155
   End
   Begin VB.Label Label1 
      Alignment       =   1  'E
      Caption         =   "ޮޔԍF"
      Height          =   300
      Left            =   60
      TabIndex        =   6
      Top             =   90
      Width           =   840
   End
   Begin VB.Label JobNo 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   960
      TabIndex        =   5
      Top             =   60
      Width           =   915
   End
End
Attribute VB_Name = "JobControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' JAPI Wus API(JmssControlJob) TvvO
'   (C)NEC Corporation/NEC Software,Ltd. 1995,1996
'
'         1996.6.28 Created by NEC Software
'
'
' Wus_CAOW[
'
'   FWűI/ꎞ~/ĊJ𐧌䂷
'

'[LZ{^]NbN
'
'   FWus_CAOI
'
Private Sub CancelBtn_Click()
    '_CAO
    Unload JobControl
End Sub

'[Wus_CAO]\
'
'   FWuԍ\
'
Private Sub Form_Load()
    JobNo.Caption = lJobNo
End Sub

'[OK{^]NbN
'
'   Fw肵ʂɃWu𐧌䂷
'
'   O[oϐF
'       lJobNo  CEBhEŎw肵Wuԍ(Common.bas)
'
Private Sub OkBtn_Click()
    'v鐧̎ʂݒ
    If (TerminateJob.Value = True) Then
        dwControlMode = JMSS_CONTROL_TERMINATE
    ElseIf (SuspendJob.Value = True) Then
        dwControlMode = JMSS_CONTROL_SUSPEND
    ElseIf (HoldJob.Value = True) Then
        dwControlMode = JMSS_CONTROL_HOLD
    ElseIf (ReleaseJob.Value = True) Then
        dwControlMode = JMSS_CONTROL_RELEASE
    ElseIf (DeleteJob.Value = True) Then
        dwControlMode = JMSS_CONTROL_DELETE
    ElseIf (StopJob.Value = True) Then
        dwControlMode = JMSS_CONTROL_STOP
    ElseIf (ContinueJob.Value = True) Then
        dwControlMode = JMSS_CONTROL_CONTINUE
    Else
        dwControlMode = JMSS_CONTROL_RESUME
    End If
    
    '*** Wus ***
    lRet& = JmssControlJob(vbNullString, dwControlMode, lJobNo)
    If (lRet& <> 0) Then
        ErrorMsg lRet&
    End If
    
    '_CAO
    Unload JobControl
End Sub


Private Sub Option1_Click()

End Sub

