驗(yàn)后填寫(xiě)。年級(jí)+專(zhuān)業(yè)班+學(xué)號(hào)++實(shí)驗(yàn)序號(hào)其中“、學(xué)院、專(zhuān)業(yè)”用中文，實(shí)驗(yàn)序號(hào)用01、02、03…10等。例如:10生物工程01班 張三01.rar誤，用≈表示半對(duì)半錯(cuò)。在“教師評(píng)價(jià)”欄中“評(píng)價(jià)教師簽名”填寫(xiě)評(píng)價(jià)教師59□驗(yàn)證性?設(shè)計(jì)性□ 1、熟悉VisualStudio201022２、設(shè)計(jì)菜單、；提交：*.sln、*.vb、*.vbproj、*.mdf等與系統(tǒng)相關(guān)的文件(打包以上文件及實(shí)驗(yàn)報(bào)告電子稿在Form1中添加Main ，在FORM2/FORM3分別添加SQLconnection和SQLadapter，頁(yè)P(yáng)ublicClassPrivateSub Item2_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesEndSubPrivateSub Item3_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesEndSubPrivateSub Item4_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesEndSubEndPublicClassPrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQL,strWhere,str AsString,flagAsIntegerDimmyDataSetAsNewDataSetflag=strSQL="select*fromstuwhereIfCheckname.Checked=TruestrWhere="stunamelike'"+Trim(TextBox1.Text)+"%'"flag=1EndIf .Checked=TrueIfRadioButton1.CheckedTrueThen ="男" 女"EndIfIfflag=0strWhere= ='"+ +strWhere=strWhere+"and ='"+ +EndIfflag=1EndstrSQL=strSQL+strWhereIfflag=1Then mandText= DataGridView1.DataSource=EndIfEndPrivateSubButton2_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQLAsDimmyDataSetAsNewDataSetstrSQL="select*fromstu" mandText= DataGridView1.DataSource=myDataSet.Tables("stu")EndEndPublicClassPublicstuDataSetAsDataSet=NewDataSetPubliclinenum,linesumAsIntegerPublicSublbmsg.Text說(shuō)明：第&Str(linenum1&條，共&Str(linesum)&條"Iflinesum>0ThenDimmyrowAsDataRow=stuDataSet.Tables("stu").Rows(linenum)TXTstuname.Text=myrow("stuname")TXTstuid.Text=myrow("stuid")TXTstuage.Text=myrow("stuage") .Text=myrow("stu TXTdep.Text=myrow("studep")lbmsg.TextEndIfEndSubPrivateSubform3_load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDaStudent.Fill(stuDataSet,DimcurrRow()AsDataRow=stuDataSet.Tables("stu").Select(Nothing,Nothing,linesum=currRow.Length()linenum=0Bnsave.Enabled=FalseEndPrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handleslinenum=0EndPrivateSubButton3_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIflinenum<linesum-1Thenlinenum=linenum+1EndIfEndSubPrivateSubButton2_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIflinenum>0Thenlinenum=linenum-1EndIfEndSubPrivateSubButton4_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handleslinenum=linesum-1EndPrivateSubButton5_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesTXTstuid.Text=""TXTstuage.Text=""TXTstuname.Text="" .Text=""TXTdep.Text=""Bnsave.Enabled=TrueBndel.Enabled=FalseBnmodif.Enabled=FalseBnadd.Enabled=FalseEndPrivateSubBnsave_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIfTXTstuid.TextThenDimmyrowAsDataRow=stuDataSet.Tables("stu").NewRowmyrow("stuid")=TXTstuid.Textmyrow("stuname")=TXTstuname.Textmyrow("stuage")=Val(TXTstuage.Text) ")=TXTstu DaStudent.Update(stuDataSet,"stu")linesum=linesum+1linenum=linenum-1Bnadd.Enabled=TrueBndel.Enabled=TrueBnmodif.Enabled=TrueBnsave.Enabled=EndIfEndSubPrivateSubBndel_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRowIflinesum>0Thenmyrow=stuDataSet.Tables("stu").Rows(linenum)DaStudent.Update(stuDataSet,"stu")linesum=linesum-1Iflinenum=linesumThenlinenum=linenum-EndIfEndIfEndPrivateSubBnmodif_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRow=stuDataSet.Tables("stu").Rows(linenum)myrow("stuid")=TXTstuid.Tex