工业生产温度监测系统.docx

工业生产温度监测系统设计说明书 引言 温度是表征物体冷热程度的物理量，是工业生产和自动控制中最常见的工艺参数之一，生产过程中常常需要对温度进行检测和监控。在传统的温度测控系统设计中，往往采用模拟技术进行设计，这样就不可避免地遇到诸如传感器外围电路复杂及抗干扰能力差等问题;而其中任何一环节处理不当，就会造成整个系统性能的下降。采用数字温度传感器与单片机组成的温度检测系统进行温度检测、数值显示和数据储存，体积减小，精度提高，抗干扰能力强，并可组网进行多点协测，还可以实现实时控制等技术，在现代工业生产中应用越来越广泛。 系统总体功能 工业生产温度监测系统是通过实时监测记录当前温度，检查是否达到警报上限所要求的温度来选择是否发出警报，该系统还能设置警报温度的数值，来满足更多不同的需求。用户可在该系统选择注册一个账户，通过账户来登陆该系统来使用系统的功能，能将监测所得的数据保存在自己账户当中，方便以后的查找与记录。 数据表设计 上面这个表格是使用工业生产温度监测系统监测温度数据时产生的数据。 上面这个表格是工业生产温度监测系统中用户的个人信息资料，包括了电话、邮箱等各种信息，新用户在注册后的个人资料信息也会保存到该表格当中。 系统详细设计 3.1：功能1 登陆界面，通过该界面可输入用户名跟密码登陆工业生产温度监测系统，也可以通过该界面进行用户的注册。 相关代码 Public userName As String Private Sub Command1_Click() Command1执行事件Click() userName = Trim(Text1.Text) 定义userName If userName = Then 判断username是否为空 MsgBox 请输入用户名, vbOKOnly + vbExclamation, 警告 如果为空，则输出警告。 Text1.SetFocus 光标跳到text1 Exit Sub 结束程序 End If 条件结束程序 Dim password As String 定义password password = Trim(Text2.Text) 使password=text2.text If password = Then 判断password是否为空 MsgBox 请输入密码, vbOKOnly + vbExclamation, 警告 如果为空，则输出警告。 Text2.SetFocus 光标跳到text2 Exit Sub 结束程序 End If 条件??束程序 Dim 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为一串字符 queryStr = select * from 用户 where 用户名= userName 创建数据库连接 Dim rs As New ADODB.Recordset 定义rs为新的ADODB记录集对象 Set rs = DBConn.Execute(queryStr) 调用querySt表 If rs.RecordCount = 0 Then 如果rs.RecordCount为空 MsgBox 用户名不存在，请重新输入, vbOKOnly + vbExclamation, 警告 显示警告窗口 Text1.SetFocus 光标停在text1 Exit Sub 结束程序 End If 条件结束程序 rs.MoveFirst 将记录指针移至第一条信息 If StrComp(Text2.Text, rs(密码), vbBinaryCompare) 0 Then 判断密码是否正确 MsgBox 密码错误，请重新输入, vbOKOnly + vbExclamation, 警告 密码不正确是弹出警告窗口 Text2.SetFocus 光标停在text2 Exit Sub 结束程序 End If 条件结束程序 系统主界面窗体.Show Unload Me 关闭窗体 End Sub 关闭程序 Private Sub Command2_Click() Command2执行事件Click() 注册窗体.Show End Sub 关闭程序 Private Sub Form_Load() Form执行事件Load