frmmain.vb

抽奖的模拟过程！自己写的

        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Number", System.Data.OleDb.OleDbType.VarWChar, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "Number", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RowId", System.Data.OleDb.OleDbType.VarWChar, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "RowId", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Type", System.Data.OleDb.OleDbType.VarWChar, 4, "Type"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT ID1, [Number], RowId, Type FROM Audience"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Audience SET [Number] = ?, RowId = ?, Type = ? WHERE (ID1 = ?) AND ([Numbe" & _
        "r] = ? OR ? IS NULL AND [Number] IS NULL) AND (RowId = ? OR ? IS NULL AND RowId " & _
        "IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Number", System.Data.OleDb.OleDbType.VarWChar, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "Number", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RowId", System.Data.OleDb.OleDbType.VarWChar, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "RowId", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Type", System.Data.OleDb.OleDbType.VarWChar, 4, "Type"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "ID1", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Number", System.Data.OleDb.OleDbType.VarWChar, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "Number", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Number1", System.Data.OleDb.OleDbType.VarWChar, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "Number", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RowId", System.Data.OleDb.OleDbType.VarWChar, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "RowId", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RowId1", System.Data.OleDb.OleDbType.VarWChar, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "RowId", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Type", System.Data.OleDb.OleDbType.VarWChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Type1", System.Data.OleDb.OleDbType.VarWChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
        '
        'Ds11
        '
        Me.Ds11.DataSetName = "ds1"
        Me.Ds11.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.Ds11.Namespace = "http://www.tempuri.org/ds1.xsd"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(264, 22)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(51, 23)
        Me.Button2.TabIndex = 13
        Me.Button2.Text = "颜色"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(326, 27)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(66, 14)
        Me.Label2.TabIndex = 14
        Me.Label2.Text = "刷新速度："
        '
        'txt_Speed
        '
        Me.txt_Speed.Location = New System.Drawing.Point(389, 23)
        Me.txt_Speed.Name = "txt_Speed"
        Me.txt_Speed.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.txt_Speed.Size = New System.Drawing.Size(44, 21)
        Me.txt_Speed.TabIndex = 15
        Me.txt_Speed.Text = "10"
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.Color.RosyBrown
        Me.ClientSize = New System.Drawing.Size(728, 453)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.Button1, Me.ListBox1, Me.btn_Start})
        Me.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.Name = "frmMain"
        Me.Text = "抽奖系统1.0  ----重庆大学软件学院科协制作 2002.12.22"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.Ds11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Start.Click
        Try
            MaxChoosen = CInt(Me.txt_MaxChoosen.Text) + 1
            Me.Timer1.Interval = CInt(Me.txt_Speed.Text)
        Catch
            MaxChoosen = 11
            Me.Timer1.Interval = 10
        End Try


        If Me.btn_Start.Text = "开始" Then
            Me.ListBox1.Items.Clear()
            Me.ListBox1.Items.Add("    座位类别    " & "    排号  " & "     座号 ")

            Me.Timer1.Enabled = True
            Me.btn_Start.Text = "停止"
        Else
            Me.Timer1.Enabled = False
            Me.btn_Start.Text = "开始"
        End If

    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Data Source=" & CurDir() & "\db1.mdb;"
        Me.OleDbDataAdapter1.Fill(Ds11)
        'Ds12.Tables.Add("temp")
        'Me.OleDbDataAdapter1.Fill(Me.Ds12.Tables("temp"), "class")
        'Me.Ds12.Tables("temp").Clear()
        'Me.Ds12.Tables("temp").AcceptChanges()
        'tmprow = Me.Ds12._Class.NewRow
        Rnd(-Now.Second)

        'Dim i As Integer
        it = Ds11.Audience.Rows.Count
        'ReDim classlis(it)
        'For i = 0 To Ds12._Class.Rows.Count - 1
        'classlis(i) = String.Format("{0,14}", Me.Ds12._Class.Rows(i).Item(3))
        'classlis(i) += String.Format("{0,10}", Me.Ds12._Class.Rows(i).Item(2))
        'classlis(i) += String.Format("{0,4}", Me.Ds12._Class.Rows(i).Item(1))
        'Next
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim j As Integer
        Dim str As String
        'If Me.Ds12._Class.Rows.Count > 2 Then
        'Me.ListBox1.Items.Clear()
        'str =
        'Me.ListBox1.Items.Add(str)
        If Me.ListBox1.Items.Count >= MaxChoosen Then
            Me.ListBox1.Items.Remove(Me.ListBox1.Items(1))
        End If
        'For i = 1 To MaxChoosen
        'j = Me.MyRnd(Me.Ds12._Class.Rows.Count - 1, 0)
        j = Int(it * Rnd())
        'tmprow = Me.Ds12._Class.Rows(j)
        Try
            str = String.Format("{0,8}", Me.Ds11.Audience.Rows(j).Item(3))
            str += String.Format("{0,13}", Me.Ds11.Audience.Rows(j).Item(2))
            str += String.Format("{0,10}", Me.Ds11.Audience.Rows(j).Item(1))
            If Me.ListBox1.Items.IndexOf(str) = -1 Then
                Me.ListBox1.Items.Add(str)
                Me.Refresh()
                str = ""
            End If
            'Me.Ds12._Class.Rows(j).Delete()
        Catch
            'i = i - 1
        End Try
        'Me.Ds12.Tables("temp").Rows.Add(tmprow)
        'Next

        'End If
    End Sub

    Public Function MyRnd(ByVal UpB As Integer, ByVal LowB As Integer) As Integer
        Rnd(-Now.Second)
        Return Int((UpB - LowB + 1) * Rnd() + LowB)
    End Function

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.Timer2.Enabled = True Then
            Me.Timer2.Enabled = False
        Else
            Me.Timer2.Enabled = True
        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        'Dim j As Integer
        'Dim str As String
        'j = Me.MyRnd(it - 1, 0)
        'Me.Label1.Text = classlis(Int(it * Rnd()))
    End Sub

    Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        Me.btn_Start.Top = Me.Height - Me.btn_Start.Height - 35
        Me.ListBox1.Height = Me.Height - Me.btn_Start.Height - 45
        Me.btn_Start.Left = Me.Width - Me.btn_Start.Width - 20

    End Sub

    Private Sub btn_Font_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Font.Click
        Me.FontDialog1.ShowDialog()
        Me.ListBox1.Font = Me.FontDialog1.Font
    End Sub

    Private Sub btn_Set_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Set.Click
        Dim obj As New Form()
        obj = New frmSet()
        obj.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("请选择背景色！")
        Me.ColorDialog1.Color = Me.BackColor
        Me.ColorDialog1.ShowDialog()
        Me.BackColor = Me.ColorDialog1.Color

        MessageBox.Show("然后是文字底色！")
        Me.ColorDialog1.Color = Me.ListBox1.BackColor
        Me.ColorDialog1.ShowDialog()
        Me.ListBox1.BackColor = Me.ColorDialog1.Color

        MessageBox.Show("最后是字体颜色!")
        Me.ColorDialog1.Color = Me.ListBox1.ForeColor
        Me.ColorDialog1.ShowDialog()
        Me.ListBox1.ForeColor = Me.ColorDialog1.Color

    End Sub
End Class