9.1数据库的概念与建立数据库的结构形式（即数据之间的联系）称为数据模型。目前最为流行的是关系模型。关系模型采用二维表格形式存储数据。班级9.1.2数据库和表的建立建立步骤：（1）启动数据管理器：【外接程序】|【可视化数据管理器】（2）建立数据库：（3）建立数据表结构：在数据库窗口中按鼠标右键，在弹出的快捷菜单中选择“新建表”后，打开图所示的“表结构”对话框。字段名（4）编辑数据表中的数据。在数据表名处单击鼠标右键，在弹出的快捷菜单中选择“打开”项，打开下图所示的记录操作对话框。9.2用Data控件访问数据库Data数据控件是VB的标准控件，利用它能方便地创建应用程序与数据库之间的连接，并实现对数据资源的访问；为了在程序运行时，使Data数据控件能够访问指定表中的记录信息，应设置该控件的DatabaseName属性和RecordSource属性；要在各文本框中显示Data控件所连接的数据表中的数据，必须将文本框与Data数据控件进行绑定。程序代码:程序说明：【例9.3】在例9.2所建立的窗体基础上增加4个命令按钮。程序代码:PrivateSubcmdAdd_Click()cmdEdit.Enabled=NotcmdEdit.EnabledcmdDelete.Enabled=NotcmdDelete.EnabledFori=0To5txtStu(i).Locked=NottxtStu(i).LockedNextIIfcmdAdd.Caption="添加"ThenData1.Recordset.AddNewData1.Caption="新记录”cmdAdd.Caption="保存”cmdExit.Caption="取消”txtStu(0).SetFocusElseData1.Recordset.UpdateData1.Recordset.MoveLastcmdAdd.Caption="添加”EndIfEndSubPrivateSubcmdEdit_Click()cmdAdd.Enabled=NotcmdAdd.EnabledcmdDelete.Enabled=NotcmdDelete.EnabledFori=0To5txtStu(i).Locked=NottxtStu(i).LockedNextIIfcmdEdit.Caption="修改"ThenData1.Recordset.EditcmdEdit.Caption=“保存”cmdExit.Caption=“取消”ElseData1.Recordset.UpdatecmdEdit.Caption=“修改”EndIfEndSubPrivateSubcmdDelete_Click()answer=MsgBox("确实删除该记录吗？",vbYesNo+vbQuestion,”警告”)Ifanswer=vbYesThenData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIfEndIfEndSubPrivateSubcmdExit_Click()IfcmdExit.Caption="退出"ThenEndElseData1.Recordset.CancelUpdatecmdAdd.Enabled=TruecmdEdit.Enabled=TruecmdDelete.Enabled=TrueFori=0To5txtStu(i).Locked=NottxtStu(i).LockedNexticmdExit.Caption="退出"cmdAdd.Caption="添加"cmdEdit.Caption="修改"Data1.RefreshEndIfEndSubPrivateSubData1_Reposition()Data1.Caption="第"&Data1.Recordset.AbsolutePosition+1&"条记录"EndSub说明：对于添加记录的操作，需单击两次cmdAdd按钮后才能完成。第一次单击该按钮时，执行语句Data1.Recordset.AddNew，其作用是将一条空记录添加到记录集的末尾。此时可在文本框中输入各字段值；第二次单击cmdAdd按钮时，执行语句Data1.Recordset.Update，其作用是先确认所做的添加操作后，再将新记录添加到数据库中；语句Data1.Recordset.MoveLast的作用是将记录指针移到最后一条记录上，因为新添加的记录是最后一条；修改记录中的语句