powerbuilder pb91011.5sybase数据库管理程序开发教程6、经验技巧

pb作者:互联 来源 阅读次数 上传时间：2005-6-26TabularDataWindow，LineGrid置是一个即伤脑筋又伤眼睛的，而一旦需要调整行高，所有工作都得重来，试一试用在vertical lines，改变它的属性，在ExpressionsTab上，y1行上输入0，y2行上输入rowheight()-1在 lines,设置y1 y2=rowheight()- 马上Preview一下，看一看效果！你再也不需要因为行的高度发生改变而重新调 一、ODBC动态库:ctl3d32.dll odbc16gt.dll odbc32gt.dll 二、建立EXTRA 三、ORACLE CORE35O.DLLNASNSNT.DLLNAUNTSNT.DLLNCRNT.DLLNlnt.dll NLSRTL32.DLLNnfdnt.dll NSNT.DLLN NT.DLLCIW32.DLLOra73.dll pbdwe70.dllPbo7370.dllPBO8470.DLLpbodb70.dll//API函数 ulongGetDC(ulonghWnd)Library ReleaseDC(longhWnd,longhDC)Library"user32" booleanTextOut(ulonghdcr,integerstx, integersty,refstringlpString,longnCount)Library"GDI32.DLL"Aliasfor"TextO intSetBkMode(ulonghdcr,integermode)Library"GDI32.DLL" ulongSetTextColor(ulonghDC, ulongcrColor)Library"GDI32.Diul_hdc=getdc(handle(p_1)) ="ThisisanSetBkMode(iul_hdc,1)//设定字符输出背景透明SetTextColor(iul_hdc,RGB(255,255,255))TextOut(iul_hdc,11,11,ls_msg,len( (iul_hdc,RGB(128,0,0))TextOut(iul_hdc,10,10,ls_msg,len( handle(p_1),iul_hDC) stringwin[3]int ="w_employee" ="w_customer" ="w_sales"fori=1to3Open(newarray[i], this.GetContextService("Keyword",//使用GetContext 函数用户定义的参数message ("message",is_values)Integerli_countFORli_count=1toUpperBound(is_values)MessageBox("WindowPlug-in",is_values[li_count]) (select a.*fromaunionall b.* )wherec.id= * forupdate;利用Api函数SAboutA可以显示一个与Windows操作系统风格一致的About框 首先如下外部函数 intSAboutA(ulongal_hWnd, stringas_szApp,string ulonghIcon)library"sSAboutA(handle(parent),"关于...#摆渡人","欢迎光临摆渡人procedureTForm1.FormKeyDown(Sender:var if thenstr_datatmpdata(str_dataTreeViewItemtvi_resulttmpdata.wlbm=ls_wlbmtmpdata.zhyl=ld_zhyltmpdata.sff=ls_sfftvi_result.data=tmpdata显示：dw_1.HSplitScroll=Truedw_1.Object.DataWindow.HorizontalScrollSplit=dw_1.object.id.Widthdw_1.Object.DataWindow.HorizontalScrollPosition2=dw_1.object.id.Widthstringls_PageCount=dw_1.describe("Evaluate(’PageCount()’,0)")dw_1.object.datawindow.print.page.range=’"+ls_PageCount+"’"OleWordWordOLEObject =CREATE =ole_object.ConnectToObject("","word.application")IFli_ret <>0THEN =ole_object.ConnectToNewObject("word.application")ifli_ret <>0thenMessageBox(’OLE错误’,’OLE无法连接!错误号：’ +string(li_ret))endifole_object.visible=trueENDIF是否安装了声卡，决定是否取消声音程序。用下面表达式可得到记录在某组中的行号： forGroupPBPB-Catalogs"C:\ProgramFiles\Sybase\PB6\pb60.exe"/pdatawindows/pwindows，窗口；/pdatawindows，库；/puserobjects/p ，全局函数；/p s，菜单。。2、不显示弹出菜单：ToolbarUserControl=3、修改缺省MDIHelp文本：MicroHelpDefault="欢迎使用系统"4、修改数据窗口错误消息框标题：dwmessagetitle="数据有误"5PowerTips：ToolbarTips=false6、工具条上显示文本：ToolbarText=truesubroutineSleep(long dwMilliseconds)library"kernel32.dll"，延时1秒则 PB：send(handle(This),274,61760,0)隐藏任务栏的方法：在OnCreate里利用 API函 LWINDOW);PB使用时首先函数 SetWindowLong(ulonghWnd,integernIndex,ulongdwNewLong)library"user32.dll"ALIASFOR"SetWindowLongA"，然后调用：SetWindowLong(H