——此文章摘自《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 类型的唯一值
