【導(dǎo)讀】中國(guó)地大物博，河流縱橫，橋梁數(shù)量眾多。自改革開(kāi)放至本世紀(jì)初的20年，我國(guó)建成。永久性公路橋梁萬(wàn)座。上海市區(qū)橋梁除黃浦江上的大橋和浦東新區(qū)的新建橋梁以及內(nèi)。環(huán)線高架、南北高架上的立交橋以外，現(xiàn)有橋梁就有共1051座。望有一個(gè)橋梁檔案數(shù)據(jù)庫(kù)，來(lái)完成對(duì)橋梁基本資料的查詢。用效率最高的系統(tǒng)。本項(xiàng)目設(shè)計(jì)的目的，就是為了初步嘗試去做這項(xiàng)工作，希望能為橋梁數(shù)。據(jù)庫(kù)的建設(shè)略盡綿薄之力。根據(jù)用戶的用戶名來(lái)判斷用戶的權(quán)限，并由此通過(guò)控制按鈕的可用性來(lái)設(shè)置用戶在系統(tǒng)。中可以使用的功能模塊。計(jì)單位、監(jiān)理單位等。可以對(duì)應(yīng)多個(gè)橋梁。管理人員有權(quán)管理維護(hù)系統(tǒng)用戶信息并給不同用戶不同權(quán)限。施工單位信息，包括數(shù)據(jù)項(xiàng)有：施工單位名稱(chēng)，地址，電話。設(shè)計(jì)表代碼如下，為了維護(hù)數(shù)據(jù)庫(kù)完整性其中用到了不少約束，如primarykey，check，(設(shè)計(jì)單位名稱(chēng)varchar(50)notnullprimarykey,

　　

【正文】 nged事件 Private Sub Frmsearch2_Load(ByVal sender As , ByVal e As ) Handles = False = False 39。輸出結(jié)果框不可見(jiàn) = False = False = False Dim loca() As String = {直轄市 , 河北省 , 山西省 , 內(nèi)蒙古自治區(qū) , 遼寧省, 吉林省 , 黑龍江省 , 江蘇省 , 浙江省 , 安徽省 , 福建省 , 江西省 , 山東省 , 河南省 , 湖北省 , 湖南省 , 廣東省 , 廣西壯族自治區(qū) , 海南省 , 四川省 , 貴州省 , 云南省 , 西藏自治區(qū) , 陜西省 , 甘肅省 , 青海省 , 寧夏回族自治區(qū) , 新疆維吾爾自治區(qū) , 臺(tái)灣省 , 特區(qū) } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End Sub Private Sub Combo1_SelectedIndexChanged(ByVal sender As Object, ByVal e As ) Handles 39。1 If = 直轄市 Then () = Dim loca() As String = {北京 , 上海 , 天津 , 重慶 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。2 河北省 If = 河北省 Then () = Dim loca() As String = {石家莊 , 邯鄲 , 邢臺(tái) , 保定 , 張家口 , 承德, 廊坊 , 唐山 , 秦皇島 , 滄州 , 衡水 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next 31 End If 39。3 山西省 If = 山西省 Then () = Dim loca() As String = {太原 , 大同 , 陽(yáng)泉 , 長(zhǎng)治 , 晉城 , 朔州 , 呂梁 , 忻州 , 晉中 , 臨汾 , 運(yùn)城 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。4 內(nèi)蒙古自治區(qū) If = 內(nèi)蒙古自治區(qū) Then () = Dim loca() As String = {呼和浩特 , 包頭 , 烏海 , 赤峰 , 呼倫貝爾盟 , 阿拉善盟 , 哲里木盟 , 興安盟 , 烏蘭察布盟 , 錫林郭勒盟 , 巴彥淖爾盟 , 伊克昭盟} Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。5 遼寧省 If = 遼寧省 Then () = Dim loca() As String = {沈陽(yáng) , 大連 , 鞍山 , 撫順 , 本溪 , 丹東 , 錦州 , 營(yíng)口 , 阜新 , 遼陽(yáng) , 盤(pán)錦 , 鐵嶺 , 朝陽(yáng) , 葫蘆島 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。6 吉林省 If = 吉林省 Then () = Dim loca() As String = {長(zhǎng)春 , 吉林 , 四平 , 遼源 , 通化 , 白山 , 松原 , 白城 , 延邊 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) 32 Next End If 39。7 黑龍江省 If = 黑龍江省 Then () = Dim loca() As String = {哈 爾濱 , 齊齊哈爾 , 牡丹江 , 佳木斯 , 大慶 , 綏化 , 鶴崗 , 雞西 , 黑河 , 雙鴨山 , 伊春 , 七臺(tái)河 , 大興安嶺 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。8 江蘇省 If = 江蘇省 Then () = Dim loca() As String = {南京 , 鎮(zhèn)江 , 蘇州 , 南通 , 揚(yáng)州 , 鹽城 , 徐州 , 連云港 , 常州 , 無(wú)錫 , 宿遷 , 泰州 , 淮安 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。9 浙江省 If = 浙江省 Then () = Dim loca() As String = {杭州 , 寧波 , 溫州 , 嘉興 , 湖州 , 紹興 , 金華 , 衢州 , 舟山 , 臺(tái)州 , 麗水 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。10 安徽省 If = 安徽省 Then () = Dim loca() As String = {合肥 , 蕪湖 , 蚌埠 , 馬鞍山 , 淮北 , 銅陵 , 安慶 , 黃山 , 滁州 , 宿州 , 池州 , 淮南 , 巢湖 , 阜陽(yáng) , 六安 , 宣城 , 亳州 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) 33 Next End If 39。11 福建省 If = 福建省 Then () = Dim loca() As String = {福州 , 廈門(mén) , 莆田 , 三明 , 泉州 , 漳州 , 南平 , 龍巖 , 寧德 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。12 江西省 If = 江西省 Then () = Dim loca() As String = {南昌 , 景德鎮(zhèn) , 九江 , 鷹潭 , 萍鄉(xiāng) , 新馀 , 贛州 , 吉安 , 宜春 , 撫州 , 上饒 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。13 山東省 If = 山東省 Then () = Dim loca() As String = {濟(jì)南 , 青島 , 淄博 , 棗莊 , 東營(yíng) , 煙臺(tái) , 濰坊 , 濟(jì)寧 , 泰安 , 威海 , 日照 , 萊蕪 , 臨沂 , 德州 , 聊城 , 濱州 , 菏澤 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。14 河南省 If = 河南省 Then () = Dim loca() As String = {鄭州 , 開(kāi)封 , 洛陽(yáng) , 平頂山 , 安陽(yáng) , 鶴壁 , 新鄉(xiāng) , 焦作 , 濮陽(yáng) , 許昌 , 漯河 , 三門(mén)峽 , 南陽(yáng) , 商丘 , 信陽(yáng) , 周口 , 駐馬店 , 濟(jì)源 } Dim i As Integer For i = 0 To (0) 1 34 (loca(i)) Next End If 39。15 湖北省 If = 湖北省 Then () = Dim loca() As String = {武漢 , 宜昌 , 荊州 , 襄樊 , 黃石 , 荊門(mén) , 黃岡 , 十堰 , 恩施 , 潛江 , 天門(mén) , 仙桃 , 隨州 , 咸寧 , 孝感 , 鄂州 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。16 湖南省 If = 湖南省 Then () = Dim loca() As String = {長(zhǎng)沙 , 常德 , 株洲 , 湘潭 , 衡陽(yáng) , 岳陽(yáng) , 邵陽(yáng) , 益陽(yáng) , 婁底 , 懷化 , 郴州 , 永州 , 湘西 , 張家界 } Dim i As Integer For i = 0 To (0) 1 (loca(i)) Next End If 39。17 廣東省 If = 廣東省 Then () = Dim loca() As String = {廣州 , 深圳 , 珠海 , 汕頭 , 東莞 , 中山 , 佛山 ,