同济大学数据库作业lab7,8

同济大学数据库作业lab7,8同济大学数据库作业lab7,8同济大学数据库作业lab7,8同济大学数据库作业lab7,8编制仅供参考审核批准生效日期地址：电话：传真:邮编:同济大学《数据库技术及应用》实验报告实验报告题目：建立与数据库的链接和基于绑定的数据库访问姓名：学号：年级：专业：指导教师：日期：2014年11月16日实验目的掌握数据库访问模型的主要对象和功能掌握SQL和数据库的链接方法学习绑定对象的操作方法实验内容（实验题目+运行界面截图+实现代码）掌握前台和SqlServer后台的链接方法ImportsClassForm1PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesDimmyconnAsNewSqlConnection("database=university;datasource=jd43\SQLEXPRESS;integratedsecurity=true")DimmysqlAsString="select*fromstudent"DimmyadapterAsNewSqlDataAdapter(mysql,myconn)DimmydatasetAsNewDataSet(mydataset,"student")=(0)EndSubEndClass在university上用完成如下界面ImportsClassForm2PrivateSubForm2_Load(senderAsObject,eAsEventArgs)HandlesDimmyconnAsNewSqlConnection("database=university;datasource=jd43\SQLEXPRESS;integratedsecurity=true")DimmysqlAsString="selectas'学号',snameas'姓名',count(secnum)as'选修课程门数',avg(score)as'平均成绩',sum(1-score/60)as'不及格门数'fromstudent,scwhere=groupby,sname"DimmyadapterAsNewSqlDataAdapter(mysql,myconn)DimmydatasetAsNewDataSet(mydataset,"student")=(0)EndSubEndClass建立university和student的浏览界面ImportsClassForm1DimmybindAsNewBindingSourceDimmysqlAsString="select*fromstudent"DimmyconnAsNewSqlConnection("database=university;datasource=jd43\SQLEXPRESS;integratedsecurity=true")DimmyadapterAsNewSqlDataAdapter(mysql,myconn)DimmydatasetAsNewDataSetPrivateSub退出系统ToolStripMenuItem_Click(senderAsObject,eAsEventArgs)Handles退出系统EndEndSubPrivateSubForm1_Load(senderAsObject,eAsEventArgs)Handles(mydataset,"student")=mydataset="student"Binding("text",mybind,"snum",True))Binding("text",mybind,"sname",True))Binding("text",mybind,"sex",True))Binding("text",mybind,"dept",True))Binding("text",mybind,"birthday",True))Binding("text",mybind,"telephone",True))EndSubPrivateSubButton4_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton5_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton6_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton7_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton1_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton3_Click(senderAsObject,eAsEventArgs)Handles()()DimcmAsNewSqlCommandBuilder(myadapter)(0))EndSubEndClass完成学生成绩浏览功能的设计ImportsClassForm2DimmybindAsNewBindingSourceDimmysqlAsString="select*fromshiyan8"DimmyconnAsNewSqlConnection("database=university;datasource=jd43\SQLEXPRESS;integratedsecurity=true")DimmyadapterAsNewSqlDataAdapter(mysql,myconn)DimmydatasetAsNewDataSetPrivateSubForm2_Load(senderAsObject,eAsEventArgs)Handles(mydataset,"shiyan8")=mydataset="shiyan8"Binding("text",mybind,"snum",True))Binding("text",mybind,"sname",True))Binding("text",mybind,"cname",True))Binding("text",mybind,"score",True))EndSubPrivateSubButton1_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton3_Click(senderAsObject,eAsEventArgs)Handles()EndSubPrivateSubButton4_Click(senderAsObject,eAsEventArgs)Handles()