2011-12-25

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

2011-12-20

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

2011-12-07

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;

2011-12-03

Delphi 7 在 Win7 無法使用 help

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