提交作业的附件14经济

2015112□设计性□综合一、实验目1VisualStudio20102二、实验主要内容和要实验内1、使用VB.NET开发数据库应用程序2、设计合理、美观的界面3、实现数据增加、删除、修改及查询功能实验２、设计菜单、；３、通过对界面的操作，完成对数据库中数据进行增加、删除、修改及查询的作4.提交：*.sln、*.vb、*.vbproj、*.mdf等与系统相关的文件(打包三、实验主要步骤或过（一）实现对学生信息的浏览、增加、更新、删除等基本功124PublicstuDataSetAsDataSet=NewDataSetPublicLineNum,LineSumAsIntegerPublicSubShowRows()LbMsg.Text说μ明÷：阰第台&Str(LineNum1)&?,共2"&Str(LineSum)

IfLineSum>0DimmyRowAsDataRow=stuDataSet.Tables("student").Rows(LineNum)txtstuid.Text=myRow("stuid")txtstuname.Text=myRow("stuname")txtstuage.Text=myRow("stuage") .Text=myRow("stu txtsdept.Text=myRow("sdept")lbmsg.Text没有记录EndIfEndSub5、在frmstudent窗体的 中输入如下代PrivateSubfrmstudent_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesSqlDataAdapter1.Fill(stuDataSet,DimcurrRow()AsDataRow=stuDataSet.Tables("student").Select(Nothing,Nothing,LineSum=currRow.LengthLineNum=0bnsave.Enabled=FalseEnd6、在“第一条”命令按钮的 中输入如下代PrivateSubbnfirst_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesLineNum=0End7、在“下一条”命令按钮的 中输入如下代PrivateSubbnnext_Click(senderAsSystem.Object,eAsSystem.EventArgs)IfLineNum<LineSum-1ThenLineNum=LineNum+1EndIfEndSub8、在“上一条”命令按钮的 中输入如下代PrivateSubbnprev_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIfLineNum>0ThenLineNum=LineNum-1EndIfEndSub9、在“末一条”命令按钮的 中输入如下代PrivateSubbnlast_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesLineNum=LineSum-1End10、在“添加”命令按钮的 中输入如下代PrivateSubbnadd_Click(senderAsSystem.Object,eAsSystem.EventArgs)Handlestxtstuid.Text=""txtstuname.Text=""txtstuage.Text="" .Text=""txtsdept.Text=""bnsave.Enabled=Truebndel.Enabled=Falsebnmodif.Enabled=Falsebnadd.Enabled=FalseEnd11、在“保存”命令按钮的 中输入如下代PrivateSubbnsave_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesIftxtstuid.Text=""ThenMsgBox("学号不能为空DimmyRowAsDataRow=stuDataSet.Tables("student").NewRowmyRow("stuid")=txtstuid.TextmyRow("stuname")=txtstuname.TextmyRow("stuage")=Val(txtstuage.Text) ")=txtstu myRow("sdept")=txtsdept.TextSqlDataAdapter1.Update(stuDataSet,LineSum=LineSum+1LineNum=LineSum-1bnadd.Enabled=Truebndel.Enabled=Truebnmodif.Enabled=Truebnsave.Enabled=EndIfEndSub12、在“删除”命令按钮的 中输入如下代PrivateSubbndel_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyRowAsDataRowIfLineSum>0ThenmyRow=stuDataSet.Tables("student").Rows(LineNum)SqlDataAdapter1.Update(stuDataSet,"student")LineSum=LineSum-1IfLineNum=LineSumThenLineNum=LineNum-EndIfMsgBox("没有记录了EndIfEndSub13、在“修改”命令按钮的 中输入如下代PrivateSubbnmodif_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimmyRowAsDataRow=stuDataSet.Tables("student").Rows(LineNum)myRow("stuid")=txtstuid.TextmyRow("stuname")=txtstuname.TextmyRow("stuage")=txtstuage.Text ")=txtstu myRow("sdept")=txtsdept.TextSqlDataAdapter1.Update(stuDataSet,"student")EndSub14（二）、实现对学生信息按多种条件的组合查3DateGrid5、在“全部”命令按钮的 中输入如下代PrivateSubbnshowall_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQLAsDimmyDataSetAsNewDataSetstrSQL="select*fromstudent" mandText= DataGrid1.DataSource=myDataSet.Tables("student")End6、在“查询”命令按钮的 中输入如下代PrivateSubbnfind_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesDimstrSQLAsString,strWhereAsString,str AsString,flagAsIntegerDimmyDataSetAsNewDataSetflag=strSQL="select*fromstudentwhereIf ame.Checked=TruestrWhere="stunameLike'"+Trim(txtstuname.text)+"%'"flag=1EndIf .Checked=TrueIfradiomale.CheckedTrueThen ="男" 女"EndIfIfflag=0strWhere=" ='"+ +strWhere=strWhere+"and ='"+ +EndIfflag=1EndstrSQL=strSQL+strWhereIfflag=1Then mandText= DataGrid1.DataSource=myDataSet.Tables("student")MsgBox("请选择条件EndIfEndSubEnd7四、实验结果（题解或运行结果（一）1245、在frmstudent窗体的 中输入代6、在“第一条”命令按钮的 中输入代7、在“下一条”命令按钮的 中输入代8、在“上一条”命令按钮的 中输入代9、在“末一条”命令按钮的