- 上一篇：商贸中心空调工程设计+计算书
- 下一篇：MATLAB超长光纤光栅沉降管挠度计算算法研究
在本界面中用户可以用桩号或者测量时间来查询用户所需要桩号的信息。并且用户可以运用“添加”，“删除”按钮来改变原来的数据库，点击刷新可以得到最新的桩基数据。程序用起来非常方便，并且界面也很清晰。
图4.3 桩顶标高监测数据管理
实现“查询”操作的VB代码为：
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.ConnectionString = conn
cnn.Open
Dim i1 As Boolean
Dim i2 As Boolean
Dim i3 As Boolean
Dim txt1 As String
Dim txt2 As String
txt1 = Trim(FrmZDBG.Text1)
txt2 = Trim(FrmZDBG.Text2)
If txt2 <> "" And Not IsDate(txt2) Then
MsgBox "输入的日期格式不正确", , "提示"
Exit Sub
End If
Dim str1 As String
Dim str2 As String
Dim str3 As String
str1 = "Select * from 桩顶标高 where 桩号='" & txt1 & "'"
str2 = "Select * from 桩顶标高 where 测量时间='" & txt2 & "'"
str3 = "Select * from 桩顶标高 where 桩号='" & txt1 & "' and 测量时间='" & txt2 & "'"
rs.ActiveConnection = cnn
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.Open str1 '编号查询
If rs.RecordCount <> 0 And rs.RecordCount <> -1 Then
i1 = True
rs.Close
Else
i1 = False
rs.Close
End If
rs.Open str2 '时间查询
If rs.RecordCount <> 0 And rs.RecordCount <> -1 Then
i2 = True
rs.Close
Else
i2 = False
rs.Close
End If
rs.Open str3 '编号和时间查询
If rs.RecordCount <> 0 And rs.RecordCount <> -1 Then
i3 = True
rs.Close
Else
i3 = False
rs.Close
End If
Adodc1.ConnectionTimeout = 5
Adodc1.ConnectionString = conn
If i1 = False And i2 = True Then '按时间查询
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = str2
Adodc1.Refresh
ElseIf i1 = True And i2 = False Then '按编号查询
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = str1
Adodc1.Refresh
ElseIf i1 = True And i2 = True Then '按时间和编号查询
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = str3
Adodc1.Refresh
Else '未查到任何记录的提示
MsgBox "没有符合条件的数据记录"
End If
cnn.Close
Set cnn = Nothing
Set rs = Nothing
End Sub
下面我们来看下本系统的核心部分GSM 终端服务模块，其界面如图4.2.3所示。
此部分分为三大功能模块，左半部分为用户通过GSM网络对数据库中数据进行查询的功能，右边有数据采集和定时发送功能模块[ ]。
在登录后调出此界面，首先要进行本地计算机和Modem的连接:通过GSM Modem厂商提供的线缆把猫和计算机串口连接，设置好正确的串口号和波特率点“连接到Modem”按钮。对于西门子GSM Modem一般波特率可设为9600bit/s在计算机的设备管理器中可查看串口号。