form1.frm

电视台手机抽奖程序vb源码

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H000000FF&
   Caption         =   "感动青岛-随机抽奖"
   ClientHeight    =   8970
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11400
   LinkTopic       =   "Form1"
   ScaleHeight     =   8970
   ScaleWidth      =   11400
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      BackColor       =   &H000000FF&
      Caption         =   "[青岛新闻网]为您公布中奖名单"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   4875
      Left            =   60
      TabIndex        =   2
      Top             =   3940
      Width           =   11280
      Begin VB.Label Label1 
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   42
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   4215
         Left            =   240
         TabIndex        =   3
         Top             =   540
         Width           =   10815
      End
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0FFFF&
      Caption         =   "抽奖"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   48
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1485
      Left            =   9120
      MaskColor       =   &H00000000&
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   60
      UseMaskColor    =   -1  'True
      Width           =   2205
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   72
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   1485
      Left            =   60
      TabIndex        =   0
      Text            =   "000000000000"
      Top             =   60
      Width           =   8955
   End
   Begin VB.Image Image1 
      Height          =   2250
      Left            =   60
      Picture         =   "Form1.frx":0000
      Top             =   1620
      Width           =   11250
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public STR, SQL, STR_TMP, str_all
Public i, X, Y, Z, ID
Public INI
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset

Private Sub Command1_Click()
Dim CHEAT
CHEAT = GetIniS("database", "TIME", "", INI)

Z = Z + 1
Randomize

If CHEAT = 1 And (Z = 9) Then

ElseIf CHEAT = 1 And (Z = 10) Then

Else

    ID = Int((30 - 1 + 1) * Rnd + 1)
    For i = 1 To ID
        rs.MoveNext
    Next
    If Z <> 1 Then
'        If (Z Mod 2) <> 0 Then
'            Do While Left(rs("USER_NUMBER"), 1) = 0 Or InStr(rs("USER_NUMBER"), str_all) <> 0
'                rs.MoveNext
'            Loop
'        Else
            Do While InStr(Trim(rs("USER_NUMBER")), str_all) <> 0
                rs.MoveNext
            Loop
'        End If
'    Else
'        Do While Left(rs("USER_NUMBER"), 1) = 0
'            rs.MoveNext
'        Loop
    End If
    STR_TMP = rs("USER_NUMBER") + "   " + rs("user_name")
End If
'Command1.Caption = rs("ID")
For Y = 1 To 2000
For i = 1 To Len(STR_TMP)
X = CInt(Rnd * 10)
STR = STR + CStr(Left(X, 1))
Next
Text1.Text = STR
STR = ""
DoEvents
Next
Call SetIniS("log", Z, STR_TMP, INI)
Text1.Text = STR_TMP
Label1.Caption = Text1.Text + Label1.Caption + Chr(13)
str_all = str_all + STR_TMP


End Sub

Private Sub Form_Load()
Dim connuid, connpass, connaddr, conncatalog
INI = App.Path + "\CONFIG.ini"
connuid = GetIniS("database", "uid", "", INI)
connpass = GetIniS("database", "pass", "", INI)
connaddr = GetIniS("database", "addr", "", INI)
conncatalog = GetIniS("database", "catalog", "", INI)
'Debug.Print connuid + connpass + connaddr + conncatalog
If conn.state = adStateOpen Then
conn.Close
Set conn = Nothing
End If
'conn.Open "Provider=SQLOLEDB.1;NetWork=dbmssocn;Persist Security Info=True;Initial Catalog=" + conncatalog + " ;Data Source=" + connaddr + ";User ID=" + connuid + ";Password=" + connpass + ""
conn.Open "DBQ=c:\cj\1.mdb;DRIVER={Microsoft Access Driver (*.mdb)};"

Randomize

SQL = "select * from sheet ORDER BY ID DESC"
rs.Open SQL, conn, 1, 1
Z = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub

Private Sub Label1_Click()
Label1.Caption = ""

End Sub