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

驗后填寫。年級+專業(yè)班+學號++實驗序號其中，“、學院、專業(yè)”用中文，實驗序號用01、02、03…10等。例如:10生物工程01班 張三01.rar誤，用≈表示半對半錯）。在“教師評價”欄中“評價教師簽名”填寫評價教師5201511028□驗證性?設(shè)計 □綜合思路正 評價教師簽名：戴云一、實驗目1、使用VB.NET 4.提交：*.sln、*.vb、*.vbproj、*.mdf三、言為VB，命名為“14級經(jīng)濟01班 strip控件，添加“3Form1，F(xiàn)orm2,Form3,分別對應菜單開始中的三點擊“編輯學生信息”顯示form3；點擊“查詢學生信息”顯示PrivateSub顯示全部信息ToolStripItem_Click(senderAsSystem.ObjecteAsSystem.EventArgsHandles顯示全部信息ToolStripItem.ClickEndSubPrivateSub編輯學生信息ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles編輯學生信息 EndSubPrivateSub查詢學生信息ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles查詢學生信息 EndSubPrivateSub關(guān)閉ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles關(guān)閉 EndSub 對form2進行編輯Button添加一個sqlconnection和一個sqldataadapter并且連接到數(shù)PublicClassPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimdsAsNewDataSet()SqlDataAdapter1.Fill(ds,"S")DataGridView1.DataSource=ds.tables("S")EndSubEndClass 對form3進行編textbox;lable；八個添加一個sqlconnection和一個sqldataadapter并且連接到數(shù)PrivateSubForm3_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDastudent.Fill(lihandataset,"S")Dimcurrrow()AsDataRow=studataset.Tables("S").Select(Nothing,Nothing,linesum=currrow.Length linenum=0 Button6.Enabled=FalseEndSubPublicSubLabel6.Text&Str(linenum1)&&Str(linesum)&"條"Iflinesum>0DimmyrowAsDataRow=TextBox1.Text=myrow("sno")TextBox2.Text=myrow("sname")TextBox4.Text=myrow("s TextBox3.Text=myrow("sage")TextBox5.Text=myrow("dept")Label6.TextEndIfEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickIflinenum<linesum-1Thenlinenum=linenum+1 條EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIflinenum>0linenum=linenum-EndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clicklinenum=0EndPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Clicklinenum=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=""DimmyrowAsDataRowmyrow("sno")=TextBox1.Textmyrow("sname")=TextBox2.Text ")=TextBox4.Textmyrow("sage")=Val(TextBox3.Text)myrow("dept")=TextBox5.TextDaS.Update(lihandataset,"S")linesum=linesum+1linenum=linenum-1Button5.Enabled=TrueButton6.Enabled=FalseButton7.Enabled=TrueButton8.Enabled=EndIfEndSubPrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.ClickDimmyrowAsDataRow=myrow("sno")=TextBox1.Textmyrow("sname")=TextBox2.Text ")=TextBox4.Textmyrow("sage")=Val(TextBox3.Text)myrow("dept")=TextBox5.TextDaS.Update(lihandataset,"S")EndSubEndClassPrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.ClickDimmyrowAsDataRowIflinesum>0Thenmyrow=studataset.Tables("student").Rows(linenum)Dastudent.Update(studataset,"student")linesum=linesum-1Iflinenum=linesumThenlinenum=linenum-EndIfEndIfEndSub 對form4進行編添加一個DataGridview控件；sqlconnection和一個sqldataadapter并且連接到PublicClassPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimstrSQLAsDimmydatasetAsNewDataSetstrSQL="select*fromS" mandText= DataGridView1.DataSource=mydataset.Tables("S")End 兩個方面。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimstrSQL,strWhere,str AsString,flagAsIntegerDimmyDataSetAsNewDataSetflag=strSQL="select*fromSwhereIfCheckBox1.Checked=TruestrWhere="snamelike'"+Trim(TextBox1.Text)

flag=1EndIfIfCheckBox2.Checked=TrueIfRadioButt