pb datawindow 技巧 .txt

pb datawindow 技巧 例子： 使DataWindow列只能追加不能修改 如何使DataWindow中的数据只能追加新记录而不能修改

 

 

 

//控制DATAWINDOW里每页显示的行数
1、在Datawindow中增加一个计算域，起名为：ceil_page,此计算域必须放在Detail段中，
Expression中输入 ceiling(getrow()/25) 25表示每页打印25行，也可以是一个参数。
2、分组,选择菜单Rows\Create Group,选择ceil_page
按ceil_page分组，并选中New Page On Group Break(意思是新组开始时换页)。
3、将此计算域设为隐藏(在属性页中的expression页中在visible属性中写0)。
4、补空行：
在窗口的open事件中写如下代码： 
long li_count,li_i 
li_count=dw_1.retrieve() 
if mod(li_count,25)<>0 then
for li_i=1 to 25 - mod(li_count,25) 
dw_1.insertrow(0) 
next 
end if 
 

 

 

 

//数据窗口的closeQuery事件:提示保存数据
dw_1.AcceptText()
IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THEN
CHOOSE CASE MessageBox("操作提示","数据已经发生变化,是否保存?",Question!,YesNoCancel!,1)
CASE 1
cb_save.TriggerEvent(clicked!)
CASE 2
Return 0//不做任何操作直接关闭窗口
CASE 3
Return 1//不会运行Close Event,维持原来的情况
END CHOOSE
END IF 
 

 

 

 

 

 

Getchild函数主要被用来得到一个数据窗口的子数据窗口
该函数在两种情况下可以使用，1、取出数据窗口对象的下拉式数据窗口；
                            2、取出复合风格（composite）数据窗口对象里所嵌入的子数据窗口对象。
语法：integer dwcontrol.GetChild (string name, REF DataWindowChild
     dwchildvariable ) 

例子1  这段程序取出一个composite数据窗口对象的两个子数据窗口，并对他们进行过滤，和排序的操作。

/*dw_dy是连接一个composite数据窗口对象的一个数据窗口控件。dw_1、dw_2分别是嵌套的数据窗口的NAME*/

String ls_filter
DataWindowChild dwc_czrw,dwc_czx//定义子数据窗口变量
dw_dy.Settranso b j e c t(sqlca)
dw_dy.Retrieve()
dw_dy.GetChild("dw_2",dwc_czrw)
dw_dy.Getchild("dw_1",dwc_czx)
ls_filter = "czrw_bh = '"+dw_3.GetItemString(dw_3.GetRow(),"czrw_bh")+"'"//过滤条件
dwc_czrw.SetFilter(ls_filter)
dwc_czrw.Filter()
ls_filter = "czx_rwbh = '"+dw_3.GetItemString(dw_3.GetRow(),"czrw_bh")+"'"
dwc_czx.SetSort("czx_sx A")
dwc_czx.Sort()
dwc_czx.SetFilter(ls_filter)
dwc_czx.filter()
当然也可以通过数据共享(ShareData)等方式操作子数据窗口中的数据。
访问复合数据窗口对象.方法 ：dw_dy.o b j e c t.dw_1.o b j e c t.对象
例子2   下拉数据窗口动态过滤
  在数据窗口dw_1的ItemFocusChanged事件中写入如下脚本：
Integer rtncode
String ls_nowFld,ls_deptid,ls_sql
DataWindowChild fld_child
rtncode = dw_1.GetChild("Unit_id",fld_child) //获得Unit_id字段名下拉数据窗口的句柄
If rtncode = -1 Then MessageBox("错误!", "不是下拉数据窗口!")
fld_child.SetTransObject(SQLCA) //设置事务对象
ls_sql = Lower(fld_child.GetSQLSelect())// 获得DDDW的SQL语句
// 去除Sql 语句中的Where条件子句， 如原Sql 语句中须有Where条件子句，此处则需进行较
//复杂的处理，应视具体情况而定。
if Pos(ls_sql, " where ")>0 then ls_sql = Left(ls_sql,Pos(ls_sql, " where "))
//重新设置Sql 语句中的Where条件子句
ls_deptid=dw_1.Object.dept_id[GetRow()] //取得当前dept_id选定值
ls_sql = ls_sql + " Where dept_id = '" +Trim(ls_deptid)+"'"
//重新设置Sql 语句
fld_child.SetSQLSelect(ls_sql)
fld_child.Retrieve()//取得满足条件的数据 
 

 

 

 

