学生信息管理系统毕业论文和原代码 第42页

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

.........................................................................................................

............................. frmModifysinfo 修改学籍信息窗口代码 ................................

Dim mrc As ADODB.Recordset

Dim myBookmark As Variant

Dim mcclean As Boolean

Private Sub editCommand_Click()

mcclean = False

Frame2.Enabled = False

firstCommand.Enabled = False

previousCommand.Enabled = False

nextCommand.Enabled = False

lastCommand.Enabled = False

txtSID.Enabled = True

txtName.Enabled = True

 << 上一页  [41] [42] [43] [44] [45] [46] [47] [48] [49] [50]  ... 下一页  >>