应用程序可以通过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 类型的唯一值。