提交作业的附件14经济

2015119□验证性□设计性☑ 2、设计菜单、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="欢迎使用学生信息管理系统"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("学号")TextBox2.Text= TextBox3.Textmyrow("")TextBox4.Textmyrow("")TextBox5.Text=myrow("学院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("学号")=TextBox1.Textmyrow("")=TextBox2.Textmyrow("")=TextBox3.Textmyrow("")=TextBox4.Textmyrow("学院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("学号")=TextBox1.Textmyrow("")=TextBox2.Textmyrow("")=TextBox3.Textmyrow("")=TextBox4.Textmyrow("学院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四、实验结果（题解或运行结果 点击帮助点击游戏，打开扫雷游戏界SqlDataAdapterName“DaStudent点击第一点击末一点击上一①②③点击下一①②点击添