学生信息管理系统VB课程设计(16)

'可预约

Dim bStudenting As Boolean bStudenting = False

strColumn = dgrdResult.Columns(0).Text

sqlstr = "select * from StudentTable where StudentID='" + strColumn + "'" http://www.77cn.com.cnmands("cmdFindStudent").CommandText = sqlstr '刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdfindstudent

txtID.Text = DataE.rscmdFindStudent!StudentID

txtName.Text = DataE.rscmdFindStudent!StudentName txtClass.Text = DataE.rscmdFindStudent!Class txtGender.Text = DataE.rscmdFindStudent!Gender

txtAcceptanceTime.Text = DataE.rscmdFindStudent!AcceptanceTime txtDormitory.Text = DataE.rscmdFindStudent!Dormitory txtHometown.Text = DataE.rscmdFindStudent!Hometown

sqlstr = "select * from ScoreTable where StudentID='" + strColumn + "'" http://www.77cn.com.cnmands("cmdScore").CommandText = sqlstr '刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdScore

txtChinese.Text = DataE.rscmdScore!chinese txtMaths.Text = DataE.rscmdScore!maths txtEnglish.Text = DataE.rscmdScore!english txtPolitics.Text = DataE.rscmdScore!politics txtPhysics.Text = DataE.rscmdScore!physics txtChemistry.Text = DataE.rscmdScore!chemistry

dgrdResult.Visible = False frameDetail.Visible = True End Sub

4.4 用户注册界面设计

如图4-4。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库学生信息管理系统VB课程设计(16)在线全文阅读。