Delphi开发经验技巧：随机产生中奖号码

Delphi开发经验技巧：随机产生中奖号码

　

——此文章摘自 《Delphi开发经验技巧宝典》定价：￥95.00　特价：￥71.25 购买>>

应用程序可以通过NEWID( )函数从数据库中随机排序表中数据。本例是在数据库中存放所有用来抽奖的号码，在这些号码当中随机抽取中奖的号码，如图7.19所示。

图7.19 随机产生中奖号码

单击“抽取中奖号码”按钮从数据库中随机抽取中奖的号码，然后显示在“中奖号码”文本框中，主要代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT TOP 1 参数抽奖号码FROM choujiangno ORDER BY newid()');
Open;
end;
Edit1.Text := qry1.fieldbyname('参数抽奖号码').AsString;
end;

说明：NEWID( )在表中创建 uniqueidentifier 类型的唯一值。