VB教学课件第8章.pptVIP

第8章 数据库与数据控件 8.1 数据库与表的建立 8.2 用数据控件访问数据库 8.1 数据库与表的建立 8.1.1 数据库的概念 8.1.2 数据库与表的建立 8.1.1 数据库的概念 数据的仓库 采用一定的组织形式存放数据 多张相互关联的表构成一个数据库 8.1.2 数据库与表的建立 【实例8.1】创建一个数据库，其中包含一个存放图书信息的数据表。数据表中记录了图书编号、图书名和馆藏数量等信息。 操作步骤 （1）创建数据库 操作步骤 （1）创建数据库 操作步骤 （1）创建数据库 操作步骤 （2）创建数据表 8.2 用数据控件访问数据库 【实例8.2】在VB中利用Data控件访问数据库，实现进库、注销图书、借书、还书、查询等功能。 第一个窗体 操作步骤 Private Sub cmdAdd_Click() datBook.Recordset.AddNew cmdOk.Enabled = True End Sub Private Sub cmdOk_Click() datBook.Recordset.Update cmdOk.Enabled = False End Sub Private Sub cmdDel_Click() datBook.Recordset.Delete datBook.Refresh End Sub Private Sub cmdBorrow_Click() End Sub Private Sub cmdBorrow_Click() End Sub Private Sub cmdBorrow_Click() End Sub Private Sub cmdBorrow_Click() End Sub Private Sub cmdBorrow_Click() End Sub Private Sub cmdReturn_Click() bb = InputBox(请输入还书编号) datBook.Recordset.FindFirst bookID= bb If datBook.Recordset.NoMatch = False Then datBook.Recordset.Edit datBook.Recordset.Fields(Number) = datBook.Recordset.Fields(Number)+1 datBook.Recordset.Update Else aa = MsgBox(查无此书，请重新输入, vbOKCancel + vbCritical) If aa = vbOK Then cmdReturn_Click Else Exit Sub End If End If End Sub Private Sub cmdExit_Click() End End Sub Private Sub cmdOk_Click() frmEx8_2_1.datBook.Recordset.FindFirst booKName= txtFind.Text If frmEx8_2_1.datBook. Recordset.NoMatch = False Then frmEx8_2_1.Show frmEx8_2_2.Hide Else MsgBox 没有找到该书 End If End Sub Private Sub cmdBack_Click() frmEx8_2_1.Show frmEx8_2_2.Hide End Sub 【实例8.3】利用ADO控件访问数据库。改写实例8.2，在此只是将原来的Data控件换成ADO控件，其他界面完全相同。 Private Sub cmdBorrow_Click() bb = InputBox(请输入借书编号) adoBook.Recordset.MoveFi