End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "[&H]幫助"
      Begin VB.Menu mnuHelpS 
         Caption         =   "[&S]使用說明..."
      End
      Begin VB.Menu mnuSpac3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "[&A]關(guān)于SEP..."
      End
   End
End
Attribute VB_Name = "frmServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public bPassWordOk As Boolean

Private Sub Form_Load()
        
    '初始化數(shù)據(jù)/庫
    Call InitMdb
    '初始化列表
    Call InitLst
    '刷新工具條按鈕狀態(tài)
    Call RetBarState
    
'    Load frmPrint
    Load frmComServer
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim an As Integer

    an = MsgBox("確認(rèn)退出本系統(tǒng)嗎？", vbQuestion + vbYesNo)
    If an = vbNo Then
        Cancel = True
    Else
        Me.Hide
        If frmComServer.cmdGetData.Enabled = False Then
            frmWait.Show
            DoEvents
            Do While frmComServer.cmdGetData.Enabled = False
                DoEvents
            Loop
        End If
        Unload frmComServer
'        Unload frmPrint
        '關(guān)閉數(shù)據(jù)庫
        Call CloseMdb
        End
    End If
End Sub

Private Sub Form_Resize()
    
    If Me.WindowState = vbMinimized Then
        Exit Sub
    End If
    
    labRecToHandle.Left = 1 * Screen.TwipsPerPixelX
    labRecToHandle.Top = tBar.Height + 2 * Screen.TwipsPerPixelX
    labRecToHandle.Width = 518 * Screen.TwipsPerPixelX
    
    lstViwCapture.Left = 1 * Screen.TwipsPerPixelX
    lstViwCapture.Top = labRecToHandle.Top + labRecToHandle.Height - 1 * Screen.TwipsPerPixelX
    lstViwCapture.Width = labRecToHandle.Width
    lstViwCapture.Height = Me.ScaleHeight - stdBar.Height - lstViwCapture.Top - 2 * Screen.TwipsPerPixelY
    
    Image1.Width = 498 * Screen.TwipsPerPixelX
    Image1.Height = 288 * Screen.TwipsPerPixelY
    Image1.Left = Me.ScaleWidth - Image1.Width - 2 * Screen.TwipsPerPixelX
    Image1.Top = Me.ScaleHeight - stdBar.Height - Image1.Height - 2 * Screen.TwipsPerPixelY
    
    labCapturePicture.Left = Image1.Left + 1 * Screen.TwipsPerPixelX
    labCapturePicture.Top = Image1.Top - labCapturePicture.Height '- 1 * Screen.TwipsPerPixelY
    labCapturePicture.Width = Image1.Width
    
    Line1.X1 = lstViwCapture.Left + lstViwCapture.Width
    Line1.X2 = Me.ScaleWidth
    Line1.Y1 = labCapturePicture.Top - 8 * Screen.TwipsPerPixelY
    Line1.Y2 = Line1.Y1
    
    Line2.X1 = Line1.X1
    Line2.X2 = Line1.X2
    Line2.Y1 = Line1.Y1 + 2 * Screen.TwipsPerPixelY
    Line2.Y2 = Line2.Y1
    
    lstViwClients.Left = Image1.Left
    lstViwClients.Top = lstViwCapture.Top
    lstViwClients.Width = Image1.Width
    lstViwClients.Height = lstViwCapture.Height - Image1.Height - 34 * Screen.TwipsPerPixelY
    
    labClients.Left = Image1.Left + 1 * Screen.TwipsPerPixelX
    labClients.Top = labRecToHandle.Top
    labClients.Width = Image1.Width
End Sub

