提交作業(yè)的附件14經(jīng)濟(jì)

實(shí)驗(yàn)報(bào)告須驗(yàn)后填寫。年級+專業(yè)班+學(xué)號++實(shí)驗(yàn)序號其中“、學(xué)院、專業(yè)”用中文，實(shí)驗(yàn)序號用01、02、03…10等。例如:10生物工程01班 張三01.rar誤，用≈表示半對半錯(cuò)。在“教師評價(jià)”欄中“評價(jià)教師簽名”填寫評價(jià)教師5□驗(yàn)證性?設(shè)計(jì) □綜合 1VisualStudio2010223２、設(shè)計(jì)菜單、；4.提交：*.sln、*.vb、*.vbproj、*.mdf具體步驟如下：1.Windows 件欄”中就會(huì)出現(xiàn)一個(gè)Name為 Strip1的控件。 Strip1的控件上單擊鼠標(biāo)右鍵，選擇“編輯菜單，進(jìn)行對菜單的編輯clickForm2，658sqlConnectionConnectionSqlConnectionSqlDataAdapter上，對SqlConnection進(jìn)行參數(shù)配置，將SqlDataAdapter控件的Name屬性改為ImportsSystem.Data'ImportsSystem.Data.SqlPublicClassForm1PublicstuDataSetAsDataSet=NewDataSetPublicLineNum,LineSumAsIntegerPublicSubLbMsg.Text&Str(LineNum1)&&Str(LineSum)&"條"IfLineSum>0 txtStuid.Text=myRow("sno")txtName.Text=myRow("sname")txtSage.Text=myRow("sage") .Text=myRow("s txtColid.Text=myRow("sdept")LbMsg.TextEndIfEndPrivateSubBnNext_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnNext.ClickIfLineNum<LineSum-1ThenLineNum=LineNum+1EndIfEndSubPrivateSubBnPrev_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnPrev.ClickIfLineNum>0ThenLineNum=LineNum-1EndIfEndSubPrivateSubBnFirst_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnFirst.ClickLineNum=0EndPrivateSubBnLast_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnLast.ClickLineNum=LineSum-1EndPrivateSubBnDel_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnDel.ClickDimmyRowAsIfLineSum>0myRow=stuDataSet.Tables("student").Rows(LineNum)DaStudent.Update(stuDataSet,"student")LineSum=LineSum-1IfLineNum=LineSumThenLineNum=LineNum-EndIfEndIfEndPrivateSubBnAdd_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnAdd.ClicktxtStuid.Text=""txtName.Text=""txtSage.Text="" .Text=""txtColid.Text=""BnSave.Enabled=TrueBnDel.Enabled=BnModif.Enabled=FalseBnAdd.Enabled=FalseEndPrivateSubBnSave_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnSave.ClickIftxtStuid.TextThenMsgBox(" myRow("sno")=txtStuid.TextmyRow("sname")=txtName.TextmyRow("sage")=Val(txtSage.Text) ")=txtS myRow("sdept")=txtColid.TextDaStudent.Update(stuDataSet,"student")LineSum=LineSum+1LineNum=LineSum-1BnAdd.Enabled=TrueBnDel.Enabled=TrueBnModif.Enabled=TrueBnSave.Enabled=EndIfEndSubPrivateSubBnModif_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnModif.ClickDimmyRowAsDataRow=stuDataSet.Tables("student").Rows(LineNum)myRow("sno")=txtStuid.TextmyRow("sname")=txtName.TextmyRow("sage")=txtSage.Text ")=txtS myRow("sdept")=txtColid.TextDaStudent.Update(stuDataSet,"student")EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDaStudent.Fill(stuDataSet, LineSum=currRow.LengthLineNum=0BnSave.Enabled=FalseEndSubEndClass建立一個(gè)新項(xiàng)目Form3，添加2個(gè)命令按鈕、2選鈕、2個(gè)復(fù)選框和1文DataGridView從“工具箱”拖放一個(gè)SqlConnection控件和一個(gè)SqlDataAdapter控件到窗體上，對SqlConnection進(jìn)行參數(shù)配置，將SqlDataAdapter控件的Name屬性改為clickImportsSystem.Data.SqlPublicClassPrivateSubBnShowAll_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnShowAll.ClickDimstrSQLAsDimmyDataSetAsNewDataSetstrSQL="select*fromstudent" mandText= DataGridView1.DataSource=myDataSet.Tables("student")EndPrivateSubBnFind_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBnFind.ClickDimstrSQLAsString,strWhereAsString,str AsString,flagAsIntegerDimmyDataSetAsNewDataSetflag=0strSQL="select*fromstudentwhereIf ame.Checked=TruestrWhere="sname Like'"+Trim(TxtName.Text)+"%'"flag=1EndIf .Checked=TrueIfRadioMale.CheckedTrueThen ="男" EndIfIfflag=0strWhere=" ='"+ +strWhere=strWhere+"and ='"+ +EndIfflag=1EndstrSQL=strSQL+strWhereIfflag=1Then mandTe