【VB.NET小品】Access与VB.NET结合示例 第三课

时　间:2013-06-26 14:33:37
作　者:煮江品茶   ID：10802  城市：武汉
摘　要:【VB.NET小品】Access与VB.NET结合示例 第三课 
正　文:

第三课示例文件：示例

上一课

-----------------------------------------------------------------------------

　　第九节：
　　２７、在Form1.vb窗口中，选中btn新增控件，然后选中Click事件，系统自动产生该事件。
　　２８、在该事件中写如下代码：
        '清空
        If String.IsNullOrEmpty(txt药品ID.Text) = False Then
            txt药品ID.Text = ""
            txt药品名称.Text = ""
            txt药品名称简拼.Text = ""
            txt规格.Text = ""
            txt处方单位.Text = ""
            txt单价.Text = "0"
            txt有效.Text = "True"
            Exit Sub
        End If
        '新增
        Using ad As 药品收费项目TableAdapter = New 药品收费项目TableAdapter()
            Dim n As Integer = ad.Insert(txt药品类别.Text, _
                                         txt药品名称.Text, _
                                         txt药品名称简拼.Text, _
                                         txt规格.Text, _
                                         txt处方单位.Text, _
                                         CInt(txt单价.Text), _
                                         CBool(txt有效.Text))

            If n > 0 Then
                Me.药品收费项目TableAdapter.FillBy药品类别(Me.药品DataSet.药品收费项目,

ComboBox1.Text)
                '跳转到最后一条记录
                DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.RowCount -

2).Cells(0)
                txt药品ID.Text = CStr(DataGridView1.CurrentCell.Value)
            Else
                MsgBox("新增失败！")
            End If
        End Using

　　２９、生成并运行程序，查看效果。

第九节示例图片：09.gif

　　第十节：
　　３０、在Form1.vb窗口中，选中btn修改控件，然后选中Click事件，系统自动产生该事件。
　　３１、在该事件中写如下代码：
       
        If String.IsNullOrEmpty(txt药品ID.Text) Then Exit Sub
        '更新
        Dim rowindex As Integer = DataGridView1.CurrentRow.Index
        Using ad As New 药品收费项目TableAdapter()
            Dim n As Integer = ad.UpdateBy药品ID(txt药品类别.Text, _
                                         txt药品名称.Text, _
                                         txt药品名称简拼.Text, _
                                         txt规格.Text, _
                                         txt处方单位.Text, _
                                         CInt(txt单价.Text), _
                                         CBool(txt有效.Text), CInt(txt药品ID.Text))
            If n > 0 Then
                Me.药品收费项目TableAdapter.FillBy药品类别(Me.药品DataSet.药品收费项目,

ComboBox1.Text)
                '跳转到修改记录
                DataGridView1.CurrentCell = DataGridView1.Rows(rowindex).Cells(0)
            Else
                MsgBox("修改失败！")
            End If
        End Using

　　３２、生成并运行程序，查看效果。

第十节示例图片：10.gif

　　第十一节：
　　３３、在Form1.vb窗口中，选中btn删除控件，然后选中Click事件，系统自动产生该事件。
　　３４、在该事件中写如下代码：
       
        If String.IsNullOrEmpty(txt药品ID.Text) Then Exit Sub
        '删除
        Using ad As New 药品收费项目TableAdapter()
            Dim n As Integer = ad.DeleteBy药品ID(CInt(txt药品ID.Text))
            If n > 0 Then
                Me.药品收费项目TableAdapter.FillBy药品类别(Me.药品DataSet.药品收费项目,

ComboBox1.Text)
                txt药品ID.Text = ""
                txt药品名称.Text = ""
                txt药品名称简拼.Text = ""
                txt规格.Text = ""
                txt处方单位.Text = ""
                txt单价.Text = "0"
                txt有效.Text = "True"
            Else
                MsgBox("删除失败！")
            End If
        End Using

　　３５、生成并运行程序，查看效果。