?? frmpass.frm
字號:
VERSION 5.00
Begin VB.Form frmPass
BackColor = &H00C0C0C0&
Caption = "修改密碼"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 3450
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 3450
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "取消"
Height = 375
Left = 1680
TabIndex = 9
Top = 2640
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H0080FF80&
Caption = "確定"
Height = 375
Left = 240
TabIndex = 8
Top = 2640
Width = 855
End
Begin VB.TextBox Text4
BackColor = &H00C0FFFF&
Height = 375
IMEMode = 3 'DISABLE
Left = 1320
PasswordChar = "*"
TabIndex = 7
Top = 1920
Width = 1575
End
Begin VB.TextBox Text3
BackColor = &H00C0FFFF&
Height = 375
IMEMode = 3 'DISABLE
Left = 1320
PasswordChar = "*"
TabIndex = 5
Top = 1320
Width = 1575
End
Begin VB.TextBox Text2
BackColor = &H00C0FFFF&
Height = 375
IMEMode = 3 'DISABLE
Left = 1320
PasswordChar = "*"
TabIndex = 3
Top = 720
Width = 1575
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
Height = 375
Left = 1320
TabIndex = 1
Top = 120
Width = 1575
End
Begin VB.Label Label4
BackColor = &H00C0C0C0&
Caption = "驗證:"
Height = 375
Left = 240
TabIndex = 6
Top = 2040
Width = 735
End
Begin VB.Label Label3
BackColor = &H00C0C0C0&
Caption = "新密碼:"
Height = 375
Left = 240
TabIndex = 4
Top = 1440
Width = 735
End
Begin VB.Label Label2
BackColor = &H00C0C0C0&
Caption = "舊密碼:"
Height = 255
Left = 240
TabIndex = 2
Top = 840
Width = 735
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "用戶名:"
Height = 255
Left = 240
TabIndex = 0
Top = 240
Width = 735
End
End
Attribute VB_Name = "frmPass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error GoTo errh
Dim rs As New Recordset
'If Not addnewstate Then
If Text1.Text <> "" Then
If Text2.Text <> "" Then
If Text3.Text <> "" Then
If Text3.Text = Text4.Text Then
Set rs = cn.Execute("SELECT * FROM 超級用戶 ")
If rs.EOF Then
rs.Close
Exit Sub
End If
rs.Close
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.Open "超級用戶", cn, , , adCmdTable
rs.Find ("UserName=" & "'" & Text1.Text & "'")
If rs.Fields("Password").Value = Text2.Text Then
rs.Update "Password", Text3.Text
rs.Close
Me.Hide
upok = True
MsgBox "修改成功!"
Else
MsgBox "錯誤的的舊密碼"
rs.Close
End If
Else
MsgBox "密碼錯誤,請重新輸入"
End If
Else
MsgBox "密碼不能為空"
End If
Else
MsgBox "密碼不能為空"
End If
Else
MsgBox "用戶名不能為空"
End If
Exit Sub
errh:
MsgBox Err.Description
End Sub
Private Sub Command2_Click()
Me.Hide
upok = False
End Sub
Private Sub Form_Load()
MakeCenter frmPass
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -