农业生产管理信息系统

1、第第12章章 农业生产管理信息系统农业生产管理信息系统 将计算机技术、专家知识、农业生产有关信息相结合，建立管理信息系统，对于指导农业生产、提高产量、增加效益具有重要意义。 农业生产信息系统，涉及大量基础数据。其中包括种子、肥料、农药、农膜信息，土壤的类型、质地、地形、肥力、各种指标信息，种植形式、种植密度、耕作方式、田间管理信息，施肥情况、病虫害、气象条件信息等等。这些信息一方面可以单独用于查询、统计分析，总结规律，为农业干部的决策提供支持，为农业技术人员和农民的生产提供指导，实现资源共享。 12.1 12.1 系统功能与技术要求系统功能与技术要求 12.212.2 数据库与表设计数据库与表

2、设计 12.312.3 以树视图方式管理行政区信以树视图方式管理行政区信息息 12.412.4 数据维护与查询数据维护与查询 12.512.5 生产效益统计生产效益统计 12.612.6 统计图形的动态设置统计图形的动态设置 12.7 12.7 多媒体与外部程序调用多媒体与外部程序调用 菜单与窗口布局菜单与窗口布局 窗口编码窗口编码 返回本章 数据窗口对象数据窗口对象d_tj1 生 产 效 益 统 计 窗 口生 产 效 益 统 计 窗 口w_tj1 返回本章 数据窗口对象数据窗口对象 12.6.2 统计图形窗口统计图形窗口返回本章 12.7 多媒体与外部程序调用多媒体与外部程序调用 图片图片

3、声音声音 视频图象视频图象 调用外部程序调用外部程序返回本章12.1 系统功能与技术要求系统功能与技术要求 根据实际需求，本系统的功能分为四个部分：信息维护、查询打印、统计对比和系统服务。 返回本章 查询打印查询打印 要能够对数据库中任意表的所用字段指定查询条件进行查询，查询结果可以输出全部数据项，也可以输出选定的部分数据项。可以是简单查询，也可以是复合查询（查询条件中带有逻辑运算符）。在确定查询条件时，字段名、关系运算符、逻辑运算符可用鼠标选定，不必键盘输入，以简化用户操作。 3、统计对比、统计对比 统计对比要提供如下几项功能： (1)生产效益统计。 (2)高产实例。 (3)确定目标产量。

4、(4)产量因素对比。 (5)统计图形。 (6)汇总信息4、系统服务、系统服务 系统服务提供帮助、关于、用户管理、日志查询、打印数据采集表等功能。 技术要求：(1)要能够管理文字、图象、视频、声音等多种形式的信息。(2)要能够回答用户从多角度（至少两个角度，类似于英汉、汉英词典）提出的问题。(3)软件要模块化、可扩充、易修改、易操作，有防错检错能力，有良好的用户界面，与其它系统有方便的接口。 返回本章12.2 数据库与表设计数据库与表设计 建立一个建立一个Adaptive Server Anywhere 7 . 0 数 据 库 ， 数 据 库 文 件 命 名 为数 据 库 ， 数 据 库 文 件

5、 命 名 为ymdb.db，配置，配置ODBC数据源和数据源和Profile，进行数据库连接。，进行数据库连接。 返回本章12.3 以树视图方式管理行政区信息以树视图方式管理行政区信息 作为一个农业生产信息系统农业生产信息系统，要管理一定行政区域内的有关数据。系统运行时，要经常指定或切换不同的行政区，行政区信息本身也需要增删和修改。 由于不同级别的行政区具有层次结构，用树视图管理和使用比较方便。下面介绍如何通过树视图指定某一行政区，并把有关信息传递给其它对象，如何在树视图中对行政区信息本身进行增删改。返回本章 12.3.2 窗口编码窗口编码 1open事件代码 代码用函数FileOpen()按

6、行读方式打开文件SYSINI.DAT，从中读取以前保存的行政区编码、行政区名称、树视图项的层次以及各层的句柄送到变量或数组中。返回本节 2用户事件用户事件ue_populate代码代码 代码首先利用游标从表代码首先利用游标从表ssxc中提取行政区中提取行政区编码最右边编码最右边12位是位是0（省级）的行政区编（省级）的行政区编码和名称，插入到树视图作为树根项。码和名称，插入到树视图作为树根项。 不论是用函数不论是用函数ExpandItem()还是用鼠标双还是用鼠标双击某个树视图项或是单击树视图项左边的击某个树视图项或是单击树视图项左边的“ + ” 号 ， 都 会 产 生 树 视 图 的号 ，

