team.vb

大型数据库系统程序球员转会系统解决方案

        Me.ClientSize = New System.Drawing.Size(536, 357)
        Me.Controls.Add(Me.dg1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "team"
        Me.Text = "team"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.dg1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub filldatasetandview()
        myds = New DataSet()
        Try
            myadapter.Fill(myds, "player")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        mydv = New DataView(myds.Tables("player"))
        mycurrencymanager = CType(Me.BindingContext(mydv), CurrencyManager)
    End Sub
    Private Sub bindfields()
        dg1.DataSource = myds
        dg1.DataMember = "player"
    End Sub

    Private Sub team_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



        myds = New DataSet()
        myadapter.SelectCommand = New SqlCommand()
        myadapter.SelectCommand.CommandText = "p_player"
        myadapter.SelectCommand.CommandType = CommandType.StoredProcedure
        myadapter.SelectCommand.Parameters.Add("@uid", main.tempuid)
        myadapter.SelectCommand.Connection = myconnection
        myconnection.Open()
        Try
            myadapter.SelectCommand.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(main.tempuid)
            MsgBox(ex.ToString)
        End Try
        myadapter.Fill(myds, "player")
        myconnection.Close()
        bindfields()
        button(1) = Button1
        button(2) = Button2
        button(3) = Button3
        button(4) = Button4
        button(5) = Button5
        button(6) = Button6
        button(7) = Button7
        button(8) = Button8
        button(9) = Button9
        button(10) = Button10
        button(11) = Button11
        button(12) = Button12
        button(13) = Button13
        button(14) = Button14
        button(15) = Button15
        button(16) = Button16
        button(17) = Button17
        button(18) = Button18
        Dim i As Integer
        For i = 1 To 19 Step 1
        Next
        'filldatasetandview()

        'myadapter.SelectCommand.ExecuteNonQuery()
    End Sub

    ' Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    tempname = playerlist.Items(playerlist.SelectedIndex)
    '  End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "" Then
            Button1.Text = tempname
            forward = forward + 1
        Else : Button1.Text = ""
            forward = forward - 1
        End If
    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "" Then
            Button2.Text = tempname
            forward = forward + 1
        Else : Button2.Text = ""
            forward = forward - 1
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Text = "" Then
            Button3.Text = tempname
            forward = forward + 1
        Else : Button3.Text = ""
            forward = forward - 1
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Button5.Text = "" Then
            Button5.Text = tempname
            middle = middle + 1
        Else : Button5.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "" Then
            Button4.Text = tempname
            middle = middle + 1
        Else : Button4.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Button6.Text = "" Then
            Button6.Text = tempname
            middle = middle + 1
        Else : Button6.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Button7.Text = "" Then
            Button7.Text = tempname
            middle = middle + 1
        Else : Button7.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Button8.Text = "" Then
            Button8.Text = tempname
            middle = middle + 1
        Else : Button8.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Button9.Text = "" Then
            Button9.Text = tempname
            middle = middle + 1
        Else : Button9.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If Button10.Text = "" Then
            Button10.Text = tempname
            middle = middle + 1
        Else : Button10.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Button11.Text = "" Then
            Button11.Text = tempname
            middle = middle + 1
        Else : Button11.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Button12.Text = "" Then
            Button12.Text = tempname
            middle = middle + 1
        Else : Button12.Text = ""
            middle = middle - 1
        End If
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If Button16.Text = "" Then
            Button16.Text = tempname
            defence = defence + 1
        Else : Button16.Text = ""
            defence = defence - 1
        End If
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If Button13.Text = "" Then
            Button13.Text = tempname
            defence = defence + 1
        Else : Button13.Text = ""
            defence = defence - 1
        End If
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If Button17.Text = "" Then
            Button17.Text = tempname
            defence = defence + 1
        Else : Button17.Text = ""
            defence = defence - 1
        End If
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If Button14.Text = "" Then
            Button14.Text = tempname
            defence = defence + 1
        Else : Button14.Text = ""
            defence = defence - 1
        End If
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If Button15.Text = "" Then
            Button15.Text = tempname
            defence = defence + 1
        Else : Button15.Text = ""
            defence = defence - 1
        End If
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If Button18.Text = "" Then
            Button18.Text = tempname

        Else : Button18.Text = ""

        End If
    End Sub

    Private Sub dg1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles dg1.Navigate

    End Sub

    Private Sub dg1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles dg1.Click
        Dim temprow As Integer
        temprow = dg1.CurrentRowIndex()
        MsgBox(temprow)
        tempname = myds.Tables("player").Rows(temprow).Item(0)
    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub
End Class