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

2015119□驗證性□設(shè)計性? 2、設(shè)計菜單、PublicClassPrivateSub退出ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles退出ToolStrip EndPrivateSub退出ToolStrip Item1_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles退出ToolStrip EndPrivateSub打開ToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles打開ToolStrip EndPrivateSub打開ToolStrip Item1_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles打開ToolStrip EndSubPrivateSub退出QToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles退出QToolStrip EndPrivateSubToolStripButton2_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesToolStripButton2.ClickEndPrivateSubToolStripButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesToolStripButton1.Click ("C:\ProgramFiles\ EndSubPrivateSub打開ToolStrip Item2_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles打開ToolStrip ("C:\ProgramFiles\ EndSubPrivateSub幫助HToolStrip Item_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handles幫助HToolStrip EndSubPrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesLabel1.Text="歡迎使用學(xué)生信息管理系統(tǒng)"Label1.LeftMe.Width2Label1.Width2Label1.ForeColor=Color.BlueEndSubEndClassSqlDataAdapterName“DaStudentPublicClassPublicstudatasetAsDataSet=NewDataSetPubliclinenum,linesumAsIntegerPublicSubLabel6.Text說明：第&Str(linenum1)&條，共&Str(linesum)&"條"Iflinesum>=0ThenDaStudent.Fill(studataset,DimmyrowAsDataRowstudataset.Tables("student_inf").Rows(linenum)TextBox1.Text=myrow("學(xué)號")TextBox2.Text= TextBox3.Textmyrow("")TextBox4.Textmyrow("")TextBox5.Text=myrow("學(xué)院Label6.Text沒有記錄了！"EndIfEndPrivateSubForm2_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDaStudent.Fill(studataset,Dimcurrrow()AsDataRow=studataset.Tables("student_inf").Select(Nothing,Nothing,DataViewRowState.CurrentRows)linesum=currrow.Lengthlinenum=0Button6.Enabled=FalseEndPrivateSubButton3_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIflinenum<linesum-1Thenlinenum=linenum+1EndIfEndPrivateSubButton2_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIflinenum>0Thenlinenum=linenum-1EndIfEndPrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handleslinenum=0EndPrivateSubButton4_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handleslinenum=linesum-1EndPrivateSubButton5_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesTextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""Button1.Enabled=FalseButton2.Enabled=TrueButton3.Enabled=FalseButton4.Enabled=EndPrivateSubButton6_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIfTextBox1.Text=""ThenDimmyrowAsDataRowstudataset.Tables("").NewRowmyrow("學(xué)號")=TextBox1.Textmyrow("")=TextBox2.Textmyrow("")=TextBox3.Textmyrow("")=TextBox4.Textmyrow("學(xué)院DaStudent.Update(studataset,"student_inf")linesum=linesum+1linenum=linesum-1Button1.Enabled=TrueButton2.Enabled=FalseButton3.Enabled=TrueButton4.Enabled=TrueEndIfEndSubPrivateSubButton8_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRowIflinesum>0Thenmyrow=studataset.Tables("student_inf").Rows(linenum)DaStudent.Update(studataset,"student_inf")linesum=linesum-1Iflinenum=linesumThenlinenum=linenum-EndIfEndIfEndPrivateSubButton7_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyrowAsDataRowstudataset.Tables("student_inf").Rows(linenum)myrow("學(xué)號")=TextBox1.Textmyrow("")=TextBox2.Textmyrow("")=TextBox3.Textmyrow("")=TextBox4.Textmyrow("學(xué)院DaStudent.Update(studataset,"student_inf")EndSubEnd建立新項目，并在窗體中添加button、textbox、labelDataGridCaptionTextSqlDataAdapterName“DaStudentPublicClassPrivateSubButton2_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQLAsDimmydatasetAsNewstrSQL="select*fromstudent_inf" mandText= DataGrid1.DataSource=mydataset.Tables("student_inf")EndPrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQL,strWhere,str AsString,flagAsIntegerDimmydatasetAsNewDataSetflag=strSQL="select*fromstudent_infwhereIfCheckBox1.Checked=TruestrWhere=" like'%"&Trim(TextBox1.Text)&"%'"flag=1EndIfCheckBox2.Checked=TrueIfRadioButton1.CheckedTrueThen ="男" 女"EndIfIfflag=0strWhere= ='"& &strWhere=strWhere& ='"& &EndIfflag=1EndstrSQL=strSQL&strWhereIfflag=1Then mandText= DataGrid1.DataSource=mydataset.Tables("student_inf")EndIfEndSubEndClass四、實驗結(jié)果（題解或運行結(jié)果 點擊幫助點擊游戲，打開掃雷游戲界SqlDataAdapterName“DaStudent點擊第一點擊末一點擊上一①②③點擊下一①②點擊添