7、都 会 产 生 树 视 图 的itempopulate事件。为了能够展开树视图事件。为了能够展开树视图的下一层，还要对它的的下一层，还要对它的itempopulate事件事件编写代码。编写代码。 3树视图的树视图的itempopulate事件事件代码代码 代码段首先根据当前层数确定要展开的下代码段首先根据当前层数确定要展开的下一层数据的编码特征，然后通过游标从表一层数据的编码特征，然后通过游标从表ssxc中把满足特征编码条件的行政区编码中把满足特征编码条件的行政区编码和行政区名称提取出来，添加到树视图的和行政区名称提取出来，添加到树视图的下一层，达到展开的目的。下一层，达到展开的目的。 4树视

8、图树视图clicked事件代码事件代码 展开到指定的树视图项，用鼠标单击，展开到指定的树视图项，用鼠标单击，可以选择行政区，选择的行政区有关可以选择行政区，选择的行政区有关信息要保存到全局变量和文件信息要保存到全局变量和文件SYSINI.DATSYSINI.DAT中，以便传递给其它对象中，以便传递给其它对象和下次按记忆展开。和下次按记忆展开。 5用户事件用户事件ue_insert代码代码 代码中，用函数getitem()取出树视图当前项送实例变量li_item，从li_item中取出政区编码在单行编辑行框sle_1中显示出来，从li_item中取出行政区名称和层数，如果层次是在乡、村、屯范围内

9、，则打开信息输入窗口w_msg_in，输入树视图项名称送全局变量s_mc_in，用自定义的窗口函数f_getbm()自动求出该项编码所应具有的编码 ， 6用户事件用户事件ue_delete代码代码 要删除指定的树视图项，可通过窗口的ue_delete事件代码来完成。 代码段根据句柄求出当前项的行政区编码、行政区名和层次。如果层次大于或等于4并确认要删除当前项，则确定当前层及下层编码特征，在数据库的表ssxc中删除所有符合特征条件的记录以及树视图中项目。 7用户事件用户事件ue_change及树视图及树视图控件事件控件事件endlabeledit代码代码 要修改指定树视图项的名称，有两种办法。一

10、是在设计窗口的树视图控件时，选择它的EditLabels复选项，使之处于可编辑状态。二是通过窗口ue_change事件的如下代码使当前项进入编辑状态。 本系统采用的是第二种方法。返回本节12.4 数据维护与查询数据维护与查询 数据维护操作是数据库系统的工作基础。尽最大可数据维护操作是数据库系统的工作基础。尽最大可能为用户提供方便，提高数据录入速度，保证数据能为用户提供方便，提高数据录入速度，保证数据的有效性、安全性和完整性是本系统的主要设计目的有效性、安全性和完整性是本系统的主要设计目标之一。标之一。 本系统在数据维护方面采用以下技术：本系统在数据维护方面采用以下技术：1凡是可枚举的数据项（如

11、：玉米品种、土壤类型、凡是可枚举的数据项（如：玉米品种、土壤类型、肥力、质地、种植形式等）均采用下拉数据窗口，肥力、质地、种植形式等）均采用下拉数据窗口，以此提高数据录入的速度和准确性。下拉数据窗口以此提高数据录入的速度和准确性。下拉数据窗口的内容可随时增、删、改。的内容可随时增、删、改。2在每一个数据窗口对象中，对数据项增加了有效性在每一个数据窗口对象中，对数据项增加了有效性检验规则，保证输入数据的正确性。检验规则，保证输入数据的正确性。 定义一个数据维护窗口定义一个数据维护窗口w_d_in，在窗口上定义一个，在窗口上定义一个数据窗口控件数据窗口控件dw_1，数据窗口控件与数据窗口对象，数据

