Dim TimingNumber As String = e.Form.Controls("TimingNumber").Value
Dim UserName As String = e.Form.Controls("UserName").Value
Dim UserGroup As String = e.Form.Controls("UserGroup").Value
Dim PassWord As String = e.Form.Controls("PassWord").Value
Dim Post As String = e.Form.Controls("Post").Value
Dim Position As String = e.Form.Controls("Position").Value
Dim Authority As WinForm.CheckBox
Authority = e.Form.Controls("Authority")
Dim OldUserName As String
If e.Form.Controls("PassWord1").Value <> e.Form.Controls("PassWord").Value Then
Messagebox.show("請輸入登錄工號!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Dim cmd As New SQLCommand
Dim Parts() As String = e.Form.Text.Split("-")
OldUserName = Parts(Parts.Length -1)
cmd.C
If TimingNumber = "" Then
Messagebox.show("請輸入登錄工號!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
Dim F As Integer
If Authority.Checked = False Then
F = 0
Else
F = 1
End If
cmd.CommandText = "Update {用戶表} Set [工號] = '" & TimingNumber & "', [用戶名] = '" & UserName & "',[部門] = '" & UserGroup & "', [職務] = '" & Post & "', [職位] = '" & Position & "', [特殊權限] = '" & F & "', [密碼] = '" & Password & "' Where [用戶名]= '" & OldUserName & "'"
If cmd.ExecuteNonQuery = 1 Then '返回1表示更改成功
Messagebox.show("更改用戶信息成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
If Forms("用戶管理").Opened Then
With Forms("用戶管理").Controls("ListBox1")
.Items(.SelectedIndex) = UserName
End With
End If
e.Form.Close
Else
Messagebox.show("更改用戶失敗!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
总是更改用户失败,不知道哪里出问题,请高手帮忙看看