亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

走進VB6啃一塊骨頭

2019-11-18 17:47:26
字體：大 中 小
來源：轉載
供稿：網友
我們在玩《仙劍奇俠傳》時，要是不能保存數據，那么非得挑燈夜戰三晝夜才能玩完，可見數據存儲之重
要性。愛好編程的CFAN是不會放過數據文件的，下面跟著我馳騁吧！我們先吃一個哈密瓜，開門即來編一傳統的比較有代表性的程序，不可不看的喲！
程序分為一個表單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】按鈕即可得到其他的字段（年齡、性別）情況，如果不為此八人，則顯示【notfind】提示框。此程序運行后可以建立一個名為Nas.db的數據庫文件和一個名為Nas.txt的文本文件。

Cfanvb.bas模塊代碼為：
Typenas'定義記錄類型
nameAsString*6'姓名
ageAsString*3'年齡
sexAsString*4'性別
EndType
Typenasindex'定義另一記錄類型
nameAsString*6'姓名
numberAsInteger'記錄號
EndTyep
PublicamongAsnas'定義公共變量
publicindex()Asnasindex'定義枚舉索引數組
PublictotalnumAsInteger'定義總記錄數

cfanvb.frm表單的代碼為：
OptionExplicit'強制變量必須進行正規聲明
Constnasdb＝"/nas.db"'定義常量數據庫文件名
Constnastxt="/nas.txt"'定義文本文件名
Functionsearch(findtxt)AsInteger'Function過程，尋找某一姓名findtxt，得出記錄號search
DimfrontAsInteger'定義變量
DimbehindAsInteger
DimfindnumAsInteger
DimmiddleAsInteger
front=1
behind=totalnum'定義初始值
findnum=0
DoWhilefront<=behindAndfindnum=0
middle=(front behind)/2'用二分法查找
Iffindtxt=Rtrim(index(middle).name)Then'找到此記錄
findnum=middle
ElseIffindtxt>index(middle).nameThen
front=middle 1'要找的記錄在middle之后
Else
behind=middle-1'要找的記錄在middle之前
EndIf
Loop
search=findnum'如找到，則找到的記錄號為search；否則，search為0
EndFunction
Subcreateindex()'為所有記錄建立索引
DimIAsInteger,changeAsnasindex,jAsInteger
ForI=ITototalnum
Get#1,I,among'讀出第I條記錄
index(I).name=among.name'此記錄的name字段賦予索引I的name字段
index(I).number=I'記錄號賦予索引I的number字段
NextI
ForI=ltototalnum-1
Forj=I 1Tototalnum
Ifindex(I).name>index(j).nameThen
change=index(I)
index(I)=index(j)
index(j)=change
EndIf
Nextj
NextI'對索引數組排序，使index(I).nameFndSub
EndSub
PrivateSubCmdsave_Click()
totalnum=totalnum 1'記錄數加1
Iftotalnum>0ThenCmdtxt.Enabled=True'使Cmdtxt按鈕由灰色變成可激活
Withamong'將各文本框內容存于記錄
.name=textname.text
.age=Textage.Text
.sex=Textsex.Text
EndWith
Put#1,totalnum,among'將記錄加入#1
ReDimindex(totalnum)'重新定義枚舉數組
createindex'調用過程重新建立索引
textname=""'清空文本框，激活textname
Textage=""
Textsex=""
textname.SetFocus
EndSub
PtivateSubCmdtxt_Click()'建立文本文件
DimI
Dimmessage1AsString,message2AsString
OpennastxtForOutputAs#2'打開文本，接受輸出
ForI=1Tototalnum
Get#1,index(I).number,among'讀記錄
Withamong
Print#2,"";Ucase(Trim.(.name))
Print#2,"age:";.age'用Print語句建立文本
Print#2,"sex:";.sex
EndWith
NextI
Close#2'關閉文本文件
textname.SetFocus
message1="文本nas.txt已經建好"
message2="file"
MsgBox$message1,64,message2'顯示文本已建好對話框
EndSub
PrivateSubForm_Load()'程序運行裝人表單時的事件
OpennasdbForRandomAs#1'打開數據庫
Len=Len(among)
totalnun=LOF(1)/Len(among)'計算記錄數
Iftotalnum>0Then
ReDimindex(totalnum)'定義枚舉索引數組
createindex'建立索引
Else
Cmdtxt.Enabled=False'禁止Cmdtxt按鈕
EndIf
EndSub
我們通過以上程序，可以得出哪些啟示呢？
1．文件可分為文本文件（一般為順序存取格式，本程序為cfanvb.txt）和隨機存取文件（本程序為cfan
vb.db）。
2．隨機存取文件由一些固定長度的記錄組成，建立好索引后，能在不讀入其他記錄的情況下，直接跳到某一記錄。
3．在文本文件中使用的語句：
（1）OpenfilenameForoutput(append)As#numberoutput：創建一個新文件并準備寫入數據；
append：打開一個已存在的文件并準備寫入數據于文件的結尾。
（2）Print#number,[data1;data2;data3...]
它可將一個或多個沒有分隔的字符串輸出到指定文件#filenumber,“print#filename，”表示輸出一空行。
（3）Write#number,data1,data2,data3...
它可將一行數據寫入一個已經打開的文件，并提供“，”作間隔。
（4）OpenfilenameForInputAs#number
它為讀數據而打開一個文件。
4．隨機存取文件常用語句：
（1）OpenfilenameForRandomAs#numberLen=recordlength
以隨機方式打開一既可以讀又可以寫的文件，其中recordlength為文件記錄的字節數。
（2）Put#number,recordnumber,record（寫入）
Get#number,recordnumber,record（讀出）
其中，#number文件已經打開，"recordnumber指明要寫入（或讀出）的位置，record指那條記錄。
本文介紹了處理數據的一些傳統方法和基本知識，根據本程序的思路，你可制作出自己喜歡的小程序。其實VB6還有更簡單的處理數據的方法，留待以后介紹。希望我燒的骨頭湯能適合大家口味。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产成人精品999| 欧美激情精品久久久久| 91在线视频九色| 欧美成人性色生活仑片| 欧美激情性做爰免费视频| 国产一区二区三区在线观看网站| 国产精品免费视频久久久| 成人网在线免费观看| 久久人人爽人人爽人人片av高清| 91久久国产综合久久91精品网站| 亚洲最大福利视频网站| 成人久久久久久久| 97人人爽人人喊人人模波多| 欧美日韩在线免费观看| 久久精品一区中文字幕| 亚洲图中文字幕| 亚洲天堂2020| 欧美另类99xxxxx| 3344国产精品免费看| 国产99久久久欧美黑人| 成人淫片在线看| 亚洲资源在线看| 亚洲成人999| 欧美日韩国产999| 91福利视频在线观看| 亚洲大尺度美女在线| 亚洲欧洲午夜一线一品| 日韩成人激情在线| 久久精品99久久久香蕉| 国产一区二区三区精品久久久| 久久69精品久久久久久国产越南| 91综合免费在线| 久久久久久噜噜噜久久久精品| 国产欧美日韩高清| 91久久精品视频| 亚洲大胆人体在线| 久久全球大尺度高清视频| 欧美一区二区三区精品电影| 96精品久久久久中文字幕| 欧美高清视频在线| 在线观看精品自拍私拍| 日韩在线视频网| 国产亚洲欧洲高清| 成人黄色影片在线| 精品国产鲁一鲁一区二区张丽| 欧美日韩不卡合集视频| 亚洲天堂色网站| 北条麻妃一区二区在线观看| 欧美丝袜美女中出在线| 国产91在线播放| 日韩欧美在线国产| 成人激情视频免费在线| 亚洲最新中文字幕| 亚洲黄色免费三级| 亚洲精品91美女久久久久久久| 久久成人18免费网站| 久久久久久久国产精品视频| 国产精品久久久久久久久久| 久久精品电影一区二区| 尤物99国产成人精品视频| 久久久久亚洲精品成人网小说| 97在线视频免费看| 国产成人在线亚洲欧美| 欧美在线观看视频| 日韩在线视频免费观看高清中文| 97人人模人人爽人人喊中文字| 亚洲精品91美女久久久久久久| 亚洲精品久久久久久久久久久| 国产97在线观看| 青青草国产精品一区二区| 国产欧美精品一区二区三区介绍| 国产在线观看不卡| 欧美性高跟鞋xxxxhd| 中文字幕亚洲欧美日韩高清| 欧美黄色www| 久久男人av资源网站| 日韩精品一区二区视频| 久久影视三级福利片| 中文在线资源观看视频网站免费不卡| 欧美日韩亚洲国产一区| 菠萝蜜影院一区二区免费| 色琪琪综合男人的天堂aⅴ视频| 国产亚洲精品久久久| 96精品久久久久中文字幕| 欧美国产在线电影| 国产一区二区激情| 九九热精品视频国产| 日韩美女写真福利在线观看| 久青草国产97香蕉在线视频| 国产精品日韩欧美大师| 欧美成人午夜免费视在线看片| 国产精品欧美亚洲777777| 92看片淫黄大片欧美看国产片| 久久成人一区二区| 亚洲国产一区二区三区在线观看| 色妞色视频一区二区三区四区| 欧美超级免费视 在线| www.欧美精品一二三区| 日韩毛片在线观看| 国产一区二区三区三区在线观看| 久久精品这里热有精品| 欧美激情中文网| 国产精品麻豆va在线播放| 国产精品www色诱视频| 91午夜理伦私人影院| 欧美在线视频在线播放完整版免费观看| 亚洲福利视频在线| 亚洲自拍小视频免费观看| 亚洲欧美一区二区激情| 欧美在线免费观看| 欧美日韩免费在线观看| 久久频这里精品99香蕉| 国产精品久久久久久久久久久久久| 亚洲а∨天堂久久精品9966| 国产成人+综合亚洲+天堂| 欧美激情精品久久久久久黑人| 欧美日韩精品国产| 精品久久中文字幕久久av| 国外成人性视频| 精品丝袜一区二区三区| 91精品久久久久久久| 2021久久精品国产99国产精品| 欧美在线亚洲在线| 欧美成人中文字幕| 国产精品亚洲аv天堂网| 欧美激情视频播放| 最近2019中文免费高清视频观看www99| 成人久久一区二区| 亚洲91精品在线| 日韩最新中文字幕电影免费看| 亚洲图中文字幕| 亚洲男人天堂2019| 97香蕉超级碰碰久久免费的优势| 日韩视频一区在线| 欧美成人免费一级人片100| 日韩av电影免费观看高清| 成人福利网站在线观看| 姬川优奈aav一区二区| 亚洲日本中文字幕免费在线不卡| 成人激情视频网| 国产精品久久久久久久久男| 精品五月天久久| 欧美日韩综合视频| 久久久久久久久久久免费精品| 久久久在线观看| 欧美成人一区在线| 亚洲欧美国产精品专区久久| 国产精品美乳在线观看| 国产日韩欧美中文在线播放| 国产精品久久综合av爱欲tv| 亚洲三级免费看| 欧美性xxxx极品hd欧美风情| 久久久视频免费观看| 精品久久久一区二区| 亚洲一区999| 日韩欧美综合在线视频| 久久视频在线免费观看| 在线日韩第一页| 国产精品444| 欧美洲成人男女午夜视频| 亚洲欧美制服中文字幕| 欧美专区日韩视频| 国产精品麻豆va在线播放| 欧美尺度大的性做爰视频|