計算機信息管理基礎(chǔ)009文件實驗報告14經(jīng)濟

驗后填寫。年級+專業(yè)班+學號++實驗序號其中“、學院、專業(yè)”用中文，實驗序號用01、02、03…10等。例如:10生物工程01班 張三01.rar誤，用≈表示半對半錯。在“教師評價”欄中“評價教師簽名”填寫評價教師52015.□驗證性?設(shè)計性□ 評價教師簽名：戴云（２、設(shè)計菜單、；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四、實驗結(jié)果（題解或運行結(jié)果四、實驗結(jié)果（題解或運行結(jié)果PrivateSub編輯學生信息ToolStrip Item_Click(send