frmmain.vb

来自「零基础学习sql server 2005 流回 等编著 书中代码」· VB 代码 · 共 42 行

Public Class frmMain
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“StudentDBDataSet.Experience”中。您可以根据需要移动或移除它。
        Me.ExperienceTableAdapter.Fill(Me.StudentDBDataSet.Experience)
        'TODO: 这行代码将数据加载到表“StudentDBDataSet.Students”中。您可以根据需要移动或移除它。
        Me.StudentsTableAdapter.Fill(Me.StudentDBDataSet.Students)
    End Sub
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        'Me.StudentsTableAdapter.Insert()
    End Sub
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Dim i As Integer
        i = StudentsTableAdapter.Update(Me.StudentDBDataSet.Students)
        'i = ExperienceTableAdapter.Update(Me.StudentDBDataSet.Experience)

        If (i > 0) Then
            MessageBox.Show(Me, "更新成功!")
            Me.StudentsTableAdapter.Fill(Me.StudentDBDataSet.Students)
        ElseIf (i = 0) Then
            MessageBox.Show(Me, "失败成功!")
        Else
            MessageBox.Show(Me, "失败成功!")
        End If
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        Me.StudentsTableAdapter.Fill(Me.StudentDBDataSet.Students)
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        'Me.StudentsTableAdapter.Delete()
    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        Application.Exit()
    End Sub
End Class