|
 创建Assess格式数据库
使用可视化数据管理器可以创建Microsoft Access、Dbase、Foxpro、Paradox、ODBC等多种数据库。这里将创建一个名称为TelBook的通讯录数据库，其中只包含
一个名为TelTable表，其结构如上节。
1、创建数据表
打开执行[外接程序]菜单下的[可视化数据管理器]的[文件]，如图所示
进入Assess系统后在E盘建立Telbook.mdb
2、创建表
在数据库窗口中单击鼠标右键，在弹出的快捷中[新建表]，打开创建表的[表结构]对话框
这里创建5个字段，分别是姓名、电话、手机、传呼和地址，类型均设为Text，且长度可变，除姓名字段为“必要"的外，其余均为”允许零长度“
3、添加索引
数据库中表的索引不是必须的，但是它能大大加快查询速度。索引字段一般要选择字段是唯一的字段，而且该字段不能为空。这里将“姓名”作为表TelTable的索引
4、输入表记录
在完成数据表TelTable的创建后可以向表中输入记录，这里采用Data控件，具体步骤如下：
单击数据管理器工具[表类型记录集]按钮和Data控件按钮，这表明以Data控件模式向表中添加记录。
在数据库表上单击右键，执行弹出的快捷菜单中的[打开]命令，则打开添加记录的对话框，如图所示。
使用数据窗体设计器
可视化数据库管理器自带有数据设计器，使用它可以在最短的时间内设计出符合要求的数据库管理应用程序这里将介绍利用数据窗体设计器为新建的TelBook数据库设计用户窗体。
执行[实用程序]菜单中的[数据窗体设计器]命令，打开[数据窗体设计器]对话框，在[窗体名称]输入要建立的窗体名称，在[记录源]下拉选TelTable，可见下图
单击 按钮，将所有的字段传到[包括的字段]列表中，该列表中的字段将出现在窗体上。单击[生成窗体]按钮，就在当前工程中添加一个新的数据库窗体，该窗体采用Data控件作为数据源。
可见，使用数据窗体设计器可以和内容眼建立一个数据库应用程序。将该数据库窗体设置成启动窗体，运行程序后可以通过文本框浏览数据库中的记录，也可以进行添加、删除、刷新以及更新记录等操作。
下列是该数据库窗体自动生存的代码：
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误，在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象，当记录集创建后并使用下面的行时，
'必须设置 Index 属性
'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount *
(Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时，调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
|
