菜单
  

    在本界面中用户可以用桩号或者测量时间来查询用户所需要桩号的信息。并且用户可以运用“添加”,“删除”按钮来改变原来的数据库,点击刷新可以得到最新的桩基数据。程序用起来非常方便,并且界面也很清晰。

    图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在计算机的设备管理器中可查看串口号。
  1. 上一篇:商贸中心空调工程设计+计算书
  2. 下一篇:MATLAB超长光纤光栅沉降管挠度计算算法研究
  1. 张江东久2-5#楼基于BIM的施工过程管理+答辩PPT

  2. 淮安市府升小区17#楼施工组织设计+CAD图纸

  3. 上海市杨浦高级中学重建施工组织设计

  4. 苏州盛家浜动迁小区8#楼施...

  5. 苏州市高新区龙蕙花苑二...

  6. 徐州市美的翰城6#住宅楼施工组织设计+CAD图纸

  7. 广州港港区2万吨级集装箱...

  8. 乳业同业并购式全产业链...

  9. 十二层带中心支撑钢结构...

  10. 当代大学生慈善意识研究+文献综述

  11. java+mysql车辆管理系统的设计+源代码

  12. 大众媒体对公共政策制定的影响

  13. 电站锅炉暖风器设计任务书

  14. 河岸冲刷和泥沙淤积的监测国内外研究现状

  15. 中考体育项目与体育教学合理结合的研究

  16. 杂拟谷盗体内共生菌沃尔...

  17. 酸性水汽提装置总汽提塔设计+CAD图纸

  

About

751论文网手机版...

主页:http://www.751com.cn

关闭返回