PB中一些技巧 （一）

ehxz

免费乐捐，感谢支持

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(row)+")")

这个表达式可以得到指定列的显示值。（这个知识点有滥竽充数之嫌，但是一时间我真是想不起来太多的东西）

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

lbcast

hao,thanks

licc068

{:lh_05:}{:lh_05:}{:lh_05:}

tonybin

顶........

tox

最后硬盘序列号那个调用的两个函数都不是pb的。

migcheng

真棒 ......

lyhong201118

不错，，，好技巧，有空没空看看。。提高一下自己

sunchengbo2007

免费乐捐，感谢支持

{:lh_05:}好多技巧，谢谢老大分享！{:lh_05:}{:lh_05:}{:lh_05:}{:lh_05:}{:lh_05:}