【正文】 參 考 文 獻(xiàn) 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ā)者手冊(cè) . 電子工業(yè)出版社 , 2021 5 申 旻 . visual basic 高手突破 . 清華大學(xué)出版社， 2021， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松，王瑜，謝尚書譯 . visual basic 開發(fā)人員指南 . 機(jī)械工業(yè)出版社 .2021 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2021 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2021 9 張立科編寫組 .Windows API 函數(shù)參考手冊(cè) .人民郵電出版社 .2021 嚴(yán)蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學(xué)出版社 .2021 10 王珍 玲 。通過這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒有學(xué)到的 visual basic 開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。 End If 39。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home=39。 End If End If 39。 End If 39。更新數(shù)據(jù)庫顯示信息 = 39。* + Text1(8).Text + *39。 End If 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。* + Text1(0).Text + *39。 Exit Sub 39。更新數(shù)據(jù)庫 Exit Sub 39。 mdbNumbel SQLadd = where Name=Name SQLorder = = mdbFile 39。把數(shù)據(jù)庫顯示恢復(fù)到原來形式 = 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ù)表 cmdCreate_Click AddNumbel 39。新建數(shù)據(jù)庫 mdbFile = DialogFile(, 0, 新建數(shù)據(jù)庫記錄 , MyData, Access(*.mdb) amp。lPassword((Home)) (10).Text = (Call) 39。lPassword((Sex)) (1).Text = (Age) 39。 ] 39。允許單擊選擇 ListViewStyleTwo_Click 39。設(shè)置窗口在前 If Result = vbYes Then ListRefresh End If Else Result = MsgBox(請(qǐng)選擇要?jiǎng)h除的記錄！ , vbOKOnly, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。 提供任務(wù)欄圖標(biāo) = Mind39。本程序是我初學(xué) VB 時(shí)的作品，中文注釋。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 二、 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接： 使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼 ,只需要通過簡(jiǎn)單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接 ,通過綁定數(shù)據(jù)感知控件 ,就能提供一個(gè)訪問數(shù)據(jù)庫的界面 ,用來實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的瀏覽 ,貼加 ,刪除 ,修改等操作 . 三、 利用 DAO 對(duì)數(shù)據(jù)庫進(jìn)行操縱 : 在 visual basic 中提供了兩種與 jet 數(shù)據(jù)引擎接口的方法 :data 控件與數(shù)據(jù)訪問對(duì)象 (DAO)DAO 是 database object 的英文縮寫 ,要 訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口 ,另一方面要在編程環(huán)境中有對(duì)數(shù)據(jù)庫的支持 . DAO 模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對(duì)象類的集合 .他們提供了管理關(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)。 4) OnClick 事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。 3） DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。 10) DownPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時(shí)顯示。 12） MouseUp 事件：在控件上釋放鼠標(biāo)時(shí)發(fā)生。 4） DragOver 事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。 19) FontUnderLine 屬性：設(shè)置 /返回字體下劃線樣式。 11) DataFormat 屬性：設(shè)置 /返回 DataFormat 對(duì)象，一個(gè)綁定對(duì)象將附加到它。 3) Enable 屬性：該控件為灰色時(shí)為 false,表示運(yùn)行時(shí)不可用。 3) Multline 屬性：該屬性設(shè)定 text 字符串中是否接受換行符。 7） MouseDown 事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時(shí)發(fā)生。 14) MaskColor 屬性：設(shè)置 /返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色 15) Picture 屬性：設(shè)置返回 mandButton 控件中要顯示的圖片。正如 Bill Gate 所說，世界上絕大多數(shù)的 Windows應(yīng)用程序是用 Visual Basic 編寫的。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 經(jīng)過分析 ,我們使用 MICROSOFT 公司的 VISUAL BASIC 開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual 呢？因?yàn)?VB 具有眾多其它開發(fā)工具所沒有的優(yōu)點(diǎn)！具體介紹如下： ? 開發(fā)的高效 ? 語言的高效 ? 編譯的高效 ? 執(zhí)行的高效 ? 維護(hù)的高效 基于以上理由，我們毫不憂郁的選擇了 做為我們的開發(fā)工具?。? 主要的控件及其基本屬性，事件簡(jiǎn)介 ? 命令按鈕類的控件： 1) Caption 屬性：用來顯示在控件上的標(biāo)題。 ? 命令按鈕類的事件： 1） 單擊事件―― Click 事件 （ 1） 觸發(fā)與適用 此事件是在一個(gè)命令按鈕對(duì)象上按下然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生。 8） MouseMove 事件：當(dāng)命令按鈕 上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 4) Scrollbars 屬性：該屬性決定是否為文本框加滾動(dòng)條。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。 12) DisabledPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖像的引用，該圖片在控件無效時(shí)顯示在控件中。 20) FontName 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小。 5） GotFocus 事件： 當(dāng)獲的對(duì)象焦點(diǎn)時(shí)發(fā)生。 ? 復(fù)選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 11) DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。 4） GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 ? 定時(shí)器類類的控件： 1) Interval 屬性：表示定時(shí)的時(shí)間間隔 ,以毫秒為單位。 20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。 39。s Tray Icon Example amp。設(shè)置窗口在前 End If End If Else Result = MsgBox(無法刪除當(dāng)前記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。允許雙擊選擇 Frm_Load TuBiao 39。設(shè)置字符串變量來調(diào)用 SQL 語句 SQLoriginal = select * from amp。 lPassword((Year)) 39。lPassword((Call)) (11).Text = (Fax) 39。 Chr(0) amp。修改數(shù)據(jù)表記錄 ReadNumbel 39。*********任務(wù)欄圖標(biāo) ********** Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static Message As Long Static RR As Boolean Message = X / If RR = False Then RR = True Select Case Message Case WM_LBUTTONDBLCLK 39。 + \ SQLadd = where Name=Name = SQLoriginal + SQLadd + SQLorder ListRefresh Unload frmCX End Sub Private Sub numUo_Click() 39。\ = SQLoriginal + SQLadd + SQLorder Exit Sub 39。錯(cuò)誤處理 ErrHandle: Exit Sub 39。錯(cuò)誤處理 ErrHandle: Exit Sub 39。 End If 39。 + 男 + 39。判斷手機(jī)查詢 If Check1(6).Value = 1 And Not IsNull(Text1(6).Text) Then SQLadd = SQLadd + and MoveCall like39。 End If 39。 + \ = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command2_Click() 39。判斷姓名查詢 If Check1(2).Value = 1 And Not IsNull(Text1(2).Text) Then SQLadd = SQLadd + and Name=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=