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
    Dim GGHH As Integer : Dim FFGG As Integer
    Private Sub 系統通用變數管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT timeExit, timeExit2 FROM 系統閒置時間設定"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        If dr.Read() Then : TextBox2.Text = dr("timeExit") : TextBox1.Text = dr("timeExit2") : End If : conn.Close()
        GGHH = Val(TextBox2.Text) : FFGG = Val(TextBox1.Text)
        TextBox3.Text = 密碼時限
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "UPDATE 系統閒置時間設定 SET timeExit = N'" & TextBox2.Text & "', timeExit2 = N'" & TextBox1.Text & "' WHERE (timeExit = N'" & GGHH & "' AND timeExit2 = N'" & FFGG & "')"
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        conn.Close()
        GGHH = Val(TextBox2.Text) : FFGG = Val(TextBox1.Text) : timeExit = GGHH : timeExit2 = FFGG
        MsgBox("修改完畢")
    End Sub
End Class