12、窗口控件与数据窗口对象通过代码动态建立联系，每一个数据窗口对象与一通过代码动态建立联系，每一个数据窗口对象与一个或多个表对应。个或多个表对应。 求出多文档界面（求出多文档界面（MDI）当前活动窗口的标题，以）当前活动窗口的标题，以确定当前数据窗口对象。确定当前数据窗口对象。 在数据维护窗口在数据维护窗口w_d_in的自定义函数的自定义函数f_filter(mtext)中，根据不同的数据窗口对象设置相应的过滤条件中，根据不同的数据窗口对象设置相应的过滤条件和排序方式。和排序方式。 对对w_d_in窗口的任意一个实例，输入、修改数据，窗口的任意一个实例，输入、修改数据，当 前 数 据 项 改 变

13、时 ， 引 发当 前 数 据 项 改 变 时 ， 引 发 d w _ 1 窗 口 控 件 的窗 口 控 件 的itemfocuschanged事件事件. 代码中定义了代码中定义了DataWindowChild（子数据窗（子数据窗口）型变量口）型变量dwc和和window （窗口）型变量（窗口）型变量activesheet。利用函数。利用函数GetColumnName()取出当前列名，如果是取出当前列名，如果是c_nhbm（农户编码），（农户编码），则通过自定义函数则通过自定义函数f_proc()自动输入编码或改自动输入编码或改变编码表内容。如果是变编码表内容。如果是c_dkbm（地块编码），（

14、地块编码），则打开地块编码下拉数据窗口，并根据用户则打开地块编码下拉数据窗口，并根据用户编码过滤出与该用户对应的地块编码。如果编码过滤出与该用户对应的地块编码。如果是所列举之外的其它下拉数据窗口，则直接是所列举之外的其它下拉数据窗口，则直接打开并提取最新数据。打开并提取最新数据。 在在dw_1窗口控件上单击鼠标右键，引起窗口控件上单击鼠标右键，引起rbuttondown事件，通过下面程序段，可弹事件，通过下面程序段，可弹出相应的菜单，实现对下拉数据窗口内容的出相应的菜单，实现对下拉数据窗口内容的维护。维护。 本系统涉及多个数据库和表，为了能够对每本系统涉及多个数据库和表，为了能够对每一个表任意

15、指定查询条件、指定输出字段和一个表任意指定查询条件、指定输出字段和排序字段进行查询，回答用户从多角度提出排序字段进行查询，回答用户从多角度提出的问题，使用了第的问题，使用了第10章介绍的通用全字段查章介绍的通用全字段查询和选自段查询技术。这里不再复述。询和选自段查询技术。这里不再复述。 返回本章12.5 生产效益统计生产效益统计 统计对比功能包括生产效益统计、高产实例、统计对比功能包括生产效益统计、高产实例、确定目标产量、产量因素对比等，这里充分确定目标产量、产量因素对比等，这里充分利用了利用了PowerBuilder数据窗口对象的计算列、数据窗口对象的计算列、分组、排序、过滤等功能以及求和、

16、求平均分组、排序、过滤等功能以及求和、求平均值、求极值等函数。下面仅介绍生产效益统值、求极值等函数。下面仅介绍生产效益统计的有关内容。计的有关内容。go on 12.5.1 数据窗口对象数据窗口对象d_tj1 工具栏上单击“New”按钮，在打开的对话框中单击“DataWindow”选项卡，选择“Grid”项，单击“OK”按钮。在下一个对话框中选“SQL Select”图标，单击“Next”按钮。同时选中nhxx、scxx、pztx和trlx四个表后，单击“Open”按钮，再单击“Join”按钮，定义表之间相同字段的连接关系。得到表布局和连接关系图。 在各表中选择需要的列。这里选择nhxx表的h

17、zxm、c_nhbm、rks列，scxx表的c_nf、c_dkbm、zzmj、dkcl、ymdl、zzfy、nyfy、hffy、nffy、jgfy、qtfy列，pztx表的pzmc、trlx列和表trlx的trfl列。 在在“Sort”选项卡中指定按表选项卡中指定按表scxx的的c_nf列、列、表表nhxx的的hzxm列、表列、表scxx的的c_dkbm列和表列和表pztx的的pzmc列升序排列。列升序排列。 单击单击“Return”按钮，进行必要的加工，得按钮，进行必要的加工，得到的数据窗口对象到的数据窗口对象d_tj1的视图。的视图。 其中，在总结带定义其中，在总结带定义“种植面积种植面积

