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

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