在文件管理窗口的ue_next事件中加入如下脚本：
//滚动到下一行，实现下一个的功能
dw_wj.ScrollNextRow ( )
dw_wj.SetFocus()
在文件管理窗口的ue_prior事件中加入如下脚本：
//滚动到上一行，实现上一个的功能
dw_wj.ScrollPriorRow ( )
dw_wj.SetFocus()
在文件管理窗口的ue_pageset事件中加入如下脚本：
//实现页面设置功能。打开页面设置窗口，并把数据窗口dw_wj作为参数传递过去，可以使多个窗口共用一个页面设置窗口
OpenWithParm(w_setpage, dw_wj, w_wj)
在文件管理窗口的ue_preview事件中加入如下脚本：
//实现打印预览功能。打开打印预览窗口，并把数据窗口dw_wj作为参数传递过去，可以使多个窗口共用一个打印预览窗口
OpenWithParm(w_preview, dw_wj, w_wj)
在文件管理窗口的ue_previewcancle事件中加入如下脚本：
//取消数据窗口的预览模式
dw_wj.modify("datawindow.print.preview = No")
dw_wj.SetFocus()
在文件管理窗口的ue_print事件中加入如下脚本：
//实现打印功能。打开打印窗口，并把数据窗口dw_wj作为参数传递过去，可以使多个窗口共用一个打印窗口
OpenWithParm(w_print, dw_wj, w_wj)
在文件管理窗口的ue_retrieve事件中加入如下脚本：
//实现检索功能。把过滤条件设为空，并重新检索数据
dw_wj.SetFilter("")
dw_wj.SetSort("")
dw_wj.SetTransObject(SQLCA)
dw_wj.Retrieve()
dw_wj.SetFocus()
在文件管理窗口的ue_save事件中加入如下脚本：
//实现保存功能
If dw_wj.UpDate() = 1 Then
COMMIT;
Else
ROLLBACK;
MessageBox("错误", "数据库内容更新失败")
End If
在文件管理窗口的ue_sortasc事件中加入如下脚本：
//实现升序的功能
String Is_ColumnName
//得到数据窗口中当前列的列名
Is_ColumnName = dw_wj.GetColumnName()
If Is_ColumnName <> "" Then
dw_wj.SetSort(Is_ColumnName + " A")
dw_wj.Sort()
Else
MessageBox("提示","请您单击数据窗口中某一列，将按此列升序排列")
End If
dw_wj.SetFocus()
在文件管理窗口的ue_sortdesc事件中加入如下脚本：
//实现降序的功能
String Is_ColumnName
Is_ColumnName = dw_wj.GetColumnName()
If Is_ColumnName <> "" Then
dw_wj.SetSort(Is_ColumnName + " D")
dw_wj.Sort()
Else
MessageBox("提示","请您单击数据窗口中某一列，将按此列降序排列")
End If
dw_wj.SetFocus()
在数据窗口控件dw_wj的Clicked事件中加入如下脚本：
//通过单击可以选择一行或多行
long therow,startrow,endrow
If KeyDown(KeyControl!) Then //如果按着Ctrl键则使点击的行被选择
If row>0 Then
//row是系统传递到Clicked事件的参数，代表当前鼠标点击的行
//事件的参数可以在脚本编辑器的"Paste Argument"下拉列表框中查看
this.SelectRow(row,TRUE)
Else
return
End If
ElseIf KeyDown(KeyShift!) Then //如果按着Shift键则选择一定范围内的行
startrow=this.GetRow()
endrow=row
If startrow>endrow Then
For therow=startrow To endrow Step -1
this.SelectRow(therow,TRUE)
Next
Else
For therow=startrow To endrow
this.SelectRow(therow,TRUE)
Next
End If
Else
//如果没按Ctrl和Shift键，则取消选中状态
this.SelectRow(0,False)
End If
在数据窗口控件dw_wj的ue_enterkey事件中加入如下脚本：
long therow
If this.AcceptText() < 0 Then
Return 1
End If
If this.GetColumn() = Long(this.object.datawindow.column.count) Then
If this.GetRow() = this.RowCount() Then
therow=this.Insertrow(0)
751com.cn
Send(Handle(this),256,9,Long(0,0))
return 1
在数据窗口控件dw_wj的RetrieveEnd事件中加入如下脚本：
//此事件在数据检索完成后触发
integer ColIndex,ColNum
If right>2 Then
//如果不是系统管理员和数据管理员则通过把列对象的Order设为0来阻止对数据的修改
ColNum=integer(this.describe("datawindow.column.count"))
For ColIndex=1 To ColNum
this.SetTabOrder(ColIndex,0)
Next
End If
3.6登记情况窗口
在登记情况窗口w_dj中主要完成对借阅档案者登记信息的各种操作。首先，建立一个数据窗口对象d_dj，其数据源是借阅登记情况表。其次，在窗口中添加一个数据窗口控件dw_dj，并和数据窗口对象w_dj相关联；一个静态文本框用来显示当前日期。为
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>