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

驗(yàn)后填寫。年級+專業(yè)班+學(xué)號(hào)++實(shí)驗(yàn)序號(hào)其中“、學(xué)院、專業(yè)”用中文，實(shí)驗(yàn)序號(hào)用01、02、03…10等。例如:10生物工程01班 張三01.rar誤，用≈表示半對半錯(cuò)。在“教師評價(jià)”欄中“評價(jià)教師簽名”填寫評價(jià)教師520151102□驗(yàn)證性?設(shè)計(jì)性□ 一、實(shí)驗(yàn)?zāi)繉?shí)２、設(shè)計(jì)菜單、； ；form3；PrivateSub顯示全部信息ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles顯示全部信息ToolStrip EndSubPrivateSub編輯學(xué)生信息ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles編輯學(xué)生信息ToolStrip EndSubPrivateSub查詢學(xué)生信息ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles查詢學(xué)生信息ToolStrip EndSubPrivateSub關(guān)閉ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles關(guān)閉ToolStrip EndPublicClassPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimdsAsNewDataSet()SqlDataAdapter1.Fill(ds,"student")DataGridView1.DataSource=ds.tables("student")EndSubEndClasssqlconnectionsqldataadapterPrivateSubForm3_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDastudent.Fill(studataset,Dimcurrrow()AsDataRow=studataset.Tables("student").Select(Nothing,Nothing,linesum=currrow.Length linenum= Button6.Enabled=FalseEndPublicSubLabel6.Text說明：第&Str(linenum1)&條，共&Str(linesum)&"條"Iflinesum>0ThenDimmyrowAsDataRow=studataset.Tables("student").Rows(linenum)TextBox1.Text=myrow("sno")TextBox2.Text=myrow("sname")TextBox4.Text=myrow("s TextBox3.Text=myrow("sage")TextBox5.Text=Label6.Text沒有記錄了！！"EndIfEndPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickIflinenum<linesum-1Thenlinenum=linenum+1 EndIfEndPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIflinenum>0Thenlinenum=linenum-1EndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsHandleslinenum=0EndPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsHandleslinenum=linesum-1EndPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickTextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text="Button5.Enabled=FalseButton6.Enabled=TrueButton7.Enabled=FalseButton8.Enabled=EndPrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickIfTextBox1.Text=""ThenDimmyrowAsDataRow=studataset.Tables("student").NewRowmyrow("sno")=TextBox1.Textmyrow("sname")=TextBox2.Text ")=TextBox4.Textmyrow("sage")=Val(TextBox3.Text)myrow("sdept")=TextBox5.TextDastudent.Update(studataset,"student")linesum=linesum+1linenum=linenum-1Button5.Enabled=TrueButton6.Enabled=FalseButton7.Enabled=TrueButton8.Enabled=TrueEndIfEndSubPrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.ClickDimmyrowAsDataRow=studataset.Tables("student").Rows(linenum)myrow("sno")=TextBox1.Textmyrow("sname")=TextBox2.Text ")=TextBox4.Textmyrow("sage")=Val(TextBox3.Text)myrow("sdept")=TextBox5.TextDastudent.Update(studataset,"student")EndSubEndClassPrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.ClickDimmyrowAsDataRowIflinesum>0Thenmyrow=studataset.Tables("student").Rows(linenum)Dastudent.Update(studataset,"student")linesum=linesum-1Iflinenum=linesumThenlinenum=linenum-EndIfEndIfEndsqlconnection和一個(gè)sqldataadapterPublicClassPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimstrSQLAsDimmydatasetAsNewDataSetstrSQL="select*fromstudent" mandText= DataGridView1.DataSource=mydataset.Tables("student")End 如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimstrSQL,strWhere,str AsString,flagAsIntegerDimmyDataSetAsNewDataSetflag=strSQL="select*fromstudentwhereIfCheckBox1.Checked=TruestrWhere="snamelike'"+Trim(TextBox1.Text)+"%'"flag=1EndIfCheckBox2.Checked=TrueIfRadioButton1.CheckedTrueThen ="男" 女"EndIfIfflag=0strWhere= ='"+ +s