3.10打印设置窗口
打印设置窗口（如图12所示）用来设置和打印相关的各项参数，并启动打印作业，通过从参数传递过来的数据窗口，从而可以使多个窗口共用此打印设置窗口。该窗口包含的主要对象有：一个静态文本对象（st_current_printer），用来显示当前的打印机；一个掩码编辑框（em_copies），用设置打印的份数，使用掩码编辑框是为了得到一个上下头调节打印份数的效果；一个单行编辑框（sle_page_range），用来输入需要打印的页码；一组单选按钮（rb_all_page、rb_current_page、rb_pages），用来选择是打印全部页、当前页还是用户自己输入页码；一个分组框，用来把单选按钮和单行编辑框框在一起；一个下拉列表（ddlb_range_include），用来选择是全部打印还是打印奇数或偶数行；一个复选框（cbx_collate），用来确定是否需要校验打印内容；3个按钮，“确定”按钮根据打印设置开始打印，“取消”按钮关闭打印设置窗口，“打印机设置”按钮调用系统的打印机设置对话框。在打印设置窗口中声明一个事例变量（datawindow i_dwtoacton）保存传递到该窗口的数据窗口。
图12 打印设置窗口
在打印设置窗口的Open事件中加入如下脚本：
String szCopies
i_dwToActOn = Message.PowerObjectParm
//取得当前使用打印机的型号
st_current_printer.text = " 当前打印机： " + & String(i_dwToActOn.Object.DataWindow.Printer)
szCopies = String( i_dwToActOn.Object.DataWindow.Print.Copies)
//设置初始打印份数
If szCopies <> "" And szCopies <> "0" Then
em_copies.Text = szCopies
Else
em_copies.Text = "1"
End If
//如果当前数据窗口的打印校验取值为“YES”，则设置“校验拷贝”复选框
//的Checked为True，否则设为False
cbx_collate.Checked = ( Upper( String( &
i_dwToActOn.Object.DataWindow.Print.Collate)) = "YES")
在打印窗口的“全部”单选按钮的Clicked事件中加入如下脚本：
//清空单行列表框的内容
sle_page_range.text=""
在打印窗口的“当前页”单选按钮的Clicked事件中加入如下脚本：
sle_page_range.text=""
在打印窗口的“选择页码”单选按钮的Clicked事件中加入如下脚本：
If this.Checked Then
//点击该单选按钮后使单行编辑框获得焦点
sle_page_range.SetFocus()
End If
在打印窗口的单行编辑框（sle_page_range）的Modified事件中加入如下脚本：
rb_pages.checked=TRUE
在打印窗口的确定按钮的Clicked事件中加入如下脚本：
Integer nIndex
String szPage, szModify, szReturn
Decimal sCopies
//取得掩码编辑框的内容，即打印份数
em_copies.getdata(sCopies)
//下面不断拼写szmodify字符串，用来保存打印属性的设置
szModify = "DataWindow.Print.Copies = " + string(scopies)
//保存打印校验属性
If cbx_collate.Checked Then
szModify = szModify + " DataWindow.Print.Collate = Yes "
Else
szModify = szModify + " DataWindow.Print.Collate = No "
End If
If rb_all_page.Checked Then
//保存打印全部页码
szModify = szModify + " DataWindow.Print.Page.Range = ''"
ElseIf rb_current_page.Checked Then
//保存打印当前页码
szPage = i_dwToActOn.Describe( "Evaluate('Page()', " + &
String(i_dwToActOn.GetRow()) +")")
szModify = szModify + " DataWindow.Print.Page.Range='" + szPage + "'"
Else
//保存打印用户输入的页码
szModify = szModify+" DataWindow.Print.Page.Range='" + &
sle_page_range.text + "'"
End If
//取得用户在下拉列表框中所选项的索引值
nIndex = ddlb_range_include.FindItem( ddlb_range_include.Text, 0)
//保存希望打印页的页号
szModify = szModify + " DataWindow.Print.Page.RangeInclude = " + String(nIndex - 1)
szModify = Trim(szModify)
//修改数据窗口的打印设置
szReturn = i_dwToActOn.Modify(szModify)
If szReturn <> "" Then
MessageBox("错误","打印参数设置失败！")
return
End If
Parent.Visible = FALSE
//打印数据窗口
i_dwToActOn.Print()
this.SetFocus()
Close(Parent)
在打印窗口的取消按钮的Clicked事件中加入如下脚本：
close(parent)
在打印窗口的打印机设置按钮的Clicked事件中加入如下脚本：
printsetup()
3.11查询窗口
查询窗口（如图13所示）用来查询数据窗口中满足查询条件的记录，通过从参数传递过来的数据窗口，从而可以使多个窗口共用此窗口。该窗口包含的主要对象有：4个静态文本用来显示提示信息；两个下拉列表框（ddlb_1、ddlb_2），用来输入查询列及关系操作符；一个单行编辑框（sle_1），用来输入查询的具体条件；两个单选按钮（rb_1、rb_2），用来选择查询条件之间的逻辑关系；一个多行编辑框（mle_1），用来显示最终的查询条件，用户还可以用括号改变最终查询条件的运算次序；3个按钮，“添加”按钮用来拼查询条件，并把查询条件显示在多行编辑框中，“查询”按钮实施查询操作，“取消”按钮关闭查询窗口。
声明一个结构s_colinfo，拥有3个元素(coltag、colname、coltype)，用来保存列对象的简单注释（因为要动态读取作为参数传递过来的数据窗口的所有列，并将这些信息加入到查询条件选择列的下拉列表中，所以用列的简单注释来取得列的中文含义）、名称和数据类型（用来保存列的数据类型）。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>