打开w_maintain窗口,在该窗口中加入一个Tab控件,设置该控件为两个标签页,第一页标题为“部门数据维护”,在其上放置一个数据窗口控件,其数据窗口为d_department。
第二页标题为“人员数据维护”,在其上放置两个数据窗口控件dw_2 dw_3,其中dw_2的数据窗口为d_department_deptname,dw_3的数据窗口为d_employee。
为数据维护表单窗口设计数据窗口维护菜单,菜单名称为m_datamaintain,各菜单项如下图所示,最后一项为“保存记录”,快捷键为Ctrl+S。
为“货物信息”维护表单设置菜单为m_datamaintain
下面为各对象及控件添加事件处理代码。目标是使用菜单完成在数据窗口中浏览数据、插入数据、删除数据、保存数据的任务。
同时掌握数据窗口控件的最常用函数。
第一步,为当前应用程序对象声明全局变量:datawindow dw_cur
第二步,为w_maintain的open事件添加如下代码:
为tab控件中的所有数据窗口控件的"getfocus","losefocus"添加如下代码。
第三步,为dw_1 dw_3数据窗口控件添加如下自定义事件:
第四步,为w_maintain窗口中Tab控件中的dw_1 数据窗口控件的用户事件"insertrow""deleterow""appendrow""updatedata"添加如下代码。
第五步,为菜单各项的"clicked"事件添加代码如下:
菜单项 | 代码 |
第一条记录 |
if isnull(dw_cur) then |
上一条记录 | if isnull(dw_cur) then return end if dw_cur.scrollpriorrow() |
下一条记录 | if isnull(dw_cur) then return end if dw_cur.scrollnextrow() |
最未条记录 | if isnull(dw_cur) then return end if dw_cur.scrolltorow(dw_cur.rowcount()) |
如下图所示,m_1菜单项的脚本:
m_5菜单项的脚本:
数据空间