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

驗(yàn)后填寫。年級+專業(yè)班+學(xué)號++實(shí)驗(yàn)序號其中“、學(xué)院、專業(yè)”用中文，實(shí)驗(yàn)序號用01、02、03…10等。例如:10生物工程01班 01.rar誤，用≈表示半對半錯。在“教師評價(jià)”欄中“評價(jià)教師簽名”填寫評價(jià)教師59□驗(yàn)證性?設(shè)計(jì)性□ （拖放一個SqlConnection控件和一個SqlDataAdapter控件到窗體上并連接到數(shù)據(jù)庫stu中的STUDENT。PublicClassPublicstuDataSetAsDataSet=NewDataSetPubliclineNum,linesumAsIntegerPublicSubLbMsg.Text說明：第&Str(lineNum1&條，共&Str(linesum)&條"Iflinesum>0ThenDimmyrowAsDataRow=stuDataSet.Tables("STUDENT").Rows(lineNum)txtStuName.Text=myrow("SNAME")txtStuId.Text=myrow("SNO")txtStuAge.Text=myrow("AGE")txtStu.Text=myrow(" txtColId.Text=lbmsg.Text沒有記錄了！"EndIfEndPrivateSubform1_load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDaStudent.Fill(stuDataSet,DimcurrRow()AsDataRow=stuDataSet.Tables("STUDENT").Select(Nothing,Nothing,linesum=currRow.Length()lineNum=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=""txtStuAge.Text=""txtStuName.Text="" .Text=""txtColId.Text=""BnSave.Enabled=TrueBnDel.Enabled=FalseBnModif.Enabled=FalseBnAdd.Enabled=FalseEndPrivateSubBnsave_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIfTXTstuid.TextThenDimmyrowAsDataRow=stuDataSet.Tables("STUDENT").NewRowmyrow("SNO")=txtStuId.Textmyrow("SNAME")=txtStuName.Textmyrow("AGE")=Val(txtStuAge.Text) ")=txtStu myrow("DEPT")=txtColId.TextDaStudent.Update(stuDataSet,"STUDENT")linesum=linesum+1linenum=linenum-1Bnadd.Enabled=TrueBndel.Enabled=TrueBnmodif.Enabled=TrueBnsave.Enabled=EndIfEndSubPrivateSubBndel_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRowIflinesum>0Thenmyrow=stuDataSet.Tables("STUDENT").Rows(linenum)DaStudent.Update(stuDataSet,"STUDENT")linesum=linesum-1Iflinenum=linesumThenlinenum=linenum-EndIfEndIfEndPrivateSubBnmodif_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRow=stuDataSet.Tables("STUDENT").Rows(linenum)myrow("SNO")=txtStuId.Textmyrow("SNAME")=txtStuName.Textmyrow("AGE")=Val(txtStuAge.Text) ")=txtStu myrow("DEPT")=txtColId.TextDaStudent.Update(stuDataSet,"STUDENT")EndPrivateSubfrmStudent_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesEndPrivateSubSqlConnection1_InfoMessage(senderAsSystem.Object,eAs .SqlInfoMessageEventArgs)HandlesSqlConnection1.InfoMessageEndSubEndClass3.SqlConnectionSqlDataAdapterstuSTUDENT。PublicClassPrivateSubBnShowAll_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQLAsDimmyDataSetAsNewDataSetstrSQL="select*fromSTUDENT" mandText= DataGrid1.DataSource=myDataSet.Tables("STUDENT")EndPrivateSubBnFind_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQL,strWhere,str AsString,flagAsIntegerDimmyDataSetAsNewDataSetflag=strSQL="select*fromSTUDENTwhereIf ame.Checked=TruestrWhere="SNAMElike'"+Trim(TextName.Text)+"%'"flag=1EndIf .Checked=TrueIfRadioMale.CheckedTrueThen ="男" 女"EndIfIfflag=0strWhere= ='"+ +st