首先在工程中添加對MicrosoftDAO3.51Library引用。

　　在窗體中添加三個命令按鈕和兩個MSFlexGrid.

　　按照下表設置和控件的屬性：

　　控件屬性值

　　Command1Caption"建立文本文件并顯示在網格中"

　　Command2Caption"傳輸入數據并新建一個數據庫"

　　Command3Caption"顯示新數據庫中的數據"

　　Grid1Cols5

　　Grid1Rows35

　　Grid2Cols5

　　Grid2Rows35

　　將下面的代碼添加到窗體的聲明部分

　　Dimnums(30)AsLong

　　Dimnames(30)AsString*20

　　Dimaddresses(30)AsString*25

　　Dimss_nums(30)AsString*12

　　ConstDB_LONG=4

　　ConstDB_TEXT=10

　　ConstDB_LANG_GENERAL=";LANGID=0x0809;CP=1252;COUNTRY=0"

　　將下面的代碼添加到窗體的Load事件中

　　SubForm_Load()

　　Show

　　grid1.ColWidth(1)=1000'ForEmpID

　　grid1.ColWidth(2)=2000'ForEmpName

　　grid1.ColWidth(3)=3000'ForEmpAddr

　　grid1.ColWidth(4)=2000'ForEmpSSN

　　grid1.Col=1

　　grid1.Row=0

　　grid1.Text="EmpID"'HeaderforEmpIDfromtextfile

　　grid1.Col=2

　　grid1.Row=0

　　grid1.Text="EmpName"'HeaderforEmpNamefromtextfile

　　grid1.Col=3

　　grid1.Row=0

　　grid1.Text="EmpAddr"'HeaderforEmpAddrfromtextfile

　　grid1.Col=4

　　grid1.Row=0

　　grid1.Text="EmpSSN"'HeaderforEmpSSNfromtextfile

　　grid2.ColWidth(1)=1000'ForEmpID

　　grid2.ColWidth(2)=2000'ForEmpName

　　grid2.ColWidth(3)=3000'ForEmpAddr

　　grid2.ColWidth(4)=2000'ForEmpSSN

　　grid2.Col=1

　　grid2.Row=0

　　grid2.Text="EmployeeID"'HeaderforEmpIDfromDB

　　grid2.Col=2

　　grid2.Row=0

　　grid2.Text="EmployeeName"'HeaderforEmpNamefromDB

　　grid2.Col=3

　　grid2.Row=0

　　grid2.Text="EmployeeAddr"'HeaderforEmpIDfromDB

　　grid2.Col=4

　　grid2.Row=0

　　grid2.Text="EmployeeSSN"'HeaderforEmpNamefromDB

　　EndSub

　　SubCommand1_Click()

　　Fori=1To30

　　nums(i)=i

　　names(i)="JohnDoe#" Str$(i)

　　addresses(i)=Str$(i) "MockingBirdLane"

　　Ifi<9Then

　　'*Enterthefollowingfourlinesasone,singleline:

　　ss_nums(i)=Trim$(Str$(i) Trim$(Str$(i)) Trim$(Str$(i)) "-" Trim$(Str$(i 1)) Trim$(Str$(i 1)) "-" Trim$(Str$(i))

　　 Trim$(Str$(i)) Trim$(Str$(i)) Trim$(Str$(i)))

　　Else

　　'*Enterthefollowingtwolinesasone,singleline:

　　ss_nums(i)=Trim$(Trim$(Str$(999)) "-" Trim$(Str$(88)) "-" Trim$(Str$(7777)))

　　EndIf

　　Nexti

　　Open"Testdata.DAT"ForOutputAs#1

　　Forj=1To30

　　counter=counter 1

　　t.MoveNext

　　Loop

　　t.Close

　　db.Close

　　EndSub