[下班][郁闷]下班也郁闷
07月 3rd, 2009 by admin
Posted in PowerBuilder | No Comments »
因为明天要起很早，赶去很远的地方，给用户的船舶上装一套老外公司开发的破系统（因为他很慢）。
开一个打印预览，最多的六七百字段的那种，要3分多。
别说用户了，就连我们都无法忍受了。。。。
希望大家努力，学习别人的长处，做自己的东西。
同情你……
公司的系统oracle10
船上用sql anywhere
当初要建一个1000多字段的，Oracle没让
难道是新的设计方法 ，这家伙把啥都能存进去吧
我是来接经验+分来的
配伏，景仰。 字段真是丰富啊。
起码算是外企，呵呵，待遇应还可以啦，老外的东西也这么雷？
六七百个字段在很多行业是有的，我们做的都500个字段了，不过是临时表。哈哈
给点分吧
见识太短了，没遇到过
路过
同情
强悍。呵呵，我只弄过100来个字段的。
我好多年没用过ORACLE了，没想到现在允许1000那么多字段。以前用ORACLE7时我记得好象最多256个。
强悍
jf
可怜的孩子
帮顶了，支持一下。
搞那么多字段
马上就可以不用郁闷了，周末来了
周末来了
jf
接分
1NF？
原来的foxpro听说过全部字段放在一个表里的.
一个表里面如果有六七百字段的话，应该是表设计的不合理吧
jf
也真够厉害的，为什么还有人愿意用？！
顶一下！
牛，頭不看暈也差不多了
周末完了,接着郁闷~
强悍，那么多字段
路过!
你说的怎么那么对。
现在在一个一个看，哪个表打印有问题。
狂晕。。。
难道数据库里就放了一个表,来实现全部的业务功能~
李宁，一切皆有可能！
不说了，眼泪+结贴
[使用][.net]使用.net pb 都能解决的问题。
07月 3rd, 2009 by admin
Posted in PowerBuilder | No Comments »
pb 做数据处理不错，假如有些自绘制的图形要处理怎么办呢？
使用vb.net / c# 很容易用gdi+解决。但是pb怎么可以么？
最近使用 c# 比较多的画图，想了想pb的数据窗口 结合 api 实现一些动态图形应该也是可以的。
不知道谁使用这个办法在工作中应用过？
即使不用 api 利用数据窗口的圆、方等也可以动态作出不错的实时图形！欢迎大家讨论
DLL比较麻烦，可以用C#封装成OCX，PB直接用OLE的方式调用。
做图形不强 ，那是你不牛 ，再 华软又一个帖子 ，说的是北京的一个公司 就是使用pb作图 ，牛逼的很
[轻松][备份][oracle]轻松备份 oracle（pb6 源码）
07月 3rd, 2009 by admin
Posted in PowerBuilder | No Comments »
http://download.csdn.net/source/1438361
可以备份表结构，数据，视图，授权。
不完善的地方主要是：
1. 二进制类型数据备份没能做到通用，得根据实际情况改代码。
2. 没有备份外键及索引。
3. 注释只备份了 pb 系统表的，oracle 本身的没有备。
注：昨天发现一个 bug，恢复视图时会误报“打开文件失败”，导致需要多执行几次恢复，但问题不大。因为 csdn 的上传资源不能删除，也不能修改，所以就先这样吧，等有较大改动后再发新版。
下来看看，谢谢分享
已经下载收藏了，多谢
收藏了，呵呵 谢谢
up！
下来看看
我没有pb6，不知道pb8能不能好用
不好意思，又发现了个问题：在 easybakoracle.ini 中配置 logid 时请注意大小写务必与 system.pbcattbl 和 system.pbcatcol 表的 pbc_ownr 列大小写一致（通常是大写），否则将备份不到注释。
[行时][出错]pb 运行时出错大家帮忙看看
07月 3rd, 2009 by admin
Posted in PowerBuilder | No Comments »
代码如下
dw_1.settransobject(sqlca)
dw_1.retrieve('%')
运行的时候提示
database transaction information not available.call settrans or settransobject function.
相当郁闷
每次运行的时候，都得定义连接数据库吗 ？ 在 OPEN事件里面 ？ ACCESS 数据库连接的代码请教下
sqlca参数设置有问题
SQLCA.DBMS = "O10 Oracle10g (10.1.0)"
SQLCA.LogPass = ''
SQLCA.ServerName = "amos2suite"
SQLCA.LogId = "spectwosuite"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='spectwosuite',TableCriteria=',spectwosuite'"
access的odbc连接
// Profile sale
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=sale;UID=;PWD='"
CONNECT;
open(w_main)
OK ，谢谢各位了
[decimal][数据][窗口]decimal数据窗口过滤
07月 3rd, 2009 by admin
Posted in PowerBuilder | No Comments »
我要在PB中的一个数据窗口中进行过滤，代码如下
string jg
jg="wq.dbo.wq_tel_lr.hj-wq.dbo.wq_tel_qx.ed2>0"
wq_tel_cx.dw_1.setfilter(jg)
wq_tel_cx.dw_1.Filter( )
但是运行时提示我表达式错误，后来我查了下，这些字段都是decimal，有影响吗？该怎样改呢？
在DW画板的Control List页看看你要过滤的字段名是否正确.
这个试过了，不行啊ⷂ𗂷ⷂ𗂷应该是要转换下，该怎样转换呢？
过滤条件支持 数值比较
如
string tj
tj="(je -zdje)>0"
dw_1.setfilter(tj)
dw_1.retrieve()
这个试过了，不行啊ⷂ𗂷ⷂ𗂷应该是要转换下，该怎样转换呢？
可能还是你的过滤表达式写的不正确
数字类型的过滤不用转换,主要是看你的字段名称是否正确.
注意数据窗口的中的字段名是否正确
下图中蓝框中的数据窗口为多表源，字段名为 ：表名_字段名
哦,减号两边要有空格哦.
string tj
tj="(wq_tel_lr.hj - wq_tel_qx.ed2) <0"
wq_tel_cx.dw_1.setfilter(tj)
wq_tel_cx.dw_1.Filter( )
这样写还是不行，表达式换成="(wq_tel_lr.合计 - wq_tel_qx.额度2) <0 也不行
怎么办啊 ？不知道哪里出了问题
先按照6楼 newease 兄的方法看一下你的 DW 对象是否包含有(wq_tel_lr.合计) 和 (wq_tel_qx.额度2) 控件(字段).
tj="(wq_tel_lr.hj - wq_tel_qx.ed2) <0"
改成用datawindow里的字段
还是不行
显而易见的，你吧那个“.”改成“_”试试。引用列的时候，表名和字段名之间的连接符应该为: _
声明：我没有试，只是这样想的，建议楼主试一下。
可以啦，谢谢各位！是名称问题
[下班][郁闷]下班也郁闷
07月 3rd, 2009 by admin
Posted in PowerBuilder | No Comments »
因为明天要起很早，赶去很远的地方，给用户的船舶上装一套老外公司开发的破系统（因为他很慢）。
开一个打印预览，最多的六七百字段的那种，要3分多。
别说用户了，就连我们都无法忍受了。。。。
希望大家努力，学习别人的长处，做自己的东西。
同情你……
公司的系统oracle10
船上用sql anywhere
当初要建一个1000多字段的，Oracle没让
难道是新的设计方法 ，这家伙把啥都能存进去吧
我是来接经验+分来的
配伏，景仰。 字段真是丰富啊。
起码算是外企，呵呵，待遇应还可以啦，老外的东西也这么雷？
六七百个字段在很多行业是有的，我们做的都500个字段了，不过是临时表。哈哈
给点分吧
见识太短了，没遇到过
路过
同情
强悍。呵呵，我只弄过100来个字段的。
我好多年没用过ORACLE了，没想到现在允许1000那么多字段。以前用ORACLE7时我记得好象最多256个。
强悍
jf
可怜的孩子
帮顶了，支持一下。
搞那么多字段
马上就可以不用郁闷了，周末来了
周末来了
jf
接分
1NF？
原来的foxpro听说过全部字段放在一个表里的.
一个表里面如果有六七百字段的话，应该是表设计的不合理吧
jf
也真够厉害的，为什么还有人愿意用？！
顶一下！
牛，頭不看暈也差不多了
周末完了,接着郁闷~
强悍，那么多字段
路过!
你说的怎么那么对。
现在在一个一个看，哪个表打印有问题。
狂晕。。。
难道数据库里就放了一个表,来实现全部的业务功能~
李宁，一切皆有可能！
不说了，眼泪+结贴
[打印][DataWindow][预览]打印DataWindow预览 在线等 … …
07月 2nd, 2009 by admin
Posted in PowerBuilder | No Comments »
我现在做个报表形式的DataWindow（Tabular格式）
这个报表要用 A3 的纸打印
我把这个DataWindow做好以后怎么在PB10.5中查看打印效果
怎么选择纸张规格
直接在打印机属性里设置打印纸张
当然也可在pb中设置menu:file/printer setup
纸张A3
打印预览
纸张设置
打印预览
哈哈，短短一分钟，多了这么多回复，重复了。
给你一个可以预览打印效果的窗口，做到程序里。包括窗口脚本，结构脚本和菜单脚本。PB9的。在库管理界面中导入看看。
窗口脚本：
$PBExportHeader$m_preview.srm
$PBExportComments$打印预览菜单
forward
global type m_preview from menu
end type
type m_top from menu within m_preview
end type
type m_top from menu within m_preview
end type
type m_up from menu within m_preview
end type
type m_up from menu within m_preview
end type
type m_down from menu within m_preview
end type
type m_down from menu within m_preview
end type
type m_bottom from menu within m_preview
end type
type m_bottom from menu within m_preview
end type
type m_print from menu within m_preview
end type
type m_print from menu within m_preview
end type
type m_close from menu within m_preview
end type
type m_close from menu within m_preview
end type
end forward
global type m_preview from menu
m_top m_top
m_up m_up
m_down m_down
m_bottom m_bottom
m_print m_print
m_close m_close
end type
global m_preview m_preview
on m_preview.create
m_preview=this
this.m_top=create m_top
this.m_up=create m_up
this.m_down=create m_down
this.m_bottom=create m_bottom
this.m_print=create m_print
this.m_close=create m_close
this.Item[]={this.m_top, &
this.m_up, &
this.m_down, &
this.m_bottom, &
this.m_print, &
this.m_close}
end on
on m_preview.destroy
destroy(this.m_top)
destroy(this.m_up)
destroy(this.m_down)
destroy(this.m_bottom)
destroy(this.m_print)
destroy(this.m_close)
end on
type m_top from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_top')
end event
on m_top.create
this.Text="首页"
this.ToolBarItemName="VCRFirst!"
this.ToolBarItemText="翻到首页"
end on
on m_top.destroy
end on
type m_up from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_pageup')
end event
on m_up.create
this.Text="前页"
this.ToolBarItemName="VCRPrior!"
this.ToolBarItemText="向前翻页"
end on
on m_up.destroy
end on
type m_down from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_pagedown')
end event
on m_down.create
this.Text="后页"
this.ToolBarItemName="VCRNext!"
this.ToolBarItemText="向后翻页"
end on
on m_down.destroy
end on
type m_bottom from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_bottom')
end event
on m_bottom.create
this.Text="末页"
this.ToolBarItemName="VCRLast!"
this.ToolBarItemText="翻到最后一页"
end on
on m_bottom.destroy
end on
type m_print from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_print')
end event
on m_print.create
this.Text="打印"
this.Microhelp="打印"
this.ToolBarItemName="Print!"
this.ToolBarItemText="打印"
end on
on m_print.destroy
end on
type m_close from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_close')
end event
on m_close.create
this.Text="关闭"
this.ToolBarItemName="Exit!"
this.ToolBarItemText="关闭窗口"
this.ToolBarItemSpace=2
end on
on m_close.destroy
end on
结构脚本：
$PBExportHeader$s_preview_parameter.srs
$PBExportComments$为w_dw_preview单数据窗口打印预览的结构-传递参数
global type s_preview_parameter from structure
integer i_datawindow_type
datawindow dw_datawindow_name
string s_datawindow_syntax
end type
菜单脚本$PBExportHeader$m_preview.srm
$PBExportComments$打印预览菜单
forward
global type m_preview from menu
end type
type m_top from menu within m_preview
end type
type m_top from menu within m_preview
end type
type m_up from menu within m_preview
end type
type m_up from menu within m_preview
end type
type m_down from menu within m_preview
end type
type m_down from menu within m_preview
end type
type m_bottom from menu within m_preview
end type
type m_bottom from menu within m_preview
end type
type m_print from menu within m_preview
end type
type m_print from menu within m_preview
end type
type m_close from menu within m_preview
end type
type m_close from menu within m_preview
end type
end forward
global type m_preview from menu
m_top m_top
m_up m_up
m_down m_down
m_bottom m_bottom
m_print m_print
m_close m_close
end type
global m_preview m_preview
on m_preview.create
m_preview=this
this.m_top=create m_top
this.m_up=create m_up
this.m_down=create m_down
this.m_bottom=create m_bottom
this.m_print=create m_print
this.m_close=create m_close
this.Item[]={this.m_top, &
this.m_up, &
this.m_down, &
this.m_bottom, &
this.m_print, &
this.m_close}
end on
on m_preview.destroy
destroy(this.m_top)
destroy(this.m_up)
destroy(this.m_down)
destroy(this.m_bottom)
destroy(this.m_print)
destroy(this.m_close)
end on
type m_top from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_top')
end event
on m_top.create
this.Text="首页"
this.ToolBarItemName="VCRFirst!"
this.ToolBarItemText="翻到首页"
end on
on m_top.destroy
end on
type m_up from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_pageup')
end event
on m_up.create
this.Text="前页"
this.ToolBarItemName="VCRPrior!"
this.ToolBarItemText="向前翻页"
end on
on m_up.destroy
end on
type m_down from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_pagedown')
end event
on m_down.create
this.Text="后页"
this.ToolBarItemName="VCRNext!"
this.ToolBarItemText="向后翻页"
end on
on m_down.destroy
end on
type m_bottom from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_bottom')
end event
on m_bottom.create
this.Text="末页"
this.ToolBarItemName="VCRLast!"
this.ToolBarItemText="翻到最后一页"
end on
on m_bottom.destroy
end on
type m_print from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_print')
end event
on m_print.create
this.Text="打印"
this.Microhelp="打印"
this.ToolBarItemName="Print!"
this.ToolBarItemText="打印"
end on
on m_print.destroy
end on
type m_close from menu within m_preview
end type
event clicked;parentwindow.postevent('ue_close')
end event
on m_close.create
this.Text="关闭"
this.ToolBarItemName="Exit!"
this.ToolBarItemText="关闭窗口"
this.ToolBarItemSpace=2
end on
on m_close.destroy
end on
人气不错，这里是pb10.5
要是print preview灰色，还要在view里把preview打开
对不起发错了。窗口脚本：
$PBExportHeader$w_dw_preview.srw
$PBExportComments$普通数据窗口打印预览
forward
global type w_dw_preview from window
end type
type st_4 from statictext within w_dw_preview
end type
type em_page from editmask within w_dw_preview
end type
type st_3 from statictext within w_dw_preview
end type
type ddlb_2 from dropdownlistbox within w_dw_preview
end type
type ddlb_1 from dropdownlistbox within w_dw_preview
end type
type st_2 from statictext within w_dw_preview
end type
type st_1 from statictext within w_dw_preview
end type
type cb_1 from commandbutton within w_dw_preview
end type
type dw_preview from datawindow within w_dw_preview
end type
type cbx_rulers from checkbox within w_dw_preview
end type
type cb_2 from commandbutton within w_dw_preview
end type
type em_1 from editmask within w_dw_preview
end type
end forward
global type w_dw_preview from window
integer x = 27
integer y = 8
integer width = 3415
integer height = 1608
boolean titlebar = true
string title = "打印预览窗口"
string menuname = "m_preview"
boolean controlmenu = true
long backcolor = 79741120
string icon = "LibraryOpen!"
event ue_top ( )
event ue_pageup ( )
event ue_pagedown ( )
event ue_bottom ( )
event ue_close ( )
event ue_print ( )
event ue_set_page ( )
st_4 st_4
em_page em_page
st_3 st_3
ddlb_2 ddlb_2
ddlb_1 ddlb_1
st_2 st_2
st_1 st_1
cb_1 cb_1
dw_preview dw_preview
cbx_rulers cbx_rulers
cb_2 cb_2
em_1 em_1
end type
global w_dw_preview w_dw_preview
type variables
int ii_pagecount
end variables
event ue_top;//翻到首页
dw_preview.scrolltorow(0)
end event
event ue_pageup;//翻到前页
dw_preview.scrollpriorpage()
end event
event ue_pagedown;//翻到后页
dw_preview.scrollnextpage()
end event
event ue_bottom;//翻到尾页
dw_preview.scrolltorow(9999999)
end event
event ue_close;close(this)
end event
event ue_print;openwithparm(w_dw_print_options,dw_preview,w_dw_preview)
If Message.DoubleParm = -1 Then Return
dw_preview.Print(TRUE)
end event
event ue_set_page;integer li_current_page
ii_pagecount = integer(dw_preview.describe("evaluate('pagecount()',1)"))
li_current_page = integer(dw_preview.describe("evaluate('page()',1)"))
em_page.Text = String( li_current_page ) + "/" + String( ii_pagecount )
end event
event open;//说明：用于单数据窗口的打印预览
//调用规则：open(w_preview, <powerobjectparm>)
// 参数powerobjectparm为s_preview_parameter型结构变量
// 当被预览的数据窗口为动态数据窗口时：
// powerobjectparm.i_datawindow_type = 0
// powerobjectparm.s_datawindow_syntax =数据窗口语法
// 当被预览的数据窗口为普通数据窗口时：
// powerobjectparm.i_datawindow_type = 1
// powerobjectparm.s_datawindow_syntax =数据窗口控制名
//返回值： 无
//*****************************************************************
//例如：
//s_preview_parameter lstr_parm
//
// lstr_parm.i_datawindow_type = 1
// lstr_parm.dw_datawindow_name = tab_1.tabpage_cx.dw_cx
//
// tab_1.tabpage_cx.dw_cx.saveas("",clipboad!,false)
//
// openwithparm(w_dw_preview,lstr_parm)
//*****************************************************************
//定义数据窗口并获得数据
s_preview_parameter lstr_parm
lstr_parm = message.powerobjectparm
dw_preview.settransobject(sqlca)
if lstr_parm.i_datawindow_type = 0 then //动态窗口
string ls_err,ls_sqlsyntax
ls_sqlsyntax = lstr_parm.s_datawindow_syntax
if ls_sqlsyntax <> "" then
dw_preview.create(ls_sqlsyntax)
else
messagebox("提示信息","没有动态数据窗口语法")
return
end if
else //普通数据窗口
dw_preview.dataobject = lstr_parm.dw_datawindow_name.dataobject
dw_preview.settransobject(sqlca)
end if
dw_preview.importclipboard() //导入预览数据
dw_preview.sort()
dw_preview.groupcalc()
㗃𗃗㗃𗃗接着还有㗃𗃗㗃𗤸�𝥏𗥤꩕🠼br />
接上面，把他们连接成一个文件：
post event ue_set_page()
dw_preview.object.datawindow.print.preview = "yes"
dw_preview.object.datawindow.print.preview.rulers = "yes" //加标尺
end event
on w_dw_preview.create
if this.MenuName = "m_preview" then this.MenuID = create m_preview
this.st_4=create st_4
this.em_page=create em_page
this.st_3=create st_3
this.ddlb_2=create ddlb_2
this.ddlb_1=create ddlb_1
this.st_2=create st_2
this.st_1=create st_1
this.cb_1=create cb_1
this.dw_preview=create dw_preview
this.cbx_rulers=create cbx_rulers
this.cb_2=create cb_2
this.em_1=create em_1
this.Control[]={this.st_4,&
this.em_page,&
this.st_3,&
this.ddlb_2,&
this.ddlb_1,&
this.st_2,&
this.st_1,&
this.cb_1,&
this.dw_preview,&
this.cbx_rulers,&
this.cb_2,&
this.em_1}
end on
on w_dw_preview.destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.st_4)
destroy(this.em_page)
destroy(this.st_3)
destroy(this.ddlb_2)
destroy(this.ddlb_1)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.cb_1)
destroy(this.dw_preview)
destroy(this.cbx_rulers)
destroy(this.cb_2)
destroy(this.em_1)
end on
event resize;Resize(dw_preview,this.Workspacewidth()-10,this.Workspaceheight()-150)
end event
type st_4 from statictext within w_dw_preview
integer x = 2866
integer y = 28
integer width = 197
integer height = 56
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "页次"
alignment alignment = center!
boolean focusrectangle = false
end type
type em_page from editmask within w_dw_preview
integer x = 3099
integer y = 24
integer width = 233
integer height = 76
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
boolean border = false
alignment alignment = center!
maskdatatype maskdatatype = stringmask!
end type
type st_3 from statictext within w_dw_preview
integer x = 1536
integer y = 28
integer width = 325
integer height = 56
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 79741120
string text = "打印纸方向"
alignment alignment = center!
boolean focusrectangle = false
end type
type ddlb_2 from dropdownlistbox within w_dw_preview
integer x = 1865
integer y = 20
integer width = 329
integer height = 460
integer taborder = 70
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
string item[] = {"0 缺省","1 横向","2 竖向"}
borderstyle borderstyle = stylelowered!
end type
event selectionchanged;int li_direct
li_direct = integer(f_get_token(ddlb_2.text,' '))
dw_preview.object.datawindow.print.orientation = li_direct
end event
type ddlb_1 from dropdownlistbox within w_dw_preview
integer x = 315
integer y = 12
integer width = 219
integer height = 488
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 33554431
string text = "100%"
boolean allowedit = true
boolean sorted = false
boolean vscrollbar = true
string item[] = {"200%","150%","100%","75%","50%","25%"}
borderstyle borderstyle = stylelowered!
end type
event selectionchanged;string ls_text
int li_len
li_len = pos(ddlb_1.text,'%') - 1
ls_text = left(ddlb_1.text,li_len)
if integer(ls_text) > 25 and integer(ls_text) <= 200 then
dw_preview.object.datawindow.print.preview.zoom = integer(ls_text)
end if
end event
type st_2 from statictext within w_dw_preview
integer x = 32
integer y = 24
integer width = 279
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 79741120
string text = "显示比例"
alignment alignment = center!
boolean focusrectangle = false
end type
type st_1 from statictext within w_dw_preview
integer x = 558
integer y = 24
integer width = 233
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 79741120
string text = "字体缩放"
boolean focusrectangle = false
end type
type cb_1 from commandbutton within w_dw_preview
integer x = 818
integer y = 16
integer width = 87
integer height = 68
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = " <"
end type
event clicked;If em_1.Text = "" Then
em_1.Text = '100'
End If
em_1.Text = String( Integer( em_1.Text ) - 5 )
em_1.Event Modified( )
end event
type dw_preview from datawindow within w_dw_preview
integer x = 9
integer y = 108
integer width = 3378
integer height = 1292
integer taborder = 10
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
end type
event rowfocuschanged;parent.postevent('ue_set_page')
end event
event scrollvertical;parent.postevent('ue_set_page')
end event
type cbx_rulers from checkbox within w_dw_preview
integer x = 1166
integer y = 12
integer width = 347
integer height = 76
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 79741120
string text = "显示标尺"
boolean checked = true
boolean lefttext = true
end type
event clicked;//为数据窗口加标尺
if cbx_rulers.checked = true then
dw_preview.object.datawindow.print.preview.rulers = "yes"
else
dw_preview.object.datawindow.print.preview.rulers = "no"
end if
end event
type cb_2 from commandbutton within w_dw_preview
integer x = 1051
integer y = 16
integer width = 87
integer height = 68
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = ">"
end type
event clicked;If em_1.Text = "" Then
em_1.Text = '100'
End If
em_1.Text = String( Integer( em_1.Text ) + 5 )
em_1.Event Modified( )
end event
type em_1 from editmask within w_dw_preview
integer x = 809
integer y = 12
integer width = 338
integer height = 80
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "100"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = stringmask!
string mask = "###"
string minmax = "0~~0"
end type
event modified;Integer li_scale
If This.Text = "" Then
li_scale = 100
Else
li_scale = Integer( This.Text )
End If
If li_scale < 50 Then
This.Text = '50'
li_scale = 50
End If
If dw_preview.Describe("DataWindow.Processing") <> '3' Then
dw_preview.modify("DataWindow.Zoom =" + String(Integer ( li_scale )))
End If
end event
呵呵 谢谢各位的顶力支持 谢谢 呵呵 我知道怎么做了
[不知][何去何从]不知何去何从,散散分吧~
07月 2nd, 2009 by admin
Posted in PowerBuilder | No Comments »
近来心情低落~
想转别的开发,单位没基础~
换单位,也挺不好找合适的~
大家骂我吧~
偶背负历史使命，来骂骂你吧。呵呵。
我在读书时，有个有成的校友演讲时说，就算煎油粑粑，煎精通了，也会煎出一片广阔天地。
那就接分吧
坚持…
很有道理的，每个人都不会是一帆风顺的
我觉得你想转的话 可以先自学一下，打点基础，然后在找机会转哦
接分不骂人
jf
jf
像我们这样没什么本事，只能念念书，打打工，也只能走一步算一步了
jf,
现在的就业形势不好,如果你单位还发展得好,又需要人才,还是不要轻易的换掉现有工作.
早打算比晚打算好！接分
前方的路还会有更多的坎坷，消极低落无济于事，看开些吧
祝楼主好运吧。接分
水往低处流，人往高处走。很正常，努力吧！
接分，我也不知道该做什么好。
JF。别以为全世界就你一个人苦闷，其实大部分人都生活在水深火热之中，他们不说而已，主要看你心态了。
这就是人生阿！！！！！
每个月总有那么低落的几天
常情常情~~~
別人想的終究不是你自己想的，摸索去！
调整好心态，做什么其实都一样。
用PB的大多是三十好几的人，都在困惑中。。。。
jf
JF
sf
现在工作确实不好做，忍着吧
。。。
顶 楼主
哎。。。。PB我爱你
接分是正事
[PB數][據][窗口]PB數據窗口數字欄位如何自動換行
07月 2nd, 2009 by admin
Posted in PowerBuilder | No Comments »
在PB10.5中做一個數據窗口
其中一字段為varchar2類型的欄，保存內容為用“/”間隔的數字如“46/48/49/50/51/53/55/59/60/61/62/63/64/65”，由于字串比較長，想把行加寬多行顯示，但行拉寬了，內容不會自動找行。
而另一字段也是varchar2類型的欄，保存內容為“燙台/燙台/燙台/燙台/燙台/燙台/燙台/燙台/燙台/燙台”，其欄位寬變小行變大時會自動換行。
請問高手保存數字的欄如何實現自動換行？
这个，我以前在PB8中是设置过，没有问题，显示正常。
刚才我在PB10.5中试了一下，是有点问题。
我试的情况是这样的，在一栏中输入全英文，当光标不在该栏时，显示不正常，当光标移入该栏时，会发生折行，表现正常。
如果输入内容不全是英文时，则始终表现正常。
这应该是PB10.5的问题吧。
PB8 PB9 都能正常
实在不行的话，取消字段的自动行高，直接高度的表达式 ，如： 字段高 㗠（len(字段）/字段单位宽度字符数）
不过如果中英混排，得到的行高也不是很理想
楼主PB10.5的小版本是多少
好像升级到PB10.5.2-7826 自动行高就会正常了
不知道為什么升級到PB10.5.2-7826后，還是不行，郁悶！
但有个问题，这个需要字符串中遇到空格才自动分行，怎么才能让宽度超出后自动显示呢？？
即可实现自动换行功能。
对于要实现实时的自动换行则需如下脚本：
Object.DataWindow.Detail.Height.AutoSize = 'yes'
Object. <DWObject>.Height.AutoSize = 'yes'
Object. <DWObject>.Edit.AutoVScroll = 'yes'
[dbprocess][处于][可用]如和解决dbprocess处于不可用或未启用状态的提示
07月 1st, 2009 by admin
Posted in PowerBuilder | No Comments »
为什么会出现这样的提示呢，也有局域网不稳定的原因吗？请高手指点
disconnect然后再connect一下
在数据窗口的dberror里写代码，捕捉错误，然后return 1即可实现不提示信息
dbprocess处于不可用或未启用
程序使用过程中网络断开，再次尝试数据库操作时就会提示该信息。
检查客户端与服务器的网络连接。
事务连接已断,重新连事务
局域网不稳定（线路、网络设备、病毒）造成数据传输错误或瞬间中断