【文章內(nèi)容簡(jiǎn)介】 ，用戶基本上是通過(guò)鼠標(biāo)、鍵盤與應(yīng)用程序進(jìn)行交互的，那些對(duì)象就必須對(duì)鼠標(biāo)和鍵盤操作所引發(fā)的事件做出響應(yīng)，來(lái)執(zhí)行一段應(yīng)用程序。 Basic 系統(tǒng)幾個(gè)在程序應(yīng)用中的常用名詞 Visual Basic 系統(tǒng)除了一般高級(jí)語(yǔ)言所具有的一些名詞術(shù)語(yǔ)外，還有幾個(gè)系統(tǒng)常用的名詞。其基本含義如下： (1) 視窗（ Form） 視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。 VB系統(tǒng)的人機(jī)交互界面或接口，無(wú)論是在設(shè)計(jì)時(shí)或是在運(yùn)行時(shí)，都是 Windows 系統(tǒng)的標(biāo)準(zhǔn)視窗。 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 11 (2) 對(duì)象 (Object) 對(duì)象是 VB系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對(duì)象類型有標(biāo)簽框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，網(wǎng)格 (Data Grid)， ADO 控件 (Adodc1)等。當(dāng)把這些工具放置到用戶界面對(duì)應(yīng)的窗體上時(shí)，被稱為對(duì)象或控件。用戶可以通過(guò)設(shè)置對(duì)象 的 “ 屬性 ” 和 “ 方法 ” ，便于對(duì)象適應(yīng)自己所設(shè)計(jì)應(yīng)用程序的輸入輸出內(nèi)容，對(duì)象的生成過(guò)程及結(jié)構(gòu)都被封裝起來(lái)。正確使用對(duì)象可以減少程序和開發(fā)時(shí)間，提高程序設(shè)計(jì)者的工作效率。 (3) 屬性 (Properties) 屬性是 VB系統(tǒng)提供的有關(guān)對(duì)象的參數(shù)或數(shù)據(jù)接口。用戶通過(guò)適當(dāng)?shù)卦O(shè)置或改變對(duì)象的屬性來(lái)確定對(duì)象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對(duì)象。比如，對(duì)象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。 (4) 事件 (Events) 事件是指用戶或操作者對(duì)計(jì)算機(jī)進(jìn)行的某一操作（ 如擊鍵、單擊或移動(dòng)鼠標(biāo)等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。 VB 系統(tǒng)常用事件來(lái)引導(dǎo)計(jì)算機(jī)執(zhí)行一段程序。程序所用的鍵盤事件有 KeyPress（按鍵）事件， KeyDown 事件和 KeyUp 事件；鼠標(biāo)事件有 Click（單擊鼠標(biāo)）事件， DbDlicd（雙擊鼠標(biāo)）。 (5) 方法 (Method) 方法主要是指對(duì)一個(gè)對(duì)象使用某種作用的過(guò)程。它是在程序執(zhí)行的過(guò)程中要計(jì)算機(jī)執(zhí)行的某種操作。其程序的方法有 Show（顯示）方法， Hide（隱藏）方法， Refresh（刷新）方法。 (6) 過(guò)程 (Procedure) 過(guò)程是指經(jīng)過(guò)定義 或說(shuō)明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。 (7) 模塊 (Module) 模塊是指一些運(yùn)算量或過(guò)程進(jìn)行聲明或定義的一個(gè)集合。系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 面對(duì)對(duì)象的編程 面向?qū)ο蟮脑O(shè)計(jì)方法 (OOP, Objected Programming) 從應(yīng)用領(lǐng)域內(nèi)的問(wèn)題著手，成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 12 以直觀自然的方式描述客觀世界的實(shí)體。 Visual Basic 作為一種面向?qū)ο蟮木幊谭椒?，把程序和?shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予相應(yīng)的屬性。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每 個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，由 Visual Basic 自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。 Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說(shuō)擴(kuò)展性和強(qiáng)有力的功能。 Visual Basic 應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。 實(shí)現(xiàn)菜單選項(xiàng) 菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)， Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。 本系統(tǒng)使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也可以使用 Visual Basic 的 Application Wizard 來(lái)操作。 實(shí)現(xiàn)工具欄 CoolBar 控件與 Office2021 中看到的 CoolBar 是類似的。 CoolBar 就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他 ActiveX 的容器。通過(guò)在 CoolBar 中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。 選擇 “ 工程 ” 下拉菜單中的 “ 部件 ” 選項(xiàng)，顯示 “ 部件 ” 對(duì)話框。在 “ 控件 ” 選項(xiàng)卡列表中選擇 “Microsoft Windows Common Controls ” 后工具相中增加改控件。 本系統(tǒng)就用了 Cool 工具中的 Statubar 控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個(gè)欄中，在樣式這一欄中選擇了文本，在第二個(gè)欄中，選擇了系統(tǒng)日期，第三個(gè)欄中選擇了系統(tǒng)時(shí)間，這樣，任何時(shí)候操作本系統(tǒng)，都可以看到當(dāng)前的時(shí)間和日期。 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 13 第四章 數(shù)據(jù)庫(kù) Access的基礎(chǔ)及應(yīng)用 數(shù)據(jù)庫(kù)的概念 數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類：非關(guān)系數(shù)據(jù)庫(kù)（ flatfile）和關(guān)系數(shù)據(jù)庫(kù)（ relational）。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。 新建一個(gè)數(shù)據(jù)庫(kù) ,創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 1． 標(biāo)識(shí)需要的數(shù)據(jù)； 2． 收集被標(biāo)識(shí)的字段到表中； 3． 標(biāo)識(shí)主關(guān)鍵字字段； 4． 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識(shí)指定字段的信息； 7． 創(chuàng)建物理表。 修改已建的數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系 數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于 在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類型的成都電子機(jī)械高等專科學(xué)校畢業(yè)設(shè)計(jì) (論文 ) 14 關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。 成都電子機(jī)械高等專科學(xué)校畢業(yè)設(shè)計(jì) (論文 ) 15 結(jié)束語(yǔ) 作為一個(gè) 非 計(jì)算機(jī)應(yīng)用專業(yè)的學(xué)生，希望可以在 次 方面 可以好好的學(xué)習(xí)到一些實(shí)際的意義 。改革的總設(shè)計(jì)師鄧小平同志說(shuō)過(guò) “ 科學(xué)技術(shù)是第一生產(chǎn)力 ” ，我希望能用我 在學(xué)校 所學(xué) 的 編制出一個(gè)實(shí)用的程序 來(lái)幫助學(xué)校進(jìn)行更有效的學(xué)生檔案管理 及實(shí)際應(yīng)用信息 。 信息工作的迅速增長(zhǎng)，使計(jì)算機(jī)的應(yīng)用范圍越來(lái)越廣泛，應(yīng)用的功能由一般的數(shù)據(jù)處理走向支持決策。這就導(dǎo)致了管理信息系統(tǒng)的產(chǎn)生。管理信息系統(tǒng)從產(chǎn)生到現(xiàn)在已經(jīng)經(jīng)歷了電子數(shù)據(jù)處理系統(tǒng)（如統(tǒng)計(jì)系統(tǒng)、工資系統(tǒng)、數(shù)據(jù)更新系統(tǒng)等），信息報(bào)告系統(tǒng)（如生產(chǎn)報(bào)告系統(tǒng)、服務(wù)狀態(tài)報(bào)告系統(tǒng)、研究狀態(tài)報(bào)告系統(tǒng)等），支持決策系統(tǒng)，綜合服務(wù)系統(tǒng)（如綜合業(yè)務(wù)數(shù)字網(wǎng)絡(luò)系統(tǒng)、國(guó)際互聯(lián)網(wǎng)等）等幾個(gè)階段。但在我國(guó)，由于各種原因，管理信息系統(tǒng)的發(fā)展處于初級(jí)的數(shù)據(jù)處理階段，盡管如此，充分利用我們現(xiàn)有的資源和 力量，開發(fā)一些適合于本企業(yè)或本行業(yè)的管理信息系統(tǒng)。也非常重要。隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息也成倍增長(zhǎng)。面對(duì)龐大的信息量，有必要開發(fā)學(xué)生信息管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。通過(guò)這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢，從而減少管理方面的工作量。 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 16 致謝 在系統(tǒng)的開發(fā)過(guò)程中，我碰到了很多的難題，多虧有老師和同學(xué)的幫助，在這里，特別要向我的指導(dǎo)老師杜濤老師的指導(dǎo)和常旭存等同學(xué)的幫助表示衷心的感謝！ 但是由于是第一次面向?qū)ο箝_發(fā) 數(shù)據(jù)庫(kù)管理系統(tǒng)，肯定會(huì)有經(jīng)驗(yàn)上的不足，失誤之處在所難免，敬請(qǐng)各位老師，領(lǐng)導(dǎo)批評(píng)的指正。 何愛(ài)赟 2021611 成都電子機(jī)械高等專科學(xué)校畢業(yè)設(shè)計(jì) (論文 ) 17 參考文獻(xiàn) ： [1].王彬華 ,李建華編著《 Visual Basic 實(shí)例教程》電子科技大學(xué)出版社 [2].郭曉烹編著《 Visual Basic 高級(jí)編程及其項(xiàng)目應(yīng)用開發(fā)》中國(guó)水利水電出版 社 [3].劉新民 ,蔡瓊 ,白康生編著《 Visual Basic 程序設(shè)計(jì)》清華大學(xué)出版社 2021 [4].曹青 郭志強(qiáng)編著的《 Visual Basic 程序設(shè)計(jì)教程》機(jī)械工業(yè)出版社 [5].郭勝 ,夏邦貴編著《 Visual Basic 數(shù)據(jù)庫(kù)開發(fā)入門與范例解析》機(jī)械工業(yè)出版社 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 18 附錄 登陸界面 Private backFile As String Private qs As String Private buff As String Dim pnum As Integer Private Sub Command1_Click() Call Image1_Click End Sub Private Sub Command2_Click() Call Image1_Click End Sub Private Sub Form_Load() = RGB(98, 162, 207) = RGB(98, 162, 207) addtrans 39。連接數(shù)據(jù)庫(kù) End Sub 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 19 Private Sub Image1_Click() On Error GoTo finish Set qy1 = (select * from 登陸 where 用戶名 =39。 amp。 amp。 39。 and 密碼 =39。 amp。 amp。 39。) If = True Then If pnum 2 Then pnum = pnum + 1 MsgBox 用戶名或密碼錯(cuò)誤 !, vbInformation, 錯(cuò)誤次數(shù)： amp。 pnum = = Exit Sub Else MsgBox 用戶名或密碼錯(cuò)誤超過(guò)三次 ,系統(tǒng)會(huì)自動(dòng)退出 , vbInformation, 提示 End End If Else If (2) = 超級(jí)管理員 Then admin = True Else admin = False End If Unload Me End If Exit Sub finish: MsgBox End Sub Private Sub Image2_Click() End 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 20 End Sub Private Sub Label3_Click() End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Image1_Click End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Image1_Click End If End Sub Public Sub addtrans(tkFileName As String) buff = String(255, 0) backFile = Date + 5 Dim backfila As String backfila = Date End Sub 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 21 主界面圖及相應(yīng)的程序代碼： Dim i, j, n As Integer Dim sql As String Pr