PB中一些技巧
PB中一些技巧
1.RGB函数计算公式: 颜色值＝ (65536 * Blue) + (256 * Green) + (Red)
2.控件可拖动：
send(handle(this),274,61458,0)
3.如何用程序控制下拉子数据窗口的下拉和收起
用modify或者直接用dw_1.object.col1.dddw.showlist = true
4.检索参数有些不需要传入则传%.
5.如何屏蔽鼠标滚轮触发
在控件的other事件写
if message.number = 522 then return 1
6.得到数据窗口的语法：
string ls_dwsyntax
ls_dwsyntax=dw_1.describe("datawindow.syntax")
7.得到数据窗口中各列及标题：
long ll_count,i
string ls_value,ls_colname
ll_colnum = Long(dw_1.object.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
8.在程序中动态设置初始值:
ex:dw_contro.object.columnName.initial = 'xxxx'
9.如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行
---- 起先对你要显示唯一值的列进行排序："city A"，然后增加如下过滤字符串：" city < > city [-1] or GetRow () = 1"
10.如何改变列的字体颜色，提醒用户此列已做修改
---- 在列的Color属性中，输入如下表达式IF (column_name
< >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。在这个条件中，如果此列已改变，则显示红色字体，否则显示黑色字体。这个表达式主要用column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。
11.在数据窗口的clicked或doubleclicked事件中写上注释//可解决一些意外的bug!
12.如何屏蔽上下鍵触发
新建一个事件：id为pbm_dwnkey
IF KeyDown(KeyDownArrow!) OR KeyDown(KeyUpArrow!) Then
Return 1
End IF
13.你注意到没有，数据窗口画板里面，在写表达式的时候，试着用一些用户自定义的全局变量和全局函数，你会发现在某些特殊的场合，这个小窍门还是很有用的。
14.有些程序员在窗口的右键pop菜单里面写了很多代码，在菜单里面有很多
w_windowname.controlname等等引用，如果这个窗口被继承，很容易就会出毛病，别忘了在菜单里面可以引用parentwindow哦，有了它我的pop菜单里面的代码和具体窗口无关，随便继承。当然强烈建议最好还是把所有和窗口相关的逻辑都转移到窗口的函数和事件中去，在pop菜单中触发调用。
15.whichdw.describe("evaluate('lookupdisplay("+colname+")',"+string(r ow)+")")
这个表达式可以得到指定列的显示值。（这个知识点有滥竽充数之嫌，但是一时间我真是想不起来太多的东西）
16.在数据窗口画板里面我们如果想要比较当前行和上一行或者下一行的值，怎么比较呢，哈哈，看这个就知道了
if ( yw_bc_circuit_dlcode = yw_bc_circuit_dlcode [-1]
and yw_bc_circuit_dlname = yw_bc_circuit_dlname [-1]
and yw_bc_circuit_xtno = yw_bc_circuit_xtno [-1] ,0,1)
这个表达式就是比较当前行和上一行是否相同的。其他的依此类推就行了。
17.两个结构相同的数据窗口之间快速复制数据
dw_1.object.data = dw_2.object.data
18.根据条件改变记录颜色
if ( Mod(getrow(),2)=0,rgb(0,255,255),rgb(255,255,255)) //奇偶行不同色if (currentRow()=getrow(),rgb(0,255,255),rgb(255,255,255)) //当前行不同色
19.使窗口总位于所有打开窗口的最上面
w_main.SetPosition(Topmost!)
20.取数据窗口中列的总数
string ls_count
ls_count = dw_1.describe("datawindow.column.count")
21.取数据窗口中可列新的表名。
string ls_table
ls_table = dw_1.describe("datawindow.updatetable.table")
22.取数据窗口对象中列的名称及类型
string ls_cols[],ls_types[]
int li_count,i
li_count = integer(ls_count)
for i = 1 to li_count
ls_cols[i] = dw_1.describe("#"+string(i)+".name")
ls_types[i] = dw_1.describe("#"+string(i)+".coltype")
next
23.Case( dealintype WHEN 0 THEN RGB(254,251,235) WHEN 2 THEN rgb(254,251,235) ELSE RGB(0,0,255))
写道字段的protect中不仅仅是颜色改变的问题看看
24.dw.Object.col[n] : 直接获得数据窗口的col列第n 行的数据。
25.在做数据窗口时，我们有时候希望能够多一些字段来作一些特殊的用处，但是在数据窗口中又不能乱加字段，因为已有的字段必须是数据库中有的或者是他们的组合，呵呵，大家不妨看看这个sql用产生什么样的数据窗口select colname1,colname2,1,''
from tablename
是不是多出了两个字段阿，一个是字符串字段，一个是数字字段
别忘了要convert syntax 哦
26.清空数组
string a[],b[]
a[1] = '1';a[1] = '2';a[1] = '3'
a = b//即可以清空a
27.只允许修改第n行的name列：
dw_1.modify("name.protect = '1 ~t if((getrow()=n),0,1)'")
28.让run程序和主程序一起关闭：
function ulong findwindowA(...).."user32.dll"
function long setparent(..."user32.dll"
handle = findwindowA(nul,win_title)
setparent(handle,handle(w_main))
29.取得某一天以前或以后n天的函数RelativeDate(date, n)
例：
取得当天前10天的日期
RelativeDate(Today(),10)
取得当天后10天的日期
RelativeDate(Today(),-10)
30.不想做排序窗口？调用PB自身的好了。
string ls_null
SetNull(ls_null)
dw_1.SetSort(ls_null)
dw_1.Sort()
31.调用PB自身的过滤窗口：
dw_1.SetFilter(ls_null)
dw_1.Filter()
32.增量输入定位代码或名称记录位置：
定义一个窗口，放一个SLE_1，在它的MODIFY程序中写：
long ll_find
string value0
value0=sle_1.text
if not (isnull(sle_1.text) or sle_1.text='') then
if left(sle_1.text,1)='0' or integer(sle_1.text)<>0 then //输入的为代码
ll_find=jwl_dmxz.dw_1.find('dm like
"'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//jwl_dmxz为主窗口，dm为查询的字段名，这里是代码。
else //输入的为名称
ll_find=jwl_dmxz.dw_1.find('mc like
"'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//
end if
if ll_find>0 then
jwl_dmxz.dw_1.scrolltorow(ll_find)
//为了避免首次目标记录为第一条，无法选中。
if ll_find=ll_find0 then
jwl_dmxz.dw_1.selectrow(ll_find,true)
elseif ll_find<>ll_find0 then
jwl_dmxz.dw_1.selectrow(ll_find,true)
jwl_dmxz.dw_1.selectrow(ll_find0,false)
ll_find0=ll_find
end if
end if
end if
33.然后在查询窗口中的TIMER事件中写：
timer(0.05)
sle_1.triggerevent(modified!)
34.判断计算器是否存在：
string is_fileExists
boolean is_Exists
is_fileExists='c:/windows/calc.exe'
is_Exists=fileExists(is_fileExists)
if is_Exists then
run("c:/windows/calc.exe")
else
messagebox("提示信息","本机的WINDOWS没有计算器！",stopsign!) end if
35.得到硬盘序例号
String ls_Rootpath, ls_volumnename ,ls_return,softpath GetCurrentDirectoryA(256,softpath)
softpath=left(softpath,2)
if softpath='C:' then
ls_Rootpath = 'D:' // 指定要得到序列号的硬盘，
// 一般情况都是C盘，除非你能保证用户存在其它逻辑盘或物理盘else
ls_Rootpath = 'C:'
end if
ls_volumnename = Space(256) // 分配足够的空间，下同
Ulong lul_VolumeNameSize
lul_VolumeNameSize = 256
Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength,
lul_FileSystemFlags
lul_MaximumComponentLength = 256
String ls_FileSystemNameBuffer
ls_FileSystemNameBuffer = space(256)
Ulong lul_FileSystemNameSize
lul_FileSystemNameSize = 256
int i
long ls_num,ls_gnum,ls_dnum
i=GetVolumeInformation(ls_Rootpath, ls_volumnename,
lul_VolumeNameSize, lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, ls_FileSystemNameBuffer, lul_FileSystemNameSize) ls_return=string(lul_VolumeSerialNumber)
return ls_return
PB问答：
1.如何让存储文件目录的列，显示图片?
答：选择对应的column的display as picture属性为true
2、如何复制grid类型的所选择的行的数据到系统剪切板？
答：string ls_selected
ls_selected=dw_1.Object.DataWindow.Selected.Data
clipboard(ls_selected)
3、如何复制graph风格的datawindow中的图形到剪切板？
答：dw_1.clipbord("gr_1")
4、如何设置的DW底色？
在DW的editsource中改变color的值
5、如何将Grid风格改成自由格式？
在DW的editsource中将processing=1的1改为0
6、要新建一个表A但风格和现有表格B风格一样，怎么将A表快速设置成表B 风格？
复制B表C，在C表的DW中的editsource中将表名和字段名改成A表的，即可
7、如何实现gird风格的datawindow的多栏表头？
答：添加 text到header带区，并设置band属性为foreground保存，edit source 修改text的x和width属性表达式如下：
x="100~t integer(describe('firstcol.x')"
width="100~tinteger(describe('lastcol.x')) -
integer(describe('firstcol.x')) +integer(describe('lastcol.width'))
8、如何过滤dddw编辑风格的显示值为指定值的记录？
答：
dw_1.setfilter("lookupdisplay('column_name')='"+ls_display_value_your +"'")
dw_1.filter()
9、如何设置datawindow的某一列为空？
答：string ls_temp[]
setnull(ls_temp)
dw_1. O B J E C T.columnname.primary.current=ls_temp
10、如何设置datawindow的单双行不同颜色间隔？
答：在detail带区的color属性表达式中写上
if(mod(getrow(),2)=1 ,rgb(255,0,0),rgb(0,255,0)),如果是当前行以第三种颜色表示，表达式如下：
if(getrow()=current(),rgb(255,0,0),if(mod(getrow(),2)=1 ,rgb(0,0,255) ,rgb(0,255,0)))
11、如何获取指定名称的datawindow O B J E C T?
答：DWObject ldwo_use,ldwo_abc
ldwo_use = dw_1.Object
ldwo_abc = ldwo_use.__get_attribute("t_1",FALSE)//t_1为datawindow中text对象的名称
12、如何使用datawindow的查询模式？
答：dw_1.Object.DataWindow.QueryMode='yes'将datawindow改变为查询模式后，接收用户的输入，再使用一下代码获取结果：
dw_1.accepttext()
dw_1.retrieve()
13、如何缩放datawindow的打印大小？
答：dw_1. O B J E C T.datawindow.zoom=150 or dw_1. O B J E C
T.datawindow.zoom=75
14、如何在已过滤后的数据基础上对datawindow进行过滤？
答：
dw_1.setfilter(dw_1.describe("datawindow.table.filter")+your_join+you
r_new_filter)
dw_1.filter()
15、如何在datawindow中显示动态时间？
答：建立一个计算域，表达式为string(datetime(today(),now()),'yyyy年mm 月dd日 hh点mm分ss秒'),同时设置datawindow的属性
dw_1.Object.DataWindow.Timer_Interval=500
16、如何让带用title bar的datawindow控件的标题栏诚活动窗口的颜色？
答：外部函数定义：
funcation logn SetActiveWindow(long hwnd ) Library "user32.dll"
datawindow控件的clicked事件代码：
setactivewindow(handle(this))
17、如何设置datawindow的当前行指示图标？
答：在datawindow中建立一个计算列,expression为'',并将该计算列移动为datawindow的第一个列，在datawindow控件的
rowfocuschanged事件中写入代码：
SetRowFocusIndicator(hand!)或setrowfucsindicator(p_1)//p_1为窗口上的picture控件名
18、如何通过代码打开dddw？
答：定义外部函数引用声明
SUBROUTINE keybd_event( int bVk, int bScan, int dwFlags, int dwExtraInfo)
LIBRARY "user32.dll"
代码如下：
[constant integer VK_F4 = 115
dw_1.SetFocus()
dw_1.SetColumn( "dept_head_id" ) //设置当前dddw
keybd_event( VK_F4,0,0,0 ) // 按下F4键
keybd_event( VK_F4,0,2,0 ) // 释放F4键
19、如何打印datawindow的内容到文件中？
答： dw_1. O B J E C T.datawindow.print.fileName ="c:/temp.prn"
dw_1.print()
20、如何设置dddw的初始值？
答：dw_1. O B J E C T.columnname.Initial="your_initial_value"
21、如何只显示不同的数据？
答：dw_1.filter("isnull(columnname[-1]) and columnname
<>columnname[-1]")
dw_1.filter()
22、如何让带有title bar的datawindow不可以移动？
答：在datawindow的自定义事件ue_nchittest(pbm_nchittest)中写入如下代码：
return 1
23、如何在N-UP显示风格中建立基于第N栏中的列的计算列？
答：如column有两列，number和price ,并显示为两栏，则第一栏的cost计算列的expression为number*price,第二栏的cost_1计算列的expression为number[1]*price[1]
24、如何清空ddlb或edit.codetable中项目？
答：dw_1.Object.columnname.Values=""
25、如何实现指定的column的字体旋转90度？
答：dw_1. O B J E C T.columnname.font.Escapement ="900"
26、如何获取datawindow的sql代码？
答：可以通过以下四种方法获取sql代码：
string szselect
szselect=dw_1.describe("datawindow.table.select")
szselect=dw_1.describe("datawindow.table.sqlselect")
szselect=dw_1.describe("datawindow.table.select.attribute")
szselect=dw_1.getsqlselect()
27、如何获取datawindow对象占有的虚拟存储的容量？
答：使用datawindow.storage属性
举例：在datawindow控件的retrieverow事件中，写如如下代码：
long lstorage
lstorage=long(dw_1. O B J E C T.datawindow.storage) if lstorage>50000 then dbcancel()
28、如何控制打印横向：
dw_control. O B J E C T.datawindow.print.orientation= 1
29、如何进行预览：
dw_control. O B J E C T.datawindow.print.preview = "yes"
30、如何连续在同一张纸打印两个数据窗口？
答：dw_1. O B J E C T.datawindow.print.filename="temp.prn"
dw_2. O B J E C T.datawindow.print.filename="temp.prn"
dw_1.print()
dw_2.print()
31、如何将pb9.0 的datawindow转化为pb 8.0版本的datawindow? 答：edit source 将release 9;改为release 8;
并删除以下内容：
print.printername=""
print.canusedefaultprinter=yes
print.cliptext=no print.overrideprintjob=no
hidegrayline=no
encodeselflinkargs="1"
export.xml(headgroups="1" includewhitespace="0" metadatatype=0 savemetadata=0 )
import.xml()
export.pdf(method=0 distill.custompostscript="0"
xslfop.print="0" )
32、如何设置datawindow分组后每个分组中的记录号？
答：建立一个计算列，expression为 getrow() - first(getrow() for group 1)+1
33、如何实现在datawindow中只有新增的行，才可以编辑？
答：在所有的column的protect属性表达式中写入以下表达式：
if(isrownew(),'0','1')
34、保存datawindow数据到excel中
// ... Init docname
// ... GetFileOpenName or any other method
if dw_1.SaveAs(docname, HTMLTable!, True) = -1 then
MessageBox("Warning", "Unable to export data. Error writi ng to file!", Exclamation!)
return
end if
// Convert HTML file to Excel native format
OLEObject excel
excel = CREATE OLEObject
if excel.ConnectToObject(docname) = 0 then
excel.application.DisplayAlerts = FALSE
excel.application.workbooks(1).Parent.Windows(excel.application .workbooks(1).Name).Visible = True
excel.application.workbooks(1).saveas(docname, 39)
excel.application.workbooks(1).close()
end if
DESTROY excel
// done
35、除了循环以外，有没有更好的方法统计数据窗口中处于选中状态的行数？
一般习惯于使用循环来统计数据窗口中处于选中状态的行数，有没有更好的方法？
其实此问题在应用上用处不大，讨论一下，活跃一下思维还是有好处的。
方法一：
long ll_Selected
ll_Selected = long(dw_1.describe("evaluate('sum( if(IsSelected(), 1, 0) for all)',1)"))
方法二：
long ll_Selected
ll_Selected = long(dw_1.describe("evaluate('count(IsSelected() for all)',1)"))
方法三：
upperbound(dw_1.Object.Data.Selected)
36、问：怎么让PB只打印当前记录,是用Free格式制作的数据窗口！
答：
DataStore ldt_temp
long ll_Row , ll_Rows
ll_Rows = dw_XX.Rowcount()
If ll_Rows = 0 Then GoTo the_end
If ll_Rows = 1 Then
dw_XX.Print()
GoTo the_end
End if
dw_XX.SetRedraw(False)
ldt_temp = Create DataStore
ldt_temp.DataObject = dw_XX.DataObject
ll_Row = dw_XX.GetRow()
dw_XX.RowsMove(1 , ll_Rows , Primary! , ldt_temp , 1 , Prim ary!)
ldt_temp.RowsMove(ll_Row , ll_Row , Primary! , dw_XX , 1 , Primary!)
dw_XX.Print()
dw_XX.RowsMove(1 , 1 , Primary! , ldt_temp , ll_Row , Prima ry!)
ldt_temp.RowsMove(1 , ll_Rows , Primary! , dw_XX , 1 , Prim ary!)
Destroy ldt_temp
dw_XX.SetRedraw(True)
the_end:
//只用将上述脚本拷入到打印部分即可，dw_XX为被打印的free型数据窗口，该方法可保证dw_XX中的数据在打印前后包括sort等属性均不发生任何改变，但效率较低，不宜用在数据量太大的数据窗口中，当然，考虑到打印本身速度就比较慢，所以3000行数据是可以采用这种方法并让用户接受的。若在同一窗口
上存在与dw_XX共享的grid数据窗口并且与dw_XX同时显示，则需要与dw_one 一起SetRedraw()
37、怎样将数据窗口(free格式)中的内容转成word文档
答：给你两个函数：
(1)、辅助函数
$PBExportHeader$f_cncharnum.srf
$PBExportComments$得到字符串中汉字或者双字节的个数
global type f_cncharnum from function_ O B J E C T
end type
forward prototypes
global function integer f_cncharnum (string aString)
end prototypes
global function integer f_cncharnum (string aString);
//函数名: f_cncharnum
//用途: 返回一个字符串中汉字的个数
//输入: aString - string, 给定的字符串
//返回值: li_num - Integer, 给定的字符串中汉字的个数
//注意: 1. 此方法基于汉字的国标汉字库区位编码的有效性，不符合此编码的系统此函数无效！
// 2. 若汉字串含有非汉字字符,如图形符号或ASCII码,则这些非汉字字符将保持不变.
//例如: li_ret = f_cncharnum("摆渡人ferryman") li_ret = 3
string ls_ch //临时单元
string ls_SecondSecTable //存放所有国标二级汉字读音
integer li_num = 0 //返回值
integer i,j
For i = 1 to Len(aString)
ls_ch = Mid(aString,i,1)
If Asc(ls_ch) >= 128 then //是汉字
li_num++
i = i+1
End if
Next
Return li_num
end function
---------------------------------------------------------------
(2)、转到WORD
$PBExportHeader$f_outputtoword_new.srf
global type f_outputtoword_new from function_ O B J E C T
end type
forward prototypes
global function integer f_outputtoword_new (datawindow adw) end prototypes
global function integer f_outputtoword_new (datawindow adw); //函数名:f_outputtoword_new
//输入: adw - datawindow,指定的数据窗口
//返回值: Integer
constant integer ppLayoutBlank = 12
OLEObject ole_ O B J E C T
ole_ O B J E C T = CREATE OLEObject
integer li_ret
li_ret = ole_ O B J E C T.ConnectToObject("","word.application") IF li_ret <> 0 THEN
//如果Word还没有打开，则新建。
li_ret = ole_ O B J E C T.ConnectToNewObject("word.application") if li_ret <> 0 then
MessageBox('OLE错误','OLE无法连接!错误号：' + string(li_ret))
return 0
end if
ole_ O B J E C T.Visible = True
END IF
long ll_colnum,ll_rownum
constant long wdWord9TableBehavior = 1
constant long wdAutoFitFixed = 0
constant long wdCell = 12
string ls_value
pointer oldpointer
oldpointer = SetPointer(HourGlass!)
string ls_ O B J E C Ts,ls_obj,ls_objs[],ls_objtag[]
long ll_pos,ll_len,ll_num = 0
ls_ O B J E C Ts = trim(adw.Describe('datawindow.Objects'))
do while (pos(ls_ O B J E C Ts,"~t") > 0)
ll_pos = pos(ls_ O B J E C Ts,"~t")
ll_len = ll_pos - 1
ls_obj = left(ls_ O B J E C Ts,ll_len)
if (adw.Describe(ls_obj + '.type') = 'column' or &
adw.Describe(ls_obj + '.type') = 'compute') and &
(adw.Describe(ls_obj + '.band') = 'detail') and (ls_obj <> "a sd") then
ll_num += 1
ls_objs[ll_num] = ls_obj
ls_objtag[ll_num] = adw.Describe(ls_obj + '.tag')
end if
ls_ O B J E C Ts = right(ls_ O B J E C Ts,len(ls_ O B J E C Ts) - ll_pos) loop
//得到数据窗口数据的列数与行数（行数应该是数据行数 + 1）
ll_colnum = ll_num
ll_rownum = adw.rowcount() + 1
ole_ O B J E C T.Documents.Add()
ole_ O B J E C T.ActiveDocument.Tables.Add(ole_ O B J E C
T.Selection.Range, ll_rownum, ll_colnum)
string ls_colname
integer i,j,k
for i = 1 to ll_colnum
//得到标题头的名字
ls_value = ls_objtag[i]
ole_ O B J E C T.Selection.TypeText(ls_value)
for k = 1 to f_cncharnum(ls_value)
ole_ O B J E C T.Selection.TypeBackspace()
next
ole_ O B J E C T.Selection.MoveRight(wdCell)
next
adw.setredraw(false)
ole_ O B J E C T.Selection.MoveLeft(wdCell)
string column_name
for i = 2 to ll_rownum
for j = 1 to ll_colnum
column_name = ls_objs[j]
if adw.Describe(column_name + '.type') = 'column' then
ls_value = adw.Describe("Evaluate('LookupDisplay("+column_name+")', "+string(i - 1)+")")
end if
if adw.Describe(column_name + '.type') = 'compute' then
ls_value = adw.Describe("Evaluate('" + adw.Describe(column_name + '.expression') + "',"+string(i - 1)+")")
end if
ole_ O B J E C T.Selection.MoveRight(wdCell)