VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form JAPI_SMP 
   Caption         =   "JAPI VB"
   ClientHeight    =   4245
   ClientLeft      =   1140
   ClientTop       =   1830
   ClientWidth     =   7320
   LinkTopic       =   "JAPI_SMP"
   PaletteMode     =   1  'Z ް
   ScaleHeight     =   4245
   ScaleWidth      =   7320
   Begin VB.TextBox JobNo 
      Height          =   270
      Left            =   6180
      TabIndex        =   5
      Top             =   780
      Width           =   1035
   End
   Begin VB.ListBox JobList 
      Height          =   2400
      ItemData        =   "Japi_smp.frx":0000
      Left            =   75
      List            =   "Japi_smp.frx":0007
      TabIndex        =   4
      Top             =   1350
      Width           =   7140
   End
   Begin VB.CommandButton ChildBtn 
      Caption         =   "hޮވꗗ⍇"
      Height          =   495
      Left            =   5475
      TabIndex        =   3
      Top             =   75
      Width           =   1725
   End
   Begin VB.CommandButton InfoBtn 
      Caption         =   "ޮޏ擾"
      Height          =   510
      Left            =   1875
      TabIndex        =   1
      Top             =   60
      Width           =   1725
   End
   Begin VB.CommandButton ControlBtn 
      Caption         =   "ޮގs"
      Height          =   495
      Left            =   3675
      TabIndex        =   2
      Top             =   75
      Width           =   1725
   End
   Begin VB.CommandButton ThrowBtn 
      Caption         =   "ޮޓ"
      Height          =   495
      Left            =   75
      TabIndex        =   0
      Top             =   75
      Width           =   1725
   End
   Begin ComctlLib.StatusBar StatusBar 
      Align           =   2  '
      Height          =   315
      Left            =   0
      TabIndex        =   7
      Top             =   3930
      Width           =   7320
      _ExtentX        =   12912
      _ExtentY        =   556
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   5080
            MinWidth        =   5080
            TextSave        =   ""
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            TextSave        =   ""
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   6
            Alignment       =   1
            Object.Width           =   1587
            MinWidth        =   1587
            TextSave        =   "15/08/11"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   5
            Alignment       =   1
            Object.Width           =   1411
            MinWidth        =   1411
            TextSave        =   "17:57"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   1  '
      Caption         =   " Ɩ"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   900
      TabIndex        =   10
      Top             =   1080
      Width           =   6330
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   1  '
      Caption         =   "ޮޔԍ"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   60
      TabIndex        =   9
      Top             =   1080
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "QƼޮޔԍF"
      Height          =   255
      Left            =   4920
      TabIndex        =   8
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "ޮވꗗF"
      Height          =   240
      Left            =   75
      TabIndex        =   6
      Top             =   825
      Width           =   840
   End
   Begin VB.Menu MN_FILE 
      Caption         =   "̧(&F)"
      Begin VB.Menu MN_FILE_EXIT 
         Caption         =   "I(&X)"
      End
   End
   Begin VB.Menu MN_JOB 
      Caption         =   "ޮ(&J)"
      Begin VB.Menu MN_JOB_THROW 
         Caption         =   "(&T)"
      End
      Begin VB.Menu MN_JOB_INFO 
         Caption         =   "(&I)"
      End
      Begin VB.Menu MN_JOB_CONTROL 
         Caption         =   "s(&C)"
      End
      Begin VB.Menu MN_JOB_CHILD 
         Caption         =   "hޮވꗗ(&D)"
      End
   End
   Begin VB.Menu MN_JOBQ 
      Caption         =   "ޮ޷(&Q)"
   End
   Begin VB.Menu MN_EVENT 
      Caption         =   "(&E)"
      Begin VB.Menu MN_EVENT_SEND 
         Caption         =   "M(&S)"
      End
   End
   Begin VB.Menu MN_ALERT 
      Caption         =   "װ(&A)"
      Begin VB.Menu MN_ALERT_NOTIFY 
         Caption         =   "ʕ(&N)"
      End
   End
