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

Option Strict Off
Imports System.Data.SqlClient
Public Class 系統登出
    Private Sub 系統登出_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
        ConnOpen()
        SQL1 = "SELECT timeExit2 FROM 系統閒置時間設定"
        CmdSet_For_dr()
        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