数据库技术及应用课程设计项目设计报告说明书之地基沉降软件开发

数据库技术及应用课程设计项目设计报告说明书之地基沉降软件开发内容摘要：

2 = 0 39。 连接数据库 39。 Dim myconn1 As = New (data source=SALAN。 integrated security=SSPI。 initial catalog=地基沉降 ) 39。 Dim mymd As New 39。 = myconn1 39。 = select * from 矩形中点应力系数表 where 长宽比 = amp。 n1 amp。 or 长宽比 = amp。 n2 39。 Dim myadpater As = New (mymd) 39。 Dim mydataset As New DataSet 39。 (mydataset, 矩形中点应力系数表 ) 39。 = (0) 39。 () Dim m As Single = 0 Dim m1, m2 As Single s = 0 39。 39。 //////////////////////////////////////////////////////////////////////////////////////////// Do h1 += maxh h2 += maxh If h2 height And point 1 Then MsgBox(sasa amp。 point) point += 1 MsgBox(sajadksajdlksjdajksajdsjds1 amp。 point) height += (point).Item(土层厚度 ) 39。 自重应力计算 End If 地基沉降软件开发 19 If h2 wh Then 39。 MsgBox(PPPPC amp。 Pc) 39。 MsgBox(point) Pc = Pc + maxh * (point).Item(土的重度 ) 10 * maxh 39。 MsgBox(Pc amp。 Pc) Else Pc = Pc + maxh * (point).Item(土的重度 ) 39。 MsgBox(Pc amp。 Pc) End If 39。 确定深宽比 m 以及范围 [m1,m2] m = h1 / b 39。 s深宽比 If m 5 Then m = 5 If m = 0 And m Then For m1 = 0 To Step If m = m1 And m m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m Then For m1 = To Step If m = m1 And m = m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m = 5 Then m1 = m2 = End If a1 = YinglixishuJu(n1, n, n2, m1, m, m2) 39。 MsgBox(a1) 地基沉降软件开发 20 Pz2 = Pz * a1 s += (Pz1 + Pz2) * maxh / (2 * (point).Item(压缩模量 )) Pz1 = Pz2 39。 MsgBox(Pz1 amp。 Pz1) 39。 MsgBox(s) Loop While Pz1 * Pc MsgBox(此基础的沉降量为 amp。 s amp。 cm) () s1 = s Else Pc = (0).Item(土的重度 ) * h 39。 基础底部自重应力 Pz = F / ( * r * r) Pc + 20 * h 39。 基础底部附加应力 Pz1 = Pz Pz2 = 0 s = 0 Dim m As Single = 0 Dim m1, m2 As Single 39。 39。 //////////////////////////////////////////////////////////////////////////////////////////// Do h1 += maxh h2 += maxh If h2 height And point 1 Then point += 1 height += (point).Item(土层厚度 ) 39。 自重应力计算 MsgBox((point).Item(土层厚度 )) End If If h2 wh Then Pc = Pc + maxh * (point).Item(土的重度 ) 10 * maxh 39。 MsgBox(Pc amp。 Pc) Else Pc = Pc + maxh * (point).Item(土的重度 ) 地基沉降软件开发 21 39。 MsgBox(Pc amp。 Pc) End If 39。 确定深宽比 m 以及范围 [m1,m2] m = h1 / r 39。 深度与半径的比值 If m Then m = If m = 0 And m Then For m1 = 0 To Step If m = m1 And m m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m Then For m1 = To Step If m = m1 And m = m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m Then m1 = m2 = End If If m = And m = Then m1 = m2 = End If 39。 MsgBox(m1 amp。 amp。 m amp。 amp。 m2) a1 = YinglixishuYuan(m1, m, m2) 39。 MsgBox(a1) Pz2 = Pz * a1 地基沉降软件开发 22 s += (Pz1 + Pz2) * maxh / (2 * (point).Item(压缩模量 )) Pz1 = Pz2 39。 MsgBox(Pz1 amp。 Pz1) 39。 MsgBox(s) Loop While Pz1 * Pc s1 = s MsgBox(此基础的沉降量为 amp。 s amp。 cm) End If End Sub 应力面积 法计算界面 列出已经输入并需要 用到的各类数据以供用户检查，若检查合格可直接计算，反之可重新定义参数。 以下为算法实现过程。 地基沉降软件开发 23 地基沉降软件开发 24 Dim lianjie As New (initial catalog = 地基沉降。 data source = SALAN。 integrated security=SSPI。 ) Dim shujuji As New DataSet Dim shipeiqicanshu1 As String = select * from 附加应力系数表 Dim shipeiqicanshu2 As String = select * from 土层定义表 Dim shipeiqicansh。