PowerBuilder教程,PowerBuilder案例:PB问题解答之二,PowerBuilder源码,PowerBuilder代码,PowerBuilder源码下载,PowerBuilder实例,PowerBuilder安全漏洞, 新闻报价汽车商家技术软件 驱动　　　　　本站短域名：珠江路.cn、zjlu.net 电脑 数码 办公 网络 汽车 招聘 经销商 产品论坛 团购 购物街 首页　新闻　报价库　经销商　驱动下载　软件下载　游戏　学院 三大件　主板　显卡　显示器　装机推荐　周周IT团 手机　DC/DV　GPS　笔记本　平板电脑 学院首页　软件应用　编程开发　创意设计 ASP　ASP.NET　PHP　JSP　SQL　MYSQL　Java　VB 您的位置：学院 >> 编程开发 >> PowerBuilder >> PB问题解答之二 PB问题解答之二 1。问 题 : 如 何 把 阿 拉 伯 数 字 转 换 为 中 文 大 写？（发 票 打 印 中 需 要） 技 巧 1: 脚 本 如 下： int i,lendec,lenint string numstr,a,b,c,d,bbak numstr=string(aje,"#0.00") lenint=len(mid(numstr,1,pos(numstr,'.') - 1)) if right(numstr,2)='00' then lendec=0 else lendec=2 end if string dxint[13],dxdec[2],sz[13] string dxstr="万仟佰拾亿仟佰拾万仟佰拾元" string szstr="零壹贰叁肆伍陆柒捌玖" for i=1 to 13 dxint[i]=mid(dxstr,26 - i*2+1,2) if i sz[i]=mid(szstr,i*2 - 1,2) else sz[i]=" " end if next dxdec[1]="角" dxdec[2]="分" dxstr=" " for i = 1 to lenint a = mid(mid(numstr,1,lenint),i,1) b = sz[integer(a)+1] c = dxint[lenint - i +1] if dxstr" " then d = mid(dxstr,len(dxstr) - 1 ,2) else d = " " end if if b="零" and (d="零" or b=bbak or c="元" or c="万" or c=" 亿") then b="" if a="0" and c"元" and c"万" and c"亿" then c="" if (c="元" or c="万" or c="亿") and d="零" and a="0" then dxstr=mid(dxstr,1,len(dxstr) - 2) d = mid(dxstr,len(dxstr) - 1,2) if (c="元" and d="万" or c="万"and d="亿") the n c="" end if dxstr=dxstr + b + c bbak = b next for i=1 to lendec a = mid (mid(numstr,lenint+2,lendec),i,1) if a="0" and dxdec[i]="分" then b="" else b=sz[integer(a) + 1] end if if a"0" then dxstr=dxstr+b+dxdec[i] else dxstr=dxstr+b end if next if lendec=0 then dxstr=dxstr+"整" return dxstr 2。问 题 : 请 问 如 何 在 DataWindow 中 作 一 个 累 加 ( 累 计 量 ) 的 栏 位 , 格 式 如 下 : 项目 数量 累计量 ==== ==== ====== 1 10 10 2 20 30 3 30 60 cumulativeSum( column for all ) 3。问 题 : 如 何 以 Enter 键 来 达 到 切 换 物 件 的 focus... ？ 技 巧 1: 有 许 多 方 法 , 以 下 是 PowerBuilder 中 较 常 用 的 一 种 方 法 　　 在 PowerBuilder 中 已 定 义 许 多 事 件 所 对 应 的 Message ID, 而 在 其 所 提 供 的 元 件 , 大 部 分 有 对 应 key down 事 件 , 其 ID 值 不 一 定 相 同 , 例 如 在 datawindow -> pbm_dwnkey,single line edit - > pbm_keydown, 其 他 参 考 使 用 手 册 ... 因 此 先 对 使 用 的 元 件 新 增 key 的 使 用 者 事 件 , 当 user 在 元 件 上 按 任 何 按 键 时 , 将 会 触 发 此 key down 事 件 ( 有 例 外 , 讲 解 太 过 复 杂 ,...) 　　 你 将 可 获 得 所 传 的 参 数 key: 按 键 码 ,keyflags 复 合 键 码 , 当 所 按 的 是 Enter 时 , 你 就 把 focus 转 移 到 下 一 元 件 , 或 下 一 栏 位 , 或 ....... 　　 　　 我 想 我 贴 上 一 个 datawindow 的 例 子 , 这 样 也 可 供 其 他 网 友 参 考 . 　　 step1. 先 选 择 要 处 理 的 datawindow control, 然 後 选 择 menu 的 declare 的 user events, 此 时 会 显 示 一 个 使 用 者 事 件 box 　　 step2. 於 event name 设 定 使 用 者 事 件 名 称 例 如 :ue_checkke y, 然 後 在 event ID 填 入 pbm_dwnkey( 或 从 Paste event 选 择 ), 然 後 按 OK 　　 step3. 此 时 你 可 在 datawindow controls 的 script 中 select eve nt 里 发 现 多 了 一 个 使 用 者 事 件 　　 ue_checkkey, 并 且 此 事 件 会 传 递 2 个 参 数 keycode key,unsig nedlong keyflags 　　 step4. 在 script 中 可 如 此 写 : 　　 choose case key 　　 case KeyTab! // 按 Tab 　　 file://write your code 　　 case KeyEnter! // 按 Enter 　　 file://write your code 　　 case KeyEscape! // 按 Esc 　　 file://write your code 　　 . 　　 . 　　 . 　　 end choose 　　 备 注 :1.keycode 是 Enumerate data type 可 在 on line help 或 bro wers 中 获 得 其 属 性 　　 2. 你 可 以 设 定 return value:0 或 1。 技 巧 2: 如 果 是 在 DataWindow 上 , 可 参 考 以 下 的 方 式 : 　　 在 DataWindow 宣 告 一 user event: 　　 1. 如 ue_enter, 将 Event ID 参 考 至 pbm_dwnprocessenter 　　 2. 在 ue_enter 加 入 以 下 的 程 式 码 　　 send(handle(this),256,9,long(0,0)) 　　 return 1 4。问 题 : 简 介 一 下 PowerBuilder 如 何 与 CommPort 连 接。 　　 　 技 巧 1: Step1. 使 用 可 以 控 制 CommPort 的 OCX， 例 如 Microsoft Communications Control 或 pdqComm。 　　 Step2.Initiate the OCX。 file://Script如下，ole_1为OCX Name ole_1.object.CommPort = 2 ole_1.object.Settings = "9600,N,8,1" ole_1.object.PortOpen = true ole_1.object.InputLen = 0 Step3.Get Data or Put Data。 file://Get Data ole_1.object.input() file://Put Data ole_1.object.output = 'ATDT4125678'+char(13) 技 巧 2: 1.呼 叫 电 话 拨 号 程 序,RUN(c:\windows\dialer.exe) 2.VB 或 VC++ 的 Microsoft Communications Control 搭 配 m oden 的 AT Command 3.windows API 的tapiRequestMakeCall(...) 4.windows API 的 TAPI 5。问 题 : 我 欲 在 MDI 视 窗 内 加 入 其 他 CONTROLs, 但 其 sheets 视 窗 却 无 法 显 现 , 请 问 可 有 方 式 解 决 ? 　 技 巧 1: 你 必 须 把 MDI Window 的 Client Area 打 开 (Resize)。 Cli ent Area 可 视 为 一 种 Control， PB 将 它 的 名 字 内 定 为 MDI_1。 　　 file://Example//m1, m2, r1, r2 are all integer.//move the client area to begin at (m1, m2).mdi_1.Move(WorkspaceX()+m1, WorkspaceY()+m2) 　　 file://Resize the client area based on the value (r1, r2) you gived.md i_1.Resize(r1, r2) 　　 要 注 意 的 是 Client Area 打 开 後， 区 域 内 的 Control 会 被 盖 掉。 　 技 巧 2: 可 以 再 开 一 个 child window, 在 开 启 MDI window 以 後， 以 MDI window 为 parent, 开 启 放 有 任 何 object 的 child window 即 可。 　 技 巧 3:I think you may invisible your object that you want to show on your mdi frame. I hope it will helpful. 6。问题： 有 时 你 想 使 数 据 窗 口 中 的 某 列 的 标 题 title 覆 盖 好 几 列， 在 tabular 类 型 的 数 据 窗 口 非 常 容 易 实 现， 我 不 细 说 了， 在 grid 类 型 的 数 据 中 该 如 何 实 现 呢？ 技巧： 选 中 某 列 的 标 题 title，点 右 键 ， 选 properties\po sition\layer，选 中 foreground。这时 你 可 以 改 变 标 题 的 大 小。同 时 你 要 禁 止 用 户 在 运 行 程 序 时 移 动 列 的 权 利， 在 脚 本 中 写 上：dw_1.Modify("DataWindow.Grid.ColumnMove=No") 7。问题： 当 你 建 立 一 个 grid style 的 数 据 窗 口 时，powerbuild er是 不 允 许 你 移 动 数 据 列 的， 那 我 们 需 要 移 动 数 据 列 时 就 必 须 重 建 数 据 窗 口 吗？ 技巧： 在 数 据 窗 口 的 预 览 状 态 下 移 动 数 据 列 即 可。 8。问题： 如 何 使 数 据 窗 口 中 的 看 上 去 象MultiLineEdit control ？ 技巧： 在 数 据 窗 口 的 画 笔 中 选 择 某 一 单 元， 点 击 右 键 ， 选 择Edit Styles 中 的 Edit...，然 后 使 H Scroll and V Scroll Bar 无 效，仅仅 输 入 一 个 上 限 数 字 即 可。 9。问题： 在 数 据 窗 口 中 如 果 你 如 何 隐 藏 某 计 算 单 元 ？ 技巧： 你 可 以 在 它 的properties\expression\visible set: IF( 1 =2,1,0) ，这 样 就 可 以 了。 百度中 PB问题解答之二 相关内容 Google搜索中 PB问题解答之二 相关内容 雅虎中 PB问题解答之二 相关内容 Sogou搜索中 PB问题解答之二 相关内容 技术文章快速查找 栏目导航 软件应用 ·操作系统 ·杀毒防黑 ·应用软件 ·聊天软件 ·网络软件 Web开发 ·ASP ·JavaScript ·CGI ·JSP ·VbScript ·Web服务器 ·PHP ·XML 开发语言 ·VB ·VC ·ASP.NET ·Java ·C/C++ ·Delphi 数据库开发 ·MySQL ·SQL/Access ·PowerBuilder ·Oracle ·DB2 网站设计 ·Flash ·Dreamweaver ·HTML/CSS ·Fireworks ·FrontPage 平面设计 ·Photoshop ·CorelDraw ·AutoCAD ·FreeHand ·Illustrator ·3DsMAX 媒体动画 ·Director ·Authorware ·Maya ·视频处理 相关文章 PB问答（－） 在PB中使用FoxPro数据库的方法 PB中窗口自动居中 PB 5.0由网络版改为单机版的技巧 在PB程序中如何删除只读文件 Pb中定制打印页长实现连续打印 产品库推荐 ·笔记本 ·平板电脑 ·上网本 ·数码相机 ·手机 ·GPS ·DV摄像机 ·MP3 ·MP4 ·CPU/硬盘/内存 ·音箱 ·主板 ·键鼠套装 ·显卡 ·显示器 ·打印机 ·投影机 ·路由器 Copyright 2011 www.zhujiangroad.com All Rights Reserved. 珠江路在线版权所有 苏ICP备05016148号 关于我们　|　 广告服务　|　 付款方式　|　 南京地图　|　南京公交查询　|　南京火车时刻表　|　万能搜索