【正文】 解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。 事件驅(qū)動(dòng)編程機(jī)制 Visual Basic 通過(guò)事件來(lái)執(zhí)行對(duì)象的操作。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用 戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊“ (CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。這些過(guò)程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。同時(shí)， Visual Basic還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如 dBASE， FoxPro， Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用 Visual Basic編輯和處理。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語(yǔ)言 SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶 數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的 SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了 SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶 /服務(wù)器(client/server)方案。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。 對(duì)象的鏈接與嵌入 (OLE) 對(duì)象的鏈接與嵌入 (OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象 (object)，將不同的對(duì)象鏈接 (link)起來(lái)，再嵌入 (embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。利用 OLE技術(shù)，可以方便地建立復(fù)合式文檔 (pound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將 C/C++或匯編語(yǔ)言編寫的程序加入到 Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫的函數(shù)。 100 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn) Access2020 就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。 Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。如上所述， Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。 Visual Basic、 Access以及其他微軟的軟件產(chǎn)品都是通過(guò)共用 JET數(shù)據(jù)庫(kù)引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。我 們可以設(shè)置 DATA控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)的哪個(gè)部分。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來(lái)的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫(kù)之間建立聯(lián)系。 大學(xué)社團(tuán)管理系統(tǒng) 0 層數(shù)據(jù)流程圖 會(huì)員 輸入計(jì)算機(jī) 部長(zhǎng) 社團(tuán) 會(huì)員 信息 檔案 輸出 校 團(tuán) 委 團(tuán)長(zhǎng) 大學(xué)社團(tuán)管理系統(tǒng) 校團(tuán)委 社團(tuán)情況 會(huì)員情況 查詢 統(tǒng)計(jì)分析 社團(tuán) 團(tuán)費(fèi) 人數(shù) 校 團(tuán) 委 社團(tuán) 部長(zhǎng) 社團(tuán)管理 部長(zhǎng)管理 會(huì)員管理 統(tǒng)計(jì)分析 D1 D2 D3 查詢者 管理 大學(xué)社團(tuán)管理系統(tǒng) 1 層數(shù)據(jù)流程圖 數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖 ER 圖設(shè)計(jì)模式分為兩種： ⑴一種是以局部 ER圖為基礎(chǔ)設(shè)計(jì)全局模式，稱為 集中式模式設(shè)計(jì) ； ⑵另一種是先設(shè)計(jì)局部 ER 模型圖，再由若干個(gè)局部 ER模型圖綜合成為全局 ER模型圖，稱為綜合設(shè)計(jì)法。綜合設(shè)計(jì)法比較適合于大型數(shù)據(jù)庫(kù)系統(tǒng)的設(shè)計(jì)，可以多組并行進(jìn)行，免除綜合需求說(shuō)明的麻煩。 綜合設(shè)計(jì)法分為兩個(gè)步驟： ⑴設(shè)計(jì)局部概念模式 ⑵由局部概念模式綜合成全局概念模式。一般分為以下幾個(gè)步驟： ①．根據(jù)局部需求分析的結(jié)果產(chǎn)生局部實(shí)體集。局部實(shí)體集的產(chǎn)生包括確定局部實(shí)體集的屬性和鍵碼。對(duì)于這樣的事物，我們應(yīng)該使用最易于為用戶理解的概念模型結(jié)構(gòu)來(lái)表示。需要注意的是，每個(gè)事物必須由一種而且僅有一種概念模型結(jié)構(gòu) 表示。 ②、在確定了局部實(shí)體集后，根據(jù)局部分析的結(jié)果確定局部實(shí)體集間的聯(lián)系及其結(jié)構(gòu)約束。同時(shí)，局部實(shí)體集間的聯(lián)系也需要滿足局部應(yīng)用的各種要求。 社團(tuán)與社團(tuán)人數(shù)的 ER 圖 圖 會(huì)員基本信息 ： 社團(tuán) 人數(shù) 團(tuán)費(fèi) 團(tuán)委 m n 會(huì)員編號(hào) 會(huì)員姓名 電話 職稱 備注 專業(yè) 社團(tuán)部名 入會(huì)日期 宿舍 性別 民族 會(huì)員班級(jí) 會(huì)員 第三章 系統(tǒng)設(shè)計(jì) 系統(tǒng)概要 社團(tuán)管理系統(tǒng)雖小 ,但關(guān)于學(xué)生會(huì)在對(duì)學(xué)生活動(dòng)中管理是必不可少的呀 , 在學(xué)校要明確社團(tuán)宗旨，規(guī)范社團(tuán)章程、管理制度，加強(qiáng)社團(tuán)的凝聚力。大學(xué)生需要什么樣的活動(dòng)，如何讓大學(xué)生體現(xiàn)自己的特長(zhǎng)，怎樣讓大學(xué)生鍛煉自己的能力，這是任何一個(gè)社團(tuán)都必須考慮的問(wèn)題。很多社團(tuán)在這方面很欠缺，而很多大學(xué)已成立大學(xué)生社團(tuán)聯(lián)合會(huì)，對(duì)社團(tuán)之 間交流合作起到很重要的作用。有了激情，就有了延續(xù)和發(fā)展的可能；有了延續(xù)和發(fā)展，一切都會(huì)改觀。本章將會(huì)根據(jù)“校園社團(tuán)管理系統(tǒng)”的需求說(shuō)明和模塊設(shè)計(jì)著意于如何實(shí)現(xiàn)各個(gè)模塊的基本功能，如果需要具體應(yīng)用到學(xué)校的情況中，還需要對(duì)各學(xué)校的具體需求進(jìn)一步明確，對(duì)系統(tǒng)進(jìn)行修正。我創(chuàng)立以下幾個(gè)數(shù)據(jù)表： (1) 會(huì)員表：編號(hào)，姓名，性別，專業(yè)，班級(jí)，宿舍，電話，社團(tuán)部，職位，會(huì)費(fèi)，歡迎進(jìn)入系統(tǒng)窗體 登錄窗體 (管理員 ) 校園社團(tuán)管理系統(tǒng)主窗體 可以信息進(jìn)行添加、刪除、修改、查詢、保 存等操作。 系 統(tǒng) 理員設(shè)置 管理員設(shè)置 年，月，日。 (3) 超級(jí) 用戶表： ID，超級(jí)用戶名，密碼。 軟件模塊結(jié)構(gòu)設(shè)計(jì) 1系統(tǒng)方案確定 通過(guò)對(duì)系統(tǒng)調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能如下：會(huì)員信息錄入、會(huì)員信息查詢、系統(tǒng)維護(hù)等三大模塊。該系統(tǒng)執(zhí)行時(shí)，先錄入數(shù)據(jù)，然后根據(jù)會(huì)員的個(gè)人信息可以進(jìn)行查詢以及按照相同的屬于進(jìn)行排序，并可將結(jié)果進(jìn)行預(yù)覽。數(shù)據(jù)庫(kù)技術(shù)能使 Inter 應(yīng)用超越具有早期應(yīng)用特點(diǎn)的簡(jiǎn)單的發(fā)布。這些技術(shù)沒(méi)有脫離經(jīng)典數(shù)據(jù)庫(kù)技術(shù)的 要求。 數(shù)據(jù)庫(kù)的設(shè)計(jì)和開(kāi)發(fā)及包括藝術(shù)有包括工程。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫(kù)，并且這些數(shù)據(jù)庫(kù)帶有功能完備、高效能的應(yīng)用，是一個(gè)工程過(guò)程。經(jīng)典的數(shù)據(jù)庫(kù)應(yīng)用涉及諸如訂單、顧客、工作、員工、學(xué)生、電話之類的項(xiàng)，或其它數(shù)據(jù)量較大、需要密切關(guān)注的事務(wù)。數(shù)據(jù)庫(kù)也被越來(lái)越多地應(yīng)用 于生成和維護(hù)多媒體應(yīng)用程序上。存儲(chǔ)器的容量、存儲(chǔ)速率直接影響到數(shù)據(jù)管理技術(shù)的發(fā)展。 使用計(jì)算機(jī)以后，數(shù)據(jù)處理的速度和規(guī)模，無(wú)論是相對(duì)于手工方式，還是機(jī)械方式，都有無(wú)可比擬的優(yōu)勢(shì)。數(shù)據(jù)管理是指數(shù)據(jù)的收集、整理、組織、存儲(chǔ)、維護(hù)、檢索、傳送等操作，這部分操作是數(shù)據(jù)處理業(yè)務(wù)的基本環(huán)節(jié)，而且是任何數(shù)據(jù)處理業(yè) 務(wù)中必不可少的共有部分。 數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效果產(chǎn)生影響。同時(shí)合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。 （ 2）創(chuàng)建數(shù)據(jù)庫(kù)文件 如果操作系統(tǒng)中安裝了 ACCESS2020 的話，可以在開(kāi)始菜單的程序菜單中可以找到。這些就新建了一個(gè)數(shù)據(jù)庫(kù)文件。點(diǎn)擊創(chuàng)建就完成。 在下面的對(duì)話框中選 ” 使用設(shè)計(jì)器創(chuàng)建表 ” ，上面還有三個(gè)按鈕，一個(gè)是打開(kāi)，一個(gè)是設(shè)計(jì)，一個(gè)是新建，點(diǎn)擊設(shè)計(jì)，就可以開(kāi)始設(shè)計(jì)數(shù)據(jù)表了。先看看 VB 是如何與 ACCESS2020 數(shù)據(jù)庫(kù)相連接的。連接數(shù)據(jù)庫(kù) Set conn = CreateObject() 39。 \ amp。設(shè)置數(shù)據(jù)的路徑 Provider=。 DBpath 39。設(shè)置數(shù)據(jù)庫(kù)對(duì)像 End Sub 上面的一段代碼就是連接數(shù)據(jù)庫(kù)的。其中有兩個(gè)變量要定義為公用的變量，因?yàn)檫@段代碼是放在一個(gè)模塊中的，為了在每一個(gè)窗體中能夠使用這個(gè)變量，所以必須要聲明為公用變量。如果聲明在下面，那就成了局部變量，那么作用范圍就會(huì)不同了，作用就更不同，而且在其它窗體中使用到了這個(gè)變量，程序會(huì)出錯(cuò)。如果用戶修改某一紀(jì)錄中的某一項(xiàng)，可單添加按鈕進(jìn)行會(huì)員記錄的編輯，此窗口使用數(shù)據(jù)窗口的 FREEDOM風(fēng)格（典型的錄入界面）。 [表 1] （ 2） 社團(tuán)部表的設(shè)計(jì) 該模塊主 要完成社團(tuán)部的基本信息的錄入、刪除功能。當(dāng)管理員點(diǎn)擊“進(jìn)入”按鈕時(shí)，就會(huì)出現(xiàn)“登錄”窗體。 [圖 4] 在本窗體中需要用戶填寫用戶登錄名、用戶 口令 在這個(gè)窗體中登錄的用戶會(huì)進(jìn)入整個(gè)系統(tǒng)中，添加、修改、刪除的功能，當(dāng)用戶 3次登錄都失敗時(shí)系統(tǒng)會(huì)自動(dòng)關(guān)閉。 [圖 6] (5)會(huì)員查詢界面 可以對(duì)會(huì)員進(jìn)行編號(hào)，姓名，班級(jí)的查詢。 [圖 8] (7)管理員設(shè)置界面 可以對(duì)登陸的用戶進(jìn)行添加，修改，查詢的設(shè)置。 系統(tǒng)退出 設(shè)計(jì)體會(huì) 經(jīng)過(guò)一個(gè)多月的設(shè)計(jì)和開(kāi)發(fā)，大中專學(xué)生信息管理系統(tǒng)基本開(kāi)發(fā)完畢。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。這些都有待進(jìn)一步改善。老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。另外，在系統(tǒng)開(kāi)發(fā)過(guò)程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 39。MsgBox 你可真聰明，這樣也能進(jìn)入系統(tǒng)？？？佩服 , 16, 我 服 你： 39。End End Sub Private Sub Form_Load () = 小薇 End Sub 會(huì)員管理代碼 Private Sub Command1_Click() = True = True = True = True = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒(méi)有記錄！ , 16, 出錯(cuò)： Else If = 修改記錄 Then = 修改完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄： Else If = Then MsgBox 姓名不能為空！ , 16, 出錯(cuò)： Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長(zhǎng) , 16, 出錯(cuò)： Exit Sub End If Next X = 修改記錄 = True = True = True = True = 5728 = 600 = 1500 = False = 數(shù)據(jù)輸入： End If End If End If End If End Sub Private Sub Command2_Click() If = True Then MsgBox 刷新成功！ , 16, 恭喜： Else End If MsgBox 刷新成功！ , 16, 恭喜： End Sub Private Sub Command5_Click() = True = True = True = True = True = True = True = True = True = True = True If = Or = Then MsgBox 編號(hào)或姓名不能為空！ , 16, 出錯(cuò)： = = 男 Else MsgBox 開(kāi)始添加信息！ , 64, 恭喜！ = False = False = False End If End Sub Private Sub Command6_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫(kù)中沒(méi)有信息可以刪除！ , 16, 出錯(cuò)！ Else MsgBox 您確定要?jiǎng)h除這條信息？ , 32, 出錯(cuò)！ If = Fal