计算机信息管理基础009文件实验报告14经济

验后填写。年级+专业班+学号++实验序号其中“、学院、专业”用中文，实验序号用01、02、03…10等。例如:10生物工程01班 01.rar误，用≈表示半对半错。在“教师评价”栏中“评价教师签名”填写评价教师51129□验证性☑设计性□ 1、熟悉VisualStudio2010223２、设计菜单、；4.提交：*.sln、*.vb、*.vbproj、*.mdf等与系统相关的文件(打包从工具箱拖放一个sqlconnection控件和一个sqldataadapter控件到窗体上。并PublicClassPublicstudatasetAsDataSet=NewDataSetPubliclinenum,linesumAsIntegerPublicSublbmsg.Text说明：第&Str(linenum1&条，共&Str(linesum)&条"Iflinesum>0ThenDimmyrowAsDataRow=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没有记录了！"EndIfEndPrivateSubfrmstudent_Load(senderAsSystem.Object,eAsSystem.EventArgs)Handlesdastudent.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=""Thendastudent.Fill(studataset,DimmyrowAsDataRow=studataset.Tables("tblstudent").NewRowmyrow("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=EndEndPrivateSubbndel_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")EndSubEndClass从工具箱拖放一个sqlconnection控件和一个sqldataadapter控件到窗体上。并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=1EndstrSQL=strSQL+strWhereIfflag=1Then mandText= dastudent.Fill(myDataSet,"tblStudent")DataGrid1.DataSource=myDataSet.Tables("tblStudent")MsgBox(EndIfEndSubEndClass2Pri