【正文】 由此也告訴了我，任何事都不是一蹴而就的，我需要堅(jiān)定的對(duì)待每一件看似 簡(jiǎn)單實(shí)卻不然的 事情。它教會(huì)我更多的是知識(shí)以外的東西，做 這份課設(shè)要有 一顆勇 于迎接困難，接受挑戰(zhàn)的心態(tài)，還要一種特殊的自信心以及堅(jiān)持的毅力。但我還是有一點(diǎn)小小的滿(mǎn)足感。但是這次的課程設(shè)計(jì)是我第一次進(jìn)行的一次課程設(shè)計(jì)。這其中涉及到很多數(shù)據(jù)庫(kù)和VB當(dāng)中我所不知道的知識(shí)，許多東西都需要自己慢慢的摸索，自己慢慢的查書(shū)弄懂許多。這 次課設(shè)的 代碼編寫(xiě)還用到了嵌入式 SQL語(yǔ)句的執(zhí)行與應(yīng)用，但這個(gè)部分上課時(shí)卻完全沒(méi) 有涉及，所以這個(gè)方面也十分讓人苦惱，也需要自己進(jìn)行多次查書(shū)。才勉強(qiáng)的將這部分做過(guò)去 。運(yùn)行時(shí)它還要注意相關(guān)代碼所編寫(xiě)的環(huán)境。但這只是比較簡(jiǎn)單的部分。我至今都不太知道有些代碼的編寫(xiě)，只知道一些較為簡(jiǎn)單的代碼編寫(xiě)，比如有關(guān) If條件語(yǔ)句的編寫(xiě)和 For循環(huán)語(yǔ)句的編寫(xiě)，這些 還是源于之前有 C++的基礎(chǔ)才弄明白的。雖然報(bào)表和窗體的設(shè)計(jì)大大地減輕了編寫(xiě)代碼的負(fù)擔(dān)，但是編寫(xiě)代碼的困難性仍然比想象中的復(fù)雜很多。 接下來(lái)就到了最難的部分 —— 寫(xiě)相關(guān) 的代碼了。還有報(bào)表要設(shè)計(jì)成單個(gè)窗口的時(shí)候就感覺(jué)有一點(diǎn)麻煩了，費(fèi)了我不少的時(shí)間。再設(shè)計(jì)報(bào)表的時(shí)候由于出現(xiàn)的設(shè)計(jì)界面與設(shè)計(jì)窗體的時(shí)候的設(shè)計(jì)界面都一樣，就讓人感覺(jué)有一點(diǎn)無(wú)從下手了。但是對(duì)于標(biāo)簽就不行了，它是不允許其內(nèi)容被更改的，他在設(shè)計(jì)的時(shí)候必須要有內(nèi)容。我選擇的是剛開(kāi)始就不要忙著進(jìn)行學(xué)習(xí) 寫(xiě)相關(guān) 的代碼，先學(xué)會(huì)設(shè)計(jì)有關(guān)窗體和報(bào)表界面的設(shè)計(jì)。因?yàn)橛猩蠈W(xué)期進(jìn)行數(shù)據(jù)庫(kù)上機(jī)實(shí)踐的經(jīng)驗(yàn)，所以在建立表和應(yīng)用 SQL語(yǔ)言建立查詢(xún)都沒(méi)有什么太大的問(wèn)題。接下的物理設(shè)計(jì)就從略了?？傊?，概念設(shè)計(jì)這個(gè)環(huán)節(jié)相對(duì)整體來(lái)說(shuō)是比較容易的。因?yàn)榻?jīng)過(guò)一大半學(xué)期的數(shù)據(jù)庫(kù)學(xué)習(xí)，老師對(duì)全局 ER圖和局部 ER圖的教授得較多，因此我對(duì)這個(gè)部分的知識(shí)以及做法比較熟悉。 完成需求之后，就來(lái)到了概念設(shè)計(jì)。它主要包括數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)和處理過(guò)程共五個(gè)部分。而數(shù)據(jù)字典主要是在分析系統(tǒng)數(shù)據(jù)的基礎(chǔ)上所產(chǎn)生的，如果只含有數(shù)據(jù)流圖并不能構(gòu)成需 求說(shuō)明書(shū)，它并沒(méi)有說(shuō)明每個(gè)系統(tǒng)部分中的含義。我剛開(kāi)始甚至不知道數(shù)據(jù)流圖描述以及數(shù)據(jù)字典是什么概念，通過(guò)查 閱才知道數(shù)據(jù)流圖（ Data Flow Diagram，簡(jiǎn)記作 DFD）是從“數(shù)據(jù)”和“對(duì)數(shù)據(jù)的加工”兩方面表達(dá)數(shù)據(jù)處理系統(tǒng)工作過(guò)程的一種圖形表示方法，具有直觀、易于被用戶(hù)和軟件人員雙方理解的特點(diǎn)的一種表達(dá)系統(tǒng)功能的描述方式。根據(jù)下發(fā)的教務(wù)管理系統(tǒng)參考材料以及數(shù)據(jù)庫(kù)技術(shù)及應(yīng)用課程設(shè)計(jì)規(guī)范 化相關(guān) 材料，我做完了概論以及需求分析當(dāng)中的總體需求分析。所以這次的課程設(shè)計(jì)作業(yè)做的歷時(shí)較長(zhǎng)，直到快開(kāi)學(xué)的 的 前幾天才能夠完成。所以無(wú)需贅述。 對(duì)于病人窗體中的代碼較多且繁瑣，在此就不再多余的述說(shuō)。 上述類(lèi)似的用法在醫(yī)生將病人的身體狀況信息的錄入部分也有應(yīng)用，這個(gè)部分最后是調(diào)用DoCmd對(duì)象的 OpenReport的方法來(lái)打開(kāi)已設(shè)計(jì)好的“身體狀況查詢(xún)”報(bào)表。按條件打開(kāi)身體狀況查詢(xún)報(bào)表 病人 查詢(xún) , , , sql End Sub 比如在病人信息維護(hù) 的編寫(xiě)代碼中，多次使用了 For循環(huán)語(yǔ)句和 If? Then條件語(yǔ)句，首24 醫(yī)務(wù)管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng) 24 先定義兩個(gè)字符串并對(duì)他們賦予初始值，然后將各個(gè)文本框所輸入的查詢(xún)條件分別賦值給數(shù)組元素 ，通過(guò) If條件語(yǔ)句依次判斷每個(gè)文本框中是否為空，如果為空，則相應(yīng)的字符串維持原值，否則 則將 條件賦予給相應(yīng)字符串變量，這樣就將用戶(hù)所輸入的四個(gè)條件分別存儲(chǔ)在了字符串?dāng)?shù)組的四個(gè)變量當(dāng)中。在除第一個(gè)非空條件的其他非空條件前加上 and 字符串 For i = 0 To 1 If s(i) Then For j = i + 1 To 1 If s(j) Then s(j) = and + s(j) End If Next j Exit For End If Next i 39。給字符串變量賦初值，避免運(yùn)算中出現(xiàn) NULL 值 sql = For i = 0 To 1 s(i) = Next i 39。按條件打開(kāi)身體狀況查詢(xún)報(bào)表 身體狀況查詢(xún) , acViewReport, , sql End Sub （ 3）此段為病人信息的維護(hù)： Private Sub 病人個(gè)人信息 _Click() 39。在除第一個(gè)非空條件的其他非空條件前加上 and 字符串 For i = 0 To 4 If s(i) Then For j = i + 1 To 4 If s(j) Then s(j) = and + s(j) End If Next j Exit For End If Next i 39。給字符串變量賦初值，避免運(yùn)算中出現(xiàn) NULL 值 sql = For i = 0 To 4 s(i) = Next i 39。將登錄界面信息清空 Forms![登錄界面 ]![工作證號(hào) ] = Null Forms![登錄界面 ]![醫(yī)生密碼 ] = Null End Sub Private Sub 病人身體狀況信息 _Click() 39。 華中科技大學(xué)電氣與電子工程學(xué)院數(shù)據(jù)庫(kù)及應(yīng)用課程設(shè)計(jì) 21 21 sql Else MsgBox 病歷號(hào)錯(cuò)誤，請(qǐng)重新輸入！ , vbOKOnly, 提示 End If End Sub Private Sub 退出登錄 _Click() 39。將當(dāng)前登錄醫(yī)生所輸入的其選擇該診治項(xiàng)目的病人身體狀況保存到身體狀況數(shù)據(jù)表中 Dim sql As String 39。 _ 年齡 = + + Nz( ) + ,登錄密碼 = + + Nz( ) + where 工作證號(hào) = + + + 。將醫(yī)生個(gè)人信息的更改保存到醫(yī)生數(shù)據(jù)表 Dim sql As String 39。 39。 amp。) = DLookup([登錄密碼 ], 醫(yī)生 , [工作證號(hào) ]= amp。 amp。 39。 39。 amp。) = DLookup([職稱(chēng) ], 醫(yī)生 , [工作證號(hào) ]= amp。 amp。 39。) = True 39。 amp。 39。 39。 amp。根據(jù)登錄工作證號(hào)從 醫(yī)生數(shù)據(jù)表中查找其他信息并顯示 20 醫(yī)務(wù)管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng) 20 = DLookup([醫(yī)生姓名 ], 醫(yī)生 , [工作證號(hào) ]= amp。所以醫(yī)生窗體的代碼設(shè)計(jì)成了如下所示： （ 1）此段為醫(yī)生的個(gè)人信息： Private Sub Form_Current() 39。 對(duì)于醫(yī)生窗體的下半部分窗體主要是實(shí)現(xiàn)三個(gè)部分的不同功能，其分別為病人個(gè)人信息的管理和病人個(gè)人診治信息的選擇，醫(yī)生個(gè)人信息的維護(hù)以及醫(yī)生對(duì)病人身體狀況信息的輸入與更新。amp。工作證號(hào)是引用登陸界面的登錄醫(yī)生工作證號(hào)，其余兩條信息是通過(guò)調(diào)用DLookUp（）函數(shù)來(lái)在基本表中查找，以姓名舉例，調(diào)用格式為 ： DLookUp（ ”[姓