谁有抽奖程序原码给我看看好吗？谢谢！！

Question

谁有抽奖程序原码给我看看好吗？谢谢！！

Answer 1

Randomize;
with ADOQuery do
begin
  Close;
  SQL.Text:='select * from 客户表';
  Open;
  MoveBy(Random(RecordCount));
  //处理当前记录,他就是中奖者.
end;

Answer 2

var
  Strings: TStringList;procedure TForm1.Form1Create(sender: TObject);
begin
Randomize;
Strings:=TStringList.Create;
with ADOQuery do
begin
  Close;
  SQL.Text:='select * from 客户表';
  Open;
  while not eof do
  begin
    Strings.Append(FieldByName('客户姓名').AsString);
    Next
  end;
end;procedure Tform1.Timer1Tiemr(Sender: TObject);
begin
  Label1.Caption:=Strings[Random(Strings.Count)]
end;
end;

Answer 3

这我写完了。但我想设置一等奖，二等奖，三等奖抽出几个，在edit中设置。
然后有中奖查询，怎么做啊？

Answer 4

asp+vb程序
http://www.asp300.com/CodeView/CodeView_1304.html