3.7借阅管理窗口
在借阅管理窗口w_jy中主要完成对借阅档案信息的各种操作。首先，建立一个数据窗口对象d_jy，其数据源是借阅档案情况表。其次，在窗口中添加一个数据窗口控件dw_jy，并和数据窗口对象w_jy相关联；一个静态文本框用来显示当前日期。为了美化界面，把显示日期的静态文本边界设置为3DRaised，并设置一定的背景色。最后，在窗口中定义ue_append、ue_filter、ue_find等事件，用来完成菜单项的实际功能。
图9 借阅档案管理窗口
在借阅档案管理窗口、用户管理窗口中，大部分功能都和归档文件管理窗口功能相同，不重复介绍。
3.8页面设置窗口
页面设置窗口（如图10所示）用来对数据窗口打印时的页边距进行设置，通过从参数传递过来的数据窗口，从而可以使多个窗口共用此页面设置窗口。该窗口包含的主要对象有：一组静态文本，用来显示固定信息：4个掩码编辑框（em_bottom、em_left、
em_right、em_top），用来输入页面的边距；两个分组框，一个把4个掩码编辑框框在一起， 图10 页面设置窗口
一个把两个单选按钮（rb_1、rb_2控制打印方向）框起来，使窗口看起来整洁；两按钮，“确定”按钮用来设置页边距，“取消”按钮关闭页面设置窗口。在页面设置窗口中声明一个实例变量（datawindow i_dwtoacton）保存传递到该窗口的数据窗口。
在页面设置窗口的Open事件中加入如下脚本：
String szDescribe
//获得传递过来的数据窗口参数
i_dwToActOn = Message.PowerObjectParm
//取得当前数据窗口的页边距
szDescribe = i_dwToActOn.Describe("DataWindow.Print.Margin.Bottom")
em_bottom.Text = szDescribe
szDescribe = i_dwToActOn.Describe("DataWindow.Print.Margin.Left")
em_left.Text = szDescribe
szDescribe = i_dwToActOn.Describe("DataWindow.Print.Margin.Right")
em_right.Text = szDescribe
szDescribe = i_dwToActOn.Describe("DataWindow.Print.Margin.Top")
em_top.Text = szDescribe
在页面设置窗口的确定按钮的Cliclked事件中加入如下脚本：
Decimal bottom, left, iright, top
String szModify, szReturn
//拼写设置页边距的字符串
If em_bottom.GetData(bottom) = 1 Then
szModify = szModify + " datawindow.print.margin.bottom = " + string(bottom)
End If
IF em_left.GetData(left) = 1 Then
szModify = szModify + " datawindow.print.margin.left = " + string(left)
END IF
If em_right.GetData(iright) = 1 Then
szModify = szModify + " datawindow.print.margin.right = " + string(iright)
End If
If em_top.GetData(top) = 1 Then
szModify = szModify + " datawindow.print.margin.top = " + string(top)
End If
//设置数据窗口的打印方向
if rb_1.checked = TRUE then
szModify = szModify + " datawindow.print.orientation=1"
end if
szModify = Trim(szModify)
//设置数据窗口的页边距
szReturn = i_dwToActOn.Modify(szModify)
If szReturn <> "" Then
MessageBox("错误","边框设置错误！" + "~n"+ szReturn)
Return
End If
i_dwtoacton.SetFocus()
Close(Parent)
在页面设置窗口的取消按钮的Cliclked事件中加入如下脚本：
Close(Parent)
3.9打印预览窗口
打印预览窗口（如图11所示）用来设置预览时的比例及是否显示标尺，通过参数传递过来的数据窗口，从而可以使多个窗口共用此打印预览窗口。该窗口包含的主要对象有：一组单选按钮（rb_200p、rb_100p、rb_50p、rb_33p、rb_custom），用来选择打印预览的显示比例；一个掩码编辑框（em_custom）,用来输入自定义的显示比例；一个复选按钮（cbx_rulers），用来确定是否显示标尺；一个分组框，把单选按钮、掩码编辑框和复选按钮框起来；一个“确定”按钮，用来根据用户的选择显示打印预览。 在打印预览窗口中声明一实例变量（datawindow i_dwtoacton）保存传递到该窗口的数据窗口。
在打印预览窗口的Open事件中加入如下脚本：
//取得传递的数据窗口参数
i_dwtoacton=message.powerobjectparm
在打印预览窗口的掩码编辑框em_custom的Modified事件中加入如下脚本： 图11 打印预览窗口
//把“自定义”单选按钮高为选中状态
rb_custom.checked=true
在打印预览窗口的确定按钮的Clicked事件中加入如下脚本：
String sZoom, szReturn, szModify
//取得预烙湃例
If rb_200p.checked = TRUE Then
sZoom = "200"
ElseIf rb_100p.checked = TRUE Then
sZoom = "100"
ElseIf rb_50p.checked = TRUE Then
sZoom = "50"
ElseIf rb_33p.checked = TRUE Then
sZoom = "33"
ElseIf rb_custom.checked = TRUE Then
sZoom = em_custom.text
End If
//拼写修改数据窗口预览设置的字符串
szModify = szModify + " datawindow.print.preview.zoom = " + sZoom
//把数据窗口的预览状态设为真
szModify = szModify + " datawindow.print.preview = YES"
If cbx_rulers.checked = True Then
szModify = szModify+" datawindow.print.preview.rulers = "+"YES"
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>