Private Sub lstViwCapture_ItemClick(ByVal Item As MSComctlLib.ListItem)
    On Error Resume Next
    Image1.Picture = LoadPicture(GetAppPath & "Jpg\" & Item.SubItems(4))
    Set lstViwCapture.SelectedItem = Item
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show vbModal
End Sub

Private Sub mnuClientSet_Click()
    frmPassWord.Show vbModal
    If frmServer.bPassWordOk = True Then
        frmClientSet.Show vbModal
        Call GetClientSettings
        Call frmComServer.GetClientsSetting
    End If
End Sub

Private Sub mnuDelete_Click()
    frmPassWord.Show vbModal
    If frmServer.bPassWordOk = True Then
        frmDelete.Show vbModal
        If g_bDeleted = True Then
            Call GetRecToHandle
            Call RetBarState
        End If
    End If
End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub

Private Sub mnuGetData_Click()
    frmPassWord.Show vbModal
    If frmServer.bPassWordOk = True Then
        frmComServer.Show
    End If
End Sub

Private Sub mnuIntervalSet_Click()
    frmSetInterval.Show vbModal
End Sub

Private Sub mnuQuery_Click()
    frmSearch.Show vbModal
End Sub

Private Sub mnuSetPassWord_Click()
    frmPassWord.Show vbModal
    If frmServer.bPassWordOk = True Then
        frmSetPassWord.Show vbModal
    End If
End Sub

Private Sub tBar_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim nYesNo As Integer, Ret As Long
Dim rs As Recordset, sFile As String

    Select Case UCase(Button.Key)
        Case "EXIT"
            Call mnuExit_Click
            
        Case "DELETE"   '刪除不做處理的記錄
            nYesNo = MsgBox("刪除后將無法再恢復(fù)，確認(rèn)刪除嗎？", vbYesNo + vbQuestion, "刪除報(bào)警記錄")
            If nYesNo = vbYes Then
                '數(shù)據(jù)庫中刪除相應(yīng)記錄
                Set rs = g_myDB.OpenRecordset("Select * from tabCaptureRec where fldID = " & Format(lstViwCapture.SelectedItem.Tag))
                If Not rs.EOF Then
                    sFile = GetAppPath & "Jpg\" & rs!fldJpgFile
                    Kill sFile
                    rs.Delete
                End If
                rs.Close
                     
                Call RemoveItem
            End If
            
        Case "MODI", "PRINT"
            g_bPrinted = False
            g_lCurRecID = lstViwCapture.SelectedItem.Tag
            frmModi.Show vbModal
            If g_bPrinted = True Then
                MsgBox "您已經(jīng)打印了當(dāng)前記錄。" & vbCrLf & "該記錄將從列表中刪除，" & vbCrLf & "您可以通過查詢功能從數(shù)" & vbCrLf & "據(jù)庫中調(diào)出查看此條記錄。"
                Call RemoveItem
            End If
        
        Case "FIND"
            frmSearch.Show vbModal
            
        Case "HELP"
            Ret = OSWinHelp(Me.hWnd, App.HelpFile, 0, 0)
        Case Else
    End Select
End Sub

Private Sub timDateTime_Timer()
    stdBar.Panels(2).Text = Format(Date, "Long Date")
    stdBar.Panels(3).Text = Format(Time, "Long Time")
End Sub

'初始化報(bào)警記錄列表，并加載未打印過的記錄
Private Sub InitLst()
Dim itemX As ListItem, i As Integer
Dim rs As Recordset

    lstViwCapture.View = lvwReport
    lstViwCapture.ColumnHeaders.Add , , "No", 360
    lstViwCapture.ColumnHeaders.Add , , "      記錄來源", 2200
    lstViwCapture.ColumnHeaders.Add , , "行駛方向", 1050
    lstViwCapture.ColumnHeaders.Add , , "拍照時(shí)間", 2530
    lstViwCapture.ColumnHeaders.Add , , "圖片名稱", 0
    For i = 3 To lstViwCapture.ColumnHeaders.Count
        lstViwCapture.ColumnHeaders(i).Alignment = lvwColumnCenter
    Next i
    
'加載待處記錄
    Call GetRecToHandle

    lstViwClients.View = lvwReport
    lstViwClients.ColumnHeaders.Add , , "狀態(tài)", 650
    lstViwClients.ColumnHeaders.Add , , "      崗?fù)っQ", 2550
    lstViwClients.ColumnHeaders.Add , , "網(wǎng) 絡(luò)", 900
    lstViwClients.ColumnHeaders.Add , , "視頻A", 900
    lstViwClients.ColumnHeaders.Add , , "視頻B", 900
    For i = 3 To lstViwCapture.ColumnHeaders.Count
        lstViwClients.ColumnHeaders(i).Alignment = lvwColumnCenter
    Next i

'加載監(jiān)視
    Call GetClientSettings
End Sub

'從列表中刪除當(dāng)前列表項(xiàng)
Private Sub RemoveItem()
Dim itemIndex As Integer

    itemIndex = lstViwCapture.SelectedItem.Index
    lstViwCapture.ListItems.Remove itemIndex
    If itemIndex > lstViwCapture.ListItems.Count Then
        itemIndex = lstViwCapture.ListItems.Count
    End If
    If itemIndex > 0 Then
        Call lstViwCapture_ItemClick(lstViwCapture.ListItems(itemIndex))
    End If
    Call RetBarState
End Sub

'刷新工具鈕狀態(tài)
Private Sub RetBarState()
    If lstViwCapture.ListItems.Count > 0 Then
        tBar.Buttons("DELETE").Enabled = True
        tBar.Buttons("MODI").Enabled = True
        tBar.Buttons("PRINT").Enabled = True
    Else
        tBar.Buttons("DELETE").Enabled = False
        tBar.Buttons("MODI").Enabled = False
        tBar.Buttons("PRINT").Enabled = False
    End If
    stdBar.Panels(1).Text = "當(dāng)前記錄數(shù)：" & Format(lstViwCapture.ListItems.Count)
End Sub

'初始化數(shù)據(jù)庫
'打開數(shù)據(jù)庫
'獲得新紀(jì)錄編號(hào)和打印開始編號(hào)
Private Sub InitMdb()
Dim rs As Recordset
    
    Set g_myDB = OpenDatabase(GetAppPath & "dbCaptureServer.mdb", False, False, ";PWD=111111")
    
    Set rs = g_myDB.OpenRecordset("Select max(fldID) as maxID from tabCaptureRec", dbOpenSnapshot)
    If IsNull(rs!maxID) = False Then
        g_nNewRecID = rs!maxID
    Else
        g_nNewRecID = 0
    End If
    rs.Close

    Set rs = g_myDB.OpenRecordset("Select max(fldPrintID) as maxPrintID from tabCaptureRec", dbOpenSnapshot)
    If IsNull(rs!maxPrintID) = False And rs!maxPrintID > 0 Then
        g_nNewPrintID = rs!maxPrintID
    End If
    rs.Close
End Sub

'關(guān)閉數(shù)據(jù)庫
Private Sub CloseMdb()
    g_myDB.Close
End Sub

'獲取待處記錄
Private Sub GetRecToHandle()
Dim itemX As ListItem
Dim sSql As String, rs As Recordset
    
    lstViwCapture.ListItems.Clear
    sSql = "Select * from tabCaptureRec where fldPrinted = False"
    Set rs = g_myDB.OpenRecordset(sSql, dbOpenSnapshot)
    Do While Not rs.EOF
        Set itemX = lstViwCapture.ListItems.Add(, , Format(lstViwCapture.ListItems.Count + 1))
        itemX.SubItems(1) = rs!fldPostName
        itemX.SubItems(2) = rs!fldDirection
        itemX.SubItems(3) = Format(rs!fldCapDate, "Long Date") & Format(rs!fldCapTime, "Long Time")
        itemX.SubItems(4) = rs!fldJpgFile
        itemX.Tag = rs!fldID
        itemX.EnsureVisible
        Call lstViwCapture_ItemClick(itemX)
        rs.MoveNext
    Loop
    rs.Close
End Sub

'客戶狀態(tài)監(jiān)視
Private Sub GetClientSettings()
Dim rs As Recordset
Dim itemX As ListItem
        
    lstViwClients.ListItems.Clear
    Set rs = g_myDB.OpenRecordset("Select * from tabPostSettings where fldWork = True", dbOpenSnapshot)
    Do While Not rs.EOF
        Set itemX = lstViwClients.ListItems.Add(, , "", 1, 1)
        itemX.SubItems(1) = rs!fldPostName
        itemX.SubItems(2) = "正常"
        itemX.SubItems(3) = "正常"
        itemX.SubItems(4) = "正常"
        rs.MoveNext
    Loop
    rs.Close
End Sub