18、”的平均值、的平均值、最大值、最小值计算列表达式分别为最大值、最小值计算列表达式分别为avg(scxx_zzmj for all)、max(scxx_zzmj for all)、min(scxx_zzmj for all)返回本节 12.5.2 生产效益统计窗口生产效益统计窗口w_tj1 1窗口布局窗口布局 建立一个窗口建立一个窗口w_tj1，窗口类型，窗口类型main!，初始状态为，初始状态为normal!，标题为标题为“生产效益统计对比生产效益统计对比”。窗口上放置一个数据窗口控。窗口上放置一个数据窗口控件件dw_1，并指定其，并指定其“DataObject”为为d_tj1，一个静态文本，

19、一个静态文本st_3，用来显示当前行政区名，一个单行编辑框显示记录数，用来显示当前行政区名，一个单行编辑框显示记录数，六个单选按钮，用来设置过滤条件，两个命令按钮控制显示六个单选按钮，用来设置过滤条件，两个命令按钮控制显示结果和打印输出。结果和打印输出。 此外，窗口上还放置三个下拉列表框此外，窗口上还放置三个下拉列表框ddlb_1、ddlb_2和和ddlb_3，它们在设计时取消了可见属性，运行时当单选项，它们在设计时取消了可见属性，运行时当单选项“某一户某一户”、“某一年某一年”或或“指定指定”土壤肥力被选中后，对土壤肥力被选中后，对应的下应的下 2全局函数全局函数f_get_sysini()

20、 建立一个全局函数建立一个全局函数f_get_sysini()，它无需参数和返，它无需参数和返回值，功能是从文件回值，功能是从文件SYSINI.DAT中读取行政区编码、中读取行政区编码、名称、层次到全局变量名称、层次到全局变量s_bm_ssxc、s_mc_ssxc、tree_level中。中。 3窗口的窗口的open事件和事件和activate事件代事件代码码 在窗口的在窗口的open事件中，首先打开文件事件中，首先打开文件SYSINI.DAT，从中读取行政区编码、名称和层次，根据行政区和从中读取行政区编码、名称和层次，根据行政区和层次数确定过滤条件，对数据窗口的记录进行过滤。层次数确定过滤条

21、件，对数据窗口的记录进行过滤。然后在然后在“土壤肥力土壤肥力”字段的左边设置水平分割线，字段的左边设置水平分割线，以便进行水平方向浏览时，保证以便进行水平方向浏览时，保证“年份年份”、“农户农户姓名姓名”、“地块编码地块编码”三个字段固定不动作为参照。三个字段固定不动作为参照。最后，用静态文本最后，用静态文本st_3显示当前行政区名称，在单显示当前行政区名称，在单行编辑框行编辑框sle_3中显示记录总数，并设置三个单选按中显示记录总数，并设置三个单选按钮的初始状态。钮的初始状态。 4“农户选择农户选择”分组框中单选按钮及下拉列表分组框中单选按钮及下拉列表框代码框代码 在农户选择分组框中有在农户

22、选择分组框中有“某一户某一户”和和“所有户所有户”两个单选按两个单选按钮。钮。 代码段用来将指定行政区内的所有农户姓名添加到下拉列表代码段用来将指定行政区内的所有农户姓名添加到下拉列表框框ddlb_1中，并使其可见，以便于用户选取。中，并使其可见，以便于用户选取。 其中定义了一个数组其中定义了一个数组xm，用来保存已添加到下拉列表框中，用来保存已添加到下拉列表框中的项目，以便排除重复。程序中首先根据当前层数和行政区的项目，以便排除重复。程序中首先根据当前层数和行政区编码确定农户信息的筛选条件，利用游标把满足条件的户主编码确定农户信息的筛选条件，利用游标把满足条件的户主姓名过滤出来。然后用循环语

23、句把所有姓名添加到下拉列表姓名过滤出来。然后用循环语句把所有姓名添加到下拉列表框并同时保存到数组框并同时保存到数组xm中。在添加每一项时都要检查该项中。在添加每一项时都要检查该项在数组中是否已经存在，如果存在则跳过该项，避免重复。在数组中是否已经存在，如果存在则跳过该项，避免重复。最后设置最后设置ddlb_1的的visible属性为属性为True。5“年份选择年份选择”分组框中单选按钮分组框中单选按钮及下拉列表框代码及下拉列表框代码 年份选择分组框中有年份选择分组框中有“某一年某一年”和和“历年历年”两个单两个单选按钮。选按钮。 其作用是设置下拉列表框其作用是设置下拉列表框ddlb_2的年份列

24、表项，并的年份列表项，并使下拉列表框可见。使下拉列表框可见。 在下拉列表框在下拉列表框ddlb_2中选择任意一个年份，通过它中选择任意一个年份，通过它设置实例变量设置实例变量s_nf的值，并隐藏下拉列表框。的值，并隐藏下拉列表框。 “历年历年”单选按钮的作用是设置实例变量单选按钮的作用是设置实例变量s_nf的值的值为为“历年历年”，并隐藏下拉列表框，并隐藏下拉列表框ddlb_2。 6“土壤肥力土壤肥力”分组框中单选按分组框中单选按钮及下拉列表框代码钮及下拉列表框代码 壤肥力分组框中壤肥力分组框中“指定指定”单选按钮的作用是把单选按钮的作用是把表表dic_trfl中中trfl字段的内容添加到下拉

25、列表框字段的内容添加到下拉列表框ddlb_3中，并使列表框可见。中，并使列表框可见。 7“显示显示”命令按钮代码命令按钮代码 农户、年份、土壤肥力的设置结果保存在三个实例农户、年份、土壤肥力的设置结果保存在三个实例变量变量s_nhxm、s_nf和和s_trfl中。中。“显示显示”命令按钮命令按钮根据当前行政区设置以及这三个变量的值，形成过根据当前行政区设置以及这三个变量的值，形成过滤条件，把数据窗口中满足条件的的记录过滤出来。滤条件，把数据窗口中满足条件的的记录过滤出来。 经过以上设计，窗口经过以上设计，窗口w_tj1运行后，指定行政区为运行后，指定行政区为“恩育乡恩育乡”，年份指定为，年份指

26、定为1997年，其它取默认值，年，其它取默认值，单击单击“显示显示”按钮，显示出的结果。按钮，显示出的结果。 移动水平和垂直滚动条可浏览各农户、各字段的信移动水平和垂直滚动条可浏览各农户、各字段的信息，水平分割线左边的三个字段保持不动。息，水平分割线左边的三个字段保持不动。返回本节12.6 统计图形的动态设置统计图形的动态设置 PowerBuilder提供了提供了17种统计图形，统计图种统计图形，统计图形的类别形的类别(Category)、数值、数值(Value)、系列、系列(Series)、标题、标题(Title)等通常在设计时指定。等通常在设计时指定。如果在程序运行时，通过代码动态设置，可

27、如果在程序运行时，通过代码动态设置，可使软件更加灵活、功能更加丰富。使软件更加灵活、功能更加丰富。 本软件采用了动态设置统计图形技术。本软件采用了动态设置统计图形技术。 返回 12.6.1 数据窗口对象数据窗口对象 在在PowerBar工具栏上单击工具栏上单击“New”按钮，在打开按钮，在打开的对话框中单击的对话框中单击“DataWindow”选项卡，选择选项卡，选择“Graph”项，单击项，单击“OK”按钮。在下一个对话框按钮。在下一个对话框中选中选“SQL Select”图标，单击图标，单击“Next”按钮。同按钮。同时选中时选中ssxc和和tjzl两个表后，单击两个表后，单击“Open”

28、按钮，按钮，再单击再单击“Join”按钮，定义表按钮，定义表ssxc中字段中字段bm（行政（行政区编码）与表区编码）与表tjzl中字段中字段xzq（也是行政区编码，只（也是行政区编码，只是字段名不同）之间为是字段名不同）之间为“相等相等”的连接关系。得到的连接关系。得到表布局和连接关系。表布局和连接关系。 在在ssxc表中选择表中选择mc列，在列，在tjzl表中选择表中选择c_nf、bzmj、zcl和和hfzl列。得到如图列。得到如图12.10所示布局。所示布局。 单击单击“Return”按钮，进行相应的设置，得按钮，进行相应的设置，得到的数据窗口对象到的数据窗口对象d_graph的视图。的视

