【正文】 2) Autosize 屬性：決定控件是否自動改變大小以顯示其全部內(nèi)容。 3) Multline 屬性：該屬性設(shè)定 text 字符串中是否接受換行符。 7) Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。 3) Enable 屬性：該控件為灰色時為 false,表示運行時不可用。 7) Appearance 屬性：設(shè)置 /返回一個對象在運行時是否以 3D 效果顯示。 11) DataFormat 屬性：設(shè)置 /返回 DataFormat 對象，一個綁定對象將附加到它。 15) Font 屬性：設(shè)置 /返回字體屬性。 19) FontUnderLine 屬性：設(shè)置 /返回字體下劃線樣式。 24) MousePointer 屬性：設(shè)置 /返回一個值，該值指示在運行時當鼠標移動到對象上時顯示的指針類型。 4） DragOver 事件： 在拖放操作正在進行時發(fā)生。 8） KeyUp 事件： 當控件具有焦點時釋放一個鍵時發(fā)生。 12） MouseUp 事件：在控件上釋放鼠標時發(fā)生。 6) DataField 屬性：設(shè)置或返回數(shù)據(jù)使用者將被綁定到的字段名。 10) DownPicture 屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時顯示。 14) Name 屬性：設(shè)置或返回控件的標識名。 3） DragOver 事件：在拖放操作正在進行時發(fā)生。 ? 框架類的控件： 1) List 屬性：列表框控件的表項是使用數(shù)組的方式保存 ,數(shù)組的每一個元素存儲列表控件的一個表項 1) Listcount 屬性 :控件列表部分項目的個數(shù)。 4) OnClick 事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。三是 : 利用 DataEnvironment 進行數(shù)據(jù)庫鏈接 .四是 利用 ADO(ActiveX Data Objects)進行編程 :現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹： 一、 用 data 控件進行數(shù)據(jù)庫鏈接 . 第一步：給窗體添加一個 Data 控件。 二、 利用 adodc（ ADO Data Control)進行數(shù)據(jù)庫鏈接： 使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼 ,只需要通過簡單的設(shè)置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接 ,通過綁定數(shù)據(jù)感知控件 ,就能提供一個訪問數(shù)據(jù)庫的界面 ,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽 ,貼加 ,刪除 ,修改等操作 . 三、 利用 DAO 對數(shù)據(jù)庫進行操縱 : 在 visual basic 中提供了兩種與 jet 數(shù)據(jù)引擎接口的方法 :data 控件與數(shù)據(jù)訪問對象 (DAO)DAO 是 database object 的英文縮寫 ,要 訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口 ,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持 . DAO 模型是設(shè)計關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合 .他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法 ,這其中包括建立數(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)。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。在打開一個窗體時， Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在 “窗體向?qū)?”選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。本程序是我初學(xué) VB 時的作品，中文注釋。由于時間關(guān)系，我沒有修改，現(xiàn)提供源代碼， 39。 提供任務(wù)欄圖標 = Mind39。關(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è)置窗口在前 If Result = vbYes Then ListRefresh End If Else Result = MsgBox(請選擇要刪除的記錄！ , vbOKOnly, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。查詢記錄 numRem_Click Load frmCX vbModal End Sub Private Sub Form_Resize() If WindowState = 1 Then = False End Sub Private Sub Form_Load() 39。允許單擊選擇 ListViewStyleTwo_Click 39。開始初始化 For j = 0 To 13 Text1(j).Text = Next j End Sub Private Sub numMPgl_Click() On Error GoTo ErrHandle = 信息管理 amp。 ] 39。\ = SQLoriginal + SQLadd + SQLorder ListRefresh Exit Sub 39。lPassword((Sex)) (1).Text = (Age) 39。lPassword((Address)) (6).Text = (Address) 39。lPassword((Home)) (10).Text = (Call) 39。lPassword((Appendix)) End If End Sub Private Sub ListView1_DblClick() 39。新建數(shù)據(jù)庫 mdbFile = DialogFile(, 0, 新建數(shù)據(jù)庫記錄 , MyData, Access(*.mdb) amp。 All files(*.*) amp。新建數(shù)據(jù)表 cmdCreate_Click AddNumbel 39。 *.mdb amp。 *.*, , 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。 = True SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。把數(shù)據(jù)庫顯示恢復(fù)到原來形式 = 39。********************************************************** Private Sub Frm_Load() Dim clmX As ColumnHeader = ListView Sample Set clmX = (, , 編號 , 100) Set clmX = (, , 姓名 , / 3 750) Set clmX = (, , , / 3 550) Set clmX = (, , 昵稱 , / 3 330) End Sub Private Sub AddRead_Numbel() On Error GoTo ErrHandle = 信息管理 amp。 mdbNumbel SQLadd = where Name=Name SQLorder = = mdbFile 39。********************** If 0 Then 39。更新數(shù)據(jù)庫 Exit Sub 39。測量表中記錄數(shù)目 39。 Exit Sub 39。判斷性別輸入是否有效 Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 39。* + Text1(0).Text + *39。 End If 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 End If End If 39。 End If 39。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home like39。* + Text1(8).Text + *39。 End If 39。更新數(shù)據(jù)庫顯示信息 = 39。 + Text1(0).Text + 39。 End If 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 End If End If 39。 End If 39。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home=39。 + Text1(8).Text + 39。 End If 39。更新數(shù)據(jù)庫顯示信息 = = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command3_Click() 39。通過這幾個月的畢業(yè)設(shè)計，我學(xué)到很多以前沒有學(xué)到的 visual basic 開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進步。 致謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責(zé)的態(tài)度。 參 考 文 獻 1 陳明 . 軟件工程學(xué)教程 .科技出版社， 2021 2 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社， 2021 3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 數(shù)據(jù)庫應(yīng)用開發(fā) .電子工業(yè)出版社， 2021 4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 開發(fā)者手冊 . 電子工業(yè)出版社 , 2021 5 申 旻 . visual basic 高手突破 . 清華大學(xué)出版社， 2021， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松，王瑜，謝尚書譯 . visual basic 開發(fā)人員指南 . 機械工業(yè)出版社 .2021 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2021 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2021 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2021 嚴蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學(xué)出版社 .2021 10 王珍