Delphi開發經驗技巧：隨機產生中獎號碼

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>

    應用程序可以通過NEWID( )函數從數據庫中隨機排序表中數據本例是在數據庫中存放所有用來抽獎的號碼在這些號碼當中隨機抽取中獎的號碼如圖所示

圖  隨機產生中獎號碼

    單擊抽取中獎號碼按鈕從數據庫中隨機抽取中獎的號碼然後顯示在中獎號碼文本框中主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    begin
      with qry do
        begin
         Close;
         SQLClear;
         SQLAdd(SELECT TOP 參數抽獎號碼FROM choujiangno ORDER BY newid());
         Open;
        end;
      EditText := qryfieldbyname(參數抽獎號碼)AsString;
    end;

     說明NEWID( )在表中創建 uniqueidentifier 類型的唯一值

From:http://tw.wingwit.com/Article/program/Delphi/201311/24822.html