SQL資料列(分組)流水編號

若要將抓取的資料自動編上流水編號，
可以利用ROW_NUMBER 函式，達到需求！

ROW_NUMBER() OVER (partition by field order by field)

--流水編
select SN=ROW_NUMBER() OVER(order by DTNo),GPNa,DTNo,DTNa
from NOM
where GPNo ='BDT'
----------
1    外胎不良原因    01    含唇
2    外胎不良原因    02    軟唇
3    外胎不良原因    03    胎唇裂痕

--分組流水編
select SN=ROW_NUMBER() OVER(partition by GPNa order by DTNo),GPNa,DTNo,DTNa
from NOM
where GPNo in ('BDT','BID')
----------
1    外胎不良原因    01    含唇
2    外胎不良原因    02    軟唇
3    外胎不良原因    03    胎唇裂痕
1    內胎不良原因    01    嘴邊漏風
2    內胎不良原因    02    嘴邊薄料
3    內胎不良原因    03    嘴邊裂痕

參考自：MSDN-ROW_NUMBER

SQL自動補0

某些欄位依照資料流水編號紀錄，
如果預設的資料型態為數值型態，
則以1、2、3的形式紀錄，
若希望以001、002、003的方式表達，

可利用REPLICATE函數指定重複字串次數的功能達到需求，
REPLICATE(欲重複字串,欲重複次數)

--若為數字型態欄位需先轉為字串型態
select REPLICATE('0',(3-LEN(欄位)))+欄位
from TableName

select REPLICATE('0',(4-LEN(CONVERT(varchar(3),1))))+
        CONVERT(varchar(3),1)
-------------------------------------------------
001

select REPLICATE('0', (4-LEN(CONVERT(Varchar(4),ROW_NUMBER()
          OVER(Order by M.ProdNo)))))+
          CONVERT(Varchar(4),ROW_NUMBER() OVER(Order by M.ProdNo)),M.ProdNo
from MATCost_tmp M
-------------------------------------------------
0001    R11010002
0002    R11010003
0003    R11020001

參考自：MSDN-REPLICATE 、The Will Will Web

QuickReport 群組頁次

在Delphi彙整資料以QuickReport輸出時，
針對頁次與總頁數可以很簡單的列印上去，
在使用GroupBand時若要依據群組顯示頁次，如
1/1
------
1/2
2/2
------
可使用下面的方式來達到需求！

//**宣告全域變數
private
    xPage : Integer;
    xIONo : String;
    xRecIONo : String;

//**在PageHeader的BeforePrint寫入計算規則
procedure TQR.PageHeaderBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var xPos,xLen : Integer;
      xStr : String;
begin
  //**Query_Item 為QR的DataSet
  if xIONo <> Query_Item.fieldbyname('IONo').AsString then
  begin
    //**"單號-總頁數" 兩群組記錄間以","分開
    if xIONo <> '' then
      xRecIONo := xRecIONo+','+xIONo+'-'+IntToStr(xPage);

    xPage := 0;//**頁次歸0
    xIONo := Query_Item.fieldbyname('IONo').AsString;
  end;

  INC(xPage);//**累加頁次
  QRL_SubPage.Caption := IntToStr(xPage);//**群組頁次

  if AnsiContainsStr(xRecIONo,xIONo) then//**產生preview前不需判斷
  begin
    //**"單號-總頁數"
    xStr := xRecIONo;
    xPos := Pos(xIONo,xStr);
    xLen := Length(xStr);

    //**拆單號-群祖頁數
    xStr := Copy(xStr,xPos+1,xLen-xPos);
    xPos := Pos(',',xStr);
    xStr := Copy(xStr,0,xPos-1);

    //**拆頁數
    xPos := Pos('-',xStr);
    xLen := Length(xStr);
    xStr := Copy(xStr,xPos+1,xLen);

    QRL_GroupPage.Caption := xStr;//**群組頁數
  end;
end;

//**在DataSet的EndOfRecordset寫入資料行結尾處理
procedure TQR.Query_ItemEndOfRecordset(DataSet: TCustomADODataSet;
  var MoreData: WordBool; var EventStatus: TEventStatus);
begin
  //**
  //**"單號-總頁數" 兩群組記錄間以","分開
  if xIONo <> '' then
    xRecIONo := xRecIONo+','+xIONo+'-'+IntToStr(xPage);

  xPage := 0;//**頁次歸0
  xIONo := '';
end;

Delphi 7 在 Win7 無法使用 help

因Win7預設無法開啟.hlp的檔案，
故在Delphi中要開啟help檔案查詢資料會出現錯誤的行況，
只要安裝官方WinHlp32.exe的更新檔即可！
適用於 Windows 7 的 Windows 說明程式 (WinHlp32.exe)

控制 Hint 顯示時間

在Delphi中若想要讓原件的Hint顯示久一點的話，
可以透過參數設定修改！

Application.HintHidePause := 5000;//**顯示時間 單位為毫秒，即5秒

其他參數
Application.HintPause//**延遲時間
Application.HintColor//**顏色

以上可在Form Create時設定即可！

Win7下使用Delphi7

當在Win7下面安裝完Delphi執行時會出現檔案無法異動的錯誤訊息，
這是因為資料夾檔案權限問題，修改下述目錄權限即可！

1.修改 C:\Program Files\Borland\Delphi7\Bin 目錄權限，安全性中新增users有modify權限
2.修改 C:\Program Files\Borland\Delphi7\Projects 目錄權限，安全性中新增users有modify權限

Delphi利用ADOQuery直接讀取Excel內容

在ADOQuery的ConnectionString設定
Provider=Microsoft.Jet.OLEDB.4.0;Data Source='檔案路徑';
Extended Properties=Excel 8.0;Persist Security Info=False';

SQL輸入 select * from [Sheet1$]
<分頁名稱一定要用[]包起來>

ADOQuery Open後Excel的第一欄會變成FieldName，
下面的開始才是明細資料

使用完畢記得將ADOQuery Free掉，避免Excel檔案被鎖定無法正常開啟

Firefox 設定暫存檔放至RamDisk

將瀏覽的暫存檔放至RamDisk中，可加快瀏覽的速度

about:config
browser.cache.disk.parent_directory-->X:\
重新開啟Firefox即可

註：x:\為RamDisk的位置

firefox 4、firefox 5 使用 MacType 破字

因firefox 4、firefox 5版本內建開啟GPU功能，
雖然可以加快圖形的運算降低CP使用率，
但是如果有使用MacType美化字形，
會發現有破字的情況發生，
在config內修改下述參數即可正常顯示！

about:config
gfx.direct2d.disabled-->True
gfx.font_rendering.directwrite.enabled-->False
mozilla.widget.render-mode-->0

設定完畢重新開啟Firefox即可！

Win7 關閉休眠功能

使用系統管理員身分開啟命令提示字元

關閉休眠 powercfg -h off
啟動休眠 powercfg -h on