麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

用VisualBasic開發(fā)數(shù)據(jù)庫瀏覽器

2019-11-18 17:47:32
字體：大 中 小
供稿：網(wǎng)友
Microsoftaccess是VisualBasic最常用的數(shù)據(jù)庫，但VisualBasic沒有提供類似FoxPRoforWindows的BROWS命令的函數(shù)來瀏覽Access數(shù)據(jù)庫。本程序提供了一種類似BROWS命令界面瀏覽Access數(shù)據(jù)庫的方法，感興趣的讀者可以把這個程序改寫為帶參數(shù)（數(shù)據(jù)庫名、表名、字段名、字段寬度等）的子程序，實現(xiàn)類似Foxproforwindows的BROWS命令的功能，在自己的應(yīng)用程序中調(diào)用。
首先，在窗口中定義一個網(wǎng)格（gridl）、一個列表框（list1）、一個普通對話框（dlg）、一個數(shù)據(jù)察覺項（datal）、兩個命令按鈕（command1和command2），排好位置。
程序執(zhí)行時，按“打開”按鈕打開一個對話框，選定數(shù)據(jù)庫文件后程序在列表框中顯示數(shù)據(jù)庫包含的表名，單擊列表框中的表名即可瀏覽該表。本程序可自動根據(jù)字段長度和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()'鼠標(biāo)器點“退出”鍵
29End
30EndSub
31SubForm_Load()
32browser.Caption="Access瀏覽器"
33grid1.Height=3200
34grid1.Visibli=False
35list1.Visible=False
36label1.Visible=False
37EndSub
38SubListl_Click()'鼠標(biāo)器點列表框
39DimctAsInteger
40data1.RecordSource=listl.Text
41ct=data1.Database.TableDefs(list1.ListIndex).Fields.Count
42grid1.Cols=ct
43grid1.Row=0
44ForI=0Toct-1'將表中各字段名加到網(wǎng)格第一行
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'將數(shù)據(jù)讀入網(wǎng)格各單元
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'計算網(wǎng)格總寬度
71grid1.Width=gridl.Width gridl.ColWidth(I)
72NextI
73Ifgrid1.Width>scalewidthThen'如果網(wǎng)格總寬度大于窗口寬度
74grid1.Width=scalewidth
75EndIf
76grid1.Height=(gridl.Rows 2)*20*grid1.FontSize'計算網(wǎng)格長度
77Ifgrid1.Height>3200Then'如網(wǎng)格長度出界
78grid1.Height=3200
79EndIf
80browser.Width=grid1.Width 300'設(shè)置窗口寬度
81grid1.Visible=True
82EndSub->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 免费黄色在线观看网站 | 9999视频 | japanese xxxxhd| 麻豆国产网站 | 国产九九在线视频 | 精品欧美一区二区精品久久 | 97中文| 一级看片免费视频 | 特级黄aaaaaaaaa毛片 | 一级黄色欧美 | 欧美黄色免费视频 | porno video hd 365hd | 92看片淫黄大片欧美看国产片 | 萌白酱福利视频在线网站 | 国产免费一级淫片 | 91麻豆精品国产91久久久无需广告 | 中文字幕免费在线观看视频 | 亚洲自拍第二页 | 免费在线观看亚洲 | 欧美日韩免费看 | 黄色片网站在线看 | 精品国产一区二区三区四 | 久久久久久久久亚洲精品 | 欧美成人黄色片 | 欧美一区二区三区不卡免费观看 | 青草久久久久 | 羞羞电影在线观看www | 亚洲第一激情 | 国产日本欧美在线观看 | 国产成人精品一区二区视频免费 | 国产免费网站视频 | 狠狠干b| 久久丝袜脚交足黄网站免费 | 成av在线 | 久久精品一二三区白丝高潮 | 欧美成人免费电影 | 成人毛片100免费观看 | 国产1级视频| 欧美精品18| 亚洲国产精品久久久久久久久 | 色播亚洲 |