急寻抽奖系统源代码，谢谢了！

Question

       年底公司年会上要组织抽奖活动。请问各位弟兄，有谁能提供关于抽奖活动的源代码？急啊，时间不多了！谢谢！
最好是用ACCESS数据库 工号和姓名滚动 停止时显示工号及姓名的那种！

Answer 1

哈哈，你自己搞个简单的混过去得了，把工号和姓名写入txt文件，一行一行的循环读，停止的时候读到谁就显示谁好了。

Answer 2

Option Explicit
Dim flg As BooleanPrivate Sub Command1_Click() '开始抽奖
   Randomize Timer
   Dim itime1 As Single, itime2 As Single
   itime1 = Timer
    flg = False
    With Adodc1
      .CursorLocation = adUseClient
      .CommandType = adCmdText
      .RecordSource = "select * from itb3"
      .Refresh
      itime2 = Rnd * 30
      Do While Timer - itime1 < itime2 '自动结束
           Text1.Text = .Recordset.Fields(0) & " " & .Recordset.Fields(1)
           .Recordset.MoveNext
           If .Recordset.EOF Then .Recordset.MoveFirst
           If flg Then Exit Do
           DoEvents
      Loop
      flg = False
    End With
End SubPrivate Sub Command2_Click() '手动结束
    flg = True
End Sub

Answer 3

我kao 我怎么没这好活啊
我非得给自己弄一个大奖