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

Dim mrc As ADODB.Recordset

Dim myBookmark As Variant

Private Sub cancelCommand_Click()

mrc.Bookmark = myBookmark

Call viewData

firstCommand.Enabled = True

lastCommand.Enabled = True

previousCommand.Enabled = True

nextCommand.Enabled = True

updateCommand.Enabled = False

cancelCommand.Enabled = False

comboExamtype.Enabled = False

comboClassno.Enabled = False

comboSID.Enabled = False

comboCourse.Enabled = False

txtName.Enabled = False

txtResult.Enabled = False

End Sub

Private Sub comboSID_Click()

Dim mrcc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

txtSQL = "select * from student_Info where student_ID = '" & comboSID.Text & "'"

Set mrcc = ExecuteSQL(txtSQL, MsgText)

txtName.Text = mrcc!student_Name

mrcc.Close

End Sub

Private Sub deleteCommand_Click()

Dim MsgText As String

myBookmark = mrc.Bookmark

str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

 << 上一页  [51] [52] [53] [54] [55] [56] [57] [58] [59] [60]  ... 下一页  >>