日韩精品亚洲aⅴ在线影院,亚洲乱亚洲乱妇24p,亚洲不卡视频在线观看

PB添加其它PBL文件

摘要: 打開PB,把所有的窗口都關掉,
選中主應用程序,右擊,選擇屬性,再選持library list
點擊browse 擊可選擇你要加入的PBL 加入之后,apply 即可! 閱讀全文

posted @ 2010-05-26 10:34 Ke 閱讀(2686) | 評論 (0) 編輯

PB變量的作用域

摘要: PowerBuilder的變量作用域共有四種：全局變量、實例變量、共享變量和局部變量。不同作用域的變量需要在不同的位置說明，下面分別予以介紹。在編程窗口、窗口畫筆、用戶對象畫筆或菜單畫筆中，選擇“Declare”菜單中的“Global Variables”、“Instance Variables”和“Shared Variables”可以分別聲明全局、實例和共享這三類變量閱讀全文

posted @ 2010-05-24 10:25 Ke 閱讀(2156) | 評論 (0) 編輯

PB 特殊字符

摘要: 新行（NEWLINE）：~n
制表符（TAB）：~t
垂直制表（VERTICAL TAB）：~v
回車（CARRIGE RETURN）：~r
換頁（FORMFEED）：~f
退格（BACKSPACE）：~b
雙引號：~"
單引號：~'
彎曲符：~~ 閱讀全文

posted @ 2010-05-24 09:40 Ke 閱讀(1580) | 評論 (0) 編輯

數據窗口控件函數(轉)

摘要: · 與數據庫有關的函數
· 行操作
· 列操作
· 數據操作閱讀全文

posted @ 2010-05-24 09:19 Ke 閱讀(547) | 評論 (0) 編輯

摘要: 字符截取函數LeftStr, MidStr, RightStr
這幾個函數都包含在StrUtils中，所以需要uses StrUtils;
假設字符串是 Dstr := ’Delphi is the BEST’, 那么
LeftStr(Dstr, 5) := ’Delph’
MidStr(Dstr, 6, 7) := ’i is th’
RightStr(Dstr, 6) := ’e BEST’

~~~~~~~~~~~~~~~~~~~~~~~~~
function RightStr
(Const Str: String; Size: Word): String;
begin
if Size > Length(Str) then Size := Length(Str) ;
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
(Const Str: String 閱讀全文

posted @ 2010-05-19 11:48 Ke 閱讀(3547) | 評論 (0) 編輯

為TListBox組件添加水平滾動條

摘要: Delphi的TListBox組件會自動添加一個垂直滾動條，即當列表框的高度容納不下所有的列表條目時，垂直滾動條就自動顯示。但是，當條目的寬度大于列表框的寬度時，水平滾動條不會自動顯示。當然, 可以在列表框中加如水平滾動條，方法是在窗體的OnCreate事件處理程序中加入如下代碼：

procedure TForm1.FormCreate(Sender: TObject);

var

i, MaxWidth: integer;

begin

MaxWidth := 0;

for i := 0 to ListBox1.Items.Count - 1 do

if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then

MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]); 閱讀全文

posted @ 2010-05-19 11:45 Ke 閱讀(376) | 評論 (0) 編輯

Delphi中Format與FormatDateTime函數詳解

摘要: 總結一下Format的用法:

Format('x=%d',[12]);//'x=12'//最普通
Format('x=%3d',[12]);//'x=12'//指定寬度
Format('x=%f',[12.0]);//'x=12.00'//浮點數
Format('x=%.3f',[12.0]);//'x=12.000'//指定小數
Format('x=%8.2f'[12.0])//'x=12.00';
Format('x=%.*f',[5,12.0]);//'x=12.00000'//動態配置
Format('x=%.5d',[12]);//'x=00012'//前面補充0
Format('x=%.5x',[12]);//'x=0000C'//十六進制
Format('x=%1:d%0:d',[12,13]);//'x=1312'//使用索引
Format('x=%p',[nil]);//'x=00000000'//指針
Format('x=%1.1e',[12.0]);//'x=1.2E 閱讀全文

posted @ 2010-05-19 10:08 Ke 閱讀(29891) | 評論 (0) 編輯

Oracle中如何進行進制轉換(轉)

摘要: create or replace function to_base( p_dec in number, p_base in number )
return varchar2
is
l_str varchar2(255) default NULL;
l_num number default p_dec;
l_hex varchar2(16) default '0123456789ABCDEF';
begin
if ( trunc(p_dec) <> p_dec OR p_dec < 0 ) then
raise PROGRAM_ERROR;
end if;
loop
l_str := substr( l_hex, mod(l_num,p_base)+1, 1 ) || l_str;
l_num := trunc( l_num/p_base );
exit when ( l_num = 0 );
end loop;
return l_str;
end to_ba 閱讀全文

posted @ 2010-05-18 09:44 Ke 閱讀(528) | 評論 (0) 編輯

Delphi+Codesoft 7.0

摘要: // 變量賦值
if chkParam.Checked then
begin
BarDoc.Variables.Item('var1').Value:= edtPN.Text;
BarDoc.Variables.Item('var2').Value:= edtPartName.Text;
BarDoc.Variables.Item('var3').Value:= edtDesc.Text;
end;

// 打印標簽
Bardoc.Printlabel(seqty.Value);
// Feed
BarDoc.FormFeed;
// 關閉
Bardoc.Close;
BarApp.Quit; 閱讀全文

posted @ 2010-05-14 08:12 Ke 閱讀(1311) | 評論 (0) 編輯

ODAC的安裝和使用(odac570src_0.28)

摘要: 第一步：在odac570src_0.28\Source\Delphi7打開dac70.dpk,然后編譯

第二步：打開dacvcl70.dpk，然后編譯

第三步：打開dcldac70.dpk，然后編譯

第四步：打開odac70.dpk，然后編譯
閱讀全文

posted @ 2010-05-06 20:10 Ke 閱讀(1828) | 評論 (0) 編輯

常用鏈接

留言簿(14)

隨筆檔案(6)

文章分類(467)

文章檔案(423)

相冊

收藏夾(18)

JAVA

搜索

積分與排名

最新評論

閱讀排行榜

評論排行榜

05 2010 檔案