从数据窗口中获取数据
   单条：假设我们要读取dept_id字段的第一笔数据，可以用下列方式表示∶li_id = dw_1.o b j e c t.dept_id[1]
 假设我们要读取第一行中第二个字段的数据，可以用下列方式表示∶ls_name = dw_1.o b j e c t.DATA[1,2]
 假设我们要读取dept_id字段的所有数据，可以用下列方式表示∶li_array = dw_1.o b j e c t.dept_id.CURRENT
 假设我们要读取过滤缓冲区 (filter buffer) 内dept_id字段的第一笔数据，可以用下列方式表示∶li_id = dw_1.o b j e c t.dept_id.Filter
[1]
 假设我们要读取从第二笔数据的第一个字段到第三笔数据的二个字段之间的数据，表示∶lstr_array = dw_1.o b j e c t.DATA[2,1,3,2]
 假设我们要读取整个第二笔的数据，可以用下列方式表示∶lstr_dept = dw_1.o b j e c t.DATA[2]
       使用GetItemX ( )函数  x为string number等  
  lstr_name = dw_1.getitemstring (li_count , "emp_name")  li_count为哪一条
  多条：string ls_name[ ]
       ls_name = dw_ 1.o b j e c t.emp_name.current
数据的读取   一般格式∶数据窗口控件.Retrieve ( )  返回个数 ，-1为错误
增加数据    数据窗口控件.InsertRow (行数)   参数为0加到最后
数据的删除        数据窗口控件.Deleterow (行数)
数据的过滤l   数据窗口控件.SetFilter (条件字符串).    
  数据窗口控件.Filter ( ) 用法∶将主要缓冲区 (Primary Buffer) 内不符合过滤条件的数据移到过滤缓冲区 (Filter Buffer) 
内。
             例子：string ls_exp   ls_exp = "dept_id = 100"   dw_1.SetFilter (ls_exp)      dw_1.Filter ( )
排序    dw_1.SetSort ("dept_id")     dw_1.Sort ( )
将数据从所有的缓冲区 (Buffer) 中清除    dw_1.ReSet ( )
计算数据数目。例如∶dw_1.Rowcount ( )  类似： .DeletedCount ( ) .ModifiedCount ( ) .FilteredCount ( )
数据窗口的滚动  数据窗口控件.ScrollToRow (行数) 
 

 

 

 

数据窗口属性改变：
   描述数据窗口对象本身颜色，可以表示如下∶long ll_color    ll_color = dw_emplist.Describe ("DataWindow.Color")
    描述数据窗口对象内标题 dept_id_t 的颜色，可以表示如下∶long ll_color   ll_color = dw_emplist.Describe ("dept_id_t.Color")
    修改数据窗口对象本身颜色，可以表示如下:dw_emplist.Modify ("DataWindow.Color = 255")
    修改数据窗口对象内标题 dept_id 的颜色，可以表示如下∶dw_emplist.Modify ("dept_id_t.Color = 255")
    假设当我们希望在程序运行阶段才给予下行条件∶薪水超过 50000 时显示红色，低于 50000 时显示黑色。程序的写法如下∶
       ls_modstring = "Salary.Color = '0~tIf (Salary > 50000，255，0) '"
       dw_1.modify (ls_modstring) 
 

 

 

 

 

1、得到当前鼠标所指对象所在的带区
 string str_band
 str_band=GetBandAtPointer() //得到当前鼠标所指对象所在的带区
 str_band=left(str_band,(pos(str_band,'~t') - 1))//得到"header"、"detail"等
        if str_band<>'header' then return //单击非头区，退出
