Option Strict Off Imports System.Data.SqlClient Public Class 個人帳號管理 ReadOnly conn As New SqlConnection ReadOnly cmd As New SqlCommand Dim dr As SqlDataReader Dim FFGG As Integer Dim DTP As String : Dim DDFF As String Private Sub Set_使用者資料() If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If SQL1 = "SELECT 姓名, 帳號, 密碼, 密碼日期 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')" cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader If dr.Read() Then TextBox1.Text = dr("姓名").ToString TextBox2.Text = dr("帳號").ToString TextBox3.Text = dr("密碼").ToString TextBox4.Text = dr("密碼日期").ToString DDFF = dr("密碼").ToString End If conn.Close() : dr.Close() End Sub Private Sub Set_日期格式轉換() DTP = Format(Today(), "yyyy/MM/dd") End Sub Private Sub 個人帳號管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load FormBorderStyle = FormBorderStyle.SizableToolWindow Set_使用者資料() TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox4.Enabled = False : TextBox5.Enabled = False FFGG = DateDiff("d", TextBox4.Text, Format(Today(), "yyyy/MM/dd")) If CC(45) = False Then TextBox5.Text = "NA" Else TextBox5.Text = 密碼時限 - FFGG End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or DDFF = TextBox3.Text Then If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Input data salah!!") : End If Else Set_日期格式轉換() If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = '" & TextBox2.Text & "', 密碼 = '" & TextBox3.Text & "', 密碼日期 = '" & DTP & "' WHERE (姓名 = '" & TextBox1.Text & "')" cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close() : conn.Close() If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Edit selesai!!") : End If : Me.Close() End If End Sub End Class