Me.Button4.TabIndex = 8
        Me.Button4.Text = "取消"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(96, 304)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(72, 24)
        Me.Button5.TabIndex = 9
        Me.Button5.Text = "關(guān)閉"
        '
        'Form3
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(482, 351)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1, Me.Label2, Me.Label1, Me.TextBox2, Me.TextBox1, Me.DataGrid1})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Name = "Form3"
        Me.Text = "收入項(xiàng)目"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Income1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '填充DataSet
        income.Fill(Income1)
        '設(shè)置按鈕使得添加、刪除、修改有效
        dobutton(1, 1, 1, 0)
        '設(shè)置兩個(gè)Textbox無效
        TextBox1.Enabled = False
        TextBox2.Enabled = False

    End Sub
    '當(dāng)DataGrid當(dāng)前單元格變化的時(shí)候響應(yīng)事件
    Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
        '設(shè)置4個(gè)功能按鍵
        dobutton(1, 1, 1, 0)
        'Textbox1顯示的是匹配碼
        TextBox1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
        'Textbox2顯示的是項(xiàng)目名稱
        TextBox2.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)
        '設(shè)置兩個(gè)文本框?yàn)闊o效
        TextBox1.Enabled = False
        TextBox2.Enabled = False

    End Sub
    '設(shè)置dobutton函數(shù)
    'a,b,c,d分別代表了添加、刪除、修改和取消幾個(gè)按鍵的Enable值
    Private Function dobutton(ByVal a, ByVal b, ByVal c, ByVal d)
        '首先將四個(gè)按鈕均置為False
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        '判斷a,b,c,d的值，1則為按鈕有效，0為按鈕無效
        If a = 1 Then Button1.Enabled = True
        If b = 1 Then Button2.Enabled = True
        If c = 1 Then Button3.Enabled = True
        If d = 1 Then Button4.Enabled = True

    End Function
    '響應(yīng)添加的事件
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '狀態(tài)加1
        n = n + 1
        '如果n=1，則表示現(xiàn)在是輸入狀態(tài)
        If n = 1 Then
            '打開Textbox接受用戶數(shù)據(jù)
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            '清空Textbox中間的內(nèi)容
            TextBox1.Text = ""
            TextBox2.Text = ""
            '設(shè)置按鍵
            dobutton(1, 0, 0, 1)
        End If
        '如果n=2，則表示現(xiàn)在是更新數(shù)據(jù)庫的操作
        If n = 2 And TextBox1.Text <> "" And TextBox2.Text <> "" Then     '對(duì)輸入的數(shù)據(jù)進(jìn)行判斷和校驗(yàn)
            '生成SQL語句
            nsql = "INSERT INTO income VALUES(" + Chr(39) + CStr(TextBox2.Text) + Chr(39) + "," + Chr(39) + CStr(TextBox1.Text) + Chr(39) + ")"
            '打開數(shù)據(jù)庫
            OleDbConnection1.Open()
            '指定SQL語句對(duì)應(yīng)的連接
            ncommand.Connection = OleDbConnection1
            '指定SQL語句
            ncommand.CommandText() = nsql
            '執(zhí)行SQL語句，更新數(shù)據(jù)庫
            ncommand.ExecuteNonQuery()
            '更新Income1 DataSet數(shù)據(jù)集
            Income1.Clear()
            income.Fill(Income1)
            '關(guān)閉數(shù)據(jù)庫連接
            OleDbConnection1.Close()
            '設(shè)置兩個(gè)Textbox不可用
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            '設(shè)置按鈕
            dobutton(1, 1, 1, 0)
        End If
        '如果n=2表示狀態(tài)標(biāo)志結(jié)束，置0
        If n = 2 Then n = 0
    End Sub
    '響應(yīng)取消的事件
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        '設(shè)置按鈕，恢復(fù)原來設(shè)定
        dobutton(1, 1, 1, 0)
        '置狀態(tài)為0
        n = 0
        '使得Textbox無效
        TextBox1.Enabled = False
        TextBox2.Enabled = False

    End Sub
    '響應(yīng)刪除的事件
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '生成SQL語句
        nsql = "DELETE FROM income WHERE 匹配碼=" + Chr(39) + CStr(TextBox1.Text) + Chr(39) + " and 項(xiàng)目名稱=" + Chr(39) + CStr(TextBox2.Text) + Chr(39)
        '打開數(shù)據(jù)庫
        OleDbConnection1.Open()
        '指定SQL語句對(duì)應(yīng)的連接
        ncommand.Connection = OleDbConnection1
        '指定SQL語句
        ncommand.CommandText() = nsql
        '執(zhí)行SQL語句，更新數(shù)據(jù)庫
        ncommand.ExecuteNonQuery()
        '更新Income1 DataSet數(shù)據(jù)集
        Income1.Clear()
        income.Fill(Income1)
        '關(guān)閉數(shù)據(jù)庫連接
        OleDbConnection1.Close()
    End Sub
    '響應(yīng)關(guān)閉的事件
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        '關(guān)閉對(duì)話框
        Me.Close()
    End Sub
    '響應(yīng)更新的事件
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '狀態(tài)加1
        n = n + 1
        '如果n=1，則表示現(xiàn)在是輸入狀態(tài)
        If n = 1 Then
            '備份原來數(shù)據(jù)庫中的數(shù)據(jù)
            bak1 = TextBox1.Text
            bak2 = TextBox2.Text
            '打開Textbox接受用戶數(shù)據(jù)
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            '設(shè)置按鈕
            dobutton(0, 0, 1, 1)
        End If
        '如果n=2，則表示現(xiàn)在是更新數(shù)據(jù)庫的操作
        If n = 2 And TextBox1.Text <> "" And TextBox2.Text <> "" Then  '對(duì)輸入的數(shù)據(jù)進(jìn)行判斷和校驗(yàn)
            '生成SQL語句
            nsql = "UPDATE income SET 匹配碼=" + Chr(39) + CStr(TextBox1.Text) + Chr(39) + " , 項(xiàng)目名稱=" + Chr(39) + CStr(TextBox2.Text) + Chr(39) + " WHERE 匹配碼=" + Chr(39) + bak1 + Chr(39) + " and 項(xiàng)目名稱=" + Chr(39) + bak2 + Chr(39)
            '打開數(shù)據(jù)庫
            OleDbConnection1.Open()
            '指定SQL語句對(duì)應(yīng)的連接
            ncommand.Connection = OleDbConnection1
            '指定SQL語句
            ncommand.CommandText() = nsql
            '執(zhí)行SQL語句，更新數(shù)據(jù)庫
            ncommand.ExecuteNonQuery()
            '更新Income1 DataSet數(shù)據(jù)集
            Income1.Clear()
            income.Fill(Income1)
            '關(guān)閉數(shù)據(jù)庫連接
            OleDbConnection1.Close()
            '設(shè)置兩個(gè)Textbox不可用，設(shè)置按鈕
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            dobutton(1, 1, 1, 0)
        End If
        '如果n=2表示狀態(tài)標(biāo)志結(jié)束，置0
        If n = 2 Then n = 0


    End Sub
End Class