【正文】 方新道：“不用著急，我打個(gè)電話，我和西藏軍區(qū)的一位領(lǐng)導(dǎo)頗有交情，上次也是坐他的飛機(jī)去西藏的，所以才 知道這情況。 或許聽(tīng)錯(cuò)了。通過(guò)這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒(méi)有學(xué)到的 visual basic 開(kāi)發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home=39。 End If 39。* + Text1(8).Text + *39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 Exit Sub 39。 mdbNumbel SQLadd = where Name=Name SQLorder = = mdbFile 39。 *.*, , mdb) If mdbFile = Then Exit Sub = True Dim i As Integer For i = 2 To 5 mdbFileData(i).Visible = False Next i = True = True = True vbModal If NoLogin = True Then End ReadNumbel mdbDataName = data1 numMPgl_Click Exit Sub ErrHandle: Exit Sub End Sub 39。新建數(shù)據(jù)庫(kù) mdbFile = DialogFile(, 0, 新建數(shù)據(jù)庫(kù)記錄 , MyData, Access(*.mdb) amp。lPassword((Sex)) (1).Text = (Age) 39。允許單擊選擇 ListViewStyleTwo_Click 39。 提供任務(wù)欄圖標(biāo) = Mind39。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 4) OnClick 事件：用來(lái)添加按鈕的單擊事件所執(zhí)行的程序代碼。 10) DownPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。 4） DragOver 事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。 11) DataFormat 屬性：設(shè)置 /返回 DataFormat 對(duì)象，一個(gè)綁定對(duì)象將附加到它。 3) Multline 屬性：該屬性設(shè)定 text 字符串中是否接受換行符。 14) MaskColor 屬性：設(shè)置 /返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色 15) Picture 屬性：設(shè)置返回 mandButton 控件中要顯示的圖片。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。在眾多的開(kāi)發(fā)工具中，我們?yōu)槭裁匆x擇Visual 呢？因?yàn)?VB 具有眾多其它開(kāi)發(fā)工具所沒(méi)有的優(yōu)點(diǎn)！具體介紹如下： ? 開(kāi)發(fā)的高效 ? 語(yǔ)言的高效 ? 編譯的高效 ? 執(zhí)行的高效 ? 維護(hù)的高效 基于以上理由，我們毫不憂郁的選擇了 做為我們的開(kāi)發(fā)工具??！ 主要的控件及其基本屬性，事件簡(jiǎn)介 ? 命令按鈕類的控件： 1) Caption 屬性：用來(lái)顯示在控件上的標(biāo)題。 8） MouseMove 事件：當(dāng)命令按鈕 上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。 20) FontName 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小。 ? 復(fù)選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 4） GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 20 世紀(jì) 70 年代以后開(kāi)發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。 39。設(shè)置窗口在前 End If End If Else Result = MsgBox(無(wú)法刪除當(dāng)前記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。設(shè)置字符串變量來(lái)調(diào)用 SQL 語(yǔ)句 SQLoriginal = select * from amp。lPassword((Call)) (11).Text = (Fax) 39。修改數(shù)據(jù)表記錄 ReadNumbel 39。 + \ SQLadd = where Name=Name = SQLoriginal + SQLadd + SQLorder ListRefresh Unload frmCX End Sub Private Sub numUo_Click() 39。錯(cuò)誤處理 ErrHandle: Exit Sub 39。 End If 39。判斷手機(jī)查詢 If Check1(6).Value = 1 And Not IsNull(Text1(6).Text) Then SQLadd = SQLadd + and MoveCall like39。 + \ = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command2_Click() 39。年齡查詢 If Check1(4).Value = 1 Then If Check2(0).Value = 1 And IsNumeric(Text2(0).Text) Then If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(1).Text SQLadd = SQLadd + and Age= + Text2(0).Text Else SQLadd = SQLadd + and Age= + Text2(0).Text End If Else If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(1).Text End If End If End If 39。判斷 Email 查詢 If Check1(10).Value = 1 And Not IsNull(Text1(10).Text) Then SQLadd = SQLadd + and Email=39。實(shí)用軟件工程教程 高等教育出版社 2021 11 （英） Ian Sommerville 機(jī)械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_(kāi)發(fā)實(shí)踐之路（ visual basic 版） (BORLAND 資深顧問(wèn)著名 visual basic 專家李維最新力作 ) 電子工業(yè)出版社 14 秦斌 等 visual basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)與應(yīng)用 中國(guó)水利水電出版社 2021 .1 15 劉藝 visual basic 面向?qū)ο缶幊趟枷? 機(jī)械工業(yè)出版社 2021 basic 程序設(shè)計(jì)第二版 譚浩強(qiáng) 清華大學(xué)出版社 2021 17. visual 程序設(shè)計(jì)教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2021 Basic 程序設(shè)計(jì)與開(kāi)發(fā)技術(shù) 求是科技 人民郵電出版社 小方框無(wú)邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管他叫強(qiáng)巴。對(duì)了，飛機(jī)先飛成都嗎 ?” 卓木強(qiáng)微笑道：“不，我們直飛拉薩。 軍區(qū)某團(tuán)，團(tuán)長(zhǎng)班覺(jué)次仁，是藏區(qū)本地人，長(zhǎng)得牛高馬大，方面闊口，兩道濃眉下，一雙厲眼透出煞氣?！? 方新教授笑著回復(fù)：“是腳指頭截去了，你老哥??”這時(shí)，機(jī)場(chǎng)已經(jīng)遙遙在望了。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。 + Text1(9).Text + 39。 + 女 + 39。 End If 39。* + Text1(5).Text + *39。判斷昵稱查詢 If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then SQLadd = SQLadd + and Love like39。進(jìn)行記錄更新 39。刷新數(shù)據(jù)窗口 39。新建數(shù)據(jù)庫(kù) nummdbData_Click Dim i As Integer For i = 2 To 5 mdbFileData(i).Visible = False Next i = True = True = True End Sub Private Sub nummdbData_Click() 39。lPassword((MoveCall)) (9).Text = (Home) 39。 mdbDataName amp。刪除記 錄 Dim Result If Not And Not Then If 0 Then If 0 Then Result = MsgBox(當(dāng)前記錄將被刪除！ , vbYesNo, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想 本系統(tǒng)主要日常通訊錄管理而開(kāi)發(fā)的 .目的是方便人們管理聯(lián)系人通訊工作需要 ,提高政府部門辦事效率 ,提 高數(shù)據(jù)存儲(chǔ)的可靠性 .在此基礎(chǔ)上做到界面的友好人性化還有程序的健壯性 . 2． 2 系統(tǒng)的可行性分析 經(jīng)濟(jì)上 :本系統(tǒng)方便政府無(wú)紙化辦公需要 ,節(jié)約了政府支出 .在經(jīng)濟(jì)上具有可行性 . 技術(shù)上 :本系統(tǒng)采用 visual basic 于微軟的 Access結(jié)合的方式 .具有可行性 . 社會(huì)上 :本系統(tǒng)服務(wù)于 大眾 部門 ,同時(shí)也方便了廣大人民需要 ,具有社會(huì)可行性 . 第二章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 3． 2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì) 1. 聯(lián)系人信息表 : 主界面 詳細(xì)信息登記 文件 幫助 表 : 3． 3 界面設(shè)計(jì)與代碼設(shè)計(jì) 1. 主界面 : 2. 主界面代碼分析 : 39。 如果你的 機(jī)器沒(méi)安裝有 Access，可通過(guò) VB 建庫(kù)。 2） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。 11） MouseMove 事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 18) FontStrikethru 屬性：設(shè)置 /返回字體刪除線樣式。 2) Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。 6） KeyPress 事件：當(dāng)用戶按下或松開(kāi)一個(gè) ANSI 鍵時(shí)發(fā)生。隨著微軟對(duì)它不斷地改進(jìn)以 及計(jì)算機(jī)本身性能的提高，使得 Visual Basic 越來(lái)越適合一般的應(yīng)用程序開(kāi)發(fā)。 關(guān)鍵字 : 通訊錄信息管理 ,管理信息系統(tǒng) ,visual basic ,access Abstract The directory information management systems using electronic directory of a puter management puter application technology innovation in the puter munications management are not popular before the introduction of business contacts, The accountin