大学生奖助学金管理信息系统数据库的设计与实现(8)

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

If Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then

MsgBox " 两次输入密码不一样，请确认！", vbOKOnly + vbExclamation, "警告" txtPassword1.SetFocus txtPassword1.Text = "" txtPassword2.Text = "" Exit Sub Else

If txtPassword1.Text = "" Then

MsgBox " 密码不能为空！", vbOKOnly + vbExclamation, "警告" txtPassword1.SetFocus txtPassword1.Text = "" txtPassword2.Text = "" Else mrc.AddNew

mrc.Fields(0) = Trim(txtUserName.Text) mrc.Fields(1) = Trim(txtPassword1.Text) mrc.Update mrc.Close Me.Hide

MsgBox " 添加用户成功！", vbOKOnly + vbExclamation, "添加用户" End If End If End Sub

修改密码

Private Sub cmdCancel_Click() Unload Me End Sub

Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset

If Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then MsgBox " 密码输入不正确！", vbOKOnly + vbExclamation, "警告" txtPassword1.SetFocus txtPassword1.Text = "" Else

txtSQL = "select * from user_Info where user_ID='" & UserName & " '" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(1) = txtPassword1.Text mrc.Update mrc.Close

MsgBox " 密码修改成功！", vbOKOnly + vbExclamation, "修改密码"

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库大学生奖助学金管理信息系统数据库的设计与实现(8)在线全文阅读。