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

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

用VisualBasic開發數據庫瀏覽器

2019-11-18 17:47:32
字體：大 中 小
來源：轉載
供稿：網友
Microsoftaccess是VisualBasic最常用的數據庫，但VisualBasic沒有提供類似FoxPRoforWindows的BROWS命令的函數來瀏覽Access數據庫。本程序提供了一種類似BROWS命令界面瀏覽Access數據庫的方法，感興趣的讀者可以把這個程序改寫為帶參數（數據庫名、表名、字段名、字段寬度等）的子程序，實現類似Foxproforwindows的BROWS命令的功能，在自己的應用程序中調用。
首先，在窗口中定義一個網格（gridl）、一個列表框（list1）、一個普通對話框（dlg）、一個數據察覺項（datal）、兩個命令按鈕（command1和command2），排好位置。
程序執行時，按“打開”按鈕打開一個對話框，選定數據庫文件后程序在列表框中顯示數據庫包含的表名，單擊列表框中的表名即可瀏覽該表。本程序可自動根據字段長度和16cunt=datal.Database.TableDefs.Count
17listl.Clear
18ForI=0Tocunt-1'將表名加入到列表框
19IfLeft(datal.Database.TableDefs(I).Name,4)<>"Msys"Then
20listl.Additemdatal.Database.TableDefs(I).Name
21EndIf
22NextI
23label1.Visible=True
24list1.Visible=True
25list1.ListIndex=0
26canc:
27EndSub
28SubCommand2_Click()'鼠標器點“退出”鍵
29End
30EndSub
31SubForm_Load()
32browser.Caption="Access瀏覽器"
33grid1.Height=3200
34grid1.Visibli=False
35list1.Visible=False
36label1.Visible=False
37EndSub
38SubListl_Click()'鼠標器點列表框
39DimctAsInteger
40data1.RecordSource=listl.Text
41ct=data1.Database.TableDefs(list1.ListIndex).Fields.Count
42grid1.Cols=ct
43grid1.Row=0
44ForI=0Toct-1'將表中各字段名加到網格第一行
45grid1.Col=I
46grid1.Text=data1.Database(data1.RecordSource),Fields(I).Name
47Nexti
48data1.Refresh
49data1.Recordset.MoveLast
50grid1.Rows=data1.Recordset.RecordCount 1
51data1.Recordset.MoveFirst
52grid1.Row=0
53WhileNotdata1.Recordset.EOF'將數據讀入網格各單元
54grid1.Row=grid1.Row 1
55Fori=0Toct-1
56grid1.Col=I
57IfNotIsNull(datal.Recordset(I).Value)Then
58grid1.Text=datal.Recordset(I).Value
59Else
60grid1.Text=""
61EndIf
62cellwidth=TextWidth(grid1.Text) 200
63Ifcellwidth>grid1.ColWidth(I)Then
64gridl.ColWidth(I)=cellwidth
65EndIf
66NextI
67data1.Recordset.MoveNext
68Wend
69grid1.Width=0
70Fori=0Toct-1'計算網格總寬度
71grid1.Width=gridl.Width gridl.ColWidth(I)
72NextI
73Ifgrid1.Width>scalewidthThen'如果網格總寬度大于窗口寬度
74grid1.Width=scalewidth
75EndIf
76grid1.Height=(gridl.Rows 2)*20*grid1.FontSize'計算網格長度
77Ifgrid1.Height>3200Then'如網格長度出界
78grid1.Height=3200
79EndIf
80browser.Width=grid1.Width 300'設置窗口寬度
81grid1.Visible=True
82EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
在线播放日韩欧美| 日韩性生活视频| 日韩av三级在线观看| 欧美激情一区二区久久久| 亚洲自拍中文字幕| 91av在线免费观看视频| 成人欧美一区二区三区黑人| 日韩av网站电影| 国产精品人人做人人爽| 日韩中文在线中文网在线观看| 日韩精品在线第一页| 久久国产精品影片| 8x拔播拔播x8国产精品| 亚洲免费视频观看| y97精品国产97久久久久久| 久久精品国产免费观看| 国产精品久久久久久婷婷天堂| 亚洲高清一区二| 亚洲精品成a人在线观看| 欧美精品国产精品日韩精品| 国产精品嫩草影院久久久| 中文字幕日韩精品在线观看| 日韩黄色高清视频| 亚洲欧洲在线视频| 久久夜色精品国产亚洲aⅴ| 国产在线精品自拍| 精品国产乱码久久久久酒店| 国产精品网站视频| 国产精品视频色| 亚州精品天堂中文字幕| 91精品视频专区| 久久精品视频在线观看| 国产在线拍揄自揄视频不卡99| 精品视频久久久| 96sao精品视频在线观看| 国产精品久久久久影院日本| 国产精品国产自产拍高清av水多| 亚洲va欧美va国产综合久久| 久久久精品免费视频| 亚洲精品久久久久久久久| 欧美视频13p| 久久久999成人| 成人国内精品久久久久一区| 欧美尺度大的性做爰视频| 日韩精品免费在线| 欧美日韩国产精品一区二区三区四区| 一本大道香蕉久在线播放29| 久久人人爽人人爽爽久久| 欧美成人午夜免费视在线看片| 欲色天天网综合久久| 在线国产精品播放| 欧美老少配视频| 欧美高清视频在线| 精品国产一区二区三区久久| 亚洲一区二区免费| 91精品久久久久久久久不口人| 国产欧美精品一区二区三区-老狼| 久久夜色撩人精品| 国产精品黄视频| 欧美精品在线免费播放| 狠狠躁天天躁日日躁欧美| 国产91色在线免费| 日韩精品免费视频| 久久九九精品99国产精品| 日韩一区二区欧美| 在线日韩第一页| 91高清视频在线免费观看| 午夜精品久久久99热福利| 日韩电视剧免费观看网站| 青青草99啪国产免费| 国产综合久久久久| 亚洲自拍欧美色图| 热草久综合在线| 国产一级揄自揄精品视频| 成人午夜在线影院| 亚洲人成电影网站色xx| 亚洲精品日韩久久久| 亚洲国产天堂久久国产91| 欧美最顶级的aⅴ艳星| 国产一区二区av| 最好看的2019年中文视频| 热久久这里只有精品| 久久精品美女视频网站| 亚洲欧美综合图区| 浅井舞香一区二区| 亚洲男人天堂九九视频| 午夜精品久久久久久久99黑人| 91午夜理伦私人影院| 国产精品69精品一区二区三区| 超碰97人人做人人爱少妇| 欧美一区二区三区……| 91免费视频网站| 亚洲精选中文字幕| 成人免费淫片aa视频免费| 亚洲精品小视频| 日韩av色在线| 日韩欧美亚洲国产一区| 91高清视频免费| www.欧美精品| 日韩中文字幕免费视频| 国产亚洲精品久久久久久777| 久久精品中文字幕电影| 欧美亚洲另类视频| 黑人狂躁日本妞一区二区三区| 精品亚洲一区二区| 精品久久久久久国产91| 成人黄色网免费| 2018日韩中文字幕| 中文字幕一区日韩电影| 欧美成aaa人片在线观看蜜臀| 日韩大片在线观看视频| 欧美日韩加勒比精品一区| 久久影视电视剧免费网站清宫辞电视| 日韩高清电影免费观看完整| 97涩涩爰在线观看亚洲| 亚洲国产中文字幕在线观看| 久久久免费观看| 久久久午夜视频| 欧洲午夜精品久久久| 欧美尺度大的性做爰视频| 久久精品视频在线播放| 国产成人免费av| 日本高清+成人网在线观看| 性色av香蕉一区二区| 欧美精品成人91久久久久久久| 在线精品高清中文字幕| 日韩免费在线电影| 成人精品视频99在线观看免费| 欧美久久久精品| 欧美在线中文字幕| 国产精品成久久久久三级| 色综合亚洲精品激情狠狠| 亚洲成年人影院在线| 在线视频日韩精品| 91精品国产777在线观看| 国产精品久久在线观看| 欧美大荫蒂xxx| 欧美日韩亚洲激情| 久久久久久成人| 成人综合网网址| 欧美日韩国产色视频| 在线免费观看羞羞视频一区二区| 欧美精品videos另类日本| 国产精品女主播视频| 精品福利一区二区| 国产成人精品综合| 欧美另类极品videosbest最新版本| 欧美激情视频在线免费观看 欧美视频免费一| 亚洲黄色av女优在线观看| 乱亲女秽乱长久久久| 色爱精品视频一区| 亚洲免费视频一区二区| 国产99久久精品一区二区永久免费| 欧美精品一二区| 国产视频久久久久久久| 欧美一级大片在线观看| 国产精品视频色| 日韩在线视频线视频免费网站| 亚洲一区免费网站| 欧美精品亚州精品| 久久久久国产精品一区| 欧美电影免费播放| 九九热视频这里只有精品| 日韩电影免费观看在线观看|