GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/資料庫系統管理/系統登出.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 系統登出
    Dim conn As New SqlConnection
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader
    Private Sub 系統登出_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT timeExit2 FROM 系統閒置時間設定"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        If dr.Read() Then
            Label1.Text = "系統閒置，" & dr("timeExit2") & "秒後即將重登"
        End If : conn.Close()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        重登確認 = True : Me.Close()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        重登確認 = False : Me.Close()
    End Sub
End Class