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;
    Str : String;
begin
    FileHandle := FileOpen('D:\prog\1.txt', fmOpenReadWrite);
    if FileHandle = -1 then
      ShowMessage('開啟檔案失敗')
    else
    begin
      Str := '檔案原來日期時間: '+ DateTimeToStr(FileDateToDateTime(FileGetDate(FileHandle)))+#10#13;
      if FileSetDate(FileHandle, FileAge('D:\prog\AMS.exe')) = 0 then
        Str := Str+DateTimeToStr(FileDateToDateTime(FileAge('D:\prog\AMS.exe')))
      else
        Str := Str+'新的日期時間設定失敗';
      ShowMessage(Str);
    end;
    FileClose(FileHandle);
end;

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

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

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

使用 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

   TDBGrid = Class(DBGrids.TDBGrid)
    Protected
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
    end;
    TForm1 = class(TForm)
    ....
...
procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
begin
    if Message.ScrollCode = SB_THUMBTRACK then Message.ScrollCode := SB_THUMBPOSITION;
    inherited;
end;