2、  得到鼠标指向的列对象名
 str_o b j e c t=GetObjectAtPointer() //得到当前鼠标所指对象名
 str_o b j e c t=left(str_o b j e c t,(pos(str_o b j e c t,'~t') - 1))
        //得到列对象名(默认为列名_t为列标题)
 str_column=left(str_o b j e c t,(len(str_title) - 2))
 //判断该名称是否为列名字
 if this.describe(str_column+".band")='!' then return //非是列名，即列标题不是按正常规律起名的。
                                                              
3、得到当前行、列，总行、列  //this 针对数据窗口而言
        li_col      = this.GetColumn()
        li_ColCount = long(describe(this,"datawindow.column.count"))
        ll_row    = this.GetRow()
   ll_RowCount = this.RowCount()
       //设置当前行、列 
       scrolltorow(this,ll_Row)
       setrow(this,ll_Row)
       setcolumn(this,li_col) 
       this.SetFocus()
4、得到所有列标题
 ll_colnum = Long(dw_1.o b j e c t.datawindow.column.count)
        for i = 1 to ll_colnum
  //得到标题头的名字
  ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
           ls_value = dw_1.describe(ls_colname + ".text")
 next

5、如何用代码取得数据窗口汇总带计算列的值?　　
   String ls_value
 ls_value = dw_1.Describe("Evaluate("'compute_1',1)")
 如果是数值型，要转换。 
6、取得单击的列标题、列名、数据库字段名
string ls_dwo
long ll_pos
string ls_type
string ls_title
string ls_column
string ls_dbname
if Not KeyDown(KeyControl!) then  return
ls_dwo = dwo.Name
if trim(ls_dwo) = '' or isnull(ls_dwo) then return
ls_type = This.describe(ls_dwo + '.type')
if ls_type = 'column' then
 ls_title =  This.describe(ls_dwo + '_t.text')//标题
 ls_column = This.describe(ls_dwo + '.Name')  //数据窗口列名
 ls_dbname = This.describe(ls_dwo + '.dbname') //数据库中字段名
 messagebox('信息',    '标 题 文 本   ：' + ls_title + &
       '~r~n数据窗口列名  ：' + ls_column + &
       '~r~n数据库中字段名：' + ls_dbname )
end if

7。窗口为w_gcde内，放入一个DW_1，如何得到dw_1内的某列值yuonghu_id列的内容
方法： 


long lng_column_count 
   integer i 
   string str_column[]         //列名 
   string str_column_text[]　　//text的名字 
　　//得到数据窗口的总列数 
　　lng_column_count = long(dw_1.Describe("DataWindow.Column.Count")) 
　　//循环依次读取 
　　for i = 1 to lng_column_count 
   　　str_column[i] = dw_1.Describe("#"＋string(i)＋".name") 
　　    str_column_text[i] = dw_1.Describe(str_column[i] ＋ "_t.text") 
　　next 
 

 

 

 

在DDDW中实现当前高亮行随鼠标移动
DataWindowChild ldwc_Child
String ls_Pointer
Long ll_Row

GetChild( "dept_id", ldwc_Child ) // Replace the column name "dept_id" as you needed

IF hwndchild = Handle( ldwc_child ) THEN
    if notificationcode = 2311 then //DDDW的mousemove事件
        //得到鼠标所在行
        ls_Pointer = ldwc_Child.GetObjectAtPointer()
        ll_Row=Long( Mid( ls_Pointer, Pos( ls_Pointer, "~t" ) + 1 ))
        //移到鼠标所在行
        IF ldwc_Child.GetRow() <> ll_Row AND ll_Row > 0 THEN
            ldwc_Child.ScrollToRow( ll_Row )
        END IF
    end if
END IF 
 

 

 

实现打印完一个DataWindow后不换页

首先将datawindow的print输出到一个打印文件中，把其他的print也输入这个prn，然后,打印这个打印文件就行了。
如：
datawindow_control1.o b j e c t.datawindow.print.filename="c:\printfilepath\exam_1.prn"
datawindow_control2.o b j e c t.datawindow.print.filename="c:\printfilepath\exam_1.prn"
dw_1.print()
dw_2.print()
run("print //d:\\printservename\sharename "c:\printfilepath\exam_1.prn")

//d:\\printservename\sharename打印机名