目前分類:DELPHI程式語言 (25)

瀏覽方式: 標題列表 簡短摘要

DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題

parameters.parambyname('tmpprice').datatype:=ftFloat;   <==寫入資料前先將欄位設定成 Float 型態即可解決此問題。

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

Delphi下使用function FileSetDate(Handle: Integer; Age: Integer): Integer; overload;函式修改檔案的”修改日期”:

參考:http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=37667

procedure TForm1.Button1Click(Sender: TObject);
Var

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

最近在修改使用者提出 EXCEL 報表欄位,發現有幾支 procedure 轉出 EXCEL 的速度非常龜,而這幾支 procedure 是前輩所留下的產物,跟自己最近寫的轉 EXCEL 報表速度上差很多,以為是卡在SQL查詢,如果查詢條件KEY值給不齊全,有可能因為資料過多,查詢變很慢,但是測試後應該不是SQL查詢的問題,再對照前輩與自己的程式,感覺不出差異,最後看到 DELPHI 內設定EXCEL時前面通常會有一些基本設定,發現了這幾支程式都有設定列印範圍,姑且註解掉試試看,果然...............兇手就是它!

PageSetup.PrintArea := 'A:R';  //設定列印範圍

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

上網找到下面的程式碼,修了一下測試,真的可以耶!!!!最近的程式剛好有UTF8編碼的困擾,使用這方式轉是方便多了,不過還要測試會不會有問題。

討論區:http://delphi.ktop.com.tw/board.php?cid=30&fid=76&tid=89562

procedure TForm1.Button1Click(Sender: TObject);
var

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

使用 TIdIPWatch 元件即可直接抓取執行程式的本機IP。

showmessage(IdIPWatch1.LocalIP);

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

讓Windows捲軸捲動時,資料內容同時跟著平滑捲動。

出處:

No Money No Hone 發表在 痞客邦 PIXNET 留言(1) 人氣()

網路上找到的文章,Ord('C') <==其實轉出來就是ASCII碼,知道後比較可以靈活運用在用變數的方式帶入。

 

文章出處:http://blog.yam.com/yqbagzdk/article/25791738

======================================================

最近碰到使用 SendMessage 和 PostMessage 機會超級多,無非是因為太多的程式合輯專案需求,如果耗費人力全部自行開發,大概請二、三倍的人力結果也只是為了完成幾個對於圖形處理的動作而已,建築.室內設計.服裝相關軟體因此購買已經寫好的軟體直接使用就行,但畢竟購買是購買,有些畫面或是需求畢竟是套裝軟體無法達成的,於是還是得自己寫控制指令

可以自己寫一個類似按鍵精靈的東東,也就是控制滑鼠自動在畫面上操作東西

滑鼠自動點擊的例子

procedure TForm1.Button1Click(Sender: TObject);

var x,y:integer;

begin

    x:= form1.Left+button2.Left+25;

    y:= top+button2.Top+27;

    SetCursorPos(x,y);   // 移到某個點

    Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0); // 按下滑鼠左鍵

    Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);   // 放開左鍵

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

showmessage('fksj');

end;

*************************************

其中 mouse_event 這是 WindowsAPI 的指令,xyz軟體補給站

還有下列的幾種

MOUSEEVENTF_MOVE            = $0001; { mouse move }

MOUSEEVENTF_LEFTDOWN        = $0002; { left button down }

MOUSEEVENTF_LEFTUP          = $0004; { left button up }

MOUSEEVENTF_RIGHTDOWN       = $0008; { right button down }

MOUSEEVENTF_RIGHTUP         = $0010; { right button up }

MOUSEEVENTF_MIDDLEDOWN      = $0020; { middle button down }

MOUSEEVENTF_MIDDLEUP        = $0040; { middle button up }

MOUSEEVENTF_WHEEL           = $0800; { wheel button rolled }

MOUSEEVENTF_ABSOLUTE        = $8000; { absolute move }

而下面的這段則是模擬鍵盤

