VB6.0数据库开发五个实例——罗列的总结

实例一: 系统登录对话框

设计分析：数据库管理系统登录对话框两种基本方法：数据库中建立数据表用于保存系统用户登录信息；支持安全验证的数据库管理系统，可将系统用户定义为数据库用户。

技术要领：1、Enter 、Cancel

2、ADO Connection对象

3、ADO RecordSet对象（相关属性：Active connection、Eof、Field;方法：open;Fields集合）

4、自己定义函数过程

操作过程：1、可视化数据管理器创建数据库；

2、设计窗口；

3、建立ADO对象引用，訪问数据库  ；

4、编写功能代码：取消登录功能；

5、编写username、口令验证过程；

6、确定button单击事件过程；

7、保存共程，測试执行。

实例二：ADO訪问数据源

设计分析：1、使用ADO更新数据源有两种方法。Recordset对象中Updata、Updatabatch方法。独占方式，以及其它用户同一时候訪问数据方式；Command对象运行SQL数据更新命令。

2、技术要领：RecordSet的记录锁类型、CursorLocation、浏览RecordSet中的记录、ODBC数据源类型

操作project：1、创建ODBC数据源

2、设计记录浏览窗口

3、建立ADO引用

4、编写功能代码：声明部分、Load部分（连接数据库、检索数据、显示记录AbsolutePosition RecordCount）、运行数据更新过程、“前一记录”“后一记录”button、Unload事件

连接——检索——操作

实例三:使用数据绑定訪问数据

概念:数据绑定

设计分析:  訪问数据库方式:1、使用ADO对象2、使用ADO DATA控件3、数据环境设计器

技术要领：ADOData控件基本结构、ADOData控件属性设置（通用、身份验证、记录源、颜色、字体）

数据绑定控件    内部控件（Image、ComboBox、CheckBox、ListBox、Textbox、PictureBoxLabel）

ActiveX控件（RichTextBox、Microsoft Chart、DataTimePicker、ImageCombo、Monthview、       DataList、DtaCombo、Datagrid、MicrosoftHerarchical FlexGrid）

相关属性 Datasource、DataMember（数据集）、DataField、DataFormat

Data Environment Designer 可加入多个不同的数据库连接

操作过程：设计应用程序窗口、编写功能代码、保存project

实例四：分页显示记录

特点：用记录集的分页特性进行记录分页

使用DataGrid控件的数据绑定功能显示分页后的数据记录

设计分析：使用记录集的PageSize属性用于设置或返回一个记录也中可包括的记录条数。

两种方法显示记录页数据：使用DataGrid控件，不能直接将分页的记录集绑定到DataGrid控件上，可将当前记录页的数据拷贝到一个新的记录集中，然后再将其绑定到DataGrid控件上；使用MSFlexGrid控件，执行时通过TextMatrix属性来显示数据。

实例五：数据查询

特点：使用ADO Command对象创建參数查询以查询数据库。

使用MSFlexGrid控件显示查询结果

设计分析：实现数据库查询有下面几种方法：1.使用查询參数构造SQL Select语句，然后使用ADO Command或ResordSet对象运行。2.使用ADO Command对象创建參数查询。3.先运行Select语句获取数据库数据，将其存放到RecordSet对象中，然后在运行RecordSet对象的Find方法查找符合条件的记录，或者设置RecordSet对象的Filter属性筛选符合条件的记录。

技术要领：MSFlexGrid控件中数据的加入和清除（AddItem、RemoveItem、Clear）；

使用Command对象创建參数查询，分为下面几步：

1.创建Command对象 objCommandText="SELECT * From 系统用户 Where username Like ?"

2.使用Command对象的CreatParameter方法创建參数对象，然后将其加入到Command对象的Parameters集合中，

Dim parm as parameter

Set parm=objcmd.CreatParameter（"username",advarchar,adparaminput,10）

objcmd.parameters.append parm

3.设置參数的值，objCmd("username")="admin"

4.运行Command的Execute方法完毕查询