1,怎樣得到下拉數(shù)據(jù)窗顯示列的值
下面的代碼使用了Describe()的Evaluate()函數(shù)，其功能是得到state_code列的顯示值，該列使用了下拉數(shù)據(jù)窗口（DropDownDataWindow）編輯風(fēng)格。這段代碼應(yīng)該在發(fā)生過ItemChanged事件后執(zhí)行，這樣用戶所選值已經(jīng)被放入了相應(yīng)的緩沖區(qū)。為了安全，下面的代碼放置在名稱為getdisplayvalue的數(shù)據(jù)窗口用戶自定義事件中：
string rownumber, displayvalue
rownumber = String(dw_1.GetRow())
displayvalue = dw_1.Describe( "Evaluate('LookUpDisplay(state_code) ', " &
+ rownumber + ")")
dw_1.Describe("Evaluate('LookUpDisplay(columnname)',"+String(this.GetRow())+")"))
2,在PB下實(shí)現(xiàn)多邊形的窗口
看了如煙網(wǎng)友《如何在PB下實(shí)現(xiàn)圓形窗口》的文章，用了一下不錯(cuò)，希望也能寫一些東西對(duì)大家有所幫助！
如下：
首先在窗口定義下列局部外部函數(shù)（Local External Functions...）：
Function ulong CreatePolygonRgn (ref tagPOINT lppt[], int cPoints, int fnPolyFillMode ) Library "gdi32.dll"
FUNCTION ulong SetWindowRgn(ulong hWnd,ulong hRgn,boolean bRedraw) LIBRARY "user32.dll"
在窗口上定義
Structure
tagpoint
{ long x
long y}
在窗口的open事件中加上：
long hrgn
long lres
tagPOINT l_pointapi[]
l_pointapi[1].x = 173
l_pointapi[1].y = 112
l_pointapi[2].x = 412
l_pointapi[2].y = 66
l_pointapi[3].x = 478
l_pointapi[3].y = 240
l_pointapi[4].x = 338
l_pointapi[4].y = 340 //多邊形各個(gè)頂點(diǎn)坐標(biāo)值
hrgn = CreatePolygonRgn(l_pointapi[],4,1)
//其中第 1 個(gè)參數(shù)為多邊形各個(gè)頂點(diǎn)坐標(biāo)值的數(shù)組
//其中第 2 個(gè)參數(shù)為多邊形邊數(shù)，可修改，配合數(shù)組值
//其中第 3 個(gè)參數(shù)為填充模式 ALTERNATE /WINDING
lres=setwindowRgn(handle(this),hrgn,true)
設(shè)置了填充模式，但看不出來，不知到底有什么用，望大蝦們告知
3，PB的狀態(tài)條很難看，不能增加更多的分割條，字體也很難看，有什么辦法可以改善?
PB狀態(tài)欄并不是一個(gè)控件,它是一個(gè)屬于MDI主窗口的子窗口(child window)
在6.0中其類名為"FNHELP60",由此可查到狀態(tài)欄的句柄,下面的程序段將句柄取出并保存在llhStatusBar變量中
// Win32 API
function long FindWindowA( String lpClassName, String lpWindowName ) Library "user32"
function long FindWindowExA( long hParent, long hChildAfter, String lpszClass, String lpszWindow ) Library "user32"
//Open event script in the frameWindow
long llNULL, llhStatusBar
string lsClassName, lsWindowName
Environment lEnv
// Check the FrameWindow is a valid window, and get current environment settings
IF IsValid( this ) AND (GetEnvironment(lEnv) = 1) THEN
// Check that this an MDI frame window with a standard statusbar
IF (this.WindowType = MDIHelp!) THEN
// Set classname of statusbar based on PB version
CHOOSE CASE lEnv.PBMajorRevision
CASE 5
lsClassName = "FNHELP050"
CASE 6
lsClassName = "FNHELP60"
// Add code here for PB4 and PB7
END CHOOSE
// Get handle to statusbar
SetNull(lsWindowName)
SetNull(llNULL)
llhStatusBar = FindWindowEXA( Handle(this), llNULL, lsClassName, lsWindowName )
END IF
END IF
但是我想引用這個(gè)子窗口的名字，
以便把它分成多列！有辦法嗎？
得到微幫助的句柄以后,還有什么是不能做的呢?你可以用TextOut在微幫助條上輸出字符,當(dāng)然在此之前,你還可以用CreateFont設(shè)定字體, 用SetBkColor和 SetTextColor設(shè)定顏色.如果你想加入分割線可以用MoveToEx加LineTo,不過這樣一來就比較麻煩了.^_^
//Win 32 API
Function ulong CreateFont (int nHeight, int nWidth, int nEscapement, int nOrientation, int nWeight, ulong fbItalic, ulong fbUnderline, ulong fbStrikeOut, ulong fbCharSet, ulong fbOutputPrecision, ulong fbClipPrecision, ulong fbQuality, ulong fbPitchAndFamily, ref string lpszFace) ALIAS FOR "CreateFontA" Library "GDI32.DLL"
Function ulong GetDC (ulong hWnd) Library "USER32.DLL"
Function ulong SetBkColor (ulong hDC, ulong crColor) Library "GDI32.DLL"
Function ulong SetTextColor (ulong hDC, ulong crColor) Library "GDI32.DLL"
Function boolean TextOut (ulong hdcr, integer stx, integer sty, ref string lpString, long nCount) Library "GDI32.DLL" Alias for "TextOutA"
Function boolean LineTo (ulong hDC, integer wx, integer wy) Library "GDI32.DLL"
Function boolean MoveToEx (ulong hDC, int x, int y, ref tagPoint lppt ) Library "GDI32.DLL"
Function ulong SelectObject (ulong hDC, ulong hWnd) Library "GDI32.dll"
//Open event script
string ls_facename = "宋體"
ilh_statusbarhdc = GetDC(llhStatusBar)
ll_Font = CreateFont(16, 0, 0, 0, 400, 0, 0, 0, 255, 0, 0, 0, 18, ls_facename)
SelectObject (ilh_statusbarhdc, ll_font)
SetBkColor (ilh_statusbarhdc, rgb( 0,0,165 ))
SetTextColor (ilh_statusbarhdc, rgb( 0,165,0 ))
自定義一個(gè)事件ue_paint,選擇pbm_paint,在其中添加字符串輸出:
string ls_facename = "呵呵!一切就緒"
TextOut ( ilh_statusbarhdc, 100, 3, ls_facename, len( ls_facename ))
為PB的微幫助條加分割線:
首先tagPoint 是一個(gè)結(jié)構(gòu),你需要先在PB中聲明之:
type str_pos from structure
long x
long y
end type
//win32 API
Function ulong GetDC(ulong hwnd) library "user32.dll"
FUNCTION boolean MoveToEx(ulong hwnd,long wx, long wy,ref str_pos prepos2) LIBRARY "Gdi32.dll"
FUNCTION boolean LineTo(ulong hwnd,long wx, long wy) LIBRARY "Gdi32.dll"
Function ulong CreatePen (uint nPenStyle, uint nWidth, ulong crColor) Library "GDI32.DLL"
Function ulong SelectObject (ulong hDC, ulong hWnd) Library "GDI32.dll"
//Open event script
// llhStatusBar是微幫助條窗口句柄
ilh_statusbarhdc = GetDC(llhStatusBar) //如何取微幫助條窗口句柄,見595貼
//用CreatePen建立畫線的線形,這里為紅線,1個(gè)像素寬
SelectObject (ilh_statusbarhdc, CreatePen ( 0, 1, rgb( 255,0, 0 ) ) )
//在ue_paint事件中畫分割線,線的起點(diǎn)在98,3,終點(diǎn)在98,18(單位: 像素)
str_pos strvar
MoveToEx(ilh_statusbarhdc, 98, 3, strvar)
Lineto( ilh_statusbarhdc, 98, 18 )
4，以動(dòng)畫效果打開你的Window
下面的函數(shù)只能用于Windows 98/2000平臺(tái)
可以為您的程序增加很Cool的Splash畫面（或者您需要的Window)
在您的程序中定義外部函數(shù)
Function boolean AnimateWindow( & long lhWnd, long lTm, long lFlags ) library 'user32'
注：以上第一個(gè)參數(shù)是您的Windows的句柄,使用handle(w_1)即可獲得，第二個(gè)參數(shù)是需要的動(dòng)畫效果。第三個(gè)參數(shù)是動(dòng)畫類型
再將下面代碼放入到您的窗口open事件中
// Animate the window from left to right
Constant Long AW_HOR_POSITIVE = 1
// Animate the window from right to left
Constant Long AW_HOR_NEGATIVE = 2
// Animate the window from top to bottom
Constant Long AW_VER_POSITIVE = 4
// Animate the window from bottom to
Constant Long AW_VER_NEGATIVE = 8
// Makes the window appear to collapse inward
Constant Long AW_CENTER = 16
// Hides the window
Constant Long AW_HIDE = 65536
// Activates the window
Constant Long AW_ACTIVATE = 131072
// Uses slide animation
Constant Long AW_SLIDE = 262144
// Uses a fade effect
Constant Long AW_BLEND = 524288
AnimateWindow( Handle( this ), 500, AW_VER_NEGATIVE )可以下載更完整的PB例程和演示效果，由ilike提供
hWnd：指定產(chǎn)生動(dòng)畫的窗口的句柄。
dwTime：指明動(dòng)畫持續(xù)的時(shí)間（以微秒計(jì)），完成一個(gè)動(dòng)畫的標(biāo)準(zhǔn)時(shí)間為200微秒。
dwFags：指定動(dòng)畫類型。這個(gè)參數(shù)可以是一個(gè)或多個(gè)下列標(biāo)志的組合。標(biāo)志描述：
AW_SLIDE：使用滑動(dòng)類型。缺省則為滾動(dòng)動(dòng)畫類型。當(dāng)使用AW_CENTER標(biāo)志時(shí)，這個(gè)標(biāo)志就被忽略。
AW_ACTIVATE：激活窗口。在使用了AW_HIDE標(biāo)志后不能使用這個(gè)標(biāo)志。
AW_BLEND：實(shí)現(xiàn)淡出效果。只有當(dāng)hWnd為頂層窗口的時(shí)候才可以使用此標(biāo)志。
AW_HIDE：隱藏窗口，缺省則顯示窗口。 65536
AW_CENTER：若使用了AW_HIDE標(biāo)志，則使窗口向內(nèi)重疊，即收縮窗口；若未使用AW_HIDE標(biāo)志，則使窗口向外擴(kuò)展，即展開窗口。
AW_HOR_POSITIVE：自左向右顯示窗口。該標(biāo)志可以在滾動(dòng)動(dòng)畫和滑動(dòng)動(dòng)畫中使用。當(dāng)使用AW_CENTER標(biāo)志時(shí)，該標(biāo)志將被忽略。
AW_VER_POSITIVE：自頂向下顯示窗口。該標(biāo)志可以在滾動(dòng)動(dòng)畫和滑動(dòng)動(dòng)畫中使用。當(dāng)使用AW_CENTER標(biāo)志時(shí)，該標(biāo)志將被忽略。
AW_VER_NEGATIVE：自下向上顯示窗口。該標(biāo)志可以在滾動(dòng)動(dòng)畫和滑動(dòng)動(dòng)畫中使用。當(dāng)使用AW_CENTER標(biāo)志時(shí)，該標(biāo)志將被忽略。
返回值：如果函數(shù)成功，返回值為非零；如果函數(shù)失敗，返回值為零。在下列情況下函數(shù)將失?。?/p>
窗口使用了窗口邊界；窗口已經(jīng)可見仍要顯示窗口；窗口已經(jīng)隱藏仍要隱藏窗口。
5,判斷一個(gè)應(yīng)用是否正在運(yùn)行
定義一個(gè)全局外部函數(shù)：
FUNCTION ulong FindWindowA(ulong classname,string windowname) LIBRARY "user32.dll"
Application的Open事件中的代碼：
boolean rtn
ulong l_handle, lu_class
string ls_name
setnull(lu_class)
ls_name = "API Name" // 將API Name換了你的主窗口的標(biāo)題title
l_handle = FindWindowA(lu_class, ls_name)
if l_handle > 0 then
MessageBox("應(yīng)用程序多次運(yùn)行", This.AppName + "已經(jīng)運(yùn)行,你不能多次啟動(dòng)！")
Halt Close
else
open(w_main)
end if
6,打開任意注冊(cè)后類型的文件(用API)
ShellExecute
VB聲明
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
說明
查找與指定文件關(guān)聯(lián)在一起的程序的文件名。關(guān)聯(lián)的方式要么是運(yùn)行程序，要么是打印文件?？捎肳indows注冊(cè)表編輯器將特定的文件類型同應(yīng)用程序關(guān)聯(lián)起來。例如，擴(kuò)展名為.TXT的文本文件通常與Windows記事本（NOTEPAD.EXE）關(guān)聯(lián)到一起。如在文件管理器中雙擊含.TXT擴(kuò)展名的一個(gè)文件，就會(huì)自行啟動(dòng)記事本程序，并在其中載入文本文件；或者將指定的文件打印出來
返回值
Long，大于32表示成功。請(qǐng)參考對(duì)FindExecutable函數(shù)的說明，了解具體的錯(cuò)誤代碼列表
參數(shù)表
參數(shù) 類型及說明
hwnd Long，指定一個(gè)窗口的句柄，有些時(shí)候，Windows程序有必要在創(chuàng)建自己的主窗口前顯示一個(gè)消息框。如果發(fā)生這種情況，由這個(gè)參數(shù)指定的窗口就會(huì)作為消息框的父窗口使用。在VB環(huán)境中，通常將活動(dòng)窗體的窗口句柄作為這個(gè)參數(shù)使用
lpOperation String，指定字串“Open”來打開lpFlie文檔；或指定“Print”來打印它。也可設(shè)為vbNullString，表示默認(rèn)為“Open”
lpFile String，想用關(guān)聯(lián)的程序打印或打開的一個(gè)程序名或文件名
lpParameters String，如lpFile是一個(gè)可執(zhí)行文件，則這個(gè)字串包含了傳遞給執(zhí)行程序的參數(shù)。如lpFile引用的是一個(gè)文檔文件，或者不需要使用參數(shù)，則設(shè)為vbNullString
lpDirectory String，想使用的默認(rèn)路徑完整路徑
nShowCmd Long，定義了如何顯示啟動(dòng)程序的常數(shù)值。參考ShowWindow函數(shù)的nCmdShow參數(shù)
用Run函數(shù)
Run("???.??? !!!.!!!")?為類型文件打開的程序,!為要打開的文件名,例如:Run(Winrar.Exe Abc.Zip)用Winrar打開Abc.Zip文件
用ShellExecute
聲明：
FUNCTION ulong ShellExecute(ulong hwnd,ref string lpOperation,ref string lpFile,ref string lpParameters,ref string lpDirectory,ulong nShowCmd) LIBRARY "shell32.dll" ALIAS FOR "ShellExecuteA"
調(diào)用：
ShellExecute(Handle(Parent),str_null,pathname,str_null,str_null,1)
注：
str_null：字符型變量，不需賦值，聲明即可
pathname：要打開的文件名（包括完整路徑）
7,實(shí)現(xiàn)鼠標(biāo)左鍵按住窗體就可以移動(dòng)窗體
窗體上面有Picture的處理方法
把 Picture 設(shè)為 Enabled = False
仍在窗口的 MouseDown 中寫代碼：
Send ( Handle ( This ), 274, 61458, 0 )
8,PB制作進(jìn)度條
PowerBuilder 是大家公認(rèn)的、 最佳的數(shù)據(jù)庫(kù)前端開發(fā)工具之一，但一直以來，PB在用戶界面的處理上十分單調(diào)，最明顯的例子是，所有的窗口控件都不支持透明色即transparent 。PowerBuilder 7以前的版本沒有提供進(jìn)度條，造成大多數(shù)程序員總是自己在程序中利用兩個(gè)矩形控件(Rectangle)進(jìn)行編程產(chǎn)生進(jìn)度效果。但是這樣一來，進(jìn)度條中的進(jìn)度百分比就沒有了，如果再加上一個(gè)靜態(tài)文本作為百分比顯示，由于statictext控件沒有透明色，進(jìn)度條的百分比顯示無(wú)法與進(jìn)度條進(jìn)行重疊，只得在進(jìn)度條外的其它位置放置一statictext控件用以顯示進(jìn)度情況，這樣即浪費(fèi)了空間，又不美觀。
在網(wǎng)上也曾看到過解決的方法，主要是利用了數(shù)據(jù)窗口中控件可以透明處理的特征，但總感覺美中不足，數(shù)據(jù)窗口是一種重型控件，要占用大量的系統(tǒng)資源，能不能用其他更簡(jiǎn)單的方法解決上述問題呢？
上述問題的關(guān)鍵在于文本的輸出背景要透明，我們知道：Windows系統(tǒng)本身提供了大量的底層API功能函數(shù)供上層的應(yīng)用程序調(diào)用，文本的輸出該是最基本的吧，所以Windows一定能夠解決文本背景透明輸出的問題。仔細(xì)查找API幫助，果然找到相關(guān)的函數(shù)，于是問題迎刃而解。
下面列出主要的聲明和對(duì)象實(shí)現(xiàn)的主要程序段:
新建一可視定制用戶對(duì)象uo_progressbar,在其中放置兩個(gè)矩形控件(Rectangle)，分別命名為：r_back 和 r_front。定義實(shí)例變量如下：
ulong iul_ihDC //保存可視定制用戶對(duì)象的DC句柄
real ir_step //根據(jù)對(duì)象寬度計(jì)算出來的步進(jìn)值
integer ii_x, ii_y
//根據(jù)對(duì)象寬度和高度計(jì)算出來的文本輸出位置
聲明Local external functions如下：
Function ulong GetDC (ulong hWnd) Library "USER32.DLL"
Function boolean TextOut (ulong hdcr, integer stx,
integer sty, ref string lpString, long nCount)
Library "GDI32.DLL" Alias for "TextOutA"
Function int SetBkMode (ulong hdcr, integer mode)
Library "GDI32.DLL"
在對(duì)象的constructor事件中輸入以下代碼：
integer li_width, li_height
//根據(jù)對(duì)象變框計(jì)算寬高
CHOOSE CASE this.BorderStyle
CASE StyleLowered!,StyleRaised!
li_width = this.width - PixelsToUnits(4, XPixelsToUnits!)
li_height = this.height - PixelsToUnits(4, YPixelsToUnits!)
CASE StyleBox!,StyleShadowBox!
li_width = this.width - PixelsToUnits(2, XPixelsToUnits!)
li_height = this.height - PixelsToUnits(2, XPixelsToUnits!)
CASE Else
li_width = this.width
li_height = this.height
END CHOOSE
r_back.width = li_width
r_front.height = li_height
r_front.width = 0
r_back.height = li_height
//計(jì)算百分比文本輸出的位置使其在水平和垂直方向上居中
ii_x = UnitsToPixels(li_width, XUnitsToPixels!)/2 - 16
ii_y = ( UnitsToPixels(li_height, YUnitsToPixels!) - 16 )/2
ir_step = li_width/100 //計(jì)算步進(jìn)值
iul_ihDC = GetDC( handle(this) )
//獲得對(duì)象DC句柄，用于API調(diào)用
SetBkMode (iul_ihdc, 1 ) //設(shè)置文本輸出背景色透明
return 0
為對(duì)象寫一個(gè)函數(shù)：of_setposition,
//功能：根據(jù)參數(shù)改變進(jìn)度顯示
//參數(shù)：integer ai_percent
//返回：無(wú)
string ls_msg
integer li_x
If ai_percent <= 100 and ai_percent < 0 then SetRedraw(FALSE) li_x="ai_percent*ir_step" r_back.x="li_x" r_front.width="li_x" ls_msg="string(" ai_percent )+"%" SetRedraw(True) TextOut (iul_ihdc, ii_x, ii_y, ls_msg, len( ls_msg ) ) End If
當(dāng)然你還可以編寫函數(shù)改變進(jìn)度條中的前景色背景色和文本顏色，這里不再贅述。
9,Datawindow中每頁(yè)打印固定行
（深圳：獨(dú)孤求敗 2003-05-19）
第一步：
增加一個(gè)計(jì)算列,此計(jì)算列必須放在Detail段，Expression中輸入:ceiling(getrow()/20)，這里20還可以用全局函數(shù)取代，這樣可以允許用戶任意設(shè)置每頁(yè)打印多少行。
第二步：
定義分組,選擇菜單Rows->Create Group...按計(jì)算列字段分組，并一定將check box-->New Page On Group Break選中。
第三步：
將此計(jì)算列設(shè)為不可視。另外，如果需要最后一頁(yè)不足補(bǔ)空行。也很簡(jiǎn)單，如下：
long ll_pagerow = 6 //每頁(yè)打印行數(shù)
long ll_count, ll_row
ll_count = dw_report.retrieve(...) //取得現(xiàn)有報(bào)表的總行數(shù)
ll_count = ll_pagerow - mod(ll_count, ll_pagerow)
If ll_count < ll_pagerow Then
for ll_row = 1 to ll_count
dw_print.insertrow(0) //補(bǔ)足空行
next
end If
10,sql語(yǔ)句將行轉(zhuǎn)換成列
declare @sql varchar(8000)
set @sql = 'select 物料代碼'
select @sql = @sql + ',sum(case 地區(qū) when '''+地區(qū)+''' then 數(shù)量 end) ['+地區(qū)+']'
+ ',sum(case 地區(qū) when '''+地區(qū)+''' then 比率 end) [比率]'
from (select distinct 地區(qū) from 表) as a
select @sql = @sql+' from 表 group by 物料代碼'
exec(@sql)
簡(jiǎn)化如下:
select (select 物料代碼 ,
sum(case 地區(qū) when '地區(qū)' then 數(shù)量 end)[地區(qū)],
sum(case 地區(qū) when '地區(qū)' then 比率 end)[比率]
from (select distinct 地區(qū) from 表) as a
)
from 表 group by 物料代碼
聯(lián)系客服
