同济大学数据库作业
l a b7,8
-标准化文件发布号：（9456-EUATWK-MWUB-WUNN-INNUL-DDQTY-KII
同济大学
《数据库技术及应用》
实验报告
实验报告题目：
建立https://www.doczj.com/doc/f01147576.html,与数据库的链接和基于绑定的数据库访问
姓名：学号：
年级：专业：
指导教师：
日期： 2014 年 11 月 16 日
一．实验目的
1.掌握数据库访问模型的主要对象和功能
2.掌握SQL和数据库的链接方法
3.学习绑定对象的操作方法
二．实验内容
（实验题目+运行界面截图+实现代码）
1.掌握https://www.doczj.com/doc/f01147576.html,前台和SqlServer后台的链接方法
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim myconn As New SqlConnection("database=university;data
source=jd43\SQLEXPRESS; integrated security=true")
Dim mysql As String = "select * from student"
Dim myadapter As New SqlDataAdapter(mysql, myconn)
Dim mydataset As New DataSet
myadapter.Fill(mydataset, "student")
DataGridView1.DataSource = mydataset.Tables(0)
End Sub
End Class
2.在university上用https://www.doczj.com/doc/f01147576.html,完成如下界面
Imports System.Data.SqlClient
Public Class Form2
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim myconn As New SqlConnection("database=university;data
source=jd43\SQLEXPRESS; integrated security=true")
Dim mysql As String = "select student.snum as '学号',sname as '姓名
',count(secnum) as '选修课程门数',avg(score) as '平均成绩',sum(1-score/60) as '不及格门数' from student,sc where student.snum=sc.snum group by student.snum,sname"
Dim myadapter As New SqlDataAdapter(mysql, myconn)
Dim mydataset As New DataSet
myadapter.Fill(mydataset, "student")
DataGridView1.DataSource = mydataset.Tables(0)
End Sub
End Class
3.建立university和student的浏览界面
Imports System.Data.SqlClient
Public Class Form1
Dim mybind As New BindingSource
Dim mysql As String = "select * from student"
Dim myconn As New SqlConnection("database=university;data
source=jd43\SQLEXPRESS;integrated security=true")
Dim myadapter As New SqlDataAdapter(mysql, myconn)
Dim mydataset As New DataSet
Private Sub退出系统ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles退出系统ToolStripMenuItem.Click
End
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load myadapter.Fill(mydataset, "student")
mybind.DataSource = mydataset
mybind.DataMember = "student"
TextBox1.DataBindings.Add(New Binding("text", mybind, "snum", True))
TextBox2.DataBindings.Add(New Binding("text", mybind, "sname", True))
TextBox3.DataBindings.Add(New Binding("text", mybind, "sex", True))
TextBox4.DataBindings.Add(New Binding("text", mybind, "dept", True))
TextBox5.DataBindings.Add(New Binding("text", mybind, "birthday", True))
TextBox6.DataBindings.Add(New Binding("text", mybind, "telephone", True)) End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click mybind.MoveFirst()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click mybind.MovePrevious()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click mybind.MoveNext()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click mybind.MoveLast()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click mybind.AddNew()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click mybind.RemoveCurrent()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Validate()
mybind.EndEdit()
Dim cm As New SqlCommandBuilder(myadapter)
myadapter.Update(mydataset.Tables(0))
End Sub
End Class
4.完成学生成绩浏览功能的设计
同济大学课程考核试卷（A卷） 2012 —2013 学年第一学期 课号：10014501 课名：数据库系统原理（双语）考试考查：考试此卷选为：期中考试( )、期终考试( )、重考( ) 试卷 年级专业学号姓名得分 Ⅰ. Multiple choice (20 marks, 2 marks each) （C ）1. Five basic relational algebra operations are , others can be derived from these operations. A. ?，-，π，σ，? B. ?，-，π，σ， C. ?，-，π，σ，? D. ?，÷，π，σ， （ABD）2. The following aggregation function(s) will neglect null value. A. SUM B. MAX C. COUNT D. A VG （A. ）3. Given R
同济大学 《数据库技术及应用》 实验报告 实验报告题目： 视图，存储过程和触发器 姓名：学号： 年级：专业： 指导教师： 日期：2014 年10 月27 日
一．实验目的 1．学会视图的建立和基于视图的数据库建立 2．学会存储过程的建立和存储方法 3．学会触发器的建立和使用方法，通过实验数据的操作过程了解应用触发器实现数据库完整性控制的设计过程 二．实验内容 （实验题目+运行界面截图+实现代码） 1.（1）创建视图viewa，查询有选课记录的学生号，课程号，课程名称。成绩。 create view viewA as select student.snum,sc.secnum,https://www.doczj.com/doc/f01147576.html,ame,sc.score from student,sc,sections,course where student.snum=sc.snum and sc.secnum=sections.secnum and https://www.doczj.com/doc/f01147576.html,um=https://www.doczj.com/doc/f01147576.html,um
（2）在上述视图的基础上查询所有学生都及格的课程名称select cname from viewA group by cname having min(score)>60 2.存储过程的建立和执行 （1）建立存储过程proca，其功能是显示所有学生的基本信息
create proc proca as select* from student exec proca （2）建立procb，查询出给定出生年份信息的学生信息 create proc procb @_year int as select*from student where year(birthday)=@_year declare@y int set@y=1994 exec procb@y （3）建立存储过程procc，查询给定学好的学生的课程平均成绩，选修课程的门数和不及格课程的门数 create proc procc @_xh char(4) as
SQL search testing --在选课表tblSelectCourse中查询成绩大于80分的学生选课信息： select * from tblSelectCourse where grade > 80 --在表tblCourse中查询课程名中含有‘数学’的课程号和课程名 select courseNo,courseName from tblCourse where courseName like '%数学%' --在表tblStudent中查询生日在1989-01-01到1991-12-31之间的学生的学号,姓名 select studentNo,studentName from tblStudent where birthday between '1989-01-01' and '1991-12-31' --在表tblSelectCourse中列出旷考学生的学号和课号。 select studentNo,courseNo from tblSelectCourse where grade is null-- is null和= null的区别 --查询表tblStudent 列出每个同学的姓名、年龄 select studentName, year(getdate())-year(birthday) as '年龄' from tblStudent --对选课表中数据，按J01课程成绩降序排列，输出学号和成绩。 select studentNo,grade from tblSelectCourse where courseNo='J01' order by grade desc --查找“数值算法”课程成绩在75分以上的学生的姓名、学号、以及具体成绩。 select s.studentName,s.studentNo,grade from tblCourse c,tblSelectCourse sc, tblStudent s where s.studentNo=sc.studentNo and c.courseNo=sc.courseNo and courseName='数值算法' and grade>75
实验4： 1. #include “” void main() {int n,sum=0; for(n=1;;sum+=n,n+=2) if(n>=20) break; cout<<”sum=”< cout< } cout<<”pi=”< 1 单选题做加热易燃液体实验时，应该（）。 A 用电炉加热，要有人看管 B 用电热套加热，可不用人看管 C 用水浴加热，要有人看管 正确答案：C 2 单选题毒物进入人体最主要、最常见的途径是（）。 A 呼吸道 B 皮肤 C 眼睛 D 消化道 正确答案：A 3 单选题倾倒液体试剂时，瓶上标签应朝（）。 A 上方 B 下方 C 左方 D 右方 正确答案：A 4 单选题当不慎把少量浓硫酸滴在皮肤上时，正确的处理方法是（）。 A 用酒精擦 B 马上去医院 C 用碱液中和后，用水冲洗 D 以吸水性强的纸吸去后，用水冲洗 正确答案：D 5 判断题学生可以单独使用剧毒物品吗？ 正确答案：对 6 单选题当有危害的化学试剂发生泄漏、洒落或堵塞时，应（）。 A 首先避开并想好应对的办法再处理 B 赶紧打扫干净或收拾起来 正确答案：A 7 单选题下列物品不属于剧毒化学品的是（）。 A 氰化钾 B 氯化汞 C 铊 D 甲醛 正确答案：D 8 单选题K、Na、Mg、Ca、Li、AlH3、MgO、电石中，遇水发生激烈反应的有（）。 A 5种 B 6种 C 7种 D 8种 正确答案：B 9 单选题金属Hg常温下会（）。 A 不挥发 B 慢慢挥发 C 很快挥发 正确答案：B 10 单选题HCN无色，气味是（）。 A 无味 B 大蒜味 C 苦杏仁味 正确答案：C 11 单选题氮氧化物主要伤害人体的（）器官。 A 眼、上呼吸道 B 呼吸道深部的细支气管、肺泡 正确答案：B 12 单选题易燃易爆试剂应放在（）。 A 在铁柜中，柜的顶部要有通风口 B 在木柜中，柜的顶部要有通风口 C 在铁柜中，并要密封保存 D 在木柜中，并要密封保存 正确答案：A 13 多选题以下哪些酸具有强腐蚀性，使用时须做必要的防护（）。 A 硝酸 B 冰醋酸 C 硼酸 正确答案：A,B 14 多选题使用易燃易爆的化学药品应该注意（）。 A 避免明火加热 B 加热时使用水浴或油浴 C 在通风橱中进行操作 D 不可猛烈撞击 正确答案：A,B,C,D 15 多选题剧毒类化学试剂应如何存放（）。 A 应锁在专门的毒品柜中 B 应存于实验台下柜中 C 置于阴凉干燥处，并与酸类试剂隔离 D 建立双人登记签字领用制度，建立使用、消耗、废物处理等制度 E 储存室应配备防毒、防盗、报警及隔离、消除与吸收毒物的设施正确答案：A,C,D,E 16 多选题爆炸物品在发生爆炸时的特点有（）。 A 反应速度极快，通常在万分之一秒以内即可完成 B 释放出大量的热 C 通常产生大量的气体 D 发出声响 正确答案：A,B,C,D 17 多选题具有下列哪些性质的化学品属于化学危险品（）。 A 爆炸 B 易燃 同济大学大机access作业 有一个数据库Test-5.mdb，其中有表Teachers和Students，他们的结构如下表所示，请写出有关的SQL命令。 点击下载Test-5.mdb数据库 第一题：在表Teachers中插入一条新的记录： 600001 杨梦女64 1966/04/22 YES 1660 210 要求：日期的格式为#4/22/1966# 答案：分数：10.00 INSERT INTO Teachers (教师号,姓名,性别,年龄,参加工作年月,党员,应发工资,扣除工资) VALUES ("600001","杨梦","女",64,#4/22/1966#,YES,1660,210) 第二题:在表Teachers中删除年龄小于36且性别为“女”的记录。 答案：分数：10.00 DELETE FROM Teachers WHERE 年龄<36 AND 性别="女" 第三题:用对表中工龄超过25年的职工加20%元工资。 答案：分数：10.00 UPDATE Teachers SET 应发工资=应发工资*1.2 WHERE(Year(date())-Year(参加工作年月))>25 第四题：查询1990年之前（包括1990年）参加工作的所有教师的教师号、姓名和实发工资，查询结果按实发工资从高到低排序。 答案：分数：10.00 SELECT 教师号,姓名,(应发工资-扣除工资) AS 实发工资FROM Teachers WHERE YEAR(参加工作年月)<=1990 ORDER BY 应发工资-扣除工资DESC 第五题：查询教师的人数和平均实发工资。请参阅下图（仅供参考）。 答案：分数：10.00 SELECT Count(*)AS 教师人数,AVG(应发工资-扣除工资) AS 实发工资 FROM Teachers 第六题：查询男女职工的最低工资、最高工资和平均工资（工资是指实发工资）。请参阅下图（仅供参考）。 create proc procA as select* from student exec proca create proc procB @_year char(4) as select* from student where year(birthday )=@_year declare @_year char(4) set @_year ='1994' exec procB@_year create proc procf @_Snum char(30) as select s.snum ,avg(score)as平均成绩,count(https://www.doczj.com/doc/f01147576.html,um)as选秀门数,sum(1-score/60)as不及格门数 from student s,course c,sc,sections st where s.snum =sc.snum and sc.secnum =st.secnum and https://www.doczj.com/doc/f01147576.html,um =https://www.doczj.com/doc/f01147576.html,um and S.Snum =@_Snum group by S.Snum DECLARE @_SUNM char(30) set @_SUNM ='s001' exec procf@_sunm CREATE PROC Procd @_snum char(4),@_avg int out,@_selected_course int out,@_failed_course int out AS SELECT @_avg=AVG(score),@_selected_course=COUNT(cnum),@_failed_course=sum(1-score/60) FROM sc JOIN sections ON sc.secnum =sections.secnum WHERE snum=@_snum 一、数据结构 1、概念部分 1）数据结构的概念及其三要素 a.数据结构：描述了一组性质相同的数据元素及元素间的相互关系。 b.基本概念： ①数据：描述客观事物的信息集，是程序处理的对象。 ①数据元素：是数据集合中的个体，构成数据对象的基本单位。一个数据元素可由若干个数据 项组成。 ①数据项：是数据的最小单位。 c.数据结构的三要素： ①逻辑结构：数据元素之间的逻辑关系。 ②存储结构：数据元素在计算机中的储存方式。 ③运算(操作)：数据元素定义上的运算集合。 2）数据逻辑结构的基本类型，数据储存表示的基本方法及其特点： a. 数据逻辑结构的基本类型： 线性结构：1对1 树型结构：1对多 图状结构：多对多 集合：除了同属一个集合，无其他关系 b. 数据储存表示的基本方法： 顺序表示：用物理上连续的存储空间，顺序存放逻辑上相邻的数据元素。（主要用于线性数据结构）主要特点： ⒈要求存储在一片连续的地址中。 ⒉结点中只有自身信息域，没有连接信息域。存储密度大，存储空间利用率高。 ⒊可以通过计算直接确定数据结构中第i个结点的存储地址。可以直接对记录进行存取。 即可以对记录直接进行存取；如数组下标 ⒋插入、删除运算会引起大量节点的移动（效率低） 链式表示：储存空间物理上不连续，数据元素之间的关系由指针确定 主要特点： ⒈结点由两类域组成：数据域和指针域。储存密度小。 ⒉逻辑上相邻的节点物理上不必邻接，既可实现线性数据结构，又可用于表示非线性数 据结构。 ⒊插入，删除操作灵活方便，不必移动结点，只要改变结点中的指针即可。 ⒋程序实现复杂度高。 3）栈、队列等线性结构的基本概念、性质、存储方式及各自的特点（看129页8、9题）栈（Stack） 是一种特殊的线性数据结构，其操作被限制在一端，这一端称为栈顶，而另一端称为栈底，具 有后进先出的特点。 根据栈中数据元素存储方式的不同，分为顺序存储栈、链式存储栈。 队列（Queue） 也是操作受限的线性表，允许在表的一端进行插入，另一端进行删除。允许插入的一端叫做队 尾（tail），允许删除的一端则称队头（head）。具有先进先出的特点。 一、实验目的 1.掌握https://www.doczj.com/doc/f01147576.html,的数据库访问方法。 2.学习绑定对象的操作方法。 二、实验内容 （实验题目+运行界面截图+实现代码） 方法一代码：（注：红色字体为输入的代码） Imports System.Data.SqlClient Public Class Form1 Inherits System.Windows.Forms.Form Public mybind As BindingManagerBase Private Sub StudentBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StudentBindingNavigatorSaveItem.Click Me.Validate() Me.StudentBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.UniversityDataSet) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 这行代码将数据加载到表“UniversityDataSet.student”中。您可以根据需要移动或移除它。 Me.StudentTableAdapter.Fill(Me.UniversityDataSet.student) mybind = Me.BindingContext(StudentBindingSource) End Sub 同济大学电子与信息工程学院实验报告 实验课程名称：计算机通信网络 任课教师： 实验项目名称：跨交换机实现VLAN 实验项目名称：静态路由 实验项目名称： OSPF单区域 姓名: 学号: 姓名: 学号: 姓名: 学号: 实验地点： 实验名称：跨交换机实现VLAN 【实验名称】 跨交换机实现VLAN。 【实验目的】 理解跨交换机之间VLAN的特点。 【背景描述】 假设某企业有两个主要部门：销售部和技术部，其中销售部门的个人计算机系统分散连接，他们之间需要相互进行通信，但为了数据安全起见，销售部和技术部需要进行相互隔离，现要在交换机上做适当配置来实现这一目标。 【技术原理】 Tag Vlan是基于交换机端口的另外一种类型，主要用于实现跨交换机的相同VLAN内主机之间可以直接访问，同时对于不同VLAN的主机进行隔离。Tag Vlan遵循了IEEE802.1q 协议的标准。在利用配置了Tag Vlan的接口进行数据传输时，需要在数据帧内添加4个字节的802.1q标签信息，用于标识该数据帧属于哪个VLAN，以便于对端交换机接收到数据帧后进行准确的过滤。 【实现功能】 使在同一VLAN里的计算机系统能跨交换机进行相互通信，而在不同VLAN里的计算机系统不能进行相互通信。 【实验设备】 S2126G（两台）、主机（3台）、直连线（4条） 【实验拓扑】 【实验步骤】 步骤1：在交换机SwitchA上创建Vlan 10，并将0/5端口划分到Vlan 10中。 SwitchA # configure terminal ！进入全局配置模式。 SwitchA(config)# vlan 10 ！创建Vlan 10。 SwitchA(config-vlan)# name sales ！将Vlan 10命名为sales。 SwitchA(config-vlan)#exit SwitchA(config)#interface fastethernet 0/5 ！进入接口配置模式。 SwitchA(config-if)#switchport access vlan 10 ！将0/5端口划分到Vlan 10。 验证测试：验证已创建了Vlan 10，并将0/5端口已划分到Vlan 10中。 实验四：入侵检测系统的构建 一、实验目的 了解现有入侵检测系统的产品情况；掌握开源入侵检测系统（snort）的安 装、配置和使用方法。 二、实验内容 1）在 WINDOW平台上安装最新版本的 SNORT； 2）熟悉并了解 SNORT 的配置方法； 3）熟悉并了解 SNORT 的三种不同工作模式。 4）熟悉并了解 SNORT 的入侵检测用规则的语法及规则编写方法； 5）编写检测规则,实现网络入侵行为的检测功能,并对其优缺点进行评估。 三、实验准备 1．SNORT 入侵检测系统的特性 开源特性： SNORT 是基于GPL 的跨多平台、轻量级、网络入侵检测软件。功能强大，代码简洁、短小， 并采用C语言实现。在遵循GPL的条件 下，任何人都可以使用该软件或者基于该软件进行二次开发。该系统是 目前最活跃的开源项目之一。 模块化结构： SNORT 的结构分为解码器、检测引擎和报警与日志等三个部分。各部分均可以采用相应的模块进行扩展。解码器部分可以支持的模块是各 种预处理器模块，以实现对各种协议的网络数据包进行不同层次的解 码；规则引擎可以通过规则的扩充与修改实现不同入侵行为的检测；报 警与日志部分则支持多种报警与日志输出模式，并可以借助各种输出插 件进行功能的扩展或调整。 基于规则的入侵检测技术： SNORT 是一种基于规则匹配的网络入侵检测器。在检测时，SNORT 会对规则文件中的规则进行解析，并在内存中建立规则树。检测时，每读入一个数据包，首先对包进行解码处理。然后，将解码后的数据包与规则树进行匹配工作。若找到相关的匹配规则，将触发该规则指定的报警或日志动作。 规则描述了入侵行为的特征；因此，SNORT是一种误用入侵检测技术。但借助相关的插件，例如 SPADE，SNORT 也可实现一定程度的异常入侵检测功能。 2．SNORT 的三种工作模式 SNORT 支持三种工作模式，分别为嗅探器工作模式、数据包记录模式 和网络入侵检测工作模式： 2.1 嗅探器工作模式： snort -vde. 该模式下，SNORT 将对网络数据包进行解码工作，并按照命令选项开指定的信息粒度，将数据包信息输出至用户终端供用户查看、分析。 2.2 网络数据包记录模式：snort –vde –l path/log。 该模式与嗅探器工作模式相比，SNORT 会将数据包信息记录至日志文件。日志文件的目录路径由 path/log 指定。 2.3 网络入侵检测工作模式：snort –vde –c path/snort.conf 该模式为SNORT 最重要最复杂的工作模式。在该模式下，STIDE将按照 SNORT.CONF文件的配置信息，完成网络入侵检测的功能。 3．SNORT 入侵检测规则语法及规则编写方法 SNORT 入侵检测规则的目的是描述入侵行为的特征。SNORT 规则语法 简单，实用。通常，一种规则分为规则头和规则选项等两部分： 规则头 Alert tcp !192.168.1.0/24 any -> 192.168.1.0/24 111 ( content: “｜00 01 86 a5|”; msg: “external mounted access”;) 规则选项 规则头通常包括：规则匹配时的触发动作、所检测数据包的协议、源和 第1章习题 一、选择题 1. 数据库是长期保存在计算机外存上的、有结构的、可共享的 B 。 A. 程序集合 B. 数据集合 C. 文件集合 D. 命令集合 2. 下列有关DBMS的说法， C 是正确的。 A. DBMS是一个类似V https://www.doczj.com/doc/f01147576.html,的应用开发软件 B. DBMS是一个数据库应用软件 C. DBMS是在操作系统支持下的一个系统软件 D. DBMS是软硬件的集合体 3. 在数据库中，下列说法 B 是不正确的。 A. 数据库数据独立性高 B. 数据库避免了一切数据冗余 C. 数据库系统整体数据结构化 D. 数据库可为多用户访问 4. 数据库系统的特点之一是数据共享，那么数据共享是指C 。 A. 多个用户使用同一种语言共享一个数据集合 B. 一个应用系统中多个程序共享一个数据集合 C. 多个应用、多种语言，多个用户共享一个数据集合 D. 多个应用使用同一种语言共享一个数据集合 5. 数据库(DB)、数据库管理系统(DBMS)、数据库系统(DBS)之间的关系 A 。 A. DBS包含DB、DBMS B. 三者是一个概念，就是“数据库” C. DBMS与DBS是一样的，它们包含了DB D. DBMS包含DB、DBS 6. 在数据库中，造成数据不一致的原因是 B 。 A. 数据独立性差 B. 数据冗余 C. 数据库数据量太大 D. 未对数据进行完整性控制 7. 数据库管理员（DBA）是 D 。 A. 负责数据库系统维护人员 B. 负责系统分析设计的人员 C. 负责程序设计人员 D. 负责数据库建立、使用和维护的人员 8. DBMS实现对数据库数据的更新和查询操作的功能称为 C 。 A. 数据定义功能 B. 数据库运行管理功能 C. 数据操纵功能 D. 数据控制功能 9. A 可以减少数据重复存储。 A. 数据库 B. 文件 C. 程序 D. 用户 11. 数据库系统采用三级模式体系结构，有利于数据库的 B 。 A. 数据结构化 B. 数据独立性 C. 数据共享性 D. 数据的多用户访问 一、实验目的 1．熟悉.NET平台窗口和控件的基本编程方法 2．掌握https://www.doczj.com/doc/f01147576.html,与SQL Service数据库的连接方法二、实验内容 （实验题目+运行界面截图+实现代码） 1、连接后显示的数据库university中student表的信息 2、各表之间的转换 1）form1 代码(注：红色为输入的代码) Public Class Form1 Private Sub StudentBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StudentBindingNavigatorSaveItem.Click Me.Validate() Me.StudentBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.UniversityDataSet) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 这行代码将数据加载到表“UniversityDataSet.student”中。您可以根据需要移动或移除它。 Me.StudentTableAdapter.Fill(Me.UniversityDataSet.student) End Sub Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click Me.Hide() Form2.Show() End Sub Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click Me.Hide() Form3.Show() End Sub End Class 2）form2 代码 Public Class Form2 Private Sub Form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form1ToolStripMenuItem.Click Me.Hide() Form1.Show() End Sub Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click Me.Hide() Form3.Show() End Sub Imports System.Data.SqlClient Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mysql As String = "insert into sc values('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "'," & Val(Me.TextBox3.Text) & ")" Dim myconn As New SqlConnection("database=university;data source=(local);integrated security=true;") Dim mycmd As New SqlCommand(mysql, myconn) myconn.Open() Try mycmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try myconn.Close() End Sub End Class 2、Imports System.Data.SqlClient Public Class Form1 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim mysql As String= "select * from sc where snum='"& ComboBox1.SelectedItem.ToString() & "'" Dim mysql2 As String = " select sname from student where snum='" + ComboBox1.SelectedItem.ToString() + "'" Dim myconn As New SqlConnection("database=university;data source=(local);integrated 路基工程实验报告（册） 姓名：冯孝涛 学号： 1150746 教师：黄琴龙 二〇一六年五月 承载板测定土基回弹模量试验 一、实验目的 1. 本方法适用于在现场土基表面，通过承载板对土基逐级加载、卸载的方法，测出每级荷载下相应的土基回弹变形值，经过计算求得土基回弹模量。 2. 本方法测定的土基回弹模量可作为路面设计参数使用。 二、实验内容和要求 1. 通过承载板对土基逐级加载、卸载的方法，测出每级荷载下相应的土基回弹变形值，经过计算求得土基回弹模量。 2. 土的回弹模量由三个平行试验的平均值确定，每个平行试验结果与均值回弹模量相差应不超过5%。 三、实验主要仪器设备和材料 1. 加载设施：载有铁块或集料等重物、后轴重不小于60kN的载重汽车一辆，作为加载设备，在汽车大梁的后轴之后约80cm处，附设加劲小梁一根作反力架，汽车轮胎充气压力0.50MPa。 2. 现场测试装置，如图1-9所示，由千斤顶、 测力计（测力环或压力表）及球座组成。 3. 刚性承载板一块，板厚20mm，直径为 30cm，直径两端设有立柱和可以调整高度的支 座，供安放弯沉仪测头。承载板安放在土基表 面上。 4. 路面弯沉仪两台，由贝克曼梁、百分表 及其支架组成。 5. 液压千斤顶一台（80～100kN），装有经 过标定的压力表或测力环，其量程不小于土基 强度，测定精度不小于测力计量程的1/100。 6. 秒表。 7. 水平尺。 8. 其他：细砂、毛刷、垂球、镐、铁锹、 铲等。 四、实验方法、步骤及结构测试 1. 准备工作 （1）根据需要选择有代表性的测点，测点应位于水平的路基上，路基土质均匀，不含杂物。 （2）仔细平整土基表面，撒干燥洁净的细砂填平土基凹处，砂子不可覆盖全部土基表面，避免形成一层。 （3）安置承载板，并用水平尺进行校正，使承载板处于水平状态。 （4）将试验车置于测点上，在加劲小梁中部悬挂垂球测试，使之恰好对准承载板中心，然后收起垂球。 （5）在承载板上安装千斤顶，上面衬垫钢圆筒、钢板，并将球座置于顶部与加劲横梁接触。 （6）安放弯沉仪，将两台弯沉仪的测头分别置于承载板立柱的支座上，百分表对零或其他合适的初始位置上。 2. 测试步骤 （1）用千斤顶开始加载，注视测力环或压力表，至预压0.05MPa，稳压1min，使承载板与土基紧密接触，同时检查百分表的工作情况是否正常，然后放松千斤顶油门卸载，稳压1min后，将指针对零或记录初始读数。 （2）测定土基的压力－变形曲线，用千斤顶加载，采用逐级加载卸载法，用压力表或测力环控制加载量。荷载小于0.1MPa时，每级增加0.02MPa，以后每级增加0.04MPa 左右。为了使加载和计算方便，加载数值可适当调整为整数。每次加载至预定荷载（P）后，稳定1min，立即读记两台弯沉仪百分表数值，然后轻轻放开千斤顶油门卸载至0，待卸载稳定1min后，再次读数。每次卸载后百分表不再对零。当两台弯沉仪百分表读数之差小于平均值的30％时，取平均值，如超过30％则应重测。当回弹变形值超过1mm 时，即可停止加载。 （3）各级荷载的回弹变形和总变形，按以下方法计算： 回弹变形（l）＝（加载后读数平均值－卸载后读数平均值）×弯沉仪杠杆比 总变形（l'）＝（加载后读数平均值－加载初始前读数平均值）×弯沉仪杠杆比 （4）测定总影响量α。最后一次加载卸载循环结束后，取走千斤顶，重新读取百分 共享知识分享快乐 实验4: 1. #include iOstream.h ”void mai n() {int n, sum=0; for(n=1;;sum+=n,n+=2) if(n >=20) break; coutvv "sum='vvsumvvendl; } 2. #include iostream.h ”void mai n() {int x; coutvv "input x: "vvendl; cin> >x; if(x==0) coutvv "0"; else while(x!=0) {coutvvx%10; x=x/10; } cout< 3. #include “iostream.h ” void main() {int i,t=1; float s=0; for(i=1;1.0/t>1e-4;i++) {s=s+1.0/t; t=t+i; } cout<< ”s=”< cout<< ”pi= ”< 同济大学c实验到实验 前三题 集团文件版本号：（M928-T898-M248-WU2669-I2896-DQ586-M1988） 实验4： 1. #include “iostream.h”void main() {int n,sum=0; for(n=1;;sum+=n,n+=2) if(n>=20) break; cout<<”sum=”< cout< cout<<”pi=”< 1 select Student.Snum,Student.Sname,https://www.doczj.com/doc/f01147576.html,um,https://www.doczj.com/doc/f01147576.html,ame,SC.score from Student inner join SC on Student.Snum=sc.snum inner join Sections on sc.secnum=Sections.Secnum inner join course on https://www.doczj.com/doc/f01147576.html,um=https://www.doczj.com/doc/f01147576.html,um where sc.score<60 2 select distinct Student.Sname,YEAR(GETDATE())-YEAR(birthday)as年龄 from Student inner join SC on Student.Snum=sc.snum inner join Sections on sc.secnum=Sections.Secnum inner join course on https://www.doczj.com/doc/f01147576.html,um=https://www.doczj.com/doc/f01147576.html,um where course.dept ='计算机系' 3 select distinct Student.Sname,Student.dept from Student inner join SC on Student.Snum=sc.snum inner join Sections on sc.secnum=Sections.Secnum inner join course on https://www.doczj.com/doc/f01147576.html,um=https://www.doczj.com/doc/f01147576.html,um where https://www.doczj.com/doc/f01147576.html,ame='数据库技术' 4 select snum,sname from student where snum in(select snum from sc group by snum having count(*)>=(select count(*)from course)) 5 select snum,sname from student where snum not in(select distinct snum from sc where sc.score<=80)同济大学实验安全考试题库
同济大学大学计算机access作业答案
同济大学数据库实验5答案
计算机软件开发技术C#期末复习(含SQL语句例题)同济大学
同济大学数据库实验八
同济大学 计算机网络实验报告
同济大学入侵检测实验04-入侵检测系统的构建实验指导书(sr)
同济大学数据库-第1章习题答案
同济大学数据库实验五
同济大学SQL数据库实验10
同济大学路基工程实验报告讲解
同济大学c++实验1到实验8前三题
同济大学c实验到实验前三题
同济大学数据库实验四答案
相关主题
文本预览