📄 frm_main2.frm
字号:
TabIndex = 23
Top = 5160
Width = 1800
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "二等奖抽奖系统"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2640
TabIndex = 22
Top = 240
Width = 2205
End
End
Attribute VB_Name = "frm_Main2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdBegin_Click()
' If strFilePath = "" Then
' MsgBox "请先选择一个数据库文件！ ", vbInformation + vbOKOnly, "提示信息"
' Exit Sub
' End If
If IntTotalPersonCount < 1 Then
MsgBox "目前注册用户为零不能进行抽奖！ ", vbInformation + vbOKOnly, "提示信息"
Exit Sub
End If
If cmdBegin.Caption = "开始" Then
Text11.Text = ""
Text12.Text = ""
Text17.Text = ""
Timer1.Enabled = True
cmdBegin.Caption = "停止"
cmdOK.Enabled = False
cmdCancel.Enabled = False
cmdBegin.SetFocus
Else
Dim RstSQL As New ADODB.Recordset
Dim RndNumber As Integer
Timer1.Enabled = False
Randomize
RndNumber = Int(IntTotalPersonCount * Rnd + 1)
ChangeString RndNumber
Text10.Text = Trim(Str(RndNumber))
With RstSQL
.ActiveConnection = CnnDSN
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Source = "SELECT * FROM Lottery_Table WHERE Person_ID=" & Trim(Str(RndNumber)) & ""
.Open
End With
' If RstSQL.Fields("Checked") = True Then
' cmdOK.Enabled = False
' cmdCancel.Enabled = True
' cmdCancel.SetFocus
' MsgBox "此号码已经抽到过并且已经做了保存！ ", vbInformation + vbOKOnly, "提示信息"
' Else
' cmdOK.Enabled = True
' cmdCancel.Enabled = True
' cmdOK.SetFocus
'End If
If Trim(RstSQL.Fields("Invoice_ID")) <> "" Or IsNull(RstSQL.Fields("Invoice_ID")) = False Then Text11.Text = Trim(RstSQL.Fields("Invoice_ID"))
If Trim(RstSQL.Fields("Person_Name")) <> "" Or IsNull(RstSQL.Fields("Person_Name")) = False Then Text12.Text = Trim(RstSQL.Fields("Person_Name"))
If Trim(RstSQL.Fields("Person_Tel")) <> "" Or IsNull(RstSQL.Fields("Person_Tel")) = False Then Text17.Text = Trim(RstSQL.Fields("Person_Tel"))
RstSQL.Close
cmdOK.Enabled = True
cmdCancel.Enabled = True
cmdBegin.Caption = "开始"
End If
Exit Sub
End Sub
Private Sub cmdCancel_Click()
cmdBegin_Click
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim RstSQL As New ADODB.Recordset
With RstSQL
.ActiveConnection = CnnDSN
.LockType = adLockOptimistic
.CursorType = adOpenStatic
.Source = "insert into er (Person_ID,Invoice_ID,Person_Name,Person_Tel) values ('" + Text10.Text + "','" + Text11.Text + "','" + Text12.Text + "','" + Text17 + "')"
.Open
End With
cmdOK.Enabled = False
cmdCancel.Enabled = False
cmdBegin.SetFocus
MsgBox "保存成功！ ", vbInformation + vbOKOnly, "提示信息"
Unload Me
frm_Main2.Show
Exit Sub
End Sub
Private Sub Form_Load()
Dim RstSQL As New ADODB.Recordset
With RstSQL
.ActiveConnection = CnnDSN
.Source = "SELECT * FROM Lottery_Table"
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open
End With
IntTotalPersonCount = RstSQL.RecordCount
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2 - 500
Me.Caption = "《钢都周报》--抽奖程序[目前共有" & Str(IntTotalPersonCount) & " 位注册用户]"
Dim RstSQL1 As New ADODB.Recordset
With RstSQL1
.ActiveConnection = CnnDSN
.Source = "SELECT * FROM er"
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open
End With
yicount = RstSQL1.RecordCount
Label6.Caption = yicount
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub
Private Sub mnuName_Click()
frm_About.Show 1
End Sub
Private Sub mnuOpen_Click()
Dim RstSQL As New ADODB.Recordset
'设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
'设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Access (*.mdb)|*.mdb"
'指定缺省的过滤器
CommonDialog1.FilterIndex = 2
'显示“打开”对话框
CommonDialog1.ShowOpen
'
strFilePath = CommonDialog1.FileName
CnnDSN.Provider = "Microsoft.Jet.OLEDB.4.0"
CnnDSN.ConnectionString = strFilePath
CnnDSN.Open
With RstSQL
.ActiveConnection = CnnDSN
.Source = "SELECT * FROM Lottery_Table"
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open
End With
IntTotalPersonCount = RstSQL.RecordCount
frm_Main.Caption = "英语沙龙--抽奖程序[目前共有" & Str(IntTotalPersonCount) & " 位注册用户]"
RstSQL.Close
Exit Sub
'
ErrHandler:
'用户按了“取消”按钮
Exit Sub
End Sub
Private Sub mnuSelect_Click()
frm_Select.Show 1
End Sub
Private Sub open_Click()
Dim RstSQL As New ADODB.Recordset
'设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
'设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Access (*.mdb)|*.mdb"
'指定缺省的过滤器
CommonDialog1.FilterIndex = 2
'显示“打开”对话框
CommonDialog1.ShowOpen
'
strFilePath = CommonDialog1.FileName
CnnDSN.Provider = "Microsoft.Jet.OLEDB.4.0"
CnnDSN.ConnectionString = strFilePath
CnnDSN.Open
With RstSQL
.ActiveConnection = CnnDSN
.Source = "SELECT * FROM Lottery_Table"
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open
End With
IntTotalPersonCount = RstSQL.RecordCount
frm_Main.Caption = "英语沙龙--抽奖程序[目前共有" & Str(IntTotalPersonCount) & " 位注册用户]"
RstSQL.Close
Exit Sub
'
ErrHandler:
'用户按了“取消”按钮
Exit Sub
End Sub
Private Sub Timer1_Timer()
Text1.Text = CStr(Int(10 * Rnd))
Text2.Text = CStr(Int(10 * Rnd))
Text3.Text = CStr(Int(10 * Rnd))
Text4.Text = CStr(Int(10 * Rnd))
Text5.Text = CStr(Int(10 * Rnd))
Text6.Text = CStr(Int(10 * Rnd))
Text7.Text = CStr(Int(10 * Rnd))
Text8.Text = CStr(Int(10 * Rnd))
Text9.Text = CStr(Int(10 * Rnd))
End Sub
Sub ChangeString(RndNumber As Integer)
Select Case Len(Trim(Str(RndNumber)))
Case 1
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "0"
Text5.Text = "0"
Text6.Text = "0"
Text7.Text = "0"
Text8.Text = "0"
Text9.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Case 2
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "0"
Text5.Text = "0"
Text6.Text = "0"
Text7.Text = "0"
Text8.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Text9.Text = Mid(Trim(Str(RndNumber)), 2, 1)
Case 3
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "0"
Text5.Text = "0"
Text6.Text = "0"
Text7.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Text8.Text = Mid(Trim(Str(RndNumber)), 2, 1)
Text9.Text = Mid(Trim(Str(RndNumber)), 3, 1)
Case 4
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "0"
Text5.Text = "0"
Text6.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Text7.Text = Mid(Trim(Str(RndNumber)), 2, 1)
Text8.Text = Mid(Trim(Str(RndNumber)), 3, 1)
Text9.Text = Mid(Trim(Str(RndNumber)), 4, 1)
Case 5
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "0"
Text5.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Text6.Text = Mid(Trim(Str(RndNumber)), 2, 1)
Text7.Text = Mid(Trim(Str(RndNumber)), 3, 1)
Text8.Text = Mid(Trim(Str(RndNumber)), 4, 1)
Text9.Text = Mid(Trim(Str(RndNumber)), 5, 1)
Case 6
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Text5.Text = Mid(Trim(Str(RndNumber)), 2, 1)
Text6.Text = Mid(Trim(Str(RndNumber)), 3, 1)
Text7.Text = Mid(Trim(Str(RndNumber)), 4, 1)
Text8.Text = Mid(Trim(Str(RndNumber)), 5, 1)
Text9.Text = Mid(Trim(Str(RndNumber)), 6, 1)
Case 7
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Text4.Text = Mid(Trim(Str(RndNumber)), 2, 1)
Text5.Text = Mid(Trim(Str(RndNumber)), 3, 1)
Text6.Text = Mid(Trim(Str(RndNumber)), 4, 1)
Text7.Text = Mid(Trim(Str(RndNumber)), 5, 1)
Text8.Text = Mid(Trim(Str(RndNumber)), 6, 1)
Text9.Text = Mid(Trim(Str(RndNumber)), 7, 1)
Case 8
Text1.Text = "0"
Text2.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Text3.Text = Mid(Trim(Str(RndNumber)), 2, 1)
Text4.Text = Mid(Trim(Str(RndNumber)), 3, 1)
Text5.Text = Mid(Trim(Str(RndNumber)), 4, 1)
Text6.Text = Mid(Trim(Str(RndNumber)), 5, 1)
Text7.Text = Mid(Trim(Str(RndNumber)), 6, 1)
Text8.Text = Mid(Trim(Str(RndNumber)), 7, 1)
Text9.Text = Mid(Trim(Str(RndNumber)), 8, 1)
Case 9
Text1.Text = Mid(Trim(Str(RndNumber)), 1, 1)
Text2.Text = Mid(Trim(Str(RndNumber)), 2, 1)
Text3.Text = Mid(Trim(Str(RndNumber)), 3, 1)
Text4.Text = Mid(Trim(Str(RndNumber)), 4, 1)
Text5.Text = Mid(Trim(Str(RndNumber)), 5, 1)
Text6.Text = Mid(Trim(Str(RndNumber)), 6, 1)
Text7.Text = Mid(Trim(Str(RndNumber)), 7, 1)
Text8.Text = Mid(Trim(Str(RndNumber)), 8, 1)
Text9.Text = Mid(Trim(Str(RndNumber)), 9, 1)
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -