区域农用土地开发整理规划辅助决策系统编程实现

9.1.4　区域农用土地开发整理规划辅助决策系统编程实现

本系统的编制是在基于MapInfo的基础上，利用二次开发语言MapBasic进行编制。

首先编制系统主界面。根据对系统的总体框架设计及功能模块分析，主界面主要包括11个菜单，依次为:文件、数图录入、数据维护、因素因子处理、农用土地开发整理决策、农村居民点整理决策、查询、图表输出、选项、窗口、帮助等。主界面菜单的创建用MapBasic语言的create menu bar语句实现，具体实现过程如下:

create menu bar as

″文件″，

″数图录入″，

″数据维护″，

″因素因子处理″，

″农用地整理决策″，

″农村居民点整理决策″，

″查询″，

″图表输出″，

″选项″，

″窗口″，

″帮助″

其次制作各模块中的子菜单。子菜单的实现用create menu语句完成。例如，在“因素因子处理”模块中有“创建评价单元”菜单，其下又包括创建评价单元方法的四个子菜单:网格法、叠置法、地块法、多边形法，各子菜单的具体实现如下所示:

Create Menu″创建评价单元″As

″网格法″calling start_from_menu，

″叠置法″calling dzh，

″地块法″calling101，

″多边形法″calling dbx

第三是创建对话框。本系统编制的目的之一是实现人机交互，对于那些对计算机应用软件不太熟悉的用户来说，简单易懂的对话框的编制十分必要。对话框的实现主要用dialog语句实现，出现在对话框中的每一项称为控件。MapBasic中主要的控件有:StaticText(静态文本控件)、EditText(输入文本控件)、GroupBox(组合框控件)、RadioGroup(单选项组合控件)、Picker(获取对象类控件)、ListBox(列表框控件)、MultilistBox(多重列表框控件)、PopupMenu(下拉列表框)、CheckBox(复选框)、Button(按钮)等。一个对话框可包括多个控件，如在“农用地整理决策”下拉菜单“整理区划分”中，出现的对话框有静态文本控件、输入文本控件、组合框控件、复选框控件、下拉列表框和按钮，其程序编制如下:

第四是编译具体计算过程。系统的决策分析过程主要是通过先完成对话框的输入、选择以及确定按钮的点击，然后执行相关的计算。如在“退耕区划分”子菜单中，完成对话框的各种要求后，点击“确定”按钮会执行以下程序:

第五是实现相关程序的调用。由于MapBasic程序文件的容量最大只有64K，而一个功能模块的全部完成所需的容量可能超过了64K，这时就需要把其中的一部分分解出来，两个程序之间通过调用连接起来。如在主程序中调用“退耕区划分”子程序的步骤为:先在主程序中声明调用，用Call语句实现，然后编制一调用子过程，实现对程序的调用，具体实现如下所示:

sub nydtg

run application ApplicationDirectory$()+″nydtg.mbx″

end sub