29、图。 在数据窗口对象画板的属性视图中，单击在数据窗口对象画板的属性视图中，单击“Data”选项卡。设置选项卡。设置“Category”属性为属性为ssxc_mc，用行政区名称分类。，用行政区名称分类。“Value”属属性设置为性设置为tjzl_bzmj，以播种面积为值。单击，以播种面积为值。单击“General”选项卡，设置图形名为选项卡，设置图形名为gr_1，图，图形的类型为形的类型为Pie(13)，即饼图，即饼图。 返回本节 12.6.2 统计图形窗口统计图形窗口 1窗口的布局 建立一个窗口对象建立一个窗口对象w_graph，窗口上放置一个数据窗，窗口上放置一个数据窗口控件口控件dw_he

30、adcount，并与数据窗口对象，并与数据窗口对象d_graph连接起来。连接起来。 窗口上放置了窗口上放置了“显示显示”按钮用来刷新图形，按钮用来刷新图形，“打印打印”按钮用来将数据窗口控件的内容打印输出，图形按按钮用来将数据窗口控件的内容打印输出，图形按钮钮 pb_1用来选择图形类型。下拉列表框用来选择图形类型。下拉列表框ddlb_1、 ddlb_2分别用来指定图形类别（分别用来指定图形类别（Category）、数值）、数值（Value）属性，）属性，ddlb_4用来选择行政区。掩码编用来选择行政区。掩码编辑框辑框em_1用来指用来指 2窗口实例变量及其值的设置窗口实例变量及其值的设置 窗

31、口中定义了以下实例变量，用来在窗口内部各控窗口中定义了以下实例变量，用来在窗口内部各控件之间传递参数。件之间传递参数。 图形按钮图形按钮pb_1用来打开一个窗口，窗口中列出用来打开一个窗口，窗口中列出17种种图形的样式，单击任意一个图形标志，得到该图形图形的样式，单击任意一个图形标志，得到该图形的类型名送给变量的类型名送给变量gr_type。例如，选择饼图得到。例如，选择饼图得到gr_type的值为的值为“piegraph”。 在在“类别类别”下拉列表框下拉列表框ddlb_2中如果选择中如果选择“年份年份”，则则 s_x_item=tjzl_c_nf，s_x_label=年份年份s_title

32、0= 历年历年 如果选择如果选择“行政区行政区”，则，则s_x_item=ssxc_mc， s_x_label=“行政行政 区区，s_title0=各行政区各行政区 在在“数值数值”下拉列表框下拉列表框ddlb_1中如果选择项目与对中如果选择项目与对应的变量值。应的变量值。 “年份年份”掩码编辑框掩码编辑框em_1的内容改变后用语句的内容改变后用语句s_nf=em_1.text将年份值送变量将年份值送变量s_nf。 “行政区行政区”下拉列表框下拉列表框ddlb_4的内容改变后用语句的内容改变后用语句s_xzq=ddlb_4.text将行政区名送变量将行政区名送变量s_xzq。 3“显示显示”按

33、钮代码按钮代码 通过以上方式设置了实例变量的值以后，通过以上方式设置了实例变量的值以后，单击单击“显示显示”按钮就可以改变数据窗口对按钮就可以改变数据窗口对象的图形属性并刷新图形，达到动态设置象的图形属性并刷新图形，达到动态设置图形的目的。图形的目的。 4运行结果运行结果 统计图形窗口运行后，如果选择图形类型为饼图，统计图形窗口运行后，如果选择图形类型为饼图，在在“类别类别”下拉列表中选择下拉列表中选择“行政区行政区”，在数值下，在数值下拉列表中选择拉列表中选择“播种面积播种面积”，指定年份为，指定年份为“1950”，单击单击“显示显示”按钮，将得到的按钮，将得到的1950年各地区玉米播年各地区玉米播种面积统计图。种面积统计图。 如果选择图形类型为直条图，在如果选择图形类型为直条图，在“类别类别”下拉列表下拉列表中选择中选择“年份年份”，在数值下拉列表中选择，在数值下拉列表中选择“亩产亩产量量”，指定行政区为，指定行政区为“农安县农安县”，单击，单击“显示显示”按按钮，将得到如图钮，将得到如图12.14所示的农安县历年玉米亩产量所示的农安县历年玉米亩产量统计图。统计图。 返回本节 12.7.1 图片图片 Powerbuilder