【正文】 + 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。 + Text1(7).Text + 39。判斷 Email 查詢(xún) If Check1(10).Value = 1 And Not IsNull(Text1(10).Text) Then SQLadd = SQLadd + and Email=39。經(jīng)過(guò)大量的測(cè)試和試用，作者深信本軟件達(dá)到了方便和實(shí)用的設(shè)計(jì)目的，并在軟件界面和易用實(shí)用等方面有著獨(dú)到之處。實(shí)用軟件工程教程 高等教育 出版社 2021 11 （英） Ian Sommerville 機(jī)械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門(mén)到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_(kāi)發(fā)實(shí)踐之路（ visual basic 版） (BORLAND 資深顧問(wèn)著名 visual basic 專(zhuān)家李維最新力作 ) 電子工業(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ù) 求是科技 人民郵電出版社 give pleasureto our souls. But this is intolerable and blasphemous。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。判斷年齡輸入是否有效 = Check1(4).Value For i = 0 To 1 Check2(i).Enabled = False Next i End Sub Private Sub Check2_Click(Index As Integer) Text2(Index).Enabled = Check2(Index).Value End Sub 結(jié)束語(yǔ) 本軟件的設(shè)計(jì)目的是為人們?nèi)粘Ｉ钪泄芾碛涗洸樵?xún)聯(lián)系人提供方便和幫助。 + Text1(9).Text + 39。 End If 39。 + 女 + 39。 + Text1(1).Text + 39。 End If 39。判斷傳呼查詢(xún) If Check1(8).Value = 1 And Not IsNull(Text1(8).Text) Then SQLadd = SQLadd + and Call like39。* + Text1(5).Text + *39。 End If 39。判斷昵稱(chēng)查詢(xún) If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then SQLadd = SQLadd + and Love like39。把數(shù)據(jù)表當(dāng)前記錄位置復(fù)原 End If If DataNumbel 5 Then DataNumbel = 5 For i = 1 To DataNumbel mdbFileData(i).Visible = True Next i 39。進(jìn)行記錄更新 39。設(shè)置字符串變量來(lái)調(diào)用 SQL 語(yǔ)句 SQLoriginal = select * from amp。刷新數(shù)據(jù)窗口 39。 Chr(0) amp。新建數(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。 CStr(Index) numMPgl_Click End Sub Private Sub numAcess_Click() 39。lPassword((MoveCall)) (9).Text = (Home) 39。(Oicq) ListViewItem = Count (0).Text = (Sex) 39。 mdbDataName amp。使 ListView 控件有表格風(fēng)格 ListViewStyleOne_Click 39。刪除記 錄 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。初始化任務(wù)欄圖標(biāo) ( ) / 3, ( ) / 3 = Len(TrayIcon) = = vbNull = NIF_ICON Or NIF_TIP Or NIF_MESSAGE = WM_MOUSEMOVE = 39。 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想 本系統(tǒng)主要日常通訊錄管理而開(kāi)發(fā)的 .目的是方便人們管理聯(lián)系人通訊工作需要 ,提高政府部門(mé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ù)于 大眾 部門(mén) ,同時(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。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類(lèi)型的信息創(chuàng)建一個(gè)表。 如果你的 機(jī)器沒(méi)安裝有 Access，可通過(guò) VB 建庫(kù)。 3) Largechange 屬性：用戶(hù)點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí) ,value 的改變量。 2） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。 9) DisabledPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。 11） MouseMove 事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 3） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作或使用 Drag 方法，并將其Action 參數(shù)設(shè)置位 2 時(shí)，該事件發(fā)生。 18) FontStrikethru 屬性：設(shè)置 /返回字體刪除線樣式。 10) DataField 屬性：設(shè)置 /返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 2) Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。 2) Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。 6） KeyPress 事件：當(dāng)用戶(hù)按下或松開(kāi)一個(gè) ANSI 鍵時(shí)發(fā)生。 13) DisabledPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。隨著微軟對(duì)它不斷地改進(jìn)以 及計(jì)算機(jī)本身性能的提高，使得 Visual Basic 越來(lái)越適合一般的應(yīng)用程序開(kāi)發(fā)。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整 性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 關(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 accounting approach to the operation manual transcription. general directory management are now using the puter as a tool for puter directory management procedures to help people more effectively directory information management. Directory management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and frontend application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool panies, the use of its various objectoriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, putation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. keyword : directory information management, management information systems, visual basic, access 第一章 引言 1． 1 課題背景 本通訊錄信息管理系統(tǒng)用計(jì)算機(jī)管理電子通訊錄的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前通訊管理都是由聯(lián)系人采用名片 ,筆錄手工記帳的方式來(lái)操作的 .現(xiàn)在一般的通訊錄管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)通訊錄管理程序來(lái)幫助人們進(jìn)行更有效的通訊錄信息管理。 2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用。命令按鈕的 Click 事件僅對(duì)當(dāng)單擊鼠標(biāo)時(shí)發(fā)生。 9） MouseUp 事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時(shí)發(fā)生。 5) P