pb 总结一

/常用API函数例解1．如何使PB窗口总在最上层(Always On Top) 通过SetWindowPos函数把窗口的显示层次修改为HWND—TOPMOST，就可使指定窗口永远不会被其它窗口覆盖，该函数声明为： Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library ″user32″ 参数1为要顶层显示的窗口句柄，参数2指定显示的层次，参数7为附加选项，其余参数指定窗口位置和大小，均可忽略。在窗口的Open或Activate事件中加入如下函数调用： SetWindowPos(Handle(This),-1,0,0,0,0,3) 参数2取-1表示在最顶层显示窗口，取1表示在最底层显示；最后一个参数若取1，表示窗口大小保持不变，取2表示保持位置不变，因此，取3(=1＋2)表示大小和位置均保持不变，取0表示将窗口的大小和位置改变为指定值。 2．在PB中如何获得光盘盘符 通过GetDriveType函数可以获取驱动器(如：软驱、硬盘、光驱、网络映射驱动器等)的信息，该函数声明为：Function Uint GetDriveTypeA(String drive) Library ″kernel32.dll″ 参数为一个盘符(如"C:")，返回值：1表示未知，2表示软驱，3表示本地硬盘，4表示网络驱动器，5表示光驱。因此如下代码可以获得光盘的盘符： For i=Asc(′D′) to Asc(′Z′) //列举所有可能的CDROM驱动器 　　If GetDriveTypeA(Char(i)＋″:″)=5 Then //若找到CDROM MessageBox(″CDROM″,Char(i)＋″:″) //显示光盘盘符 Exit //退出列举 　　End IfNext 3．在PB中如何获取目录信息 ⑴获取当前目录。通过GetCurrentDirectory函数可以获取当前目录，该函数声明为： Function Ulong GetCurrentDirectoryA(Ulong buflen, ref String dir) Library ″kernel32.dll″ 参数2为接收当前目录的字符缓冲区，前面必须加ref表示地址引用；参数1用来指定字符缓冲区的长度。调用过程为：String curdir curdir=Space(256) //为字符缓冲区开辟内存空间 GetCurrentDirectoryA(256,curdir) MessageBox(″Current Directory″,curdir) ⑵获取Windows及系统目录。要用到GetWindowsDirectory和GetSystemDirectory两个函数，须作如下声明： Function Uint GetWindowsDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″ Function Uint GetSystemDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″ 4．在PB中如何注销当前用户、关闭计算机、重启计算机 通过ExitWindowsEx函数可实现这三个功能，首先作如下声明： Function Long ExitWindowsEx(Long uflag,Long nouse) Library ″user32.dll″ 参数2保留不用，可取0；参数1取0可以注销当前用户，取1可以关闭计算机，取2可以重启计算机，其值再加4表示强制结束"未响应"的进程。 5．控制由Run运行的程序(简称Run程序) 在PB程序设计中，可以用Run()来运行一些程序。比如用户按了F1，就运行一个chm文件。但Run程序无法与PB主程序协调工作，若用户按了多次F1，就会启动Run程序的多个实例，主程序退出时，Run程序依然运行。可以用如下函数来使它们协调工作： Function Ulong FindWindowA(Ulong classname, String windowname) Library ″user32.dll″ Function Long SetParent(Long childwin,Long parentwin) Library ″user32.dll″ ⑴使Run程序只运行一个实例 handle=FindWindowA(nul,wtitle) //查找Run程序是否已经运行，wtitle为Run程序的标题 IF handle〉0 Then Return //若已经在运行就返回 Run(″C:/Program Files/Joint/Joint.chm″) //否则运行Run程序 ⑵PB主程序退出时，Run程序也关闭 handle=FindWindowA(nul,wtitle) SetParent(handle,Handle(w—main)) //使Run程序窗口成为PB主程序的子窗口 6．映射网络驱动器 若要在程序中把远程主机的资源映射到本地驱动器，可以用如下函数： Function long WNetAddConnectionA(String path,string pwd,String drv) Library ″mpr.dll″ 如下代码可以把远程主机Alexander上的共享文件夹My Documents映射到本地的J盘： WNetAddConnectionA(″//Alexander/My Documents″,″″,″J:″)//参数2为访问口令 它的作用相当于在DOS提示符下执行：Net Use J: //Alexander/My Documents 7．显示或隐藏Windows的任务栏 要显示或隐藏任务栏，首先要得到它的窗口句柄。任务栏是一个特殊的窗口，它的窗口类为：Shell—TrayWnd，没有标题，故只能用FindWindowEx函数来取得它的句柄： Function long FindWindowEx(long ph, long ch, ref String cn, ref String wn) Library ′user32′ Function Long ShowWindow(Long hWnd, Long nCmdShow ) Library ′user32′ 用ShowWindow来显示或隐藏窗口，其第二个参数为0表示隐藏，为5表示显示： handle = FindWindowEx(0,0,″Shell—TrayWnd″, wn)//wn为空串 ShowWindow(handle,0)//隐藏任务栏 8．如何将长文件名转换为短文件名 通过GetShortPathName函数可以把长文件名转换为8.3格式，其声明为： Function Long GetShortPathNameA(String lf, ref String sf, Long buflen) Library ′kernel32′ 参数1为长文件名，参数2为保存短文件名的缓冲区，参数3为缓冲区长度。例如： GetShortPathNameA(″C:/My Documents/PowerBuilder编程实践.Doc″, sf,256)//sf=Space(256) 9．如何在PB中实现延时 延时函数很有用，PB虽然没有提供，但可以通过Win32的Sleep函数来扩展： Function Long Sleep(Long ms) Library ″kernel32″ 调用：Sleep(1000)//延时1秒 10．如何在PB中播放音乐 PB没有提供任何多媒体函数，要播放音乐只能通过Win32 API的PlaySound来实现： Function Long PlaySound(String Filename,Int Mod,Int Flags ) Library ″winmm.dll″ 参数1为wav文件名，参数2必须取0，参数3取1表示后台播放，取8表示循环播放，因此取9(=1＋8)表示在后台循环播放。 11、获得Windows系统目录 首先声明如下外部函数： Function uint GetWindowsDirectoryA(ref string dirtext, uint textlen) library "KERNEL32.DLL" Script如下： String ls_WinPath ls_WinPath = Space( 128 ) GetWindowsDirectoryA( ls_WinPath, 128 ) 12、播放AVI文件 首先声明外部函数如下: Function uLong SendMessageA(ulong hWnd , ulong wMsg , ulong wParam ,string lParam ) library "user32.dll" 定义External用户对象uo_comctl_animate，DLL名字填入comctl32.dll，类名填入sysanimate32。 用户对象实例变量中定义如下常量： Constant Private Long WM_USER = 1024 Constant Private Long AviFileComp = 101 Constant Private Long AviSearch = 102 Constant Private Long AviFileCopy = 103 Constant Private Long AviDownload = 104 Constant Private Long AviPrinting = 105 Constant Private Long ACM_OPEN = WM_USER + 100 Constant Private Long ACM_PLAY = WM_USER + 101 Constant Private Long ACM_STOP = WM_USER + 102 定义用户对象的函数(播放AVI文件)： of_playavi(readonly string as_avifilename) returns long SendMessagea(handle(this), ACM_OPEN, 0, as_avifilename) Return Send(handle(this), ACM_PLAY, -1, 4294901760) 和函数(停止播放)： of_stopplay() returns long Return Send(Handle(this), ACM_STOP, 0, 0) 接下来，在窗口中新建该用户对象uo_test，调用uo_test.of_playavi("xxx.avi”)和uo_test.of_stopplay()即可播放和停止文件名为"xxx.avi”的AVI。13.限制应用程序只运行一次 .声明外部函数如下: FUNCTION boolean ShowWindow( ulong winhandle,& int wincommand ) Library "user32" FUNCTION boolean BringWindowToTop( ulong HWND )& Library "user32" FUNCTION long FindWindowA( ulong Winhandle, & string wintitle ) Library "user32" 创建一个窗口’w_test’ . 将title 设置为"Test Window". 在application的 Open 事件中加入如下代码: long ll_winhandle ll_winhandle = FindWindowA( 0, "Test Window" ) If ll_winhandle > 0 Then BringWindowToTop( ll_winhandle ) ShowWindow( ll_winhandle , 5 ) Return End If Open( w_test ) 14.将长文件名转换为短文件名 声明外部函数如下: function long GetShortPathNameA( string lpLong, ref string lpShort, long lBuff ) library ’kernel32’ 定义函数f_Convert( string as_long ), 函数代码如下: String ls_Buffer Long ll_RC ls_Buffer = Space( 255 ) ll_RC = GetShortPathNameA( as_Long, ls_Buffer, 255 ) RETURN ls_Buffer//other事件都些什么用other事件当发生了某个Windows 消息而该消息又不对应于该控件的某个powerBuilder事件时触发；而message.number代表事件的数值编号，该编号由Windows 提供//PB的SHELL命令1.命令: rundll32.exe shell32.dll,Control_RunDLL 功能: 显示控制面板 2.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1 　功能: 显示“控制面板->辅助选项->键盘”选项视窗 3.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2 　功能: 显示“控制面板->辅助选项->声音”选项视窗 4.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3 　功能: 显示“控制面板->辅助选项->显示”选项视窗 5.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4 　功能: 显示“控制面板->辅助选项->鼠标”选项视窗 6.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5 　功能: 显示“控制面板->辅助选项->常规”选项视窗 7.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1 　功能: 执行“控制面板->添加新硬件”向导。 8.命令: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter 　功能: 执行“控制面板->添加新打印机”向导。 9.命令: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1 　功能: 显示 “控制面板->添加/删除程序->安装/卸载” 面板。 10.命令: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2 　 功能: 显示 “控制面板->添加/删除程序->安装Windows” 面板。 11.命令: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3 　功能: 显示 “控制面板->添加/删除程序->启动盘” 面板。 12.命令: rundll32.exe syncui.dll,Briefcase_Create 　 功能: 在桌面上建立一个新的“我的公文包”。 13.命令: rundll32.exe diskcopy.dll,DiskCopyRunDll 　 功能: 显示复制软盘视窗 14.命令: rundll32.exe apwiz.cpl,NewLinkHere %1 　 功能: 显示“建立快捷方式”的对话框，所建立的快捷方式的位置由%1参数决定。 15.命令: rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0 　 功能: 显示“日期与时间”选项视窗。 16.命令: rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1 　 功能: 显示“时区”选项视窗。 17.命令: rundll32.exe rnaui.dll,RnaDial [某个拨号连接的名称] 　 功能: 显示某个拨号连接的拨号视窗。如果已经拨号连接，则显示目前的连接状态的视窗。 18.命令: rundll32.exe rnaui.dll,RnaWizard 　 功能: 显示“新建拨号连接”向导的视窗。 19.命令: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0 　 功能: 显示“显示属性->背景”选项视窗。 20.命令: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1 　 功能: 显示“显示属性->屏幕保护”选项视窗。 21.命令: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2 　 功能: 显示“显示属性->外观”选项视窗。 22.命令: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3 　 功能: 显示显示“显示属性->属性”选项视窗。 23.命令: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder 　 功能: 显示Windows的“字体”文件夹。 24.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3 　 功能: 同样是显示Windows的“字体”文件夹。 25.命令: rundll32.exe shell32.dll,SHformatDrive 　 功能: 显示格式化软盘的对话框。 26.命令: rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,0 　 功能: 显示“控制面板->游戏控制器->常规”选项视窗。 27.命令: rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,1 　 功能: 显示“控制面板->游戏控制器->高级”选项视窗。 28.命令: rundll32.exe mshtml.dll,PrintHTML(HTML文档) 　 功能: 打印HTML文档。 29.命令: rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl 　 功能: 显示Microsoft Exchange常规选项视窗。 30.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @0 　 功能: 显示“控制面板->鼠标” 选项 。 31.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @1 　 功能: 显示 “控制面板->键盘属性->速度”选项视窗。 32.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @1,,1 　 功能: 显示 “控制面板->键盘属性->语言”选项视窗。 33.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @2 　 功能: 显示Windows“打印机”文件夹。 34.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3 　 功能: 显示Windows“字体”文件夹。 35.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @4 　功能: 显示“控制面板->输入法属性->输入法”选项视窗。 36.命令: rundll32.exe shell32.dll,Control_RunDLL modem.cpl,,add 　功能: 执行“添加新调制解调器”向导。 37.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0 　 功能: 显示“控制面板->多媒体属性->音频”属性页。 38.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1 　 功能: 显示“控制面板->多媒体属性->视频”属性页。 39.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2 　 功能: 显示“控制面板->多媒体属性->MIDI”属性页。 40.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3 　 功能: 显示“控制面板->多媒体属性->CD音乐”属性页。 41.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4 　 功能: 显示“控制面板->多媒体属性->设备”属性页。 42.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1 　 功能: 显示“控制面板->声音”选项视窗。 43.命令: rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl 　 功能: 显示“控制面板->网络”选项视窗。 44.命令: rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl 　 功能: 显示ODBC32资料管理选项视窗。 45.命令: rundll32.exe shell32.dll,OpenAs_RunDLL {drive:/path/filename} 　 功能: 显示指定文件(drive:/path/filename)的“打开方式”对话框。 46.命令: rundll32.exe shell32.dll,Control_RunDLL password.cpl 　 功能: 显示“控制面板->密码”选项视窗。 47.命令: rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl 　 功能: 显示“控制面板->电源管理属性”选项视窗。 48.命令: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder 　 功能: 显示Windows“打印机”文件夹。(同rundll32.exe shell32.dll,Control_RunDLL main.cpl @2) 49.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0 　 功能: 显示“控制面板->区域设置属性->区域设置”选项视窗。 50.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1 　 功能: 显示“控制面板->区域设置属性->数字”选项视窗。 51.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2 　 功能: 显示“控制面板->区域设置属性->货币”选项视窗。 52.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3 　 功能: 显示“控制面板->区域设置属性->时间”选项视窗。 53.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4 　 功能: 显示“控制面板->区域设置属性->日期”选项视窗。 54.命令: rundll32.exe desk.cpl,InstallScreenSaver [屏幕保护档案名] 　 功能: 将指定的屏幕保护文件设置为Windows的屏保，并显示屏幕保护属性视窗。 55.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0 　 功能: 显示“控制面板->系统属性->传统”属性视窗。 56.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1 　 功能: 显示“控制面板->系统属性->设备管理器”属性视窗。 57.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2 　 功能: 显示“控制面板->系统属性->硬件配置文件”属性视窗。 58.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3 　 功能: 显示“控制面板->系统属性->性能”属性视窗。 59.命令: rundll32.exe user.exe,restartwindows 　 功能: 强行关闭所有程式并重启机器。 60.命令: rundll32.exe user.exe,exitwindows 　 功能: 强行关闭所有程式并关机。 61.命令: rundll32.exe shell32.dll,Control_RunDLL telephon.cpl 　 功能: 显示“拨号属性”选项视窗。。 62.命令: rundll32.exe shell32.dll,Control_RunDLL themes.cpl 　 功能: 显示“桌面主题”选项面板。//PB键码常数值描述vbKeyLButton 1 鼠标左键 vbKeyRButton 2 鼠标右键 vbKeyCancel 3 CANCEL键 vbKeyMButton 4 鼠标中键 vbKeyBack 8 BACKSPACE键 vbKeyTab 9 TAB键 vbKeyClear 12 CLEAR键 vbKeyReturn 13 ENTER键 vbKeyShift 16 SHIFT键 vbKeyControl 17 CTRL键 vbKeyMenu 18 菜单键 vbKeyPause 19 PAUSE键 vbKeyCapital 20 CAPS LOCK键 vbKeyEscape 27 ESC键 vbKeySpace 32 SPACEBAR键 vbKeyPageUp 33 PAGEUP键 vbKeyPageDown 34 PAGEDOWN键 vbKeyEnd 35 END键 vbKeyHome 36 HOME键 vbKeyLeft 37 LEFT ARROW键 vbKeyUp 38 UP ARROW键 vbKeyRight 39 RIGHT ARROW键 vbKeyDown 40 DOWN ARROW键 vbKeySelect 41 SELECT键 vbKeyPrint 42 PRINT SCREEN键 vbKeyExecute 43 EXECUTE键 vbKeySnapshot 44 SNAP SHOT键 vbKeyInser 45 INS键 vbKeyDelete 46 DEL键 vbKeyHelp 47 HELP键 vbKeyNumlock 144 NUM LOCK键 //A键到Z键与其ASCII码的相应值常数 值 描述 vbKeyA 65 A键 vbKeyB 66 B键 vbKeyC 67 C键 vbKeyD 68 D键 vbKeyE 69 E键 vbKeyF 70 F键 vbKeyG 71 G键 vbKeyH 72 H键 vbKeyI 73 I键 vbKeyJ 74 J键 vbKeyK 75 K键 vbKeyL 76 L键 vbKeyM 77 M键 vbKeyN 78 N键 vbKeyO 79 O键 vbKeyP 80 P键 vbKeyQ 81 Q键 vbKeyR 82 R键 vbKeyS 83 S键 vbKeyT 84 T键 vbKeyU 85 U键 vbKeyV 86 V键 vbKeyW 87 W键 vbKeyX 88 X键 vbKeyY 89 Y键 vbKeyZ 90 Z键 //0键到9键与其ASCII码的相应值常数 值 描述 vbKey0 48 0键 vbKey1 49 1键 vbKey2 50 2键 vbKey3 51 3键 vbKey4 52 4键 vbKey5 53 5键 vbKey6 54 6键 vbKey7 55 7键 vbKey8 56 8键 vbKey9 57 9键 //数字小键盘上的键常数 值 描述 vbKeyNumpad0 96 0键 vbKeyNumpad1 97 1键 vbKeyNumpad2 98 2键 vbKeyNumpad3 99 3键 vbKeyNumpad4 100 4键 vbKeyNumpad5 101 5键 vbKeyNumpad6 102 6键 vbKeyNumpad7 103 7键 vbKeyNumpad8 104 8键 vbKeyNumpad9 105 9键 vbKeyMultiply 106 乘号(*)键 vbKeyAdd 107 加号(+)键 vbKeySeparator 108 ENTER键(在数字小键盘上) vbKeySubtract 109 减号(-)键 vbKeyDecimal 110 小数点(.)键 vbKeyDivide 111 除号(/)键 //功能键常数 值 描述 vbKeyF1 112 F1键 vbKeyF2 113 F2键 vbKeyF3 114 F3键 vbKeyF4 115 F4键 vbKeyF5 116 F5键 vbKeyF6 117 F6键 vbKeyF7 118 F7键 vbKeyF8 119 F8键 vbKeyF9 120 F9键 vbKeyF10 121 F10键 vbKeyF11 122 F11键 vbKeyF12 123 F12键 vbKeyF13 124 F13键 vbKeyF14 125 F14键 vbKeyF15 126 F15键 vbKeyF16 127 F16键//PowerBuilder系统表PBCatTbl 数据库中的表 PBCatCol 数据库中的列 PBCatFmt 显示格式 PBCatVld 有效性规则 PBCatEdt 编辑风格 //PBCatTblpbt_tnam 表名 PBt_tid 表的SQL Server Object ID(仅用于SQL Server) pbt_ownr 表的属主 pbd_fhgt 数据字体高度，以PowerBuilder中的单位表示 pbd_fwgt 数据字体笔划粗细(400=Normal,700=Bold) pbd_fitl 字体是否位斜体(Y=YES，N=NO) pbd_funl 数据字体是否为加下划线(Y=YES，N=NO) pbd_fchr 数据字体字符ji(0=ANSI,2=Symbol,255=OEM) pbd_fptc 数据字体的字符间距和系列，由2个常数相加得到Pitch(0=Default,1=Fixed,2=Variable)Family(0=无所谓,16=Roman,32=Swiss,48=Modern,64=Scrit,80=Decorative) pbd_ffce 数据字体的字形 pbh_fhgt 标题字体高度，以PowerBuilder中的单位表示 pbh_ fwgt 标题字体笔划粗细(400=Normal,700=Bold) pbh_fitl 标题字体是否位斜体(Y=YES，N=NO) pbh_funl 标题字体是否为加下划线(Y=YES，N=NO) pbh_fchr 标题字体字符集(0=ANSI,2=Symbol,255=OEM) pbh_fptc 标题字体的字符间距和系列，由2个常数相加得到Pitch(0=Default,1=Fixed,2=Varible)Family(0=无所谓,16=Roman,32=Swiss,48=Modern,64=Scrit,80=Decorative) pbh_ffce 标题字体的字形 pbl_fhgt 标签字体高度，以PowerBuilder中的单位表示 pbl_ fwgt 标签字体笔划粗细(400=Normal,700=Bold) pbl_fitl 标签字体是否位斜体(Y=YES，N=NO) pbl_funl 标签字体是否为加下划线(Y=YES，N=NO) pbl_fchr 标签字体字符集(0=ANSI,2=Symbol,255=OEM) pbl_fptc 标签字体的字符间距和系列，由2个数相加得到Pitch(0=Default,1=Fixed,2=Varible)Family(0=无所谓,16=Roman,32=Swiss,48=Modern,64=Scrit,80=Decorative) pbl_ffce 标签字体的字形 pbt_cmnt 表的注释 //PBCatColpbc_tnam 表名 pbc_tid 表的SQL Server Object ID pbc_ownr 表的属主 pbc_cnam 列名 pbc_cid SQL ServerColumn ID pbc_labl 标签 pbc_lpos 标签位置(23=左边，24=右边) pbc_hdr 标题 pbc_hpos 标题位置(23=左边，24=右边，25=居中) pbc_jtfy 对齐方式(23=左边，24=右边) pbc_mask 显示格式的名称 pbc_case 大小写(26=Actual,27=UPPER,28=lower) pbc_hght 列高度 pbc_wdth 列宽度 pbc_ptrn 有效规则的名称 pbc_bmap 位图/图片(Y=Yes,N=No) pbc_init 初始值 pbc_cmnt 列的注释 pbc_tag(保留) //PBCatFmt pbf_name 显示格式的名称 pbf_frmt 显示格式 pbf_type 格式应用于何种数据类型 pbf_cntr 并发用法标志 //PBCatVldpbv_name 有效性规则的名称 pbv_frmt 有效性规则 pbv_type 有效性规则作用的数据类型 pbv_cntr 并发用法标志 pbv_msg 有效性检验出错消息 //PBCatEdtpbe_name 编辑风格的名称 pbe_edit 格式串 pbe_type 编辑风格类型:85=CheckBox,86=RadioButton,87=DropDownListBox88=DropDownDataWindow,89=Edit,90=Edit Mask pbe_cntr 修改次数计数器 pbe_seqn 对于PNCatEdt标中需要多行的编辑类型，指定行循序 pbe_flag 编辑风格标志 pbe_work 附加域 //PB自定义事件ID含义：EventID含义 内容浅析 //单选或多选按钮消息(前缀:pbm_bm) pbm_bmgetcheck 单选按钮或多选按钮是否被选。 pbm_bmgetstate 按钮是否加亮。 pbm_bmsetcheck 将无线按钮或确认框的选中状态改为未选中状态,反之亦然。 pbm_bmsetstate 加亮或不加亮按钮。 pbm_bmchange 改变按钮的风格,例如,改为单选按钮或组合框。 //单选或多选按钮通知消息(前缀:pbm_bn) pbm_bnclicked 按钮控件被点中。 pbm_bndisable 使按钮控件无效。 pbm_bndoubleclicked 按钮控件被双点。 pbm_bndragdrop 一个对象被放到按钮控件。 pbm_bndragenter 一个对象被拖到按钮控件。 pbm_bndragleave 一个对象被拖离按钮控件。 pbm_bndragover 一个对象被拖经按钮控件。 pbm_bnhilite 按钮控件被加亮。 pbm_bnpaint 按钮控件被绘制。 pbm_bnsetfocus 按钮控件获得聚焦。 pbm_bnunhilite 按钮控件不被加亮。 //通用对话框消息(前缀:pbm_cb) pbm_cbaddstring 将字符串加到通用对话框。 pbm_cbdeletestring 从通用对话框删除一个字符串。 pbm_cbdir 加一个目录列表到通用对话框。 pbm_cbfindstring 搜索以一组字符开头的字符串。 pbm_cbfindstringexact 搜索与所提供的字符完全匹配的字符串。 pbm_cbgetcount 列表框中的项数。 pbm_cbgetcursel 当前被选项的数目。 pbm_cbgetdroppedcontrolset 列表框在屏幕上的坐标位置。 pbm_cbgeteditsel 编辑器控件中被选字符的范围。 pbm_cbgetextendedui 缺省或扩展的用户界面。 pbm_cbgetitemdata 重画的列表框中的4字节(32位)项。 pbm_cbgetitemheight 列表框中某一项的高度。 pbm_cbgetlbtext 列表框中的文本。 pbm_cbgetlbtextlen 列表框中文本的长度。 pbm_cbinsertstring 向列表框中增加新的字符串或4字节项。 pbm_cblimittext 限制能被输入到列表框中的字符数。 pbm_cbresetcontent 删除列表框中所有元素。 pbm_cbselectstring 搜索匹配的字符串并显示。 pbm_cbsetcursel 在列表框中选择并显示一项。 pbm_cbseteditsel 在列表框的编辑区域中选择一块文本。 pbm_cbsetextendedui 设置缺省或扩展的用户界面。 pbm_cbsetitemdata 在列表框中设定4字节(32位)项。 pbm_cbsetitemheight 设置列表框中项的高度。 pbm_cbshowdropdown 转换(显示或隐藏)列表框中拖放区域。 //通用对话框通知消息(前缀:pbm_cbn) pbm_cbndblclk 用户在列表中某一项上双点。 pbm_cbndragdrop 一个对象被放到通用对话框控件上。 pbm_cbndragenter 一个对象被拖到通用对话框控件上。 pbm_cbndragleave 一个对象被拖离通用对话框控件。 pbm_cbndragover 一个对象被拖经通用对话框控件。 pbm_cbndropdown 列表框的下放区域即将被显示。 pbm_cbneditchange 编辑器控件中的文本发生变化。 pbm_cbneditupdate 列表框编辑器控件中的文本即将被改变。 pbm_cbnerrspace 列表框满,不能再向其中加入项。 pbm_cbnkillfocus 通用列表框失去聚焦。 pbm_cbnselchange 列表框中被选文本被改变。 pbm_cbnselendcancel 用户按下了"取消"按钮。 pbm_cbnselendok 用户按下了"确认"按钮。 pbm_cbnsetfocus 通用对话控件拥有聚焦。 //数据窗口消息(前缀:pbm_dw) pbm_dwclosedropdown 关闭下拉式数据窗口。 pbm_dwscrollend 在数据窗口中卷滚到最后一行。 pbm_dwscrollhome 在数据窗口中卷滚到第一行。 pbm_dwscrolllineend 卷滚到当前行的行尾(水平方向)。 pbm_dwscrolllinehome 卷滚到当前行的行首(水平方向)。 //数据窗口通知消息(前缀:pbm_dwn) pbm_dwnbacktabout 即将通过Shift+Tab组合键离开该控件。 pbm_dwnchanging 控件即将被改变。 pbm_dwndropdown 下拉式列表框的下拉部分即将可见。 pbm_dwngraphcreate 即将创建图形。 pbm_dwnitemchangefocus 数据窗口控件中当前项的聚焦改变。 pbm_dwnitemvalidationerror 对当前项的修改引起了一个合法性检查错误。 pbm_dwnkey 有键被按下。使用KeyDown()处理键盘值。 pbm_dwnlbuttondown 鼠标左键被按下。 pbm_dwnlbuttonup 鼠标左键被松开。 pbm_dwnmbuttonclk 鼠标中键点击。 pbm_dwnmbuttondbclk 鼠标中键双击。 pbm_dwnmousemove 鼠标移动。 pbm_dwnprintmarginchange 打印边界被改变。 pbm_dwnprocessenter 回车键被按下。 pbm_dwnrowchange 数据窗口中聚焦从一行转向另一行。 pbm_dwntabdownout 用户在数据窗口最后一行按了下箭头键。 pbm_dwntabout 用户在数据窗口的最后一行/列中按了tab键。 pbm_dwntabupout 用户在数据窗口第一行中按了上箭头键。 //动态数据交换(DDE)消息(前缀:pbm_dde) pbm_ddeddeack 收到一个DDE消息。 pbm_ddeddeinitiate 开始一个DDE会话。 pbm_ddeddeterminate 终止一个DDE会话。 //编辑器控件消息(前缀:pbm_em) pbm_emcanundo 编辑器控件是否能撤消上一次修改。 pbm_ememptyundobuffer 清空由Windows管理的取消操作的缓冲区。 pbm_emfmtlines 在多行编辑器控件的行尾增加或删除回车换行。 pbm_emgetfirstvisibleline 返回编辑器控件中可见的第一行的行号。 pbm_emgethandle 获得编辑器控件使用的内存句柄。 pbm_emgetline 从编辑器控件中复制一行到内存中的一个缓冲区。 pbm_emgetlinecount 返回多行编辑器控件的行数。 pbm_emgetmodify 文本是否被用户修改。 pbm_emgetrect 返回控件的长方形域。 pbm_emgetsel 返回被选文本的起始位置。 pbm_emlimittext 限制用户键入的文本长度。 pbm_emlinefromchar 返回被选文本的行号。 pbm_emlineindex 返回编辑器控件中被选行第一个字符在编辑串中的位置。 pbm_emlinelength 返回编辑器控件中被选行中的字符数。 pbm_emlinescroll 水平或垂直卷滚编辑器控件。 pbm_emreplacesel 从剪贴板或从键盘上用新文本替换被选文本。 pbm_emsethandle 设置编辑器控件的句柄指向内存中的一个缓冲区。 pbm_emsetmodify 设置编辑器控件的modified标志。 pbm_emsetpasswordchar 设置用户输入任何文本时显示的字符,在输入密码时的显示。 pbm_emsetrect 设置/重置编辑器控件所在的长方形区域,编辑器控件中的文本被重画。 pbm_emsetrectnp 除了不重画文本,大致与setrect相同。 pbm_emsetsel 选择字符。 pbm_emsettabstops 在多行编辑器控件中设置tabstops。 pbm_emsetwordbreak 设置新的词拆分函数。 pbm_emsetwordbreakproc 设置新的词拆分过程。 pbm_emundo 撤消最近的编辑操作。 //编辑控件通知消息(前缀:pbm_en) pbm_enchange 编辑器控件中的文本发生改变。 pbm_enerrspace 编辑器控件内存缓冲区溢出。 pbm_enhscroll 用户点中上水平卷滚条。 pbm_enmaxtext 用户试图输入比允许更多的文本。 pbm_enupdate 编辑器控件即将显示用户的修改。 pbm_envscroll 用户点中了垂直卷滚条。 //列表框消息(前缀:pbm_lb) pbm_lbaddstring 向列表框控件中增加一项或一个字符串。 pbm_lbdeletestring 从列表框中删除一项或一个字符串。 pbm_lbdir 用目录列表填充列表框。 pbm_lbfindstring 在列表框中搜索与所给字符串部分匹配的第一项。 pbm_lbfindstringexact 在列表框中搜索与所给字符串精确匹配的第一项。 pbm_lbgetcaretindex 在列表框中搜索拥有聚焦的项。 pbm_lbgetcount 确定列表框中的项数。 pbm_lbgetcursel 确定所选项是第几项。 pbm_lbgethorizontalextent 获得列表框的宽度、计算水平卷滚。 pbm_lbgetitemheight 确定列表框控件中项的高度。 pbm_lbgetitemrect 确定列表框的尺寸。 pbm_lbgetsel 获得列表框中当前所选的项。 pbm_lbgetselcount 在多选列表框中获得所选项的数目。 pbm_lbgetselitems 用列表框中表框各自的项号填充一个给定的整数数组。 pbm_lbgettext 获得列表框中当前所选项的文本。 pbm_lbgettextlen 获得列表框中当前所选项的文本中的字符数。 pbm_lbgettopindex 确定列表框中可见的最上面一项的项号。 pbm_lbinsertstring 向列表框中加入一个新字符串。 pbm_lbresetcontent 重置(消除)列表框中的内容。 pbm_lbselectstring 搜索并加亮与所给字符匹配的字符串。 pbm_lbselitemrange 选择/取消列表框中某一范围中的项。 pbm_lbsetcaretindex 设置列表框中的某一项拥有聚焦。 pbm_lbsetcolumnwidth 设置列表框中列的宽度。 pbm_lbsetcursel 在列表框中选择并加亮一项;如果需要,卷滚到列表框。 pbm_lbsethorizontaltext 设置列表框中被水平卷滚的单元数。 pbm_lbsetitemdata 设置与列表框相关的32位/4字节值。 pbm_lbsetitemheight 设置列表框中项的高度。 pbm_lbsetsel 在列表框中选择一个字符串。 pbm_lbsettabstops 设置列表框控件中tabstops的位置。 pbm_lbsettopindex 卷滚列表框使特定的项成为可见的最上面一项。 //列表框通知消息(前缀:pbm_en) pbm_endblclk 用户在列表框控件中的某一项上双击。 pbm_enerrspace 用户试图超越可在列表框中输入字符的最大限制。 pbm_enselcancel 当前选取文本被取消。 pbm_enselchange 用户在列表框中选择或取消了一项。 //窗口消息(前缀:pbm_) pbm_activateapp 被激活的窗口属于另外一个应用。 pbm_askcbformatname 要求剪贴板中的内容被复制到一个使用自定义格式的文本缓冲区中。 pbm_char 传送键盘上按下的键。 pbm_chartoitem 通过转换键盘来的字符,帮助列表框定位其中的项。 pbm_childactivate 一个子窗口被移动或激活。 pbm_clear 用户要删除当前编辑器控件中的内容。 pbm_command 用户选择了一个菜单项、控件,或使用了加速键。 pbm_compacting 系统内存资源不足;当Windows占用了多于1/8的CPU时间紧缩内存时,产生这条消息。 pbm_compareitem 当新的一项被加入列表框或组合框时产生此消息,Window用这条消息进行项之间的比较。 pbm_ctlcolor 一个控件即将被画出,可在此时改变控件的颜色。 pbm_deadchar 用户选择了一种非英语字符集或其它特殊字符集,这将改变下面将要输入的字符。 pbm_deleteitem 从列表框或通用对话框中移去一项。 pbm_destroyclipboard 剪贴板内容被清除。 pbm_devmodechanged WIN.INI中的一个设备名被修改。 pbm_drawclipboard 剪贴板内容发生改变。 pbm_drawitem 列表框或通用对话框的一项内容被改变。 pbm_dropfiles 当鼠标左键在一个注册为拖放文件接受器的应用上释放时,发出该消息。 pbm_erasebkgnd 窗口的客户区需要重画。 pbm_fontchange 应用可用的字体数改变。 pbm_getdlgcode 通知消息,说明当前使用哪种类型的键盘。 pbm_getfont 获取当前激活的字体。 pbm_getminmaxinto Windows正在检查最小化或最大化窗口的尺寸。 pbm_gettext 从一个控件(如按钮或编辑器控件)中复制文本到一个内存缓冲区。 pbm_gettextlength 用来确定一个控件中的字符数。 pbm_hscrollclipboard 剪贴板的水平卷滚条被使用。 pbm_iconerasebkgnd 一个最小化窗口需要重化背景。 pbm_initdialog 一个对话框即将被显示。 pbm_initmenu 一个菜单即将被显示。 pbm_initmenupopup 一个弹出式窗口即将被显示。 pbm_keydown 键盘上的一个键被按下。 pbm_keyup 键盘上的一个键被释放。 pbm_mdiactive 一个MDI子窗口(表单)被激活。 pbm_mdicascade 以重叠的形式重排所有的表单。 pbm_mdicreate 创建一个表单。 pbm_mdidestroy 从MDI框架中移去一个表单。 pbm_mdigetactive 获得当前活动的MDI表单的句柄。 pbm_mdiiconrange 在一个MDI框架中重排最小化表单的图标。 pbm_mdimaximize 最大化一个MDI子表单。 pbm_mdinext 激活下一个MDI表单(紧接着活动表单的表单)。 pbm_mdirestore 把MDI表单恢复到它原来的大小。 pbm_mdisetmenu 将一个菜单与一个MDI表单联系起来。 pbm_mdifitle 平铺所有的MDI表单。 pbm_measureitem 这个消息被送给即将创建的、内有按钮或其它控件的窗口。 pbm_menuchar 用户使用了一个快捷键,但系统不支持该快捷键。 pbm_menuselect 用户选择了一个菜单项。 pbm_mouseactivate 用户在一个非活动窗口中点击了鼠标。 pbm_mousemove 用户移动了鼠标。 pbm_ncactivate 窗口的非客户区即将被激活。 pbm_nccalcsize 窗口的尺寸需要重新计算。 pbm_nccreate 窗口即将创建它的非客户区。 pbm_ncdestroy 窗口的非共享区被析构。 pbm_nchittest 每次非客户区被移动时都发送该消息。 pbm_nclbuttondblclk 用户在非客户区双点了鼠标左键。 pbm_ncpaint 非客户需要画出。 pbm_nextdlgctl 在对话框中将聚焦转给另一个控件。 pbm_paint 窗口的客户区需要被画出。 pbm_paintclipboard 剪贴板应用有剪贴操作,剪贴板查看器需重画。 pbm_palettechanged 系统调色板被改变。 pbm_paletteischanging 系统调色板即将被改变。 pbm_parentnotify 通知父窗口一个子窗口即将被创建。 pbm_querydragicon 用户要拖一个最小化窗口。 pbm_queryendsession 通知消息,说明窗口即将被关闭。 pbm_querynewpalette 应用即将收到输入聚焦,应该执行必要的颜色调整。 pbm_queryopen 一个最小化窗口即将被恢复。 pbm_quit 应用处理的最后一个消息。 pbm_renderallformats 通知一个剪贴板格式的拥有者,应用将失去所有的格式。 pbm_renderformats 通知消息,说明放在剪贴板中的数据应该用一种特殊格式传送。 pbm_setcursor 通知消息,说明鼠标指针在一个窗口中移动。 pbm_setfont 用来在对话框中改变字体。 pbm_setredraw 在加一个新项之前发送给列表框或通用对话框。 pbm_settext 用来改变窗口的标题或文本。 pbm_sizeclipboard 剪贴板查看器应用改变尺寸。 pbm_spoolerstatus 一个打印管理器任务被添加或删除。 pbm_syschar 键和其它某键同时被按下。 pbm_syscolorchange 一种或多种系统颜色被改变。 pbm_syscommand 用户选择了一个系统菜单命令。 pbm_sysdeadchar 通知消息，说明一种非英语字符集被选定。 pbm_syskeydown 用户按下某键的同时按下了键。 pbm_syskeyup 用户释放了组合键。 pbm_timechange 系统时钟被修改。 pbm_undo 从undo缓冲区复制文本到编辑器控件。 pbm_vkeytoitem 当一个列表框拥有聚焦时,用户按下了一个键。 pbm_vscroll 用户点击了垂直卷滚条。 pbm_vscrollclipboard 剪贴板查看器的垂直卷滚条被点击。 pbm_windowposchanged 窗口位置发生改变。 pbm_windowposchanging 窗口位置即将发生改变。 pbm_wininichange WIN.INI文件被修改。//PB7.0运行库文件FileName Purpose Runtime Development PBADD70.DLL Utilities(Profiler, DWSyntax, etc) No Yes PBAPL70.DLL Application Painter & Project Painter No Yes PBCGB70.DLL Code Generation 1 No Yes PBCGC70.DLL Code Generation Compiler 1 No Yes PBCGL70.DLL Code Generation Linker 1 No Yes PBCGR70.DLL Code Generation Resource Compiler 1 No Yes PBCGS70.DLL Code Generation 1 No Yes PBCH70.DLL Machine code generation No Yes PBCMP70.DLL Compiler No Yes PBCOM70.DLL COM Generator No Yes PBCPP70.DLL C++ Generator No Yes PBDEV70.DLL Shared Development Utilities No Yes PBDIR70.DLL DirectConnect Database Driver Optional Optional PBDPP70.DLL Pipeline Painter No Yes PBDTS70.DLL Table/Database Painter No Yes PBDWE70.DLL DataWindow Engine Yes Yes PBDWO70.DLL DataWindow Objects for Painters No Yes PBDWP70.DLL DataWindow Painter No Yes PBDWR70.DLL HTML DataWindow Optional No PBGEN70.DLL Application Template No Yes PBIN770.DLL Informix 7 Database Driver Optional Optional PBIN970.DLL Informix 9 Database Driver Optional Optional PBISA70.DLL MS Internet InfoServices API Optional No PBJAG70.DLL Jaguar Interfaces – required on server Optional No PBJCG70.DLL Jaguar Interfaces No Yes PBJDC70.DLL Jaguar Interfaces No Yes PBJDM70.DLL Microsoft JDBC Database Driver Optional Optional PBJDS70.DLL Sun JDBC Database Driver Optional Optional PBJPG70.DLL Jaguar Component Generator No Yes PBJPX70.DLL Jaguar Proxy Generator No Yes PBLIB70.DLL Library Painter No Yes PBMSS70.DLL Microsoft SQLServer Database Driver Optional Optional PBNS170.DLL WEB.PB Netscape API Version 1 Optional No PBNS270.DLL WEB.PB Netscape API Version 2 Optional No PBNS370.DLL WEB.PB Netscape API Version 3 Optional No PBO7370.DLL Oracle 7.3 Database Driver Optional Optional PBO8470.DLL Oracle 8.04 Database Driver Optional Optional PBODB70.DLL ODBC Database Driver Optional Optional PBOGR70.DLL Registry Utility No Yes PBOLE70.DLL OLE DB Database Driver Optional Optional PBOR870.DLL Oracle 8 Database Driver Optional Optional PBORC70.DLL ORCA interface No No PBPRX70.DLL Proxy Generator No Yes PBRTC70.DLL Rich Text Control Optional Yes PBSCC70.DLL SCC Source Control Driver No Optional PBSCR70.DLL script Painter & Debugger No Yes PBSQL70.DLL SQL Painter & Query Painter No Yes PBSYC70.DLL Sybase ASE Database Driver Optional Optional PBSYD70.DLL UNIX Sybase Database Driver Optional Optional PBSYJ70.DLL Jaguar Sybase ASE Database Driver Optional No PBSYS70.DLL System Utility No Yes PBTRA70.DLL Database Trace Utility(pbtrace.log) Optional Optional PBUDO70.DLL User Object Painter & Menu Painter No Yes PBVM70.DLL Virtual Machine Yes Yes PBWED70.DLL script Editor 2 No Yes PBWEI70.DLL script Editor 2 No Yes PBWEP70.DLL script Editor 2 No Yes PBWES70.DLL script Editor 2 No Yes PBWIZ70.DLL Start Wizards No Yes PBWPB70.DLL Web PB Wizard No Yes PSDWC70.CAB DataWindow Web ActiveX Optional No pbapl70.dll 应用画笔pbbgr70.dl 商业图形引擎pbcgc70.dll 编译代码pbcgl.dll 链接代码pbcgr.dll 资源编译pbch70.dll 头文件pbcmp70.dll powerscript编译器pbctl70.dll 窗口/报表和用户自定义对象画板pbdpp70.dll 分布式powerbuilderpbdts70.dll 数据库画板工具pbdwe70.dll 数据窗口引擎pbdwo70.dll 数据窗口对话框pbdwp70.dll 数据窗口画板pbgen70.dll 应用模板pbin970.dll informix 数据库接口pblib70.dll 库画板和浏览器pbmss70.dll ms sql server数据库接口pbodb70.dll odbc数据库接口pborc70.dll　orcle数据库接口pbrtc70.dll　rtf支持软件pbscr70.dll　script画板pbsql70.dll　sql画板pbsyc70.dll　sybase数据库接口pbsys70.dll　开发系统pbtra70.dll　数据库接口pbudo70.dll　用户对象画板pbwed70.dll　编辑器pbwei70.dll　编辑器的自动缩进pbwep70.dll　编辑器的powerscript颜色　pbwes70.dll　编辑器的sql颜色//在数据窗口当中按下回车键之后，焦点移动到后面的字段，如从最后移动，则自动跳转到下一行send(handle(this),256,9,long(0,0))//窗口当中的enter事件！在datawindow的事件当中新建一个自定义事件ue_enter,在even_id当中paste"pbm_dwnprocessenter"long ll_row,ll_RowCountinteger li_col,li_colcountli_col = dw_1.GetColumn()li_ColCount = long(describe(dw_1,"datawindow.column.count"))if li_col = li_ColCount then ll_row = dw_1.GetRow() ll_RowCount = dw_1.RowCount() if ll_row = ll_RowCount then ll_row = dw_1.InsertRow(0) dw_1.setredraw(false) scrolltorow(dw_1,ll_Row) setrow(dw_1,ll_Row) setcolumn(dw_1,1) dw_1.setredraw(true) dw_1.SetFocus() dw_1.modify("datawindow.horizontalscrollposition=1") return 1 end ifend if send(handle(this),256,9,long(0,0))return 1//怎样在程序中为datawindow加计算域或line？//以下程序加一计算域sum(dept_id for all)string ls_modrowdw_1.Modify("DataWindow.summary.Height=64")ls_modrow = 'Create compute(band=summary font.charset="0" font.face="MS Sans Serif" font.family="2" font.height="-8" font.pitch="2" font.weight="400" background.mode="1" background.color="536870912" color="0" x="9" y="4" height="52" width="297" format="[general]" expression="sum(dept_id for all)" alignment="1" border="0" crosstab.repeat=no )~r~n'dw_1.modify( ls_modrow )//以下程序加一条线string ls_linedw_1.Modify("DataWindow.detail.Height=332")ls_line = 'Create line(band=detail background.mode="2" background.color="16777215" pen.style="0" pen.width="5" pen.color="0" x1="37" y1="320" x2="1458" y2="316" )~r~n'dw_1.modify( ls_line )dw_1.settransobject(sqlca)dw_1.retrieve()//我如何才能够很好的控制程序的安全性呢？比如说，我要在一个窗口当中控制一个button的操作权限在datawindow中，操作一个字段的可操属性，难道要对这些个单独编码吗？有没有比较好的方式？窗口当中的权限放置在变量当中，然后把窗口的权限取消就可以了！//一个把窗口redraw到screen中间的函数：f_wincenter(windowname)environment lenvlong ll_height,ll_widthif getenvironment(lenv)= -1 then messagebox("error","get screen message error!")else ll_height=pixelstounits(lenv.screenheight,Ypixelstounits!) ll_width=pixelstounits(lenv.screenwidth,xpixelstounits!) awin.y=(ll_height - awin.height)/2 - 200 awin.x=(ll_width - awin.width)/2 return 0 //成功返回0end if return 1//如何获得当前应用程序的路径FUNCTION unit getmodulefilenamea(ulong hmodule,ref string lpfilename,ulong nsize)library "kernel32.dll"string ls_buffer=space(255)int iif getmodulefilenamea(handle(getapplication()),ls_buffer,255)=0 then setnull(ls_buffer)else do while pos(ls_buffer,"/",i+1)>0 i=pos(ls_buffer,"/",i+1) loop ls_buffer=left(ls_buffer,i) if right(ls_buffer,1)<>"/" then ls_buffer=ls_buffer+"/"end ifreturn ls_buffer//获得当前计算机的名称FUNCTION boolean GetComputerNameA(ref string cname,ref long nbuf) LIBRARY "kernel32.dll"String ls_computername=space(512)Long ll_buffer=512Getcomputernamea(ls_computername,ll_buffer)Return ls_computername//获得当前的路径FUNCTION ulong GetCurrentDirectoryA(ulong nBufferLength,ref string lpBuffer) Library kernel32.dll"String ls_bufferLs_buffer=space(255)If getcurrentdirectorya(255,ls_buffer)=0 then Setnull(ls_buffer)Else If Right(ls_buffer,1)<>"1" then ls_buffer=ls_buffer+"/"End ifReturn ls_buffer