在文件管理窗口的Deactivate事件中加入如下脚本：
//此事件在窗口失去焦点时触发
//当窗口失去焦点时修改和窗口相关的菜单项的enabled属性为False
//在窗口失去焦点时使菜单项不可用
m_main.m_file.m_pageset.enabled=False
m_main.m_file.m_preview.enabled=False
m_main.m_file.m_previewcancle.enabled=False
m_main.m_file.m_print.enabled=False
m_main.m_edit.m_insert.enabled=False
m_main.m_edit.m_append.enabled=False
m_main.m_edit.m_del.enabled=False
m_main.m_file.m_save.enabled=False
m_main.m_edit.m_retrieve.enabled=False
m_main.m_edit.m_prior.enabled=False
m_main.m_edit.m_next.enabled=False
m_main.m_edit.m_first.enabled=False
m_main.m_edit.m_last.enabled=False
m_main.m_caozuo.m_select.enabled=False
m_main.m_caozuo.m_find.enabled=False
m_main.m_caozuo.m_sortasc.enabled=False
m_main.m_caozuo.m_sortdesc.enabled=False
m_main.m_window.m_jilian.enabled=False
m_main.m_window.m_chongdie.enabled=False
m_main.m_window.m_shuiping.enabled=False
m_main.m_window.m_chuizhi.enabled=False
m_main.m_wh.m_yhwh.enabled=False
m_main.m_wh.m_xzyh.enabled=False
m_main.m_wh.m_wjwh.enabled=False
m_main.m_tj.m_qxtj.enabled=False
m_main.m_tj.m_bmtj.enabled=False
m_main.m_fb.m_bmfb.enabled=False
m_main.m_fb.m_qxfb.enabled=False
在文件管理窗口的CloseQuery事件中加入如下脚本：
Integer i
//判断是否有数据的修改
If dw_wj.ModifiedCount() + dw_wj.DeletedCount()>0 Then
i= MessageBox("提示","是否保存对数据的修改?", Exclamation!,YesNoCancel!)
Choose case i
case 1
//保存数据
If dw_wj.UpDate() = 1 Then
//如果保存成功则提交
COMMIT;
Else
ROLLBACK;
MessageBox("错误", "数据库内容更新失败")
End If
case 2
//不保存数据
Return 0
Case 3
//阻止窗口的关闭
Return 1
End Choose
End If
在文件管理窗口的Resize事件中加入如下脚本：
//此事件在窗口改变大小时触发
//修改数据窗口控件的位置及大小，使其随窗口大小的改变而改变
dw_wj.x=10
dw_wj.y=150
//newwidth和newheight为该事件传递的参数，代表窗口的新宽度和高度
dw_wj.width=newwidth - 20
dw_wj.height=newheight – 160
在文件管理窗口的ue_append事件中加入如下脚本：
//实现追加功能
long therow
//在数据窗口最后插入一行
therow=dw_wj.insertrow(0)
//滚动到新加入的行
dw_wj.ScrollToRow(theRow)
dw_wj.SetFocus()
在文件管理窗口的ue_del事件中加入如下脚本：
//实现删除功能
integer i,m
m=0
long therow
i=MessageBox("提示信息","确认要删除行？",exclamation!,YesNoCancel!)
If i=1 Then
//如果当前数据窗口中选择了多行则用循环删除多行
Do
//因为如果删除了第3行，那么原来第4行就变成现在的第三行，所以
//要把搜索的行号减1
therow=dw_wj.GetSelectedRow(therow - 1)
If therow<>0 Then
m=1
dw_wj.DeleteRow(therow)
End If
Loop While therow<>0
751com.cn
End If
dw_wj.SetFocus()
在文件管理窗口的ue_filter事件中加入如下脚本：
//实现查询功能。打开查询窗口，并把数据窗口dw_wj作为参数传递过去，可以使多个窗口共用一个查询窗口
OpenWithParm(w_filter, dw_wj, w_wj)
在文件管理窗口的ue_find事件中加入如下脚本：
//实现查找功能。打开查找窗口，并把数据窗口dw_wj作为参数传递过去，可以使多个窗口共用一个查找窗口
OpenWithParm(w_find, dw_wj, w_wj)
在文件管理窗口的ue_first事件中加入如下脚本：
//滚动到第一行，实现最前一个的功能
dw_wj.ScrollToRow(1)
dw_wj.SetFocus()
在文件管理窗口的ue_insert事件中加入如下脚本：
//实现插入功能
long therow,therow1
//得到数据窗口当前行，并在当前行前面插入
therow=dw_wj.GetRow()
therow1=dw_wj.InsertRow(therow)
dw_wj.SetRow(therow1)
dw_wj.SetFocus()
在文件管理窗口的ue_last事件中加入如下脚本：
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>