VB数据库基本操作

程序分为一个表单cfanvb.frm，一个模块cfanvb.bas。一个表单程序。程序的表单中有五个命令按钮，从上到下分别命名为Cmdnew、 Cmdsave，Cmdtxt、cmdlookfor、Cmdexit，标题分别为&New、&Save、&Txt、& Lookfor、&Exit；还有三个文本框，名称分别为Textname、Textage、Textsex；还有三个标签。
程序的功能
功能1：能存储你所输入的每一条完整记录，并创造数据库文件nas.db。
功能2：能按输入的姓名字段查找记录并显示。
功能3：将所有记录按NAME字段排序制成文本文件nas.txt，以便打印、修改。
程序运行情况
先后输入八条记录，name字段分别为李继华、朱茵、小巩、朱朱、李丽丽、黄庆、Tom、Kate，并一一存储（按Save按钮，存储第一条记录前，Txt 按钮为灰色，即不可激活态）；点击【Txt】按钮，会出现【文本已经建好】提示框（文本的各项是按姓名顺序排列的，name分别为Kate、Tom、小巩、朱朱、朱茵、李丽丽、李继华、黄庆）；在Textname文本框中输入上面任一姓名，点击【Lookfor】按钮即可得到其他的字段（年龄、性别）情况，如果不为此八人，则显示【not find】提示框。此程序运行后可以建立一个名为Nas.db的数据库文件和一个名为Nas.txt的文本文件。
Cfanvb.bas模块代码为：
Type nas ’定义记录类型
name As String * 6 ’姓名
age As String * 3 ’年龄
sex As String * 4 ’性别
End Type
Type nasindex ’定义另一记录类型
name As String * 6 ’姓名
number As Integer ’记录号
End Tyep
Public among As nas ’定义公共变量
public index() As nasindex ’定义枚举索引数组
Public totalnum As Integer ’定义总记录数
cfanvb.frm表单的代码为：
Option Explicit ’强制变量必须进行正规声明
Const nasdb＝"\nas.db" ’定义常量数据库文件名
Const nastxt="\nas.txt" ’定义文本文件名
Function search(findtxt) As Integer ’Function过程，寻找某一姓名findtxt，得出记录号search
Dim front As Integer ’定义变量
Dim behind As Integer
Dim findnum As Integer
Dim middle As Integer