学生信息管理系统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。