同濟大學(xué)數(shù)據(jù)庫作業(yè)lab7,8

同濟大學(xué)數(shù)據(jù)庫作業(yè)lab7,8同濟大學(xué)數(shù)據(jù)庫作業(yè)lab7,8同濟大學(xué)數(shù)據(jù)庫作業(yè)lab7,8同濟大學(xué)數(shù)據(jù)庫作業(yè)lab7,8編制僅供參考審核批準生效日期地址：電話：傳真:郵編:同濟大學(xué)《數(shù)據(jù)庫技術(shù)及應(yīng)用》實驗報告實驗報告題目：建立與數(shù)據(jù)庫的鏈接和基于綁定的數(shù)據(jù)庫訪問姓名：學(xué)號：年級：專業(yè)：指導(dǎo)教師：日期：2014年11月16日實驗?zāi)康恼莆諗?shù)據(jù)庫訪問模型的主要對象和功能掌握SQL和數(shù)據(jù)庫的鏈接方法學(xué)習(xí)綁定對象的操作方法實驗內(nèi)容（實驗題目+運行界面截圖+實現(xiàn)代碼）掌握前臺和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'學(xué)號',snameas'姓名',count(secnum)as'選修課程門數(shù)',avg(score)as'平均成績',sum(1-score/60)as'不及格門數(shù)'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退出系統(tǒng)ToolStripMenuItem_Click(senderAsObject,eAsEventArgs)Handles退出系統(tǒng)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完成學(xué)生成績?yōu)g覽功能的設(shè)計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()