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

comboClassno.Enabled = True

comboSID.Enabled = True

comboCourse.Enabled = True

txtName.Enabled = True

txtResult.Enabled = True

comboExamtype.AddItem "2000期中"

comboExamtype.AddItem "2000期末"

comboExamtype.AddItem "2001期中"

comboExamtype.AddItem "2001期末"

txtSQL = "select * from class_Info "

Set mrcc = ExecuteSQL(txtSQL, MsgText)

While (mrcc.EOF = False)

comboClassno.AddItem mrcc!class_No

mrcc.MoveNext

Wend

mrcc.Close

myBookmark = mrc.Bookmark

End Sub

Private Sub firstCommand_Click()

mrc.MoveFirst

Call viewData

End Sub

Private Sub Form_Load()

Dim txtSQL As String

Dim MsgText As String

comboExamtype.Enabled = False

comboClassno.Enabled = False

comboSID.Enabled = False

comboCourse.Enabled = False

txtName.Enabled = False

txtResult.Enabled = False

updateCommand.Enabled = False

cancelCommand.Enabled = False

txtSQL = "select * from result_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

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