frmset.vb

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

        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(287, 54)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(42, 14)
        Me.Label5.TabIndex = 16
        Me.Label5.Text = "个座位"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(7, 54)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(29, 14)
        Me.Label6.TabIndex = 15
        Me.Label6.Text = "楼座"
        '
        'txt_Tan_Set
        '
        Me.txt_Tan_Set.Location = New System.Drawing.Point(207, 22)
        Me.txt_Tan_Set.Name = "txt_Tan_Set"
        Me.txt_Tan_Set.Size = New System.Drawing.Size(64, 21)
        Me.txt_Tan_Set.TabIndex = 14
        Me.txt_Tan_Set.Text = "25"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(143, 22)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(54, 14)
        Me.Label3.TabIndex = 13
        Me.Label3.Text = "排，每排"
        '
        'txt_Tan_Row
        '
        Me.txt_Tan_Row.Location = New System.Drawing.Point(71, 22)
        Me.txt_Tan_Row.Name = "txt_Tan_Row"
        Me.txt_Tan_Row.Size = New System.Drawing.Size(56, 21)
        Me.txt_Tan_Row.TabIndex = 12
        Me.txt_Tan_Row.Text = "12"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(287, 22)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(42, 14)
        Me.Label2.TabIndex = 11
        Me.Label2.Text = "个座位"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(7, 22)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(29, 14)
        Me.Label1.TabIndex = 10
        Me.Label1.Text = "堂座"
        '
        'btn_OK
        '
        Me.btn_OK.Location = New System.Drawing.Point(240, 104)
        Me.btn_OK.Name = "btn_OK"
        Me.btn_OK.Size = New System.Drawing.Size(48, 23)
        Me.btn_OK.TabIndex = 1
        Me.btn_OK.Text = "确定"
        '
        'btn_Exit
        '
        Me.btn_Exit.Location = New System.Drawing.Point(304, 104)
        Me.btn_Exit.Name = "btn_Exit"
        Me.btn_Exit.Size = New System.Drawing.Size(48, 23)
        Me.btn_Exit.TabIndex = 2
        Me.btn_Exit.Text = "退出"
        '
        'Ds21
        '
        Me.Ds21.DataSetName = "ds2"
        Me.Ds21.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.Ds21.Namespace = "http://www.tempuri.org/ds2.xsd"
        '
        'frmSet
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.Color.AntiqueWhite
        Me.ClientSize = New System.Drawing.Size(368, 133)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btn_Exit, Me.btn_OK, Me.GroupBox1})
        Me.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Name = "frmSet"
        Me.Text = "座位数据设置"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.Ds21, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmSet_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(Me.Ds21)

        Me.Ds21.Tables.Add("max")
        If Me.Ds21.Audience.Rows.Count <> 0 Then
            Me.OleDbDataAdapter1.SelectCommand.CommandText = "select max(number) from audience where type='楼座'"
            Me.OleDbDataAdapter1.Fill(Me.Ds21.Tables("max"))
            Me.txt_Low_Set.Text = Me.Ds21.Tables("max").Rows(0).Item(0)
            Me.Ds21.Tables("max").Clear()

            Me.OleDbDataAdapter1.SelectCommand.CommandText = "select max(number) from audience where type='堂座'"
            Me.OleDbDataAdapter1.Fill(Me.Ds21.Tables("max"))
            Me.txt_Tan_Set.Text = Me.Ds21.Tables("max").Rows(0).Item(0)
            Me.Ds21.Tables("max").Clear()

            Me.OleDbDataAdapter1.SelectCommand.CommandText = "select max(rowid) from audience where type='堂座'"
            Me.OleDbDataAdapter1.Fill(Me.Ds21.Tables("max"))
            Me.txt_Tan_Row.Text = Me.Ds21.Tables("max").Rows(0).Item(0)
            Me.Ds21.Tables("max").Clear()

            Me.OleDbDataAdapter1.SelectCommand.CommandText = "select max(rowid) from audience where type='楼座'"
            Me.OleDbDataAdapter1.Fill(Me.Ds21.Tables("max"))
            Me.txt_Low_Row.Text = Me.Ds21.Tables("max").Rows(0).Item(0)

        End If

    End Sub

    Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click
        Dim i, j As Integer

        If MessageBox.Show("该操作将清楚原有数据！确定吗？", "Sure？！", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = DialogResult.Cancel Then
            Exit Sub
        End If
        For i = Me.Ds21.Audience.Rows.Count - 1 To 0 Step -1
            Me.Ds21.Audience.Rows(i).Delete()
        Next

        'Me.Ds21.AcceptChanges()
        'Me.OleDbDataAdapter1.Update(Me.Ds21, "Audience")
        Dim rowval(3) As Object
        'Try
        For i = 1 To CInt(Me.txt_Tan_Row.Text)
            For j = 1 To CInt(Me.txt_Tan_Set.Text)
                rowval(1) = j.ToString
                rowval(2) = i.ToString
                rowval(3) = "堂座"
                Me.Ds21.Audience.Rows.Add(rowval)
            Next
        Next

        For i = 1 To CInt(Me.txt_Low_Row.Text)
            For j = 1 To CInt(Me.txt_Low_Set.Text)
                rowval(1) = j.ToString
                rowval(2) = i.ToString
                rowval(3) = "楼座"
                Me.Ds21.Audience.Rows.Add(rowval)
            Next
        Next
        'Catch
        'Me.Ds21.RejectChanges()
        'MessageBox.Show("无法更新，输入可能有误！")
        'End Try
        'Me.Ds21.AcceptChanges()
        Me.OleDbDataAdapter1.Update(Me.Ds21, "Audience")

    End Sub

    Private Sub btn_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Exit.Click
        MessageBox.Show("更新结果要重新启动程序才可看到！")
        Me.Dispose()
    End Sub
End Class