【正文】 致謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。 + Text1(8).Text + 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 End If 39。 End If End If 39。判斷性別輸入是否有效 Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 39。********************** If 0 Then 39。 = True SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。 All files(*.*) amp。lPassword((Address)) (6).Text = (Address) 39。開始初始化 For j = 0 To 13 Text1(j).Text = Next j End Sub Private Sub numMPgl_Click() On Error GoTo ErrHandle = 信息管理 amp。關(guān)于版本 vbModal End Sub Private Sub DeleteAll_Click() Dim Result If Not And Not Then Result = MsgBox(所有記錄將被刪除！ , vbYesNo, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。在打開一個窗體時(shí)， Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在 “窗體向?qū)?”選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。三是 : 利用 DataEnvironment 進(jìn)行數(shù)據(jù)庫鏈接 .四是 利用 ADO(ActiveX Data Objects)進(jìn)行編程 :現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹： 一、 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 . 第一步：給窗體添加一個 Data 控件。 14) Name 屬性：設(shè)置或返回控件的標(biāo)識名。 8） KeyUp 事件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個鍵時(shí)發(fā)生。 15) Font 屬性：設(shè)置 /返回字體屬性。 7) Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。如果是命令按鈕的控件是數(shù)組，則需要使用 Index 參數(shù)標(biāo)識該控件。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 2） 獲得焦點(diǎn)―― GotFocus 事件 （ 1） 觸發(fā)與適用 當(dāng)命令按鈕獲得焦點(diǎn)產(chǎn)生該事件，獲得焦點(diǎn)可以通過諸如Tab 切換或單擊對象之類的用戶動作，或在代 碼中用SetFocus 方法改變焦點(diǎn)來實(shí)現(xiàn)。 8) Alignment 屬性：設(shè)定控件中的文本對其方式 9) Appearance 屬性：設(shè)定一個對象在運(yùn)行時(shí)是否可以 3D 效果顯示。 16) FontBold 屬性：設(shè)置 /返回字體粗體樣式。 9） KeyPress 事件：當(dāng)用戶按下或釋放 ANSI 一個鍵時(shí)發(fā)生。 15) Value 屬性：設(shè)置或返回控件的狀態(tài)。 第二步：用 Access 建立一個名為 Pad 的數(shù)據(jù)庫，在庫中建立一個表 Myset，給表添加四個字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報(bào)表。設(shè)置窗口在前 If Result = vbYes Then Dim i As Integer For i = 1 To Next i ListRefresh End If Else Result = MsgBox(無法刪除記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag End Sub Private Sub DocuAdd_Click() 39。 mdbFile amp。lPassword((Address)) (7).Text = (TelepNo) 39。 Chr(0) amp。設(shè)置窗口在前 Else WindowState = 1 = False End If Case WM_RBUTTONUP numFile End Select RR = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) = Len(TrayIcon) = = vbNull 39。編輯開始更改表總 數(shù)的記錄 Else End If (ID) = 1 (Name) = 數(shù)據(jù)表總數(shù) (Numbel) = DataNumbel + 1 39。判斷年齡輸入是否有效 = Check1(4).Value For i = 0 To 1 Check2(i).Enabled = Next i End Sub Private Sub Command1_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 like39。 + 男 + 39。 End If 39。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。真誠的希望你的參與。判斷傳呼查詢 If Check1(8).Value = 1 And Not IsNull(Text1(8).Text) Then SQLadd = SQLadd + and Call=39。 End If 39。* + Text1(9).Text + *39。 + 女 + 39。, vbNullString, mailto:, vbNullString, vbNullString, vbNormalFocus) End Sub Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Private Sub OK_Click() Unload Me End Sub 4. 資料查詢界面 : 代碼分析 : Private Sub Check1_Click(Index As Integer) Dim i As Integer For i = 0 To 10 Text1(i).Enabled = Check1(i).Value Next i 39。MsgBox End Sub Private Sub AddNumbel() On Error GoTo ErrHandle AddRead_Numbel 39。設(shè)置窗口在前 WindowState = 0 39。 Chr(0) amp。lPassword((Constell)) (3).Text = (Constell) (4).Text = (Attributive) (5).Text = (Blood) 39。設(shè)置窗口在前 Dim i As String Dim j As Integer 39。將圖標(biāo)放到任務(wù)欄 Call Shell_NotifyIcon(NIM_ADD, TrayIcon) = False End Sub Private Sub About_Click() 39。 如果要簡單地直接在某個表中查看 、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。為 false時(shí)處于休眠狀態(tài) . Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。 13) Font 屬性：設(shè)置或返回字體的屬性。 7） KeyDown 事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個鍵時(shí)發(fā)生。 14) DragMode 屬性：設(shè)置 /返回一個值，確定在拖放操作中所用的方式。 6) Change 事件屬性：文本框的內(nèi)容發(fā)生改變時(shí) ,相應(yīng)的控件之間發(fā)生相應(yīng)的改變 ,具有即時(shí)性。 （ 2） 事件處理過程 按鈕單擊事件的處理過程為： Private Sub objectClick（ Index As Integer） 其中 Object 為引發(fā)該事件的對象名稱。通訊錄管理系統(tǒng) 是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。 1． 2 系 統(tǒng)簡介 本系統(tǒng)主要功能是幫助人們管理通訊錄信息 ,包括聯(lián)系人的姓名 ,年齡 ,電話 ,手機(jī) ,地址等信息 .主要由以下功能模塊構(gòu)成 : 一 .聯(lián)系人詳細(xì)信息 (性別 ,年齡 ,生辰 ,星座 ,屬相 ,血型 ,地址 ,電話 ,手機(jī) ,宅電 ,傳呼 ,傳真 ,郵箱 ,備注 ) 二 .文件 (新建數(shù)據(jù)庫 ,退出 ) 三 .幫助 1. 3 開發(fā)工具介紹 Visual Basic Micrsoft 公司出品的開發(fā)工具， Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點(diǎn)。 （ 2） 事件處理過程 命令按鈕 GotFoucs 事件處理過程為： Private Sub ObjectGotFocus（ Index As Integer） 3） LostFocus 事件：當(dāng)一個對象失去焦點(diǎn)時(shí)發(fā)生 4） KeyDown 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個鍵時(shí)發(fā)生 5） KeyUp 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)釋放一個鍵時(shí)發(fā)生。 10) BackColor 屬性：設(shè)置返回背景色 11) BorderStyle 屬性：設(shè)置對象的邊框樣式 12) DataField 屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名 13) DataFormat 屬性：設(shè)定 DataFormat 對象，用于數(shù)據(jù)綁定 14) DataMember 屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個數(shù)據(jù)成員中返回 /設(shè)定一個特定的數(shù)據(jù)成員 15) DataSourc