基础沉降计算系统项目报告.docVIP

xx大学 《数据库技术及应用》 实验报告 实验报告题目： 基础沉降计算系统  报告索引 项目设计的内容和意义 项目功能 成员分工 计算功能的实现 Function coef 存储过程Ultimate 插值函数 数据库设计 窗体设计及数据库连接 项目设计报告内容 项目设计的内容和意义 随着现代社会的进一步发展，高层建筑、桥梁和地下工程越来越多，越来越复杂，其中所涉及的土力学问题也越来越繁琐。其中土在受力状态在的沉降问题，一直是岩土工程中最重要却最繁琐的一个环节。总要原因是在计算时需要查阅大量的表格内容，进行插值计算。如果我们能用这学期所掌握的数据库知识对这些数据进行管理和计算，那么土在受力状态在的沉降问题的计算效率将大大提高 项目功能 用户及管理员用户的管理 普通用户可以获得正常的计算、使用权限。普通用户可以自己注册，但管理员可以添加、删除和管理用户。管理员可以增添新的管理员，但不能删除管理员。并且管理员拥有更改数据库原始数据的权限。 基础沉降的计算 这一系统可以对矩形独立基础在沙质粘土上受力的称将计算。 成员分工 崔巍：组长，负责项目的策划，数据库的建立，触发器、存储过程的编写，计算程序的编写和调试 常颖瑞：所有用户及管理员的管理、添加功能的窗体、代码的设计、编写 李书涛：所有窗体的艺术设计，美化，还有画图程序代码的编写 计算功能的实现 基础沉降功能的实现： Function coef 这一程序主要负责对数据库中存储过程的调用，输出两个参数m1,m2，得到一个参数coef，这一参数在土力学中成为附加应力参数。 代码如下： Function coef(ByVal m1 As Single, ByVal m2 As Single) As Single Dim mycoon As New SqlClient.SqlConnection(Initial Catalog=tlx; Data Source=sunthree;Integrated Security=SSPI;) Dim mycomm As SqlClient.SqlCommand = New SqlClient.SqlCommand(ULTIMATE, mycoon) Dim adapter As SqlClient.SqlDataAdapter Dim aaa As New System.Data.DataTable mycomm.CommandType = CommandType.StoredProcedure Dim para_1 As SqlClient.SqlParameter = mycomm.Parameters.Add(@m1, System.Data.SqlDbType.Float, 8) Dim para_2 As SqlClient.SqlParameter = mycomm.Parameters.Add(@m2, System.Data.SqlDbType.Float, 8) para_1.Value = m1 para_2.Value = m2 Dim myreader As SqlClient.SqlDataReader mycoon.Open() myreader = mycomm.ExecuteReader() If myreader.Read Then coef = myreader.Item(0) coef = coef / 1000 End If mycoon.Close() End Function 存储过程 存储过程ULTIMATE主要功能是对从前台获得的两个值m1,m2进行计算，并从表【附加应力系数】中进行插值计算，最后返回一个值 计算示意图为： 代码如下： CREATE Procedure ULTIMATE @m1 float, @m2 float AS begin DECLARE @fm1 FLOAT DECLARE @lm1 FLOAT DECLARE @fm2 FLOAT DECLARE @lm2 FLOAT DECLARE @f1 FLOAT DECLARE @l1 FLOAT DECLARE @f2 FLOAT DECLARE @l2 FLOAT DEC