在页面设置菜单项的Clicked事件中加入如下脚本：
window actsheet
//取得当前活动窗口
actsheet=w_m1.GetActiveSheet()
//触发活动窗口的ue_pageset事件
actsheet.TriggerEvent("ue_pageset")
在打印菜单项的Clicked事件中加入如下脚本：
window actsheet
actsheet=w_m1.GetActiveSheet()
actsheet.TriggerEvent("ue_print")
在退出菜单项的Clicked事件中加入如下脚本：
close(parentwindow)
在窗口级联菜单项的Clicked事件中加入如下脚本：
//修改菜单的选中标志
m_jilian.checked=True
m_chongdie.checked=False
m_shuiping.checked=False
m_chuizhi.checked=False
//改变工作表的排列方式
ParentWindow.ArrangeSheets (Cascade!)
在窗口重叠菜单项的Clicked事件中加入如下脚本：
m_jilian.checked=False
m_chongdie.checked=True
m_shuiping.checked=False
m_chuizhi.checked=false
ParentWindow.ArrangeSheets (Layer!)
在窗口水平菜单项的Clicked事件中加入如下脚本：
m_jilian.checked=False
m_chongdie.checked=False
m_shuiping.checked=True
m_chuizhi.checked=False
ParentWindow.ArrangeSheets (Tile!)
在窗口垂直菜单项的Clicked事件中加入如下脚本：
m_jilian.checked=False
m_chongdie.checked=False
m_shuiping.checked=False
m_chuizhi.checked=True
ParentWindow.ArrangeSheets (TileHorizontal!)
3.4 MDI主窗口
本系统采用MDI风格，因此建立一个主窗口w_m1，选择其窗口类型为MDI Frame，用菜单m_main作为主窗口的菜单。
在主窗口的Open事件中加入如下脚本：
//如果不是系统管理员则屏蔽帐号管理菜单项
If right<>1 then m_main.m_file.m_id.visible=False
//因为打开主窗口后还没有打开任何工作表，所以把和工作表相关的
//功能菜单的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_del.enabled=False
m_main.m_file.m_save.enabled=False
m_main.m_edit.m_append.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
751com.cn
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
3.5归档文件管理窗口
在归档文件管理窗口w_wj中主要完成对归档文件信息的各种操作。首先，建立一个数据窗口对象d_wj，其数据源是文件基本情况表。其次，在窗口中添加一个数据窗口控件dw_wj，并和数据窗口对象w_wj相关联；一个静态文本框用来显示当前日期。为了美化界面，把显示日期的静态文本边界设置为3DRaised，并设置一定的背景色。最后，在窗口中定义ue_append、ue_filter等事件，用来完成菜单项的实际功能。
图7 文件管理窗口
数据窗口默认按Tab键来改变数据窗口的当前列，但用户的习惯经常是在输入完后按回车键来跳转到数据窗口中的下一列。为了方便用户的输入，在数据窗口du_wj上声明一个用户事件ue_enterkey，用pbm_dwnprocessenter作为事件的ID，此事件截获回车键，并用回车键来代替Tab键的功能。
在文件管理窗口的Open事件中加入如下脚本：
//为数据窗口分配事务对象，并检索数据
dw_wj.SetTransObject (SQLCA)
dw_wj.Retrieve()
//用静态文本显示当前日期
st_1.text=string(today(),"yyyy/mm/dd")
在文件管理窗口的Activate事件中加入如下脚本：
//此事件在当前窗口获得焦点时触发
//如果当前用户的权限不是系统管理员和数据管理员则屏蔽数据修改相关的菜单
If right>2 Then
m_main.m_edit.m_insert.enabled=False
m_main.m_edit.m_del.enabled=False
m_main.m_file.m_save.enabled=False
m_main.m_edit.m_append.enabled=False
Else
m_main.m_edit.m_insert.enabled=True
m_main.m_edit.m_del.enabled=True
m_main.m_file.m_save.enabled=True
m_main.m_edit.m_append.enabled=True
m_main.m_wh.m_yhwh.enabled=true
m_main.m_wh.m_xzyh.enabled=true
m_main.m_wh.m_wjwh.enabled=true
m_main.m_tj.m_qxtj.enabled=true
m_main.m_tj.m_bmtj.enabled=true
m_main.m_fb.m_bmfb.enabled=true
m_main.m_fb.m_qxfb.enabled=true
End If
//在当前窗口得到焦点后修改菜单项的enabled属性为True
//在窗口得到焦点时使菜单项可用
m_main.m_file.m_pageset.enabled=True
m_main.m_file.m_preview.enabled=True
m_main.m_file.m_previewcancle.enabled=True
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>