?? frmsystemusermodify.frm
字號:
VERSION 5.00
Begin VB.Form frmSystemUserModify
BorderStyle = 3 'Fixed Dialog
Caption = "密碼修改"
ClientHeight = 2955
ClientLeft = 45
ClientTop = 330
ClientWidth = 5205
Icon = "frmSystemUserModify.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2955
ScaleWidth = 5205
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "刪除用戶"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3840
TabIndex = 6
Top = 1450
Width = 1215
End
Begin VB.CommandButton cmdExit
Caption = "取消"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3840
TabIndex = 5
Top = 1010
Width = 1215
End
Begin VB.CommandButton cmdDenJ
BackColor = &H00C0C0C0&
Caption = "確定"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3840
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 4
Top = 570
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.PictureBox SSFrame1
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 2655
Left = 240
ScaleHeight = 2595
ScaleWidth = 3315
TabIndex = 0
Top = 120
Width = 3375
Begin VB.ComboBox cboUser
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
IMEMode = 2 'OFF
Left = 1530
TabIndex = 1
Top = 600
Width = 1605
End
Begin VB.TextBox txtNewPwd
ForeColor = &H00000000&
Height = 330
IMEMode = 3 'DISABLE
Left = 1530
PasswordChar = "*"
TabIndex = 3
Top = 1710
Width = 1605
End
Begin VB.TextBox txtOldPwd
ForeColor = &H00000000&
Height = 330
IMEMode = 3 'DISABLE
Left = 1530
PasswordChar = "*"
TabIndex = 2
Top = 1155
Width = 1605
End
Begin VB.Label Label3
Caption = "新密碼："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 330
TabIndex = 9
Top = 1770
Width = 1125
End
Begin VB.Label Label2
Caption = "舊密碼："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 330
TabIndex = 8
Top = 1170
Width = 1125
End
Begin VB.Label Label1
Caption = "用 戶："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 330
TabIndex = 7
Top = 600
Width = 1125
End
End
End
Attribute VB_Name = "frmSystemUserModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Recuser As Recordset
Private Sub cmdDenJ_Click()
'用戶名未填寫
If Len(CboUSER) = 0 Then
MsgBox "請填寫用戶名！", vbExclamation + vbOKOnly, "信息"
Exit Sub
End If
'舊密碼不正確
Recuser.FindFirst "user='" + Trim(CboUSER) + "' and pwd='" + Trim(txtOldPwd) + "'"
If Recuser.NoMatch Then
MsgBox "舊密碼不正確！", vbExclamation + vbOKOnly, "信息"
txtOldPwd = ""
txtOldPwd.SetFocus
Else
If Len(txtNewPwd) = 0 Then
MsgBox "密碼不能為空！", vbExclamation + vbOKOnly, "信息"
txtNewPwd.SetFocus
Else
Recuser.Edit
Recuser.Fields("pwd") = Trim(txtNewPwd)
Recuser.Update
MsgBox "祝賀您！修改成功", vbExclamation + vbOKOnly, "信息"
CboUSER = ""
txtOldPwd = ""
txtNewPwd = ""
Unload Me
End If
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub Command1_Click()
On Error Resume Next
If Len(CboUSER) = 0 Then Exit Sub
If CboUSER.Text = "系統管理員" Then Exit Sub
Recuser.FindFirst "user='" + Trim(CboUSER) + "'"
Kill App.Path & "\system\" & Trim(CboUSER) & ".txt"
Recuser.Delete
CboUSER.Clear
Recuser.MoveLast
Recuser.MoveFirst
While Not Recuser.EOF
CboUSER.AddItem Recuser.Fields("user")
Recuser.MoveNext
Wend
CboUSER.SetFocus
End Sub
Private Sub Form_Load()
Set Recuser = Dbstudent.OpenRecordset("select * from user", dbOpenDynaset)
Recuser.MoveLast
Recuser.MoveFirst
While Not Recuser.EOF
CboUSER.AddItem Recuser.Fields("user")
Recuser.MoveNext
Wend
End Sub
Private Sub txtNewPwd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdDenJ_Click
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -