PB中的一些技巧.docx
- 文档编号:11074428
- 上传时间:2023-02-24
- 格式:DOCX
- 页数:51
- 大小:41.14KB
PB中的一些技巧.docx
《PB中的一些技巧.docx》由会员分享,可在线阅读,更多相关《PB中的一些技巧.docx(51页珍藏版)》请在冰豆网上搜索。
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事件写
ifmessage.number=522thenreturn1
6.得到数据窗口的语法:
stringls_dwsyntax
ls_dwsyntax=dw_1.describe("datawindow.syntax")
7.得到数据窗口中各列及标题:
longll_count,i
stringls_value,ls_colname
ll_colnum=Long(dw_1.object.datawindow.column.count)
fori=1toll_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语法中不使用SELECTDISTINCT实现删除重复的行
----起先对你要显示唯一值的列进行排序:
"cityA",然后增加如下过滤字符串:
"city<>city[-1]orGetRow()=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
IFKeyDown(KeyDownArrow!
)ORKeyDown(KeyUpArrow!
)Then
Return1
EndIF
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]andyw_bc_circuit_dlname=yw_bc_circuit_dlname[-1]andyw_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.取数据窗口中列的总数
stringls_count
ls_count=dw_1.describe("datawindow.column.count")
21.取数据窗口中可列新的表名。
stringls_table
ls_table=dw_1.describe("datawindow.updatetable.table")
22.取数据窗口对象中列的名称及类型
stringls_cols[],ls_types[]
intli_count,i
li_count=integer(ls_count)
fori=1toli_count
ls_cols[i]=dw_1.describe("#"+string(i)+".name")
ls_types[i]=dw_1.describe("#"+string(i)+".coltype")
next
23.Case(dealintypeWHEN0THENRGB(254,251,235)WHEN2THENrgb(254,251,235)ELSERGB(0,0,255))
写道字段的protect中不仅仅是颜色改变的问题看看
24.dw.Object.col[n]:
直接获得数据窗口的col列第n行的数据。
25.在做数据窗口时,我们有时候希望能够多一些字段来作一些特殊的用处,但是在数据窗口中又不能乱加字段,因为已有的字段必须是数据库中有的或者是他们的组合,呵呵,大家不妨看看这个sql用产生什么样的数据窗口
selectcolname1,colname2,1,''
fromtablename
是不是多出了两个字段阿,一个是字符串字段,一个是数字字段
别忘了要convertsyntax哦
26.清空数组
stringa[],b[]
a[1]='1';a[1]='2';a[1]='3'
a=b//即可以清空a
27.只允许修改第n行的name列:
dw_1.modify("name.protect='1~tif((getrow()=n),0,1)'")
28.让run程序和主程序一起关闭:
functionulongfindwindowA(...).."user32.dll"
functionlongsetparent(..."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自身的好了。
stringls_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程序中写:
longll_find
stringvalue0
value0=sle_1.text
ifnot(isnull(sle_1.text)orsle_1.text='')then
ifleft(sle_1.text,1)='0'orinteger(sle_1.text)<>0then//输入的为代码
ll_find=jwl_dmxz.dw_1.find('dmlike"'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//jwl_dmxz为主窗口,dm为查询的字段名,这里是代码。
else//输入的为名称
ll_find=jwl_dmxz.dw_1.find('mclike"'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//
endif
ifll_find>0then
jwl_dmxz.dw_1.scrolltorow(ll_find)
//为了避免首次目标记录为第一条,无法选中。
ifll_find=ll_find0then
jwl_dmxz.dw_1.selectrow(ll_find,true)
elseifll_find<>ll_find0then
jwl_dmxz.dw_1.selectrow(ll_find,true)
jwl_dmxz.dw_1.selectrow(ll_find0,false)
ll_find0=ll_find
endif
endif
endif
33.然后在查询窗口中的TIMER事件中写:
timer(0.05)
sle_1.triggerevent(modified!
)
34.判断计算器是否存在:
stringis_fileExists
booleanis_Exists
is_fileExists='c:
\windows\calc.exe'
is_Exists=fileExists(is_fileExists)
ifis_Existsthen
run("c:
\windows\calc.exe")
else
messagebox("提示信息","本机的WINDOWS没有计算器!
",stopsign!
)
endif
35.得到硬盘序例号
Stringls_Rootpath,ls_volumnename,ls_return,softpath
GetCurrentDirectoryA(256,softpath)
softpath=left(softpath,2)
ifsoftpath='C:
'then
ls_Rootpath='D:
'//指定要得到序列号的硬盘,
//一般情况都是C盘,除非你能保证用户存在其它逻辑盘或物理盘
else
ls_Rootpath='C:
'
endif
ls_volumnename=Space(256)//分配足够的空间,下同
Ulonglul_VolumeNameSize
lul_VolumeNameSize=256
Ulonglul_VolumeSerialNumber,lul_MaximumComponentLength,lul_FileSystemFlags
lul_MaximumComponentLength=256
Stringls_FileSystemNameBuffer
ls_FileSystemNameBuffer=space(256)
Ulonglul_FileSystemNameSize
lul_FileSystemNameSize=256
inti
longls_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)
returnls_return
PB问答:
1、如何让存储文件目录的列,显示图片?
答:
选择对应的column的displayaspicture属性为true
2、如何复制grid类型的所选择的行的数据到系统剪切板?
答:
stringls_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保存,editsource修改text的x和width属性表达式如下:
x="100~tinteger(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的某一列为空?
答:
stringls_temp[]
setnull(ls_temp)
dw_1.OBJECT.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、如何获取指定名称的datawindowOBJECT?
答:
DWObjectldwo_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.OBJECT.datawindow.zoom=150ordw_1.OBJECT.datawindow.zoom=75
14、如何在已过滤后的数据基础上对datawindow进行过滤?
答:
dw_1.setfilter(dw_1.describe("datawindow.table.filter")+your_join+your_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、如何让带用titlebar的datawindow控件的标题栏诚活动窗口的颜色?
答:
外部函数定义:
funcationlognSetActiveWindow(longhwnd)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?
答:
定义外部函数引用声明
SUBROUTINEkeybd_event(intbVk,intbScan,intdwFlags,intdwExtraInfo)LIBRARY"user32.dll"
代码如下:
[constantintegerVK_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.OBJECT.datawindow.print.fileName="c:
\temp.prn"
dw_1.print()
20、如何设置dddw的初始值?
答:
dw_1.OBJECT.columnname.Initial="your_initial_value"
21、如何只显示不同的数据?
答:
dw_1.filter("isnull(columnname[-1])andcolumnname<>columnname[-1]")
dw_1.filter()
22、如何让带有titlebar的datawindow不可以移动?
答:
在datawindow的自定义事件ue_nchittest(pbm_nchittest)中写入如下代码:
return1
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.OBJECT.columnname.font.Escapement="900"
26、如何获取datawindow的sql代码?
答:
可以通过以下四种方法获取sql代码:
stringszselect
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事件中,写如如下代码:
longlstorage
lstorage=long(dw_1.OBJECT.datawindow.storage)
iflstorage>50000thendbcancel()
28、如何控制打印横向:
dw_control.OBJECT.datawindow.print.orientation=1
29、如何进行预览:
dw_control.OBJECT.datawindow.print.preview="yes"
30、如何连续在同一张纸打印两个数据窗口?
答:
dw_1.OBJECT.datawindow.print.filename="temp.prn"
dw_2.OBJECT.datawindow.print.filename="temp.prn"
dw_1.print()
dw_2.print()
31、如何将pb9.0的datawindow转化为pb8.0版本的datawindow?
答:
editsource将release9;改为release8;
并删除以下内容:
print.printername=""
print.canusedefaultprinter=yes
print.cliptext=noprint.overrideprintjob=no
hidegrayline=no
encodeselflinkargs="1"
export.xml(headgroups="1"includewhitespace="0"metadatatype=0savemetadata=0)
import.xml()
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- PB 中的 一些 技巧