命令语言 菜单方式 图形符号方式 12、请用菜单驱动方式、数据表格驱动方式和事件驱动方式完成同一个实际的交互任务。并比较它们之间 的难易程度和工作量 事件驱动的真实工作过程 数据表格驱动方式 程序和表格关联,用表格(如 EXCEL)的形式将变量传递到程序中进行一系列操作,或再用表格输出, 不同于消息驱动的 WINDOWS程序机制。使用表格驱动建立菜单,可以很方便很简单地管理自定义菜单, 节约开发与维护成本 《太平洋保险终端系统》交易界面实现了参数化的配置方式,系统使用屏幕定义文件和表格定义文件 来定义交易屏幕,表格定义文件定义了表格的基本属性和表格的列,屏幕定义文件定义了屏幕的基本属性 和屏幕上的栏位和表格的位置。屏幕和表格定义文件都需要引用数据字典里面的栏位定义。 界面驱动包括屏幕驱动和表格驱动,其功能包括设置栏位缺省值和缺省属性(是否可输入、是否必输 入、是否绑定下拉菜单pkst),响应各种系统事件(屏幕前后事件、栏位前后事件、最后栏位后事件等), 响应热键(ESC、DEL、 PAGEUP、 PAGEDOWN、CTRLⅩX等),动态改变屏幕属性(多页显示的翻页、拆 分屏幕等),发起二段式交易等等。屏幕驱动和表格驱动是提供给开发人员的统一接口,开发人员通过实 现该接口的方式开发功能模块 事件驱动方式 1、启动应用程序,装载和显示窗体,产生 Form load和 Form show事件 2、窗体或窗体上的控件接收事件,事件可由用户引发(例如键盘或鼠标操作),可由系统引发(例如定时 器事件),也可由代码间接引发(例如当代码装载其他窗体时产生的Load事件) 3、如果在相应的事件过程中存在代码,就执行代码 4、应用程序等待下一次事件 例:获取和修改计算机名字的方法 1.)插入一个新模块,在其中添加如下代码: 声明 Get Computer Name Declare Function GetComputer Name Lib m kernel 32" Alias Get Computer NameA"(Byval lpBuffer As String, n Size As Long)As Long 声明 Set ComputerName Declare Function Set Computer Name Lib kernel 32 m Alias m Set NameA"(Byval lp Computer Name As String)As Long 定义一个获取计算机名字的函数 Public Function GetCName(CName)As Boolean命令语言 菜单方式 图形符号方式 12、请用菜单驱动方式、数据表格驱动方式和事件驱动方式完成同一个实际的交互任务。并比较它们之间 的难易程度和工作量。 事件驱动的真实工作过程 数据表格驱动方式： 程序和表格关联，用表格（如 EXCEL）的形式将变量传递到程序中进行一系列操作，或再用表格输出， 不同于消息驱动的 WINDOWS 程序机制。使用表格驱动建立菜单，可以很方便很简单地管理自定义菜单， 节约开发与维护成本。 《太平洋保险终端系统》交易界面实现了参数化的配置方式，系统使用屏幕定义文件和表格定义文件 来定义交易屏幕，表格定义文件定义了表格的基本属性和表格的列，屏幕定义文件定义了屏幕的基本属性 和屏幕上的栏位和表格的位置。屏幕和表格定义文件都需要引用数据字典里面的栏位定义。 界面驱动包括屏幕驱动和表格驱动，其功能包括设置栏位缺省值和缺省属性（是否可输入、是否必输 入、是否绑定下拉菜单 pklist），响应各种系统事件（屏幕前后事件、栏位前后事件、最后栏位后事件等）， 响应热键（ESC、DEL、PAGEUP、PAGEDOWN、CTRL_XX 等），动态改变屏幕属性（多页显示的翻页、拆 分屏幕等），发起二段式交易等等。屏幕驱动和表格驱动是提供给开发人员的统一接口，开发人员通过实 现该接口的方式开发功能模块。 事件驱动方式: 1、启动应用程序，装载和显示窗体，产生 Form_Load 和 Form_Show 事件 2、窗体或窗体上的控件接收事件，事件可由用户引发（例如键盘或鼠标操作），可由系统引发（例如定时 器事件），也可由代码间接引发（例如当代码装载其他窗体时产生的 Load 事件） 3、如果在相应的事件过程中存在代码，就执行代码 4、应用程序等待下一次事件 例：.获取和修改计算机名字的方法 1.）插入一个新模块，在其中添加如下代码： ′声明 GetComputerName Declare Function GetComputerName Lib〃kernel 32〃Alias〃 GetComputerNameA〃(Byval lpBuffer As String,nSize As Long)As Long ′声明 SetComputerName Declare Function SetComputerName Lib〃kernel 32〃Alias 〃 SetComputerNameA〃(Byval lp ComputerName As String)As Long ′定义一个获取计算机名字的函数 Public Function GetCName (CName) As Boolean