【正文】 王輝等譯visual basic 從入門到精通 在這里我還要感謝我們宿舍的其它5個同學(xué)。雖然軟件基本達(dá)到設(shè)計要求并且達(dá)到同行的先進(jìn)水平，但由于作者水平有限，軟件存在bug也是在所難免的 ，您的意見和建議將極大的幫助我改進(jìn)并完善軟件。在不處于查詢狀態(tài)時，把文本框設(shè)置為失效 Text1(i).Text = Text1(i).Enabled = False Next i Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 39。 + Text1(10).Text + 39。判斷傳真查詢 If Check1(9).Value = 1 And Not IsNull(Text1(9).Text) Then SQLadd = SQLadd + and Fax=39。 End If 39。 + Text1(6).Text + 39。判斷電話查詢 If Check1(5).Value = 1 And Not IsNull(Text1(5).Text) Then SQLadd = SQLadd + and TelepNo=39。 Else SQLadd = SQLadd + and Sex=39。 + Text1(2).Text + 39。判斷查詢 If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then SQLadd = SQLadd + and Oicq=39。精確查詢 On Error GoTo ErrHandle 39。* + Text1(10).Text + *39。判斷傳真查詢 If Check1(9).Value = 1 And Not IsNull(Text1(9).Text) Then SQLadd = SQLadd + and Fax like39。 End If 39。* + Text1(6).Text + *39。判斷電話查詢 If Check1(5).Value = 1 And Not IsNull(Text1(5).Text) Then SQLadd = SQLadd + and TelepNo like39。 Else SQLadd = SQLadd + and Sex=39。* + Text1(2).Text + *39。判斷查詢 If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then SQLadd = SQLadd + and Oicq like39。模糊查詢 On Error GoTo ErrHandle 39。MsgBox End Sub3. 關(guān)于界面關(guān)于界面代碼分析:Private Sub Label6_Click() Dim Email Email = ShellExecute(0amp。Next i 39。MsgBox End SubPrivate Sub ReadNumbel()On Error GoTo ErrHandleAddRead_Numbel 39。 39。錯誤處理ErrHandle: Exit Sub 39。 [mdbNumel]39。修改記錄If 1 Then Exit SubIf ListViewItem 0 ThenListView_Name = (ListViewItem).SubItems(1) ListView_ = (ListViewItem).SubItems(2) ListView_Love = (ListViewItem).SubItems(3) Uo = True = False vbModalElse MsgBox 請選擇要修改的記錄！, vbOKOnly, 警告 SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flagEnd IfEnd Sub39。刪除任務(wù)欄圖標(biāo) Call Shell_NotifyIcon(NIM_DELETE, TrayIcon)End SubPrivate Sub numPass_Click() vbModalEnd SubPrivate Sub numRem_Click() 39。DblClick If WindowState = 1 Then SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。 All files(*.*) amp。讀數(shù)據(jù)表記錄 = TruenumMPgl_ClickEnd SubPrivate Sub numOpen_Click()On Error GoTo ErrHandlemdbFile = DialogFile(, 1, 打開數(shù)據(jù)庫記錄, , Access(*.mdb) amp。 *.*, , mdb)If mdbFile = Then Exit SubDataNumbel = 0New_click 39。 *.mdb amp。ListView1_ClickEnd SubPrivate Sub mdbFileData_Click(Index As Integer) mdbDataName = Data amp。lPassword((Fax)) (12).Text = (Email) 39。 lPassword((TelepNo)) (8).Text = (MoveCall) 39。Age年齡 (2).Text = (Year) 39。(Name) 39。 39。 [ amp。 SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。使ListView控件可以整行選擇 ListViewStyleBiaoG_Click 39。 ListRefreshEnd SubPrivate Sub DocuExit_Click() 39。添加記錄Uo = False = False Load frmTJ vbModalEnd SubPublic Sub DocuDelete_Click() 39。 Chr$(0) 39。Option ExplicitPublic mdbFile, mdbDataName As StringPublic DataNumbel As IntegerPublic Uo As BooleanPublic ListView_Name, ListView_, ListView_Love As StringPublic ListViewItem As IntegerPublic Password As StringPrivate Sub TuBiao() 39?，F(xiàn)在看來有很多語句沒有優(yōu)化，算法也一般。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報表。在打開一個窗體時，Microsoft如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。Microsoft結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。二、 利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接：使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設(shè)置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個訪問數(shù)據(jù)庫的界面,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.三、 利用DAO對數(shù)據(jù)庫進(jìn)行操縱:在visual basic 中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對象(DAO)DAO是database object的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持.,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等.關(guān)系數(shù)據(jù)庫介紹:關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。三是: (ActiveX Data Objects)進(jìn)行編程:現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹：一、 用data控件進(jìn)行數(shù)據(jù)庫鏈接.　第一步：給窗體添加一個Data控件。4) OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。u 框架類的控件：1) List屬性：列表框控件的表項是使用數(shù)組的方式保存,數(shù)組的每一個元素存儲列表控件的一個表項1) Listcount屬性:控件列表部分項目的個數(shù)。3） DragOver事件：在拖放操作正在進(jìn)行時發(fā)生。14) Name屬性：設(shè)置或返回控件的標(biāo)識名。10) DownPicture 屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時顯示。6) DataField屬性：設(shè)置或返回數(shù)據(jù)使用者將被綁定到的字段名。12） MouseUp事件：在控件上釋放鼠標(biāo)時發(fā)生。8） KeyUp事件： 當(dāng)控件具有焦點時釋放一個鍵時發(fā)生。4） DragOver事件： 在拖放操作正在進(jìn)行時發(fā)生。24) MousePointer 屬性：設(shè)置/返回一個值，該值指示在運行時當(dāng)鼠標(biāo)移動到對象上時顯示的指針類型。19) FontUnderLine 屬性：設(shè)置/返回字體下劃線樣式。15) Font 屬性：設(shè)置/返回字體屬性。11) DataFormat 屬性：設(shè)置/返回DataFormat對象，一個綁定對象將附加到它。7) Appearance 屬性：設(shè)置/返回一個對象在運行時是否以3D效果顯示。3) Enable屬性：該控件為灰色時為false,表示運行時不可用。7) Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。3) Multline屬性：該屬性設(shè)定text字符串中是否接受換行符。2) Autosize屬性：決定控件是否自動改變大小以顯示其全部內(nèi)容。7） MouseDown事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時發(fā)生。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標(biāo)識該控件。14) MaskColor屬性：設(shè)置/返回一個在按鈕的圖片中作為“掩碼“的的顏色15) Picture屬性：設(shè)置返回mandButton控件中要顯示的圖片。4) Backcolor屬性：用來改變在按鈕上顯示圖像的背景色。正如Bill Gate所說，世界上絕大多數(shù)的Windows應(yīng)用程序是用Visual Basic編寫的。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。畢業(yè)設(shè)計通訊錄信息管理系統(tǒng)摘要本通訊錄信息管理系統(tǒng)用計算機管理電子通訊錄的一種計算機應(yīng)用技術(shù)的創(chuàng)新,在計算機還未普及之前通訊管理都是由聯(lián)系人采用名片,。 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方