PB中一些技巧
PB中一些技巧1.RGB函数计算公式: 颜色值＝ (65536 * Blue) + (256 * Green) + (Red)2.控件可拖动：send(handle(this),274,61458,0)3.如何用程序控制下拉子数据窗口的下拉和收起用modify或者直接用dw_1.object.col1.dddw.showlist = true4.检索参数有些不需要传入则传%.5.如何屏蔽鼠标滚轮触发在控件的other事件写if message.number = 522 then return 16.得到数据窗口的语法：string ls_dwsyntaxls_dwsyntax=dw_1.describe("datawindow.syntax")7.得到数据窗口中各列及标题：long ll_count,istring ls_value,ls_colnamell_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")next8.在程序中动态设置初始值: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_dwnkeyIF KeyDown(KeyDownArrow!) OR KeyDown(KeyUpArrow!) ThenReturn 1End IF13.你注意到没有，数据窗口画板里面，在写表达式的时候，试着用一些用户自定义的全局变量和全局函数，你会发现在某些特殊的场合，这个小窍门还是很有用的。
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.data18.根据条件改变记录颜色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_countls_count = dw_1.describe("datawindow.column.count")21.取数据窗口中可列新的表名。
string ls_tablels_table = dw_1.describe("datawindow.updatetable.table")22.取数据窗口对象中列的名称及类型string ls_cols[],ls_types[]int li_count,ili_count = integer(ls_count)for i = 1 to li_countls_cols[i] = dw_1.describe("#"+string(i)+".name")ls_types[i] = dw_1.describe("#"+string(i)+".coltype")next23.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//即可以清空a27.只允许修改第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_nullSetNull(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_findstring value0value0=sle_1.textif not (isnull(sle_1.text) or sle_1.text='') thenif 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 ifif ll_find>0 thenjwl_dmxz.dw_1.scrolltorow(ll_find)//为了避免首次目标记录为第一条，无法选中。
if ll_find=ll_find0 thenjwl_dmxz.dw_1.selectrow(ll_find,true)elseif ll_find<>ll_find0 thenjwl_dmxz.dw_1.selectrow(ll_find,true)jwl_dmxz.dw_1.selectrow(ll_find0,false)ll_find0=ll_findend ifend ifend if33.然后在查询窗口中的TIMER事件中写：timer(0.05)sle_1.triggerevent(modified!)34.判断计算器是否存在：string is_fileExistsboolean is_Existsis_fileExists='c:/windows/calc.exe'is_Exists=fileExists(is_fileExists)if is_Exists thenrun("c:/windows/calc.exe")elsemessagebox("提示信息","本机的WINDOWS没有计算器！",stopsign!) end if35.得到硬盘序例号String ls_Rootpath, ls_volumnename ,ls_return,softpath GetCurrentDirectoryA(256,softpath)softpath=left(softpath,2)if softpath='C:' thenls_Rootpath = 'D:' // 指定要得到序列号的硬盘，// 一般情况都是C盘，除非你能保证用户存在其它逻辑盘或物理盘elsels_Rootpath = 'C:'end ifls_volumnename = Space(256) // 分配足够的空间，下同Ulong lul_VolumeNameSizelul_VolumeNameSize = 256Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength,lul_FileSystemFlagslul_MaximumComponentLength = 256String ls_FileSystemNameBufferls_FileSystemNameBuffer = space(256)Ulong lul_FileSystemNameSizelul_FileSystemNameSize = 256int ilong ls_num,ls_gnum,ls_dnumi=GetVolumeInformation(ls_Rootpath, ls_volumnename,lul_VolumeNameSize, lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, ls_FileSystemNameBuffer, lul_FileSystemNameSize) ls_return=string(lul_VolumeSerialNumber)return ls_returnPB问答：1.如何让存储文件目录的列，显示图片?答：选择对应的column的display as picture属性为true2、如何复制grid类型的所选择的行的数据到系统剪切板？答：string ls_selectedls_selected=dw_1.Object.DataWindow.Selected.Dataclipboard(ls_selected)3、如何复制graph风格的datawindow中的图形到剪切板？答：dw_1.clipbord("gr_1")4、如何设置的DW底色？在DW的editsource中改变color的值5、如何将Grid风格改成自由格式？在DW的editsource中将processing=1的1改为06、要新建一个表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_temp10、如何设置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_abcldwo_use = dw_1.Objectldwo_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 CT.datawindow.zoom=7514、如何在已过滤后的数据基础上对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=50016、如何让带用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 = 115dw_1.SetFocus()dw_1.SetColumn( "dept_head_id" ) //设置当前dddwkeybd_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 123、如何在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 szselectszselect=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 lstoragelstorage=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= 129、如何进行预览：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=yesprint.cliptext=no print.overrideprintjob=nohidegrayline=noencodeselflinkargs="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)+133、如何实现在datawindow中只有新增的行，才可以编辑？答：在所有的column的protect属性表达式中写入以下表达式：if(isrownew(),'0','1')34、保存datawindow数据到excel中// ... Init docname// ... GetFileOpenName or any other methodif dw_1.SaveAs(docname, HTMLTable!, True) = -1 thenMessageBox("Warning", "Unable to export data. Error writi ng to file!", Exclamation!)returnend if// Convert HTML file to Excel native formatOLEObject excelexcel = CREATE OLEObjectif excel.ConnectToObject(docname) = 0 thenexcel.application.DisplayAlerts = FALSEexcel.application.workbooks(1).Parent.Windows(excel.application .workbooks(1).Name).Visible = Trueexcel.application.workbooks(1).saveas(docname, 39)excel.application.workbooks(1).close()end ifDESTROY excel// done35、除了循环以外，有没有更好的方法统计数据窗口中处于选中状态的行数？一般习惯于使用循环来统计数据窗口中处于选中状态的行数，有没有更好的方法？其实此问题在应用上用处不大，讨论一下，活跃一下思维还是有好处的。
PB窗口使用技巧之增强窗口显示效果
PB窗口使用技巧之增强窗口显示效果一、窗口最小化时设置动态图标二、放置闪烁文字三、提高窗口的打开速度四、移动不带标题栏的窗口五、闪烁窗口标题栏六、给窗口添加自动滚动条功能窗口是应用程序中一个非常重要的界面，界面设计的大部分工作体现在窗口界面的设计中。
所以，在不影响功能的前提下，提倡给用户提供更有提示性的、更美观的界面。
常用的手段是动画、声音等，下面介绍这些常用的方法。
一、窗口最小化时设置动态图标当应用程序最小化时，程序的图标如果是动画的，肯定更能吸引用户的注意，视觉效果会更好。
方法是通过动态修改程序的图标来实现。
当程序最小化时打开timer（在deactive中加入timer(1)语句），并在timer事件中编写如下程序：If This.Icon = 'appico.ico' ThenThis.Icon = 'reverse.ico'ElseThis.Icon = 'appico.ico'End If程序激活时关闭Timer事件（在Active事件中加入timer(0)语句）。
需要注意，要将上面用到的两个ico文件放到当前应用程序的目录中。
二、放置闪烁文字以闪烁文字显示重要信息可以吸引用户的注意力，避免这些重要信息被忽略。
通过周期性修改visible属性，可以实现闪烁效果。
在窗口中，假设放置一个静态文本st_1，在窗口的Open事件中定义Timer事件的间隔：Timer(1)然后，在窗口的Timer事件中定期修改静态文本的visible属性：If Mod(Second(Now()),2) = 1 Thenst_1.visible = FalseElsest_1.Visible = TrueEnd If这样就可以实现闪烁效果。
当然也可以在适当的时候使用timer(1)，并在适当的时候关闭Timer事件。
三、提高窗口的打开速度在窗口的Open事件中经常编写脚本来进行初始处理工作，如果这些工作花费的时间比较长，在窗口显示之前用户就得等待很长的时间。
PB数据窗口绝对技巧
PB数据窗口绝对技巧PB数据窗口绝对技巧是指通过使用PowerBuilder开发环境的数据窗口对象实现高效数据处理的技巧。
数据窗口是PowerBuilder中最重要和最常用的对象之一，它可以用于显示和操作数据库中的数据。
下面将介绍一些PB数据窗口的绝对技巧。
1.使用绑定数据窗口：绑定数据窗口是将数据窗口与数据库表绑定在一起，这样可以方便地进行数据的读取、修改和保存操作。
使用绑定数据窗口可以避免手动编写SQL语句或存储过程，大大提高了开发效率。
2.优化数据窗口的性能：数据窗口的性能优化是开发过程中非常重要的一环。
可以通过以下方法来提高数据窗口的性能：-只选择需要的列：只选择需要的列可以减少网络传输的数据量，提高数据检索的速度。
-使用约束和过滤器：可以在数据窗口中使用约束和过滤器来限制返回结果集的大小，进一步提高性能。
-使用预检索：可以在打开数据窗口之前使用预检索功能，先将数据加载到缓存中，减少后续操作对数据库的访问次数。
3.自定义数据窗口的样式：可以通过数据窗口的属性和事件来自定义数据窗口的样式。
例如，可以设置列的显示格式、颜色和字体等属性，还可以通过事件来实现数据窗口的验证和计算逻辑。
4.使用数据窗口的分组功能：数据窗口的分组功能可以将数据按照指定的列进行分组，并对每个分组进行汇总计算。
这样可以方便地进行数据的统计和报表生成。
5.使用数据窗口的嵌套功能：数据窗口可以嵌套在其他数据窗口中，形成复杂的数据结构。
通过使用数据窗口的嵌套功能，可以实现多层次的数据展示和操作，提高用户体验和数据处理的灵活性。
6.使用数据窗口的插入和更新语句：数据窗口可以使用自动生成的插入和更新SQL语句来实现数据的插入和修改操作。
这样可以避免手动编写大量的SQL语句，简化开发过程。
7.使用数据窗口的事务处理：数据窗口的事务处理功能可以保证一系列的操作要么全部成功，要么全部失败。
可以通过使用数据窗口的事务处理功能来实现数据的批量插入和更新，提高数据处理的效率和数据的一致性。
PB 数据窗口高级( DataWindow)应用37个技巧
PB 数据窗口高级( DataWindow) 37个技巧1. 使DataWindow列只能追加不能修改如何使DataWindow中的数据只能追加新记录而不能修改，利用Column 的Protect 属性可以很方便的做到这一点，方法如下：将每一列的Protect 属性设置为：If( IsRowNew(), 0, 1) )在PowerScript 中可以动态修改Protect 属性：dw_1.Modify("column_name_here.Protect='1~tIf(IsRowNew(),0,1)'")这样，DataWindow 中只有新追加的记录可修改，而其他记录是只读的。
2 .如何在DataWindow中实现列的自动折行我们在PowerBuilder应用程序的开发过程中, 使用DataWindow时, 经常会遇到某列的数据太长, 不能同时全部显示的情况. 若采用自动水平滚动, 操作起来又不够简便. 下面介绍一种方法, 实现列数据多行显示, 即实现列数据的自动折行.具体步骤如下:1) 在DataWindow Painter中打开此DataWindow.2) 在需设定自动折行的列上双击鼠标, 弹开此列的属性窗口.3) 选择Position标签, 选中Autosize Height 多选框.4) 选择Edit标签, 不选中Auto Horz Scroll多选框.5) 单击OK按钮, 保存所做的修改.6) 点中Detail Band (即写有Detail的灰色长带), 单击鼠标右键, 选择Properties... 菜单项.7) 选中Autosize Height多选框.8) 单击OK按钮, 保存所做的修改.9) 保存此DataWindow.注意:连在一起的汉字(中间没有标点或空格分隔), 系统将认为是一个单词, 不会自动进行折行.3. 在数据窗口中实现动画要实现动画，必须要有定时器，在数据窗口中已经有了一个定时器，双击数据窗口将弹出的对话框，在Timer Interval中定义大于零的值就有定时器（可以精确到毫秒），有了这个定时器就可以实现动画了。
PB的小技巧
PB的小技巧1.如何使DataWindow中的数据只能追加新记录而不能修改。
利用Column 的Protect 属性可以很方便的做到这一点，方法如下：将每一列的Protect 属性设置为：If( IsRowNew(), 0, 1) )在PowerScript 中可以动态修改Protect 属性：dw_1.Modify("column_name_here.Protect='1~tIf(IsRowNew(),0,1)'")2. 允许从空的非字符字段跳离string ss = this.dwDescribe(this.GetColumnName()+".coltype")//s = this.dwDescribe("#"+String(this.GetColumn())+".coltype")CHOOSE CASE sCASE "number"IF Trim(this.GetText()) = "" THENint null_numSetNull(null_num)this.SetItem(this.GetRow(),this.GetColumn(),null_num)this.SetActionCode(3)END IFCASE "date"IF Trim(this.GetText()) = "" THENdate null_dateSetNull(null_date)this.SetItem(this.GetRow(),this.GetColumn(),null_date)this.SetActionCode(3)END IFCASE "time"IF Trim(this.GetText()) = "" THENtime null_timeSetNull(null_time)this.SetItem(this.GetRow(),this.GetColumn(),null_time)this.SetActionCode(3)END IFCASE "datetime"IF Trim(this.GetText()) = "" THENdate null_datetimeSetNull(null_datetime)this.SetItem(this.GetRow(),this.GetColumn(),null_datetime)this.SetActionCode(3)END IFEND CHOOSE3. 当我们为Datawindow的每一行显示行号时可以简单的放一个表达式为GetRow() -- 计算列。
pb数据窗口技巧
pb中datawindow常用技巧一(2009-04-16 17:09:07)转载▼分类：PowerBuilder标签：杂谈pb中datawindow常用技巧一1、如何让存储文件目录的列，显示图片？答：选择对应的column的display as picture属性为true2、如何复制grid类型的所选择的行的数据到系统剪切板？答：string ls_selectedls_selected=dw_1.Object.DataWindow.Selected.Dataclipbord(ls_selected)4、如何设置的DW底色？在DW的editsource中改变color的值5、如何将Grid风格改成自由格式？在DW的editsource中将processing=1的1改为06、要新建一个表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.object.columnname.primary.current=ls_temp10、如何设置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?答：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.zoom=150 or dw_1.object.datawindow.zoom=75 13、如何在已过滤后的数据基础上对datawindow进行过滤？答：dw_1.setfilter(dw_1.describe("datawindow.table.filter")+your_join+your_new_filt er)dw_1.filter()14、如何在datawindow中显示动态时间？答：建立一个计算域，表达式为string(datetime(today(),now()),'yyyy年mm月dd日hh点mm分ss秒'),同时设置datawindow的属性dw_1.Object.DataWindow.Timer_Interval=50015、如何让带用title bar的datawindow控件的标题栏诚活动窗口的颜色？答：外部函数定义：funcation logn SetActiveWindow(long hwnd ) Library "user32.dll" datawindow控件的clicked事件代码：setactivewindow(handle(this))16、如何设置datawindow的当前行指示图标？答：在datawindow中建立一个计算列,expression为'',并将该计算列移动为datawindow的第一个列，在datawindow控件的rowfocuschanged事件中写入代码：SetRowFocusIndicator(hand!)或setrowfucsindicator(p_1)//p_1为窗口上的picture控件名17、如何通过代码打开dddw？答：定义外部函数引用声明SUBROUTINE keybd_event( int bVk, int bScan, int dwFlags, int dwExtraInfo) LIBRARY "user32.dll"代码如下：[constant integer VK_F4 = 115dw_1.SetFocus()dw_1.SetColumn( "dept_head_id" ) //设置当前dddwkeybd_event( VK_F4,0,0,0 ) // 按下F4键keybd_event( VK_F4,0,2,0 ) // 释放F4键18、如何打印datawindow的内容到文件中？答：dw_1.object.datawindow.print.fileName ="c:\temp.prn"dw_1.print()19、如何设置dddw的初始值？答：dw_1.object.columnname.Initial="your_initial_value"20、如何只显示不同的数据？答：dw_1.filter("isnull(columnname[-1]) and columnname<>columnname[-1]") dw_1.filter()21、如何让带有title bar的datawindow不可以移动？答：在datawindow的自定义事件ue_nchittest(pbm_nchittest)中写入如下代码：return 122、如何在N-UP显示风格中建立基于第N栏中的列的计算列？答：如column有两列，number和price ,并显示为两栏，则第一栏的cost计算列的expression为number*price,第二栏的cost_1计算列的expression为number[1]*price[1]23、如何清空ddlb或edit.codetable中项目？答：dw_1.Object.columnname.Values=""24、如何实现指定的column的字体旋转90度？答：dw_1.object.columnname.font.Escapement ="900"25、如何获取datawindow的sql代码？答：可以通过以下四种方法获取sql代码：string szselectszselect=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 lstoragelstorage=long(dw_1.object.datawindow.storage)if lstorage>50000 then dbcancel()28、如何连续在同一张纸打印两个数据窗口？答：dw_1.object.datawindow.print.filename="temp.prn"dw_2.object.datawindow.print.filename="temp.prn"dw_1.print()dw_2.print()29、如何设置datawindow分组后每个分组中的记录号？答：建立一个计算列，expression为getrow() - first(getrow() for group 1)+1 30、如何实现在datawindow中只有新增的行，才可以编辑？答：在所有的column的protect属性表达式中写入以下表达式：if(isrownew(),'0','1')31、除了循环以外，有没有更好的方法统计数据窗口中处于选中状态的行数？一般习惯于使用循环来统计数据窗口中处于选中状态的行数，有没有更好的方法？其实此问题在应用上用处不大，讨论一下，活跃一下思维还是有好处的。
在PB中操作BLOB数据的技巧
在PB中操作BLOB数据的技巧在PowerBuilder（PB）中操作BLOB数据是一项常见任务，可以用于存储和检索二进制数据，例如图像、文档和多媒体文件。
下面是操作BLOB数据的一些技巧：1.插入BLOB数据：要插入BLOB数据，首先需要创建一个BLOB变量。
使用Blob类型来声明变量，然后使用Create方法为其分配内存空间。
接下来，使用FileOpen函数打开要插入的文件，并使用ReadFile函数将文件内容读取到BLOB变量中。
最后，使用Insert方法将BLOB数据插入到数据库表中。
以下是一个示例代码片段，演示如何插入BLOB数据：```Blob lb_blobFile ld_fileInteger li_filelb_blob = CREATE Blobli_file = FileOpen("C:\image.jpg", StreamMode!, Read!,Denied!)FileRead(ld_file, lb_blob)FileClose(li_file)dw_1.SetItemBlob(1, lb_blob)dw_1.InsertRow(0)```2.检索BLOB数据：要检索BLOB数据，首先需要从数据库中获取BLOB列的值。
可以使用Retrieve方法检索数据行，然后使用GetItemBlob方法获取BLOB数据并保存到BLOB变量中。
接下来，可以将BLOB数据保存为文件。
以下是一个示例代码片段，演示如何检索并保存BLOB数据：```Blob lb_blobFile ld_fileInteger li_filedw_1.RetrieveRow(0)lb_blob = dw_1.GetItemBlob(1)li_file = FileOpen("C:\image.jpg", StreamMode!, Write!, Shared!)FileWrite(ld_file, lb_blob)FileClose(li_file)```3.更新BLOB数据：要更新BLOB数据，可以使用相同的方法来检索和插入BLOB数据。
pb的ddlb技巧
pb的ddlb技巧在数据库管理中，DDL（数据定义语言）用于定义数据库的结构，其中包括创建、修改和删除数据库对象。
而PB（PowerBuilder）是一种集成开发环境，用于构建企业级应用程序。
在PB中操作数据库时，可以使用DDL语句来创建、修改和删除数据库对象。
以下是一些PB中使用DDL的技巧：1. 创建表：在PB中，可以使用CREATE TABLE语句来创建数据库表。
可以指定表的名称、列的数据类型、约束等信息。
例如：CREATE TABLE employee (。
emp_id INT PRIMARY KEY,。
emp_name VARCHAR(50),。
emp_salary DECIMAL(10,2)。
);2. 修改表：如果需要修改已存在的表结构，可以使用ALTER TABLE语句。
例如，添加新的列或修改列的数据类型：ALTER TABLE employee.ADD emp_department VARCHAR(50);3. 删除表：如果需要删除已存在的表，可以使用DROP TABLE 语句。
例如：DROP TABLE employee;4. 创建索引：在PB中，可以使用CREATE INDEX语句来创建索引，以提高查询性能。
例如：CREATE INDEX idx_emp_name ON employee (emp_name);5. 删除索引：如果不再需要某个索引，可以使用DROP INDEX 语句来删除它。
例如：DROP INDEX idx_emp_name ON employee;6. 使用事务，在执行DDL语句时，建议使用事务来确保数据的一致性。
可以使用BEGIN TRANSACTION和COMMIT TRANSACTION语句来控制事务的范围。
7. 错误处理，在执行DDL语句时，需要考虑可能出现的错误情况。
可以使用TRY...CATCH块来捕获并处理异常情况，以确保程序的稳定性。
总之，在PB中使用DDL语句需要谨慎对待，确保在操作数据库结构时不会造成数据丢失或不一致。
PB中一些技巧
PB中一些技巧PB中一些技巧11.RGB函数计算公式: 颜色值＝ (65536 * Blue) + (256 * Green) + (Red)2.控件可拖动：send(handle(this),274,61458,0)3.如何用程序控制下拉子数据窗口的下拉和收起用modify或者直接用dw_1.object.col1.dddw.showlist = true4.检索参数有些不需要传入则传%.5.如何屏蔽鼠标滚轮触发在控件的other事件写if message.number = 522 then return 16.得到数据窗口的语法：string ls_dwsyntaxls_dwsyntax=dw_1.describe("datawindow.syntax")7.得到数据窗口中各列及标题：long ll_count,istring ls_value,ls_colnamell_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")next8.在程序中动态设置初始值: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))。
PB数据窗口技巧大全
PB数据窗口技巧大全PB数据窗口是PowerBuilder语言中的一种常用控件，用于显示和操作数据。
在实际项目开发中，掌握一些PB数据窗口的技巧能够提高开发效率和用户体验。
下面是一些常用的PB数据窗口技巧的详细介绍，包括动态数据源、处理数据更新、格式化数据、控制数据窗口行为等方面。
1. 动态数据源：PB数据窗口支持通过修改SQL语句和参数实现动态查询。
可以通过修改dw_1.sqlsyntax和dw_1.settransobject等属性实现动态数据源切换或过滤。
2. 处理数据更新：PB数据窗口提供了一些方法来处理数据的插入、更新和删除。
可以使用dw_1.insertrow、dw_1.updaterow和dw_1.deleterow等方法来实现数据的增删改操作。
3. 格式化数据：PB数据窗口提供了一些格式化数据的方法，可以通过修改数据窗口列的format属性来实现对数据的格式化。
例如，可以使用dw_1.modify表示列的format属性来自定义数据的显示格式。
4. 排序和过滤数据：PB数据窗口提供了排序和过滤数据的功能。
可以通过修改dw_1.setsort和dw_1.setfilter等方法实现对数据的排序和过滤。
5. 控制数据窗口行为：PB数据窗口提供了一些属性和方法来控制数据窗口的显示效果。
例如，可以使用dw_1.retrieve来重新检索数据，使用dw_1.setitemstatus来设置数据窗口的状态等。
6.多表连接查询：PB数据窗口支持多表连接查询，可以通过在SQL 语句中使用连接符号和条件来实现多表连接查询的功能。
7.数据窗口插入计算列：PB数据窗口支持插入计算列，可以通过在SQL语句中使用函数和表达式来插入计算列实现对数据的计算和处理。
8.数据窗口多级分组：PB数据窗口支持多级分组，可以通过在数据窗口中设置分组列和聚合函数来实现数据的分组和统计。
9.数据窗口嵌套：PB数据窗口支持嵌套，可以在一个数据窗口中插入另一个数据窗口，实现数据的嵌套显示和处理。
pb技巧八则
设置完毕后在左下角预览窗口中将显示图例的结果。
在进行列自动折行显示的时候，还要注意一点，系统判断自动折行的断点是以空格或标点符号为依据的，如果我们输入一长串字符且中间没有任何标点符号或空隔的话，即使该字符串再长也无济于事。因此，我们一定要提醒用户在录入时适当的加入一些空格或回车。
本文介绍的方法和技巧都是笔者在实践中的一点积累，在此拿出来与大家一起分享。希望在阅读本文后会对您有所帮助或启发。文中如有任何不足之处还望同行们给予指教。在此，我先道声谢。
一、实现运行窗口居中
众所周知，PowerBuilder 7.0在以前的版本中提供了图形化的预览工具，可以很方便的在设计阶段实现窗口居中。但是，到了7.0似
2、在它的表达式栏中写上“ '（' + PC + ' ）' + Province + City + Address ”
3、单击确定完成。
很容易是不是。需要提醒大家的是，计算域只能用来显示，不能对它进行修改，因为它没有TAB属性，不能得到焦点。
三、数据窗口中的条码显示
在数据窗口中显示条码是不是很神秘？这对于没有接触过条码的人来说也许是这样。其实，它简单的不能再简单了。别忘了我们在写文稿时是如何使文稿看上去更有艺术化。没错我们会给它用上各种字体。问题不就解决了吗？条码也是种字体，只不过我们看不懂罢了。我们只要将需要用条码显示的字段的字体换上相应的条码字体就行了，比如，常用的3 of 9条码字
str_MyTime.iYear = 2000 // 2000年
str_MyTime.imonth = 8 / /8月
str_MyTime.iDay = 10 // 10日