VERSION 5.00
Begin VB.Form ChildJob 
   BorderStyle     =   3  'Œ޲۸
   Caption         =   "hޮޔԍꗗ"
   ClientHeight    =   3795
   ClientLeft      =   1185
   ClientTop       =   4305
   ClientWidth     =   6090
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'Z ް
   ScaleHeight     =   3795
   ScaleWidth      =   6090
   ShowInTaskbar   =   0   'False
   Begin VB.ListBox ChildJobNoList 
      Columns         =   10
      Height          =   2040
      Left            =   60
      TabIndex        =   8
      Top             =   1560
      Width           =   5955
   End
   Begin VB.CommandButton QueryBtn 
      Caption         =   "₢킹"
      Height          =   315
      Left            =   4620
      TabIndex        =   4
      Top             =   540
      Width           =   1395
   End
   Begin VB.CheckBox QueCheck 
      Caption         =   "s҂̔hޮ"
      Height          =   255
      Left            =   660
      TabIndex        =   3
      Top             =   840
      Value           =   1  '
      Width           =   2055
   End
   Begin VB.CheckBox RunCheck 
      Caption         =   "s̔hޮ"
      Height          =   255
      Left            =   2520
      TabIndex        =   2
      Top             =   540
      Value           =   1  '
      Width           =   1815
   End
   Begin VB.CheckBox EndCheck 
      Caption         =   "Ihޮ"
      Height          =   255
      Left            =   660
      TabIndex        =   1
      Top             =   540
      Value           =   1  '
      Width           =   1815
   End
   Begin VB.CommandButton InfoBtn 
      Caption         =   "ޮޏ擾"
      Height          =   315
      Left            =   4620
      TabIndex        =   5
      Top             =   1200
      Width           =   1395
   End
   Begin VB.CommandButton OkBtn 
      Caption         =   ""
      Height          =   315
      Left            =   4620
      TabIndex        =   6
      Top             =   60
      Width           =   1395
   End
   Begin VB.Label Label3 
      Alignment       =   1  'E
      Caption         =   "ޮޔԍF"
      Height          =   300
      Left            =   60
      TabIndex        =   10
      Top             =   90
      Width           =   840
   End
   Begin VB.Label JobNo 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   960
      TabIndex        =   9
      Top             =   60
      Width           =   915
   End
   Begin VB.Label Label2 
      Caption         =   ""
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   60
      TabIndex        =   7
      Top             =   540
      Width           =   555
   End
   Begin VB.Label Label1 
      Caption         =   "hޮޔԍꗗF"
      Height          =   255
      Left            =   60
      TabIndex        =   0
      Top             =   1260
      Width           =   2115
   End
End
Attribute VB_Name = "ChildJob"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' JAPI hWuꗗ⍇ API(JmssGetChildJobList֐) TvvO
'   (C)NEC Corporation/NEC Software,Ltd. 1995,1996
'
'         1996.6.28 Created by NEC Software
'
' hWuꗗ_CAOW[
'
'   FhWuԍꗗ擾A_CAO\
'

'hWuz^
'  JmssGetChildJobList֐̃Wuԍzɂ
'  z܂ރ[U`^錾āA̕ϐn
Private Type ChildJobArray
    JobNo(1000) As Long
End Type

Private ChildJobNums As ChildJobArray   'hWuԍꗗ
Private lSaveJobNo As Long              'ۑpWuԍ

'[hWuԍꗗXg{bNX]ԂNbN
'
'   FIꂽWuԍ̃Wu\
'
Private Sub ChildJobNoList_DblClick()
    'WuIĂ邩`FbN
    If (ChildJobNoList.ListIndex >= 0) Then
        lJobNo = ChildJobNoList.ItemData(ChildJobNoList.ListIndex)
    Else
        lJobNo = -1
    End If
    
    'WuԍIĂȂ΃G[
    If (lJobNo = -1) Then
        ErrorMsg 999
        Exit Sub
    End If
    
    'Wu_CAO\
    Info.Show
End Sub


'[hWuꗗ_CAO]\
'
'   FCEBhEŎw肳ĂWuԍޔ
'         Wuԍ\
'
Private Sub Form_Load()
    '݂̃Wuԍۑ
    lSaveJobNo = lJobNo

    'Wuԍ\
    JobNo.Caption = lJobNo
End Sub




'[hWuꗗ_CAO]I
'
'   FޔWuԍ߂
'
Private Sub Form_Unload(Cancel As Integer)
    '݂̃Wuԍ߂
    lJobNo = lSaveJobNo
End Sub


'[Wu{^]NbN
'
'   FhWuԍꗗőIĂWũWu\
'
Private Sub InfoBtn_Click()
    'WuIĂ邩`FbN
    If (ChildJobNoList.ListIndex >= 0) Then
        lJobNo = ChildJobNoList.ItemData(ChildJobNoList.ListIndex)
    Else
        'WuԍIĂȂ΃G[
        ErrorMsg 999
        Exit Sub
    End If
    
    
    'Wu_CAO\
    Info.Show
End Sub


'[OK{^]NbN
'
'   FhWuꗗ_CAOI
'
Private Sub OkBtn_Click()
    '_CAO
    Unload ChildJob
End Sub


'[₢킹{^]NbN
'
'   Fw肵₢킹ŔhWuԍꗗ擾A
'         hWuԍꗗXg{bNXɕ\
'
Private Sub QueryBtn_Click()
    lJobCount& = 1000
    
    '₢킹ݒ
    dwStatus = 0
    If (EndCheck.Value = 1) Then
        dwStatus = dwStatus Or JMSS_CONTROL_END
    End If
    
    If (RunCheck.Value = 1) Then
        dwStatus = dwStatus Or JMSS_CONTROL_RUN
    End If
    
    If (QueCheck.Value = 1) Then
        dwStatus = dwStatus Or JMSS_CONTROL_QUE
    End If
    
    '*** hWuԍꗗ擾 ***
    lRet& = JmssGetChildJobList(vbNullString, lJobNo, dwStatus, lJobCount&, ChildJobNums)
    If (lRet& <> 0) Then
        ErrorMsg lRet&
        Exit Sub
    End If
    
    'hWuꗗXg\
    ChildJobNoList.Clear
    For i = 0 To lJobCount& - 1
        ChildJobNoList.AddItem Format$(ChildJobNums.JobNo(i))
        ChildJobNoList.ItemData(i) = ChildJobNums.JobNo(i)
    Next i
    
End Sub


