VB+SQLSERVER做的房地产管理信息系统
源代码在线查看： frmmodifyuserinfo.frm
VERSION 5.00
Begin VB.Form frmModifyuserinfo
BorderStyle = 1 'Fixed Single
Caption = "修改密码"
ClientHeight = 2895
ClientLeft = 30
ClientTop = 330
ClientWidth = 3960
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 2895
ScaleWidth = 3960
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Index = 1
Left = 1920
PasswordChar = "*"
TabIndex = 3
Top = 360
Width = 1572
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Index = 2
Left = 1920
PasswordChar = "*"
TabIndex = 2
Top = 1080
Width = 1572
End
Begin VB.CommandButton cmdOK
Caption = "确认"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 720
TabIndex = 1
Top = 2040
Width = 1095
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 2160
TabIndex = 0
Top = 2040
Width = 1095
End
Begin VB.Label Label2
Caption = "请输入新密码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 150
TabIndex = 5
Top = 480
Width = 1665
End
Begin VB.Label Label3
Caption = "请确认新密码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 180
TabIndex = 4
Top = 1200
Width = 1635
End
End
Attribute VB_Name = "frmModifyuserinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim txtSQL, MsgText As String
Dim mrc As ADODB.Recordset
If Trim(Text1(1).Text) Trim(Text1(2).Text) Then
MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Else
txtSQL = "select * from user_Info where user_ID = '" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.Fields(1) = Text1(1).Text
mrc.Update
mrc.Close
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
Me.Hide
End If
End Sub
