《工程数据库技术课程设计-温度监测系统上位机程序设计》由会员分享，可在线阅读，更多相关《工程数据库技术课程设计-温度监测系统上位机程序设计（27页珍藏版）》请在金锄头文库上搜索。
1、 仲恺农业工程学院课程设计报告 高级程序与数据库 课程设计 院 系： 自动化 学院 题 目： 温度监测系统上位机程序设计 专 业 班 别： 自动化（工业自动化） 144班 姓 名： 邓炎钊 学 号： 201421714407 提 交 日 期： 2016 年 11 月 18 日 温度监测系统上位机程序设计 班级： 工化 144 学号： 201421714407 姓名：邓炎钊 1 总体 功能 上位机程序从串口 COM3接收格式为“ ID=xxx;T=xx.x” 的字符串 ，例如“ ID=001;T=32.5”，其中 ID=001表示温度监测仪器编号为 001， T=32.5表示当前测量的温度为 3
2、2.5度。 接收到的数据鉴别为有效时，将其存入数据库并在界面实时刷新显示出来。 该上位机的功能包括：登陆与注册功能、实时监测数据显示与储存功能、用户信息查看与修改功能、历史数据查询功能、仪器信息查看与修改功能。 2 数据表设计 程序用到三个数据表，分别 为用户表、设备表、监测数据表。 图 1为用户表，含有用户名、密码、姓名、性别、邮箱。 图 2为设备表，含有仪器编号、仪器 IP、仪器模式、仪器位置、仪器坐标。 图 3为监测数据表，含有测量序号、仪器编号（外部键）、温度、测量时间。 图 1 用户 表 图 2 设备 表 3 详细设计 3.1 登陆功能 （ 1）界面和实现功能 图 4 如图 4所示，
3、 其功能包括： 输入用户名或密码为空的判断； 用户不存在、密码错误的判断； 输入正确，登陆到主界面 。 （ 2）实现方法和相关代码 判断有没有输入用户名 ： If (userName = Or Text1.ForeColor &H0&) Then 输入为空或光标没落入文本框 MsgBox 请输入用户名 , vbOKOnly + vbExclamation, 警告 弹出 提示 Text1.SetFocus 光标 跳 到 用户名文本框 图 3 监测数据 表 Exit Sub 退出 End If 判断用户是否存在 代码如下： Public userName As String 定义全局字符变量 Di
4、m DBConn As New ADODB.Connection DBConn.CursorLocation = adUseClient DBConn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 温度监测系统 .mdb; 连接到数据库 Dim queryStr As String 定义字符变量 queryStr = select * from Users where Username= & userName & 编写查询语句 Dim rs As New ADODB.Recordset 定义表格结构体 Set r
5、s = DBConn.Execute(queryStr) 执行查询语句并保存结果 If rs.RecordCount = 0 Then 判断用户是否存在 MsgBox 用户名不存在，请重新输入 , vbOKOnly + vbExclamation, 警告 弹出消息窗口 Text1.SetFocus 移动光标到此处 Exit Sub 退出单击事件 End If 判断密码是否匹配 rs.MoveFirst 移动到第一条记录 If StrComp(Text2.Text, rs(Passwords), vbBinaryCompare) 0 Then 比较密码是否相等 MsgBox 密码错误，请重新输入
6、 , vbOKOnly + vbExclamation, 警告 弹出消息窗口 Text2.SetFocus 移动光标到此处 Exit Sub 退出单击事件 End If 输入 提示： Private Sub Form_Load() 提示输入的内容 Text1.Text = 请输入用户名 Text2.Text = 请输入密码 End Sub Private Sub Text2_GotFocus() 光标移到此处时清空提示并设定文本框格式 Text2.Text = Text2.PasswordChar = * Text2.ForeColor = &H0& End Sub Private Sub T
7、ext1_GotFocus() 光标移到此处时清空提示并设定文本框格式 Text1.Text = Text1.ForeColor = &H0& End Sub 3.2 注册功能 （ 1）界面和实现功能 图 5 注册功能 如图 5所示，有 *号的为必填，输入不能为空；能判断用户名存在，两次输入密码有误等问题。 （ 2）实现方法和相关代码 Private Sub Command1_Click() If Text1.Text = Then 判断是否输入了用户名 MsgBox 请输入用户名！ , vbOKOnly + vbExclamation, 警告 Text1.SetFocus 移动光标到此处 E
8、xit Sub 退出 End If If Text2.Text = Then 判断是否输入了密码 MsgBox 请输入密码！ , vbOKOnly + vbExclamation, 警告 Text2.SetFocus 移动光标到此处 Exit Sub 退出 End If If Text3.Text = Then 判断是否输入了确认密码 MsgBox 请输入确认密码！ , vbOKOnly + vbExclamation, 警告 Text3.SetFocus 移动光标到此处 Exit Sub 退出 End If If Text4.Text = Then 判断是否输入了姓名 MsgBox 请输入姓
9、名！ , vbOKOnly + vbExclamation, 警告 Text4.SetFocus 移动光标到此处 Exit Sub 退出 End If If StrComp(Text2.Text, Text3.Text, vbBinaryCompare) 0 Then 判断密码是否正确 MsgBox 两次输入的密码不 一致！ , vbOKOnly + vbExclamation, 警告 Text2.SetFocus 移动光标到此处 Exit Sub 退出 End If Dim DBConn As New ADODB.Connection 连接到数据库 DBConn.CursorLocation
10、 = adUseClient DBConn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Dim queryStr As String 定义字符变量 queryStr = select Username from Users where Username= & Trim(Text1.Text) & 查找用户 Dim rs As New ADODB.Recordset 定义一个表格类 Set rs = DBConn.Execute(queryStr) 将数据库的查询作结果保存到 VB的 rs中 If rs.RecordCount 0 The
11、n 判断用户 名是否存在 MsgBox 已存在相同的用户名！ , vbOKOnly + vbExclamation, 警告 Text1.SetFocus 移动光标到此处 Exit Sub 退出 End If Dim insertStr As String 定义字符变量 insertStr = insert into Users values( & Trim(Text1.Text) & , & Trim(Text2.Text) & , _ & Trim(Text4.Text) & , & Trim(Combo1.Text) & , & Trim(Text5.Text) & ) DBConn.Ex
12、ecute (insertStr) 插入数据 MsgBox 注册成功！ , vbOKOnly + vbInformation, 恭喜 Text1.Text = 注册成功后清空所有文本框，结束，返回到注册窗体 Text2.Text = Text3.Text = Text4.Text = Text5.Text = End Sub Private Sub Command2_Click() 退出 DBConn.Close Unload Me End Sub Private Sub Form_Load() 设定性别 Combo1.ListIndex = 0 End Sub 3.3 数据显示功能 （ 1）
13、界面和实现功能 图 6 系统主界面 如图 6所示，该界面实时显示温度数据，包括测量序号、仪器编号、温度、测量时间；实时显示日期和时间，显示登陆的用户名、用户个数、设备个数；所有数据有变动时，都会被实时刷新。 该界面有退出、数据、用户菜单 ；退出有退出登陆、退出程序功能；数据有查询历史数据、清除历史数据功能；用户有查看和修改仪器信息、查看和修改用户信息、修改密码功能。 刷新功能，时间显示精确到秒；修改仪器信息会刷新监测点个数；删除数据、接收到数据时会刷新数据。 （ 2）实现方法和相关代码 部分程序采用了模块化设计，以便于根据实际情况选择性调用，比如监测 数据的刷新模块、串口初始化模块、设备数刷新
14、模块、数据接收模块等。 Dim DBConn As New ADODB.Connection Dim Dev As New ADODB.Recordset Dim Us As New ADODB.Recordset Dim mv As String 缓存串口字符 Dim code As String 数据识别码缓存 Dim Dev_number As String 设备 ID缓存 Dim Temperature As String 温度缓存 Dim Biaotou(1 To 4) As String 自定义表头 Dim re As Boolean 刷新标志符 Private Sub Form_Load() Biaotou(1) = 测量序号 Biaotou(2) = 仪器编号 Biaotou(3) = 温度 Biaotou(4) = 测量时间 re = False 初值置假 Label2.Caption = Now 显示当前日期时间 串口初始化 设置串口 DBConn.CursorLocation = adUseClient DBConn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 信息小标签显示 显示用户数，设备数 刷新测量数据 写入数据 End S
