同济大学SQL数据库实验9

ImportsSystem.Data.SqlClientPublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsNewSqlConnection(DataBase=university;DataSource=jd311;IntegratedSecurity=True;)DimbAsString=selectstudent.snum,cname,scorefromstudent,sc,section,coursewheresc.snum=student.snumandsc.secnum=section.secnumandsection.cnum=course.cnumandstudent.snum='&TextBox1.Text.Trim&'DimadapterAsNewSqlDataAdapter(b,a)DimdatasetAsNewDataSetadapter.Fill(dataset,list)DataGridView1.DataSource=dataset.Tables(list)DimcAsString=selectsnamefromstudentwheresnum='&TextBox1.Text.Trim&'adapter.SelectCommand.CommandText=cadapter.Fill(dataset,sname)Label2.Text=dataset.Tables(sname).Rows(0).Item(0).ToString&选修课程成绩EndSubEndClass2.ImportsSystem.Data.SqlClientPublicClassForm1DimbindAsNewBindingSourcePrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clickbind.MoveFirst()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Clickbind.MovePrevious()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Clickbind.MoveNext()EndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Clickbind.MoveLast()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsNewSqlConnection(DataBase=university;DataSource=jd311;IntegratedSecurity=True;)DimbAsString=selectstudent.snum,sname,cname,scorefromstudent,sc,section,coursewheresc.snum=student.snumandsc.secnum=section.secnumandsection.cnum=course.cnumandstudent.snum='&TextBox1.Text.Trim&'DimadapterAsNewSqlDataAdapter(b,a)DimdatasetAsNewDataSetadapter.Fill(dataset,list)bind.DataSource=datasetbind.DataMember=listTextBox2.DataBindings.Add(NewBinding(text,bind,snum,True))TextBox3.DataBindings.Add(NewBinding(text,bind,sname,True))TextBox4.DataBindings.Add(NewBinding(text,bind,cname,True))TextBox5.DataBindings.Add(NewBinding(text,bind,score,True))EndSubEndClass