form1.vb

一个随机抽取数组的东东

        Dim SQLstring As String

        SQLstring = "SELECT * FROM 抽取库 WHERE 数值 = '" & Index & "'"

        Dim DataConnection As System.Data.OleDb.OleDbConnection
        Dim DataAdapter As System.Data.OleDb.OleDbDataAdapter
        Dim DataSet As DataSet
        Dim ss As Integer

        ss = 0
        Try

            DataConnection = New System.Data.OleDb.OleDbConnection
            DataConnection.ConnectionString = Connlinks
            DataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLstring, DataConnection)
            DataSet = New DataSet
            DataSet.Clear()
            DataAdapter.Fill(DataSet)
            DataConnection.Close()
            If DataSet.Tables.Count > 0 Then
                ss = DataSet.Tables(0).Rows.Count
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return ss
    End Function

    Private Sub DeleteLib()
        Dim sqlstr As String = ""
        Dim sqlconn As New System.Data.OleDb.OleDbConnection(Connlinks)

        'GSetting	GValues	GEnable	OrderByThis
        Try
            '         UPDATE mytable SET first_column=’Updated!’ WHERE second_column=’Update Me!’
            '         DELETE mytable WHERE first_column=’goodby’ OR second_column=’so long’
            'sqlstr = "INSERT INTO 主表 (企业名称,市,区县) VALUES ( )"
            'sqlstr = "DELETE From " & index & " WHERE 企业名称 NOT IN (SELECT 主表!企业名称 FROM 主表)"
            sqlstr = "DELETE FROM 抽取库 "
            If sqlstr <> "" Then
                Dim cmdTable As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(sqlstr, sqlconn)
                cmdTable.CommandType = CommandType.Text
                sqlconn.Open()
                cmdTable.ExecuteNonQuery()
                sqlconn.Close()
            End If
            'Select a.*,b.* From Tab1 a,Tab2 b In 'db2.mdb' Where a.ID=b.ID; 

        Catch ex As Exception
            MsgBox("  ::：::   " & ex.Message)
        End Try
    End Sub

    Private Function ReadyLibNumberSum(ByVal Index As String) As Integer
        Dim SQLstring As String

        SQLstring = "SELECT * FROM " & Index

        Dim DataConnection As System.Data.OleDb.OleDbConnection
        Dim DataAdapter As System.Data.OleDb.OleDbDataAdapter
        Dim DataSet As DataSet
        Dim ss As Integer

        ss = 0
        Try

            DataConnection = New System.Data.OleDb.OleDbConnection
            DataConnection.ConnectionString = Connlinks
            DataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLstring, DataConnection)
            DataSet = New DataSet
            DataSet.Clear()
            DataAdapter.Fill(DataSet)
            DataConnection.Close()
            If DataSet.Tables.Count > 0 Then
                ss = DataSet.Tables(0).Rows.Count
            End If

        Catch ex As Exception

        End Try
        Return ss
    End Function


    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        R = New Random(Now.Second * Now.DayOfYear * Now.Millisecond)
    End Sub


    Private Sub SaveInI()
        Dim objStreamWriter As TextWriter

        'Pass the file path and the file name to the StreamWriter constructor.
        Dim fsn As String = My.Application.Info.DirectoryPath & "\随机抽取数组.INI"
        objStreamWriter = New StreamWriter(fsn)

        'Write a line of text.

        objStreamWriter.WriteLine(T1)
        objStreamWriter.WriteLine(T2)
        objStreamWriter.WriteLine(T3)
        objStreamWriter.WriteLine(T4)
        objStreamWriter.WriteLine(T5)

        objStreamWriter.WriteLine(CheckBox1.Checked)
        objStreamWriter.WriteLine(CheckBox2.Checked)
        objStreamWriter.WriteLine(CheckBox3.Checked)
        objStreamWriter.WriteLine(CheckBox4.Checked)
        'Close the file.
        objStreamWriter.Close()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        T1 = TextBox1.Text
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        T3 = TextBox3.Text
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        T4 = TextBox4.Text
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        T5 = TextBox5.Text
    End Sub

    Private Sub LoadIni()
        Dim B1 As Boolean = False
        Dim B2 As Boolean = False
        Dim B3 As Boolean = False
        Dim B4 As Boolean = False

        Try
            Dim FileNames As String = My.Application.Info.DirectoryPath & "\随机抽取数组.INI"
            If Not File.Exists(FileNames) Then
                Return
            Else

                Using sr As StreamReader = File.OpenText(FileNames)

                    T1 = sr.ReadLine()
                    T2 = sr.ReadLine()
                    T3 = sr.ReadLine()
                    T4 = sr.ReadLine()
                    T5 = sr.ReadLine()

                    B1 = (sr.ReadLine() = "True")
                    B2 = (sr.ReadLine() = "True")
                    B3 = (sr.ReadLine() = "True")
                    B4 = (sr.ReadLine() = "True")
                    sr.Close()

                End Using
            End If

            TextBox1.Text = T1
            TextBox2.Text = T2
            TextBox3.Text = T3
            TextBox4.Text = T4
            TextBox5.Text = T5

            CheckBox1.Checked = B1
            CheckBox2.Checked = B2
            CheckBox3.Checked = B3
            CheckBox4.Checked = B4
        Catch ex As Exception

        End Try



    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Static aa As Integer
        aa = aa + 1
        LabelItemAdd(aa)
    End Sub

    Private Sub LabelItemClear()
        Label5.Text = ""
        Label6.Text = ""
        Label7.Text = ""
        Label8.Text = ""
        Label9.Text = ""
        Label10.Text = ""
        Label11.Text = ""
        Label12.Text = ""
        Label13.Text = ""
        Label14.Text = ""
    End Sub

    Private Sub LabelItemAdd(ByVal Input As String)

        Label14.Text = Label13.Text
        Label13.Text = Label12.Text
        Label12.Text = Label11.Text
        Label11.Text = Label10.Text
        Label10.Text = Label9.Text
        Label9.Text = Label8.Text
        Label8.Text = Label7.Text
        Label7.Text = Label6.Text
        Label6.Text = Label5.Text
        Label5.Text = Input

    End Sub


    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        RndItems.Clear()
        Dim Index As Integer
        Dim RSend As Integer
        Dim OverOk As String
        Index = 0
        If RndOption.ChoiceMax >= 10 Then
            Do Until Index >= RndOption.ItemMax
                RSend = R.Next(1, RndOption.ChoiceMax)
                If RndItems.InputNumber(RSend, RndOption.OptionOnly) Then
                    Index = Index + 1
                End If
            Loop
            If RndItems.OutputOk(RndOption.OptionGroupOnly) Then
                OverOk = RndItems.OutputNumber(RndOption.OptionOrder, RndOption.CutChar)
                LabelItemAdd(OverOk)
                '保存
                If RndOption.OptionSaveFile Then
                    Dim objStreamWriter As TextWriter

                    'Pass the file path and the file name to the StreamWriter constructor.
                    Dim fsn As String = TextBox2.Text
                    objStreamWriter = New StreamWriter(fsn, True)
                    objStreamWriter.WriteLine(OverOk)
                    objStreamWriter.Close()
                End If
            End If
        End If



    End Sub

    Private Sub RndBooter()
        With RndOption
            .OptionSaveFile = CheckBox1.Checked
            .OptionOnly = CheckBox2.Checked
            .OptionOrder = CheckBox3.Checked
            .OptionGroupOnly = CheckBox4.Checked
            .ChoiceMax = ReadyLibNumberSum("抽取库")

            .GroupMax = Val(TextBox3.Text)
            .ItemMax = Val(TextBox4.Text)

            Try
                Trim(TextBox5.Text).Substring(0)
            Catch ex As Exception
                .CutChar = ","
            End Try
        End With
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        RndBooter()
        RndItems.LoadDataRows()
        Button6.Enabled = True
        Button4.Enabled = True

        Dim objStreamWriter As TextWriter

        'Pass the file path and the file name to the StreamWriter constructor.
        Dim fsn As String = TextBox2.Text
        objStreamWriter = New StreamWriter(fsn, False)
        objStreamWriter.Write("")
        objStreamWriter.Close()

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        RndOption.OptionSaveFile = CheckBox1.Checked
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        RndOption.OptionOnly = CheckBox2.Checked
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        RndOption.OptionGroupOnly = CheckBox3.Checked
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        RndOption.OptionOrder = CheckBox4.Checked
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        RndBooter()
        RndItems.LoadDataRows()
        Button6.Enabled = True
        Button4.Enabled = True

        Dim objStreamWriter As TextWriter

        'Pass the file path and the file name to the StreamWriter constructor.
        Dim fsn As String = TextBox2.Text
        objStreamWriter = New StreamWriter(fsn, False)
        objStreamWriter.Write("")
        objStreamWriter.Close()



        Dim Index As Integer
        Dim RSend As Integer
        Dim OverOk As String

        If RndOption.GroupMax > 0 Then
            Dim KK As Integer
            For KK = 1 To RndOption.GroupMax
                RndItems.Clear()
                Index = 0
                If RndOption.ChoiceMax >= 10 Then
                    Do Until Index >= RndOption.ItemMax
                        RSend = R.Next(1, RndOption.ChoiceMax)
                        If RndItems.InputNumber(RSend, RndOption.OptionOnly) Then
                            Index = Index + 1
                        End If
                    Loop
                    Windows.Forms.Application.DoEvents()
                    If RndItems.OutputOk(RndOption.OptionGroupOnly) Then
                        OverOk = RndItems.OutputNumber(RndOption.OptionOrder, RndOption.CutChar)
                        LabelItemAdd(OverOk)
                        '保存
                        If RndOption.OptionSaveFile Then


                            'Pass the file path and the file name to the StreamWriter constructor.

                            objStreamWriter = New StreamWriter(fsn, True)
                            objStreamWriter.WriteLine(OverOk)
                            objStreamWriter.Close()
                        End If
                    End If
                End If
            Next
        End If
    End Sub
End Class