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

txtClassno.Enabled = True

comboGrade.Enabled = True

txtDirector.Enabled = True

txtClassroom.Enabled = True

comboGrade.AddItem "初中一年级"

comboGrade.AddItem "初中二年级"

comboGrade.AddItem "初中三年级"

comboGrade.AddItem "高中一年级"

comboGrade.AddItem "高中二年级"

comboGrade.AddItem "高中三年级"

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

txtClassno.Enabled = False

comboGrade.Enabled = False

txtDirector.Enabled = False

txtClassroom.Enabled = False

txtSQL = "select * from class_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.MoveFirst

Call viewData

myBookmark = mrc.Bookmark

mcclean = True

End Sub

Public Sub viewData()

txtClassno.Text = mrc.Fields(0)

comboGrade.Text = mrc.Fields(1)

txtDirector.Text = mrc.Fields(2)

txtClassroom.Text = mrc.Fields(3)

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