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
        ConnOpen()
        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "
        CmdSet_For_dr()
        If dr.Read() Then
            Label2.Text = "資料庫版本號 : " & dr("系統認證版本號")
            TextBox2.Text = dr("系統認證版本號")
        End If : conn.Close()
    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
        ConnOpen()
        SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & TextBox2.Text & "' WHERE (系統認證版本號 = N'" & Strings.Right(Label2.Text, 10) & "')"
        CmdSet_For_dr()
        conn.Close()

        ConnOpen()
        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "
        CmdSet_For_dr()
        If dr.Read() Then
            Label2.Text = "資料庫版本號 : " & dr("系統認證版本號")
            TextBox2.Text = dr("系統認證版本號")
        End If : conn.Close()
        MsgBox("修改完成")
    End Sub
End Class