[原创]自己做的一个选号抽奖程序

fannky

给公司晚会作了一个小小的抽奖程序，为了避免有号码落空，因此没有采用随机选号的方式，而采用滚动的方式。按理论应该每秒滚动1000个数据，这样也不会有作假的机会。

程序很简单，只是思路问题。谢谢

[hide]  




2008-1-14更新，旧版发现有点问题

huangqinyong

以前曾看到过类似的，但没有你的界面漂亮，收下了，thanks.

andymark

进行抽奖后，这里提示错误

Me.File_.Caption = Rst("数据清单")

fannky

以下是引用andymark在2007-3-19 11:59:00的发言：


进行抽奖后，这里提示错误

Me.File_.Caption = Rst("数据清单")

我没遇到错误啊？

Win2000+Office2003/Office2000

5988143

不錯哦,正需要呢!

hellowxm

那个只显示抽奖的画面，而不出现ACCESS的程序画面是怎么做的啊？？？想知道[em02]

nxjswt

以下是引用hellowxm在2007-3-20 21:33:00的发言：
那个只显示抽奖的画面，而不出现ACCESS的程序画面是怎么做的啊？？？想知道[em02]

请查询启动窗体vba代码

不错!

青苹

真的,不错邪

hellowxm

不好意思，我不懂代码，但有些可以大概知道意思，有些不知道了。好心人能讲解一下吗，谢谢

下面是控制台窗体里的事件，红色部分应该是关键吧，能不能讲解一下下面的意思。有些我猜的，不知道对不对。很想做出这种效果，请前辈们指教，谢谢。

Private Sub Command0_Click()
DoCmd.OpenForm "back"  ‘打开back窗体
End Sub

Private Sub Command1_Click()
DoCmd.OpenForm "兑奖"   '打开 "兑奖"窗体
End Sub

Private Sub Command2_Click()
If MsgBox("请确认是否删除历史数据，此操作不可恢复", vbYesNo + vbInformation, "注意") = vbYes Then DoCmd.RunSQL "DELETE 留底.* FROM 留底;"  ’进行判断，如果选YES的话就删留底表中的记录
End Sub
Private Sub Form_Close()     ‘退出
DoCmd.Quit
End Sub

Private Sub Form_Load()
DoCmd.RunCommand acCmdAppMinimize  ‘这个不明白什么意思
DoCmd.Restore
End Sub

还有窗体BACK项里的事件不是很明白一些代码的用法

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdAppMaximize
DoCmd.Maximize
DoCmd.OpenForm "index"
End Sub

Private Sub 主体_DblClick(Cancel As Integer)
DoCmd.Close
End Sub

fannky

呵呵，我给解释一下了，没有什么高深的学问，都让某些高手见笑了

以下是引用hellowxm在2007-3-20 22:07:00的发言：

不好意思，我不懂代码，但有些可以大概知道意思，有些不知道了。好心人能讲解一下吗，谢谢

下面是控制台窗体里的事件，红色部分应该是关键吧，能不能讲解一下下面的意思。有些我猜的，不知道对不对。很想做出这种效果，请前辈们指教，谢谢。

Private Sub Command0_Click()
DoCmd.OpenForm "back"  ‘打开back窗体
End Sub

Private Sub Command1_Click()
DoCmd.OpenForm "兑奖"   '打开 "兑奖"窗体
End Sub

Private Sub Command2_Click()
If MsgBox("请确认是否删除历史数据，此操作不可恢复", vbYesNo + vbInformation, "注意") = vbYes Then DoCmd.RunSQL "DELETE 留底.* FROM 留底;"  ’进行判断，如果选YES的话就删留底表中的记录
End Sub
Private Sub Form_Close()     ‘退出
DoCmd.Quit
End Sub

Private Sub Form_Load()
DoCmd.RunCommand acCmdAppMinimize  ‘这个不明白什么意思  //让ACCESS主体窗口最小化
DoCmd.Restore     //由于主体都最小化了，这个窗体就看不见了。所以这句把窗口叫出来
End Sub

还有窗体BACK项里的事件不是很明白一些代码的用法

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdAppMaximize
DoCmd.Maximize                        //让他最大化占满屏幕当背景，背景是一个窗体，无边框。
DoCmd.OpenForm "index"         //背景布置好以后，就该呼叫主窗口亮相了
End Sub

Private Sub 主体_DblClick(Cancel As Integer)
DoCmd.Close                           //这句是我调试用的，背景窗体没有控制框关不掉，只好这样来了。只是后来忘了删掉罢了
End Sub

[此贴子已经被作者于2007-3-21 14:30:07编辑过]