VB數(shù)據(jù)庫基本操作

程序分為一個表單cfanvb.frm，一個模塊cfanvb.bas。一個表單程序。程序的表單中有五個命令按鈕，從上到下分別命名為Cmdnew、 Cmdsave，Cmdtxt、cmdlookfor、Cmdexit，標(biāo)題分別為&New、&Save、&Txt、& Lookfor、&Exit；還有三個文本框，名稱分別為Textname、Textage、Textsex；還有三個標(biāo)簽。
    程序的功能
    功能1：能存儲你所輸入的每一條完整記錄，并創(chuàng)造數(shù)據(jù)庫文件nas.db。
    功能2：能按輸入的姓名字段查找記錄并顯示。
    功能3：將所有記錄按NAME字段排序制成文本文件nas.txt，以便打印、修改。
    程序運(yùn)行情況
    先后輸入八條記錄，name字段分別為李繼華、朱茵、小鞏、朱朱、李麗麗、黃慶、Tom、Kate，并一一存儲（按Save按鈕，存儲第一條記錄前，Txt 按鈕為灰色，即不可激活態(tài)）；點(diǎn)擊【Txt】按鈕，會出現(xiàn)【文本已經(jīng)建好】提示框（文本的各項(xiàng)是按姓名順序排列的，name分別為Kate、Tom、小鞏、朱朱、朱茵、李麗麗、李繼華、黃慶）；在Textname文本框中輸入上面任一姓名，點(diǎn)擊【Lookfor】按鈕即可得到其他的字段（年齡、性別）情況，如果不為此八人，則顯示【not find】提示框。此程序運(yùn)行后可以建立一個名為Nas.db的數(shù)據(jù)庫文件和一個名為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 ’定義枚舉索引數(shù)組
    Public totalnum As Integer ’定義總記錄數(shù)
    cfanvb.frm表單的代碼為：
    Option Explicit ’強(qiáng)制變量必須進(jìn)行正規(guī)聲明
    Const nasdb＝"\nas.db" ’定義常量數(shù)據(jù)庫文件名
    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