End
Attribute VB_Name = "JAPI_SMP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' JAPI TvvO
'   (C)NEC Corporation/NEC Software,Ltd. 1995,1996
'
'         2000.4.14 Created by NEC Soft
'
' TvvOŜ̐
'   Tv
'     Wu̓AI҂Aڍ׏\AsAhWuꗗ\
'     j[o[уj[{^s
'     Wu̓CEBhEɈꗗ\AꗗIWu
'     ւāAڍו\AsAhWuꗗ\
'
'   gpAPI
'     JAPI_SMP.frm    Wuԍ擾(JmssCurrentJobNo)
'     Throw.frm       Wu(JmssThrowJob)
'                     WuI҂(JmssWaitJobExit)
'                     L[Qƃ_CAO\(JmssDispQueueDialog)
'     Info.frm        Wu擾(JmssGetJobStatus)
'     JobControl.frm  Wus(JmssControlJob)
'     ChildJob.frm    hWuꗗ⍇(JmssGetChildJobList)
'     SendEvent.frm   CxgM(JmssSendEvent)
'
'
' CEBhEW[
'
'   FCEBhE\Aj[o[уj[{^
'         
'


'[hWuꗗ⍇{^]NbN
'
'   FhWuꗗ_CAO\
'
Private Sub ChildBtn_Click()
    'WuIĂ邩A܂̓Wuԍ͂Ă邩`FbN
    If (JobNo.Text <> "") Then
        lJobNo = JobNo.Text
    ElseIf (JobList.ListIndex >= 0) Then
        lJobNo = JobList.ItemData(JobList.ListIndex)
    Else
        lJobNo = -1
    End If
    
    'Wuw肳ĂȂȂG[
    If (lJobNo = -1) Then
        ErrorMsg 999
        Exit Sub
    End If
    
    'hWuꗗ_CAO\
    ChildJob.Show
End Sub


'[Wus{^]NbN
'
'   FWus_CAO\
'
Private Sub ControlBtn_Click()
    'WuIĂ邩A܂̓Wuԍ͂Ă邩`FbN
    If (JobNo.Text <> "") Then
        lJobNo = JobNo.Text
    ElseIf (JobList.ListIndex >= 0) Then
        lJobNo = JobList.ItemData(JobList.ListIndex)
    Else
        lJobNo = -1
    End If
   
    'Wuw肳ĂȂȂG[
    If (lJobNo = -1) Then
        ErrorMsg 999
        Exit Sub
    End If
    
    'Wus_CAO\
    JobControl.Show
End Sub


'[CEBhE]\
'
'   FJMSST[oƎg̃Wuԍ擾A
'         ^Cgo[ɕ\
'
Private Sub Form_Load()
    Dim caServerName As String * 16 'T[o
    Dim lCurJobNo As Long           'g̃Wuԍ
    
    'T[oƎg̃Wuԍ^Cgo[ɕ\
    lRet& = JmssCurrentJobNo(caServerName, lCurJobNo)
    If (lRet& <> JMSS_NOGET_SERVERNAME) Then
        Caption = Caption & " - " & caServerName
    End If
    If (lRet& <> JMSS_NOWATCH) Then
        Caption = Caption & " - [ޮޔԍ: " & lCurJobNo
        Caption = Caption & "]"
    End If
    
    'WuꗗNA
    JobList.Clear
    
    'WuԍNA
    lJobNo = -1
End Sub


'[Wu擾{^]NbN
'
'   FWu_CAO\
'
Private Sub InfoBtn_Click()
    'WuIĂ邩A܂̓Wuԍ͂Ă邩`FbN
    If (JobNo.Text <> "") Then
        lJobNo = JobNo.Text
    ElseIf (JobList.ListIndex >= 0) Then
        lJobNo = JobList.ItemData(JobList.ListIndex)
    Else
        lJobNo = -1
    End If
    
    'Wuw肳ĂȂȂG[
    If (lJobNo = -1) Then
        ErrorMsg 999
        Exit Sub
    End If
    
    'Wu_CAO\
    Info.Show
End Sub

'[WuꗗXg{bNX]NbN
'
'   FIڂɐݒ肵ĂWuԍ擾
'
Private Sub JobList_Click()
    'IꂽWuԍ擾
    lJobNo = JobList.ItemData(JobList.ListIndex)
    JobNo.Text = lJobNo
End Sub

Private Sub JobList_DblClick()
    'IꂽWuԍ擾
    lJobNo = JobList.ItemData(JobList.ListIndex)

    'Wu_CAO\
    Info.Show
End Sub


'[A[gʕ񃁃j[]NbN
'
'   FA[gʕ_CAO\
'
Private Sub MN_ALERT_NOTIFY_Click()
    'A[gʕ_CAO\
    ReportEvent.Show
End Sub

'[CxgMj[]NbN
'
'   FCxgM_CAO\
'
Private Sub MN_EVENT_SEND_Click()
    'CxgM_CAO\
    SendEvent.Show
End Sub

'[Ij[]NbN
'
'   FI
'
Private Sub MN_FILE_EXIT_Click()
    'I
    End
End Sub

'[hWuꗗ⍇j[]NbN
'
'   FhWuꗗ_CAO\
'
Private Sub MN_JOB_CHILD_Click()
    'WuIĂ邩A܂̓Wuԍ͂Ă邩`FbN
    If (JobNo.Text <> "") Then
        lJobNo = JobNo.Text
    ElseIf (JobList.ListIndex >= 0) Then
        lJobNo = JobList.ItemData(JobList.ListIndex)
    Else
        lJobNo = -1
    End If
   
    'Wuw肳ĂȂȂG[
    If (lJobNo = -1) Then
        ErrorMsg 999
        Exit Sub
    End If
    
    'hWuꗗ_CAO\
    ChildJob.Show
End Sub

'[Wus䃁j[]NbN
'
'   FWus_CAO\
'
Private Sub MN_JOB_CONTROL_Click()
    'WuIĂ邩A܂̓Wuԍ͂Ă邩`FbN
    If (JobNo.Text <> "") Then
        lJobNo = JobNo.Text
    ElseIf (JobList.ListIndex >= 0) Then
        lJobNo = JobList.ItemData(JobList.ListIndex)
    Else
        lJobNo = -1
    End If
   
    'Wuw肳ĂȂȂG[
    If (lJobNo = -1) Then
        ErrorMsg 999
        Exit Sub
    End If
    
    'Wus_CAO\
    JobControl.Show
End Sub

'[Wu擾j[]NbN
'
'   FWu_CAO\
'
Private Sub MN_JOB_INFO_Click()
    'WuIĂ邩A܂̓Wuԍ͂Ă邩`FbN
    If (JobNo.Text <> "") Then
        lJobNo = JobNo.Text
    ElseIf (JobList.ListIndex >= 0) Then
        lJobNo = JobList.ItemData(JobList.ListIndex)
    Else
        lJobNo = -1
    End If
   
    'Wuw肳ĂȂȂG[
    If (lJobNo = -1) Then
        ErrorMsg 999
        Exit Sub
    End If
    
    'Wu_CAO\
    Info.Show
End Sub

'[Wuj[]NbN
'
'   FWu_CAO\
'
Private Sub MN_JOB_THROW_Click()
    'Wu_CAO\
    Throw.Show
End Sub

Private Sub MN_JOBQ_Click()
    'WuL[_CAO\
    JobQ.Show
End Sub

'[Wu{^]NbN
'
'   FWu_CAO\
'
Private Sub ThrowBtn_Click()
    'Wu_CAO\
    Throw.Show
End Sub


