No Money No Honey

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

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

參考:http://jzinfo.javaeye.com/blog/432853

1. var   
2.     adoquery1:Tadoquery;   
3. begin   
4.     adoquery1:=Tadoquery.create(nil);   
5.     try   
6.        if not DM.adonconnection1.connected then   
7.            DM.adoconnection1.connected:=true;   
8.        adoquery1.connection:=DM.adoconnection1;   
9.        adoquery1.enableBCD:=False;       //禁用bcd类型   
10.        with adoquery1 do   
11.        begin   
12.            close;   
13.            sql.clear;   
14.            sql.add('insert into materialInfo values(:tmppno,:tmpvendor,:tmpdesc,:tmpprice)');   
15.            parameters.parambyname('tmppno').value:=trim(edit1.text);   
16.            parameters.parambyname('tmpvendor').value:=trim(edit2.text);   
17.            parameters.parambyname('tmpdesc').value:=trim(edit3.text);   
18.            parameters.parambyname('tmpprice').datatype：=ftFloat;       //设置下数据类型   
19.            parameters.parambyname('tmpprice').value:=trim(edit4.text);   
20.            execsql;   
21.        end;   
22.     finally   
23.         adoquery1.free;   
24.     end;   
25. end; 

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
    FileHandle : Integer;

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

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

建議把它移到資料轉完後，最後在給上這個參數就好了。

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

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

procedure TForm1.Button1Click(Sender: TObject);
var
  S:UTF8String;

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

showmessage(IdIPWatch1.LocalIP);

會想要本基IP是想要讓自動更新程式自動判斷使用者電腦所在位置，因公司有很多據點，如果大家都回來抓更新檔，頻寬會.......

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

出處：

http://delphi.ktop.com.tw/board.php?cid=168&fid=918&tid=100386

http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=70761

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

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

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

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

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

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

官方網站
http://www.aew.wur.nl/UK/Delforexp/

大哥哥使用D7，安裝方式很簡單，下載完解壓縮後，執行SetupEx.exe，如果沒問題會出現訊息，告知在DELPHI裡的tools選項裡會多出第二個選單 Source Formatter，快速鍵為 ctrl + d ，只要開啟檔案，點選這個功能，就可以讓程式自動協助槽狀排序，對於拿到沒有良好習慣排序很亂的程式，相當有用喔^^

官網進去中間位置可以下載

存取 DB 時如果發現這個問題
可能就是 table 的欄位設的太小了
比如說要存個20個字元的字串
結果欄位大小只設了10個字元
就會有這樣的字串或二進位資料被截斷的問題產生

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

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

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

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

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

標籤：IT/科技 cxgrid excel

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

use

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

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

二、拉入 Dev Express 的 cxGrid 元件，點選 cxGrid1DBTableView1 後到左邊屬性設定DataSource。

三、建立 FormCreate 程序

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

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;


Access2003 設定密碼：

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

到 工具 => 安全性 => 設定密碼或取消密碼 設定密碼即可

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

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

select * from table
where TempId like 'TpTrans%'
and FinalTime BETWEEN '2008/11/10 00:00' and '2008/11/13 00:00'