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

验后填写。年级+专业班+学号++实验序号其中“、学院、专业”用中文，实验序号用01、02、03…10等。例如:10生物工程01班 张三01.rar误，用≈表示半对半错。在“教师评价”栏中“评价教师签名”填写评价教师52015.□验证性☑设计性□ 评价教师签名：戴云（２、设计菜单、；4.提交：*.sln、*.vb、*.vbproj、*.mdf（打包第一步：按要求添加，按钮；并且修改属SqlconnectionPublicSubLbMsg.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没有记录了!"EndIfEnd第四：在frmstudent窗体的 中输入如下代dastudent.Fill(stuDataSet,DimcurrRow()AsDataRow=stuDataSet.Tables("tblStudent").Select(Nothing,Nothing,DataViewRowState.CurrentRows)LineSum=currRow.LengthLineNum=0bnsave.Enabled=False PrivateSubbnfirst_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesLineNum=0End第七：在“下一条”命令按钮的 中输入如下代PrivateSubbnnext_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIfLineNum<LineSum-1ThenLineNum=LineNum+1EndIfEndSubEnd第八：在上一条命令按钮的 中输入如下代PrivateSubbnprev_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIfLineNum>0ThenLineNum=LineNum-1EndIfEndSub第九：在“末一条”命令按钮的 中输入如下代PrivateSubbnlast_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesLineNum=LineSum-1End第十：在“添加”命令按钮的 中输入如下代PrivateSubbnadd_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handlestxtstuid.Text=""txtstuname.Text=""txtstuage.Text="" .Text=""txtcolid.Text=""bnsave.Enabled=Truebndel.Enabled=Falsebnmodif.Enabled=Falsebnadd.Enabled=FalseEnd第十一：在“保存”命令按钮的 中输入如下代码PrivateSubbnsave_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIftxtstuid.TextThenDimmyRowAsDataRow=stuDataSet.Tables("tblStudent").NewRowmyRow("StuId")=txtstuid.TextmyRow("StuName")=txtstuname.TextmyRow("StuAge")=Val(txtstuage.Text) ")= 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)DimmyRowAsDataRowIfLineSum>0ThenmyRow=stuDataSet.Tables("tblStudent").Rows(LineNum)dastudent.Update(stuDataSet,"tblStudent")LineSum=LineSum-1IfLineNum=LineSumThenLineNum=LineNum-EndIfEndIfEnd第十三：在“修改”命令按钮的 中输入如下代码PrivateSubButton8_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")EndSub成功后，添加Form2，做5.14DataGrid在“全部”命令按钮的 中输入如下代DimstrSQLAsDimmyDataSetAsNewstrSQL="select*fromzhuqiStudent" mandText= DataGridView1.DataSource=myDataSet.Tables("zhuqiStudent")在“查询”命令按钮的 中输入如下代PrivateSubBnFind_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQLAsString,strWhereAsString,str AsString,flagAsInteger,strSnoAsStringDimmyDataSetAsNewDataSetflag=0strSQL="select*fromstuwhereIf ame.Checked=TruestrWhere="StuNameLike"+"'%"+Trim(TxtName.Text)+"%'"flag=1EndIf o.Checked=TruestrWhere="snuid'"+Trim(TxtName2.Text)+"'"flag=1EndIf .Checked=TrueIfRadioMale.CheckedTrueThen ="男" 女"EndIfIfflag=0strWhere=" ='"+ +strWhere=strWhere+"and ='"+ +EndIfflag=1EndstrSQL=strSQL+strWhereIfflag=1Then mandText= DataGridView1.DataSource=myDataSet.Tables("Student")EndIfEnd四、实验结果（题解或运行结果四、实验结果（题解或运行结果PrivateSub编辑学生信息ToolStrip Item_Click(send