大学生奖助学金管理信息系统数据库的设计与实现(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, "修改密码"