农田监测仪温湿度管理系统毕业论文(编辑修改稿)

农田监测仪温湿度管理系统毕业论文(编辑修改稿)内容摘要：

”一栏中点击下拉菜单，选择本机上的 SQL SEVER服图 5 ADO 控件 图 6 生成字符串 本 科 毕 业 设 计 第 13 页 共 32 页 务器体验版本。 再在“输入登陆服务器信息”一栏中选择“使用 windows nt 集成安全设置”然后在“在服务器上选择数据库”一栏中选择我们自己建立起来的数据库“ zhp”完成后单击测试连接如果连接成功就会弹出如 图 7所示对话框。 这样我们就成功的把 VB与 SQL SEVER连接起来了，单击确定电脑就自动生成了连接字符串“ Provider=。 Integrated Security=SSPI。 Persist Security Info=False。 Initial Catalog=zhp。 Data Source=ACERPC\SQLEXPRESS” 图 7 测试结果 图 8 选择服务连接 本 科 毕 业 设 计 第 14 页 共 32 页 然后右击 ADO控件选择 OLEDB属性出现如图所示对话框在 数据源 选项卡中选择本地数据库 图 9 连接对话框 图 10 记录源 本 科 毕 业 设 计 第 15 页 共 32 页 “ ACERPC\SQLEXPRESS”中的表“ ws”。 实现 了 VB 与 SQL SEVER的链接下一步就是如何在 VB界面上显示我们在选择的数据。 我们通过引用一个 DATAGRID控件来实现，此控件如图所示： 我们通过用 DATAGRID与 ADO控件的链接来实现在 VB界面上显示我们想要的数据，这一功能通过设置 DATAGRID的一些属性来实现，第一个属性为： datasource设置 一属性为 ADO控件的纪录源，然后他就能显示数据库温湿度表中的数据。 然后设置六个文本框的datasource属性为 addoc1,datafield属 性分别为 wd,shdx,y,z,rq,再通过上面的编程节能直接从文本框中输入数据了，十分便捷。 初始化按钮 Private Sub Command4_Click() If = Then MsgBox 无需初始化 Else MsgBox 初始化完成 End If End Sub 功能介绍：进入录入界面后由于数据表中的数据显示的不是最后一行，所以我们不能直接添加数据，需要手动在 DATAGRID控件 中调整到最后，为了方便管理人员按操作，我增加了一个功能按钮，点击后直接数据指针自动到达最后一行数据的下一行，从而方便实现手动录入。 图 11 DATAGRID 控件 本 科 毕 业 设 计 第 16 页 共 32 页 （ 4） 查询界面 界面代码 ： 温度功能查询代码 与分析 ： Private Sub Command1_Click() Dim strquery As String ‘定义一个字符串。 If = True Then ‘判断 Option1是否被选中。 If Trim() = Then ‘判断条件文本框是否为空。 MsgBox 请输入查询条件 , vbExclamation ‘提示管理人员输入查询条件。 Else 图 12 查询界面 本 科 毕 业 设 计 第 17 页 共 32 页 strquery = select*from ws where wd between 39。 amp。 amp。 39。 and 39。 amp。 amp。 39。 ‘ sql代码，即要在 DATAGRID中现实的结果集，此代码主要意思是：从温湿度表中选择温度大于第一个文本框中并且小于第二个文本框 中数据的值。 = strquery ‘执行 sql语句。 = ‘初始化文本框 = ‘初始化文本框 ， End If End If If = True Then ‘判断 Option2是否被选中。 If Trim() = Then ‘判断 text3是否为空。 MsgBox 请输入查询条件 , vbExclamation ‘弹出对话框提醒选择条件。 Else strquery = select*from ws where wd= amp。 amp。 ‘定义 sql语句，本语句的意思是：从温湿度表中选择所有字段，并且温度大于 text3中的值。 = strquery ‘将记录源定义为刚才 sql语句中选择的内容。 = ‘文本框初始化。 End If End If If = True Then ‘判断 Option2是否被选中。 If Trim() = Then ‘判断 Text4是否为空。 MsgBox 请输入查询条件 , vbExclamation ‘提醒管理人员输入查询条件。 Else strquery = select*from ws where wd = amp。 amp。 ‘定义 sql语句，此语句功能是：从温湿度表中选择 温度小于等于 Text4中值的数据。 本 科 毕 业 设 计 第 18 页 共 32 页 = strquery ‘执行 sql语句，并将其结果赋值给 adodc1。 = ‘初始化文本框。 End If End If End Sub 这段程序主要用于实现系统的温度查询功能，首先跟录入功能一样也要采用两个控件，即 ADO控件和 DATAGRID控件，其中 ADO控件中的连接属性 connectionstring与录入界面相同，但是其纪录源为空，因为我们要实现的是让 DATAGRID控件显示我们在温湿度表中选中的一部分 数据，所以我们只能在程序中去定义之一属性，即我们 编写的 sql语句。 DATAGRID控件的属性设置基本与录入界面相同，其大小、颜色、字体，可以根据个人爱好自行设置。 除了温度查询功能外还可以进行按湿度、按日期查询，控件的属性基本与温度查询相同， sql语句略有不同，详情参考论文后附的源程序。 （ 5） 修改界面 图 13 修改界面 本 科 毕 业 设 计 第 19 页 共 32 页 界面介绍 ： 修改界面的功能是：实现对录入数据库中的数据按需求进行修改、删除，以及修改后的保存功能。 其代码以及代码分析如下所示： Private Sub Command1_Click() If And Then ‘判断数据指针在表中的位置是否符合要求。 MsgBox 表中已无数据，请输入数据 , vbExclamation ‘文本框提醒“表中已无数据，请输入数据” Else ‘如果指针符合要求，指针自动向下移动一位。 If Then ‘指针如果在文件尾则自动移动到文件开始。 End If End Sub 这段代码用于实现查看下一条数据的功能， 点击下一条按钮数据指针自动移动一位，并将数值自动录入到相应的文本框中。 如果文件中数据为空它将弹出提示框 表中已无数据，请输入数据。 如果此时指针已到达文件尾，再单击下一条时，指针自动移动到文件开头，显示第一条数据。 界面上的上一条按钮与此按钮功能非常类似，代码详见论文后附带的源程序，这里不做详细介绍。 Private Sub Command3_Click() If = Then ‘判断文本框是否为空。 MsgBox 表中已无数据，请输入数据 , vbExclamation ‘弹出 对话框提醒 表中已无数据，请输入数据。 Else !wd = ‘将 Text1中的值付给表中温度字段。 本 科 毕 业 设 计 第 20 页 共 32 页 !shd = ‘将 Text2中的值付给表中湿度字段。 !X = ‘将 Text3中的值付给表中 X字段。 !Y = ‘将 Text4中的值付给表中 Y字段。 !z = ‘将 Text5中的值付给表中 Z字段。 ‘ 数据更新。 End If End Sub 这段代码用于实现将修改的数据重新保存到数据库中， 首先将数据显示在界面上六个文本框中，然后可以在文本框中直接修改需要改动的数据，修改完 毕后直接点击保存按钮，就能实现修改后的录入功能。 Private Sub Command4_Click() If Then ‘判断数据指针是否到。