打开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
return
end if
dw_cur.ScrollTorow(0)

上一条记录 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菜单项的脚本:

 

返回

 

数据空间