計(jì)算機(jī)信息管理基礎(chǔ)009文件實(shí)驗(yàn)報(bào)告14經(jīng)濟(jì)

驗(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à)教師52015.□驗(yàn)證性?設(shè)計(jì)性□ 評(píng)價(jià)教師簽名：戴云（２、設(shè)計(jì)菜單、；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四、實(shí)驗(yàn)結(jié)果（題解或運(yùn)行結(jié)果四、實(shí)驗(yàn)結(jié)果（題解或運(yùn)行結(jié)果PrivateSub編輯學(xué)生信息ToolStrip Item_Click(send