//Ctrl+C: 
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); 
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0); 
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0); 
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0) 
 
//Ctrl+V: 
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); 
keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0); 
keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0); 
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0) 

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

GUID原本還看不懂,後來翻譯字面意思才知道它有獨一無二的意思,所以在程式裡面啥時候需要獨一無二碼的時候就很有用處啦!!!!

 

文章來源:http://blog.bestlong.idv.tw/2009/07/25/655

 

七月.25, 2009 in Delphi

GUID (Globally Unique IDentifier) 是一個 128-bit Integer (16 bytes) 的數值。

在 Delphi IDE 中可以按下 Ctrl + Shift + G 快捷鍵會出現類似下列的 GUID 值:

1

['{2F45BDFE-1BE4-404D-9C5B-4B481D6A7482}']

每次按下快捷鍵都會產生不同的 GUID 值。

 

 

而程式中產生 GUID 值的方式如下列程式碼:

procedure TForm1.FormCreate(Sender: TObject);

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

存取 DB 時如果發現這個問題
可能就是 table 的欄位設的太小了

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

ExportGrid4ToEXCEL(FileName, AGrid, True, True, False);
當FileName為中文時,打開生成的EXCEL文件,會在生成的EXCEL文件中彈出一個對話框,對話顯示內容為"重新命名無效的工作表名稱".

weiliu (2006-07-18 17:36:03)

可以先把中文文件名改成英文,用完了再改回來。

grayback (2006-07-18 17:38:00)

{  ExcelApp := CreateOleObject('Excel.Application');

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

出處 http://blog.sina.com.cn/s/blog_4fd3c97201000cqm.html

標籤:IT/科技 cxgrid excel

cxGrid6.26導出到Excel
從原來使用cxGrid4系列開始,都是使用ExportGrid4ToExcel的辦法,可是使用了6系列後,發現這個辦法已經不行了,從Dev官方找了解決辦法。

use

cxGridExportLink;

procedure TMainForm.cxButton_MemoExcelClick(Sender: TObject);

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

Dev Express 是外掛的套件,須要另外安裝才會出現。

一、先將ADO連線、ADO Query 與 DataSource 等元件設定好。(這個每本書都會教到,所以不多說)

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

這是今天寫程式遇到想要加入的複製功能,簡單好用!

http://blog.bestlong.idv.tw/2007/04/02/delphi-%E5%B0%87%E5%AD%97%E4%B8%B2%E8%A4%87%E8%A3%BD%E5%88%B0%E5%89%AA%E8%B2%BC%E7%B0%BF/

想要在Delphi程式中簡單的操作系統的剪貼簿,可以使用下列方法:

uses Clipbrd;

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

Access2003 設定密碼:

使用獨占模式開啟要設定密碼的資料庫

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始sql指令可以查出我想要得資料

===================================

select * from table
where TempId like 'TpTrans%'

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

http://blog.bestlong.idv.tw/2007/04/02/delphi-%E5%B0%87%E5%AD%97%E4%B8%B2%E8%A4%87%E8%A3%BD%E5%88%B0%E5%89%AA%E8%B2%BC%E7%B0%BF/

想要在Delphi程式中簡單的操作系統的剪貼簿,可以使用下列方法:

uses Clipbrd;
procedure TForm1.btnCopyClick(Sender: TObject);

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

大哥哥最近要寫到讓使用者挑選日期與日期判斷的搜尋程式,發現這篇文章大概就可以得知日期基本處理的技巧,趕快紀錄下來,畢竟大家現在都沒在學delphi....^^"

http://www.twbbs.net.tw/1305277.html

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

例如下面兩比資料,我想搜尋11/11 00:00~11/12 00:00的所有資料

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

寫程式如果只有自己寫自己看,將來也只有自己維護,那風格如何都無所謂,但是如果是在公司,最好還是養成程式寫作的標準寫法與風格,這樣不管是不是自己寫或是要維護別人的程式,會輕鬆許多........

下面是DELPHI寫程式良好的標準風格教學網頁

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()

1 2