vb程序设数据库.pptVIP

Visual Basic 6.0数据库技术 计算机公共课教研室 · 2010年 第十五章 数据库 二、数据库分类（按数据结构模型划分） 层次数据库、网状数据库、关系数据库（最流行、成熟）、面向对象数据库 第二步：建立数据库 建立数据库结构 在打开的VisData管理器中?文件菜单?新建?Microsoft Access?Version 7.0 MDB，输入新建数据表的位置及数据库文件名（D:\15-1\Student.mdb） 建立索引（加快检索速度，也可不设） 第三步：用户界面创建数据控件Data1，利用数据控件绑定数据库 数据控件常用属性 Recordset对象常用方法 对象名.Recordset.MoveFist——移到第1条记录为当前记录 对象名.Recordset.MoveLast——移到最后1条记录为当前记录 对象名.Recordset.MovePrevious——移到上1条记录为当前记录 对象名.Recordset.MoveNext——移到下1条记录为当前记录 15-1实例代码 下一条按钮代码（Command1） 15-1实例代码 上一条按钮代码（Command2) Recordset对象常用方法 对象名.Recordset.AddNew——在表的最后一个记录后添加新记录，但输入完新记录后，要使用Update方法才能将新数据更新保存到数据库中，否则不会发生改变。 对象名.Recordset.Update——将编辑后的数据写入数据库中，保存对数据库所作的改动。 对象名.Recordset.Delete——删除当前记录，但仍显示 对象名.Recordset.Edit——允许对当前记录进行修改。 15-1实例代码 添加按钮代码（Command3) 15-1实例代码 删除按钮代码（Command4) 15-1实例代码 修改按钮代码（Command5) Recordset对象常用方法 对象名.RecordSet.FindFist——查询符合条件的首记录 如：查找学号首记录Data1.RecordSet.FindFirst StuId 如：查找姓张的首记录Data1.RecordSet.FindFirst StuName Like 张* 对象名.RecordSet.FindLast/FindPrevious/FindNext——查询符合条件的最后1条/上1条/下1条记录 Recordset对象常用属性 NoMatch属性——判断使用Find或Seek方法做查询操作时是否找到符合条件的记录，为True表示没找到，反之则表示有相应记录被找到。 15-1实例代码 查找按钮代码（Command6) 课外作业 a）设计一个老乡资料信息管理数据库，并实现相应的管理（增加、删除、修改、查找）。 b）设计一个个人支出信息管理数据库，并实现相应的管理（增加、删除、修改、查找）。 ＶＢ综合课外作业 自由设计一个类似ＱＱ的注册和登录界面应用程序。由三个多窗体构成： 1、首窗体Form1功能：选择注册、登录选项； 2、注册界面Form2功能：，输入新用户信息（至少包括用户名、密码），并将新用户信息保存至Users.mdb数据库文件中；然后返回首界面Form1选择登录，显示用户信息界面管理Form4。 3、登录界面Form3功能：要求输入用户名、密码，检验密码的正确性（通过Users.mdb数据库文件验证密码正不正确），仅三次输入机会，三次均输入错误直接退出该程序。 ４、用户信息管理界面Form4功能：可进行除本用户信息外其它用户的添加、删除、修改、查找操作。 Private Sub Command6_Click() ‘按学号查询 Dim XH As String XH = InputBox(“请输入要查找的学号) If XH Then Data1.Recordset.FindFirst StuId= XH If Data1.Recordset.NoMatch Then MsgBox “找不到学号为” XH “的学生！ End If Else MsgBox “学号输入不可为空！ End If End Sub 计算机公共课教研室 · 2010年·邓秀华修改 Visual Basic 6.0 * Visual Basic 6.0 * 数据库的基本概念 1 数据控件及数据绑定控件 3 数据库管理器 2 Recordset对象属性与方法 4 1. 数据库的基本概念 一、数据库的概念 数据库是以一定方式的组织方式将相