驗(yàn)后填寫。年級(jí)+專業(yè)班+學(xué)號(hào)++實(shí)驗(yàn)序號(hào)其中“、學(xué)院、專業(yè)”用中文，實(shí)驗(yàn)序號(hào)用01、02、03…10等。例如:10生物工程01班 張三01.rar誤，用≈表示半對(duì)半錯(cuò)。在“教師評(píng)價(jià)”欄中“評(píng)價(jià)教師簽名”填寫評(píng)價(jià)教師5112□驗(yàn)證性?設(shè)計(jì)性□ 1、熟悉VisualStudio2010223２、設(shè)計(jì)菜單、；4.提交：*.sln、*.vb、*.vbproj、*.mdf等與系統(tǒng)相關(guān)的文件(打包從工具箱拖放一個(gè)sqlconnection控件和一個(gè)sqldataadapterPublicClassPublicstudatasetAsDataSet=NewDataSetPubliclinenum,linesumAsIntegerPublicSublbmsg.Textì|明??：êo第ì¨2"&Str(linenum1&??，ê?共2&Str(linesum)&"條??"Iflinesum>0DimmyrowAsDataRow=studataset.Tables("tblstudent").Rows(linenum)txtstuid.Text=myrow("stuid")txtstuname.Text=myrow("stuname")txtstuage.Text=myrow("stuage") .Text=myrow("stu txtcolid.Text=myrow("colid")lbmsg.Text?D記?錄?了￠?！ê?"EndIfEndPrivateSubfrmstudent_Load(senderAsSystem.Object,eAsSystem.EventArgs)dastudent.Fill(studataset,Dimcurrrow()AsDataRow=studataset.Tables("tblstudent").Select(Nothing,Nothing,DataViewRowState.CurrentRows)linesum=currrow.Lengthlinenum=0bnsave.Enabled=FalseEndPrivateSubbnfirst_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handleslinenum=0EndPrivateSubbnnext_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIflinenum<linesum-1Thenlinenum=linenum+1EndIfEndSubPrivateSubbnprev_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIflinenum>0Thenlinenum=linenum-1EndIfEndSubPrivateSubbnlast_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handleslinenum=linesum-1EndPrivateSubbnadd_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handlestxtstuid.Text=""txtstuname.Text=""txtstuage.Text="" .Text=""txtcolid.Text=""bnsave.Enabled=Truebndel.Enabled=Falsebnmodif.Enabled=Falsebnadd.Enabled=FalseEndPrivateSubbnsave_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIftxtstuid.Text=""dastudent.Fill(studataset,DimmyrowAsDataRow=myrow("stuid")=txtstuid.Textmyrow("stuname")=txtstuname.Textmyrow("stuage")=Val(txtstuage.Text) ")=txtstu myrow("colid")=txtcolid.Textdastudent.Update(studataset,"tblstudent")linesum=linesum+1linenum=linesum-1bnadd.Enabled=Truebndel.Enabled=Truebnmodif.Enabled=Truebnsave.Enabled=EndIfEndSubPrivateSubbndel_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRowIflinesum>0Thenmyrow=studataset.Tables("tblstudent").Rows(linenum)'dastudent.Fill(studataset,"tblstudent")dastudent.Update(studataset,"tblstudent")linesum=linesum-1Iflinenum=linesumThenlinenum=linenum-EndIfEndIfEndPrivateSubbnmodif_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRow=studataset.Tables("tblstudent").Rows(linenum)myrow("stuid")=txtstuid.Textmyrow("stuname")=txtstuname.Textmyrow("stuage")=txtstuage.Text ")=txtstu myrow("colid")=txtcolid.Textdastudent.Update(studataset,"tblstudent")EndSubEndClass5.PublicClassPrivateSubbnshowall_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbnshowall.ClickDimstrSQLAsDimmyDataSetAsNewstrSQL="select*fromtblstudent" mandText= dastudent.Fill(myDataSet,"tblStudent")DataGrid1.DataSource=myDataSet.Tables("tblStudent")EndPrivateSubbnfind_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbnfind.ClickDimstrSQLAsString,strWhereAsString,str AsString,flagAsIntegerDimmyDataSetAsNewDataSetflag=strSQL="select*fromtblstudentwhere"strWhere=""If ame.Checked=TruestrWhere="StuNameLike"+"'%"+Trim(txtname.Text)+"%'"flag=1End'strSQL=strSQL+strWhereIf .Checked=TrueIfradiomale.CheckedTrueThen ="男D" EndIfIfflag=0strWhere=" ='"+ +strWhere=strWhere+"and ='"+ +EndIfflag=1EndstrSQ