數(shù)據(jù)庫(kù)語(yǔ)言第10章

1、功能。（5）信息可對(duì)門診系統(tǒng)的一些信息進(jìn)行2.系統(tǒng)設(shè)計(jì)（1） 確定所需要的表：。病患表、醫(yī)生表、就診表、?？圃\所表有 4 個(gè)實(shí)體：、醫(yī)生、醫(yī)生處方和藥品。與醫(yī)生之間的關(guān)系為掛號(hào)，病人與藥品之間的關(guān)系為處方劃價(jià)，3 個(gè)實(shí)體各自為一個(gè)表，實(shí)體之間的關(guān)系各自為一個(gè)表。系統(tǒng)的維護(hù)需要明確使用者的，因此，在系統(tǒng)登錄時(shí)對(duì)使用者要進(jìn)行的確認(rèn)，通過(guò)一個(gè)表來(lái)系統(tǒng)所有的用戶及其操作權(quán)限。（2） 確定表的結(jié)構(gòu)及主鍵表：編號(hào)，姓名，醫(yī)生表：醫(yī)生編號(hào)，姓名，出生日期，居住地址，初次就診時(shí)間，、出生日期、畢業(yè)院校、科室掛號(hào)表：掛號(hào)編號(hào)，編號(hào)，醫(yī)生編號(hào)，掛號(hào)時(shí)間，科室，掛號(hào)類別，掛號(hào)費(fèi) 藥品表：藥品編號(hào)，藥品名稱，藥品規(guī)格

2、，數(shù)量，入庫(kù)單價(jià)，出庫(kù)單價(jià)，出庫(kù)時(shí)間處方表：處方編號(hào)，掛號(hào)編號(hào)，藥品編號(hào)用戶表：自動(dòng)編號(hào)，用戶名，10.1.2 功能描述了解系統(tǒng)的基本需求和結(jié)構(gòu)后，要明確系統(tǒng)的功能母版，設(shè)計(jì)好各個(gè)功能模塊。在這個(gè)系統(tǒng)中，可以設(shè)計(jì)以下幾個(gè)模塊：系統(tǒng)登錄模塊：系統(tǒng)的登錄模塊是維護(hù)數(shù)據(jù)庫(kù)系統(tǒng)安全最簡(jiǎn)單、直接的方法，在任何一個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中，這個(gè)功能是必須的。信息錄入模塊：初次來(lái)醫(yī)院就診的院的所有活動(dòng)，包括診斷、治療、回訪等。需要建立一個(gè)新的病案，以便在醫(yī)掛號(hào)信息的錄入：用來(lái)完成號(hào)科室、醫(yī)生等信息。的掛號(hào)過(guò)程信息，包括掛號(hào)的類別、費(fèi)用、掛醫(yī)生處方的錄入：的診療過(guò)程中，醫(yī)師所開(kāi)具的處方是診療費(fèi)用的依據(jù)，處方中包括及醫(yī)

3、生的信息，以及藥品的使用情況處方劃價(jià)操作：根據(jù)醫(yī)生所開(kāi)具的處方，計(jì)算處方的藥品使用情況，處方費(fèi)用。并的交費(fèi)情況。對(duì)門診的信息進(jìn)行，包括各個(gè)科室的門診量統(tǒng)計(jì)、藥品的情況顯示等。根據(jù)系統(tǒng)的功能，設(shè)計(jì)如下系統(tǒng)模塊：1.系統(tǒng)登錄模塊：系統(tǒng)登錄模塊是維護(hù)系統(tǒng)安全最為簡(jiǎn)單的方法，是所有數(shù)據(jù)庫(kù)系統(tǒng)所必須具備的。信息管理模塊：完成基本信息即首頁(yè)相關(guān)內(nèi)容的管理，對(duì)初次就診的相關(guān)信息。2.進(jìn)行新增操作。對(duì)已經(jīng)就診過(guò)的3.門診掛號(hào)模塊：根據(jù)各個(gè)科室的醫(yī)生出診的情況，進(jìn)行掛號(hào)操作，信息及接診醫(yī)生的情況。的掛號(hào)4.處方生成模塊：由接診醫(yī)生根據(jù)情況，開(kāi)具相關(guān)的處方，處方中包括相關(guān)的藥品信息。5.劃價(jià)交費(fèi)模塊：根據(jù)醫(yī)生處方

4、給出的數(shù)據(jù)，并的交費(fèi)情況。模塊：包括各個(gè)科室各不同掛號(hào)類別的門診量的統(tǒng)計(jì)，醫(yī)生出診情況的統(tǒng)計(jì)，。6.藥品信息的10.2數(shù)據(jù)庫(kù)的創(chuàng)建明確功能目標(biāo)就可以開(kāi)始數(shù)據(jù)庫(kù)設(shè)計(jì)。數(shù)據(jù)庫(kù)設(shè)計(jì)中最為重要的是表的設(shè)計(jì)，表結(jié)構(gòu)設(shè)計(jì)好壞直接影響到數(shù)據(jù)庫(kù)的性能。良好的表的結(jié)構(gòu)設(shè)計(jì)是數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)過(guò)程中的重要一步。10.2.1 創(chuàng)建數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)設(shè)計(jì)的第一步是要先建立一個(gè)空數(shù)據(jù)庫(kù)，以便在其中建立任務(wù) 1：建立一個(gè)空數(shù)據(jù)庫(kù)，名稱為 menzhen.accdb。操作步驟：的表及相關(guān)內(nèi)容。1) 啟動(dòng) Access 2007，單擊窗口左上角的 office 按鈕，功能菜單中選擇“新建”，2) 或者直接單擊屏幕正中的“空白數(shù)據(jù)庫(kù)”按

5、鈕，隨后窗口右下角輸入數(shù)據(jù)庫(kù)的名字， 單擊名稱邊的小文件夾圖標(biāo)定義數(shù)據(jù)庫(kù)的位置，如圖 9-1 所示。確認(rèn)后單擊“創(chuàng)建”按鈕完成。圖 9-1 建立空白數(shù)據(jù)庫(kù)10.2.2 創(chuàng)建數(shù)據(jù)庫(kù)表進(jìn)入空數(shù)據(jù)庫(kù)即可開(kāi)始表的創(chuàng)建，在建立空數(shù)據(jù)庫(kù)時(shí)，系統(tǒng)就已經(jīng)自動(dòng)創(chuàng)建了一個(gè)“表1”數(shù)據(jù)表，對(duì)其進(jìn)行編輯可作為第一個(gè)表的建立方法。任務(wù) 2：創(chuàng)建用戶表。操作步驟：1)【開(kāi)始】選項(xiàng)卡上單擊“視圖”按鈕選擇“設(shè)計(jì)視圖”，或者右鍵單擊表 1 在快捷菜單中選擇“設(shè)計(jì)視圖”，如圖 8-2 所示。圖 9-2 表的設(shè)計(jì)視圖轉(zhuǎn)換框，將表的名字改為“用戶表”，選擇“確定”，如圖 8-3 所示。2)出現(xiàn)“另存為”圖 8-3 保存新表3)進(jìn)入

6、表結(jié)構(gòu)的設(shè)計(jì)視圖，輸入表各個(gè)字段的名稱、數(shù)據(jù)類型，如圖 9-4 所示結(jié)果：圖 9-4 用戶表結(jié)構(gòu)設(shè)計(jì)各字段設(shè)置如表 9-1：表 9-1 用戶表的字段數(shù)據(jù)4)Ctrl+s 或者窗口左上角“保存”按鈕，保存表。表的創(chuàng)建也可通過(guò)【新建】選項(xiàng)卡上的“表”按鈕，進(jìn)入表的設(shè)計(jì)視圖，進(jìn)行表結(jié)構(gòu)設(shè)計(jì)。通過(guò)以上方法，分別創(chuàng)建醫(yī)生、處方、藥品、掛號(hào)表，這幾個(gè)表的結(jié)構(gòu)如下所示：表 9-2表結(jié)構(gòu)字段名數(shù)據(jù)類型寬度是否主鍵編號(hào)文本8是文本8否文本2否出生日期日期/時(shí)間否居住地址文本100否字段名數(shù)據(jù)類型寬度是否主鍵ID自動(dòng)編號(hào)長(zhǎng)整型是用戶名文本8否文本8否表 9-3醫(yī)生表結(jié)構(gòu)表 9-4掛號(hào)表結(jié)構(gòu)表 9-5 藥品表結(jié)構(gòu)表

7、 9-6 處方表結(jié)構(gòu)字段名數(shù)據(jù)類型寬度是否主鍵自動(dòng)編號(hào)自動(dòng)編號(hào)長(zhǎng)整型是掛號(hào)編號(hào)文本8否藥品編號(hào)文本8否開(kāi)具時(shí)間日期/時(shí)間否數(shù)量數(shù)字長(zhǎng)整型否單價(jià)數(shù)字單精度否小計(jì)數(shù)字單精度否交費(fèi)狀態(tài)是/否否字段名數(shù)據(jù)類型寬度是否主鍵藥品編號(hào)文本8是藥品名稱文本50否藥品規(guī)格文本20否數(shù)量數(shù)字長(zhǎng)整型否出庫(kù)單價(jià)數(shù)字單精度否入庫(kù)單價(jià)數(shù)字單精度否文本50否字段名數(shù)據(jù)類型寬度是否主鍵掛號(hào)編號(hào)文本8是編號(hào)文本8是醫(yī)生編號(hào)文本8是就診時(shí)間日期/時(shí)間否掛號(hào)類別文本10否掛號(hào)費(fèi)數(shù)字長(zhǎng)整型否科室文本20否字段名數(shù)據(jù)類型寬度是否主鍵醫(yī)生編號(hào)文本8是文本8否文本2否出生日期日期/時(shí)間否文本16否科室文本20否畢業(yè)院校文本50否OLE 對(duì)

8、象否掛號(hào)數(shù)量數(shù)字長(zhǎng)整型否文本20否初次就診時(shí)間日期/時(shí)間否10.2.3 建立表間關(guān)系數(shù)據(jù)庫(kù)在設(shè)計(jì)時(shí)，為了避免冗余數(shù)據(jù)的產(chǎn)生，將數(shù)據(jù)表拆分成了較小單元，通過(guò)各個(gè)表之間建立關(guān)系來(lái)完成從各個(gè)數(shù)據(jù)庫(kù)表中提取相應(yīng)的操作字段。通常在表的設(shè)計(jì)完成之后就需要進(jìn)行表的關(guān)系設(shè)置。任務(wù) 3：設(shè)置各個(gè)表之間的關(guān)系。操作步驟：【數(shù)據(jù)庫(kù)工具】選項(xiàng)卡上單擊“關(guān)系”按鈕 ，進(jìn)入關(guān)系的編輯狀態(tài)。1)2)空白處單擊右鍵，快捷菜單中選擇“顯示表”，出現(xiàn)顯示表框，如圖 9-5 所示。圖 9-5 顯示表選擇要設(shè)置關(guān)系的表，這里添加除用戶表之外的 5 個(gè)表。3)4)關(guān)系”選擇掛號(hào)表中的編號(hào)字段，拖動(dòng)到表的編號(hào)字段上放下，出現(xiàn)“編輯框，如

9、圖 9-6 所示。圖 9-6 編輯表關(guān)系重復(fù)以上步驟，為表建立關(guān)系，如圖 9-7 所示。其中處方表與藥品的關(guān)系編輯中設(shè)5)置了“實(shí)施參照完整性”，以保證處方中所使用的都是在藥品表中出現(xiàn)的。圖 9-7 表關(guān)系設(shè)置結(jié)果6)單擊“關(guān)閉”按鈕，在彈出的保存提示框中選擇“是”將表關(guān)系保存。的設(shè)計(jì)10.3是以數(shù)據(jù)庫(kù)中數(shù)據(jù)為數(shù)據(jù)源，根據(jù)指定條件從數(shù)據(jù)庫(kù)中選取符合條件的，形成一個(gè)新的集合，這個(gè)集合可以是臨時(shí)的，也可以轉(zhuǎn)成的。表在設(shè)計(jì)時(shí)以減少冗余為目的，因此單靠一個(gè)表的信息通常不能滿足一定的要求。要實(shí)現(xiàn)系統(tǒng)的設(shè)計(jì)功能，中間的臨時(shí)集合需要事先建立，然后可在此基礎(chǔ)上設(shè)計(jì)窗體實(shí)現(xiàn)數(shù)據(jù)操作，設(shè)計(jì)報(bào)表實(shí)現(xiàn)數(shù)據(jù)輸出。1.“

10、掛號(hào)詳細(xì)”掛號(hào)操作中需要確認(rèn)掛號(hào)的姓名、醫(yī)生姓名、醫(yī)生科室等信息，這些內(nèi)容不包含在掛號(hào)表中，因此需要與任務(wù) 4：建立掛號(hào)詳細(xì)操作步驟：表和醫(yī)生表連接后生成一個(gè)集合，以便于操作?！緞?chuàng)建】選項(xiàng)卡“其他”組中選擇“設(shè)計(jì)”按鈕，進(jìn)入設(shè)計(jì)視圖，出現(xiàn)“顯示1)表”框，參考圖 9-5。添加掛號(hào)表、表、醫(yī)生表。向設(shè)計(jì)網(wǎng)格中添加字段，拖動(dòng)掛號(hào)表中的掛號(hào)編號(hào)、就診日期、科室放置到網(wǎng)2)格的字段中，再放置表中的姓名，以及醫(yī)生表中的姓名。結(jié)果如圖 9-8 所示。圖 9-8 “掛號(hào)詳細(xì)”的設(shè)計(jì)3)單擊“保存”按鈕，將當(dāng)前保存為“掛號(hào)詳細(xì)”。2.“交費(fèi)”交費(fèi)的確認(rèn)過(guò)程中，需要了解處方的詳細(xì)信息，包含處方中的藥品、的信息、

11、開(kāi)具處方的醫(yī)生信息等。因此所要涉及的表有掛號(hào)表、處方、任務(wù) 5：建立交費(fèi)操作步驟：、醫(yī)生和藥品表?！緞?chuàng)建】選項(xiàng)卡“其他”組中選擇“ 框，參考圖 9-5。添加“掛號(hào)表”、“設(shè)計(jì)”按鈕，進(jìn)入設(shè)計(jì)視圖，出現(xiàn)“顯示表”、“醫(yī)生”、“處方”、“藥品表”。如圖1)表”9-1 所示，“處方表”與“掛號(hào)表”之間沒(méi)有關(guān)聯(lián)。圖 9-10中表的初始關(guān)系2)將“處方表”中的“掛號(hào)編號(hào)”與“掛號(hào)表”中的字段建立關(guān)聯(lián)。拖動(dòng)“處方表”的“掛號(hào)編號(hào)”到“掛號(hào)表”。3)向設(shè)計(jì)網(wǎng)格中添加字段，拖動(dòng)“掛號(hào)表”中的“掛號(hào)編號(hào)”、“就診日期”、“科室”放置到網(wǎng)格的字段中，再放置“”表中的“姓名”，以及“醫(yī)生”表中的“姓名”，“處方”表

12、中的“數(shù)量”、“單價(jià)”、“小計(jì)”、“交費(fèi)狀態(tài)”，“藥品”表中的“藥品名稱”、“單位”。4)添加條件。在網(wǎng)格中的掛號(hào)編號(hào)下的“條件”行中輸入條件為“輸入掛號(hào)編號(hào)”，結(jié)果如圖 9-11 所示。圖 9-11 交費(fèi)的設(shè)計(jì)視圖3.“門診量統(tǒng)計(jì)”門診量的統(tǒng)計(jì)是模塊的一部分，的結(jié)果由報(bào)表輸出，因此必須事先建立記錄集。門診量的統(tǒng)計(jì)要求是輸出以科室為分類的，各個(gè)科室的門診量，以及門診總量，其中還應(yīng)顯示出在門診中掛號(hào)類別的統(tǒng)計(jì)數(shù)據(jù)。在此使用交叉表。任務(wù) 6：建立門診量統(tǒng)計(jì)的交叉表操作步驟：【創(chuàng)建】選項(xiàng)卡“其他”組中選擇“ 框，參考圖 9-5。添加掛號(hào)表。設(shè)計(jì)”按鈕，進(jìn)入設(shè)計(jì)視圖，出現(xiàn)“顯示1)表”【設(shè)計(jì)】選項(xiàng)卡“

13、類型”組中選擇“交叉表（B）”，在設(shè)計(jì)網(wǎng)格中將自動(dòng)增加2)“總計(jì)”和“交叉表”行。3) 拖動(dòng)“科室”、“掛號(hào)類別”字段放置到網(wǎng)格分別在“交叉表”行設(shè)置為“行標(biāo)題” 和“列標(biāo)題”。4) 拖動(dòng)“科室”字段放置到網(wǎng)格字段行，設(shè)置“總計(jì)”行為“計(jì)算”，“交叉表”行設(shè)置為“值”5)增加新列。在新列的“字段”行中輸入：各科室掛號(hào)統(tǒng)計(jì):科室，“總計(jì)”行中設(shè)置為“計(jì)算”，“交叉表”行設(shè)置為“行標(biāo)題”。設(shè)置結(jié)果如圖 9-12 所示。圖 9-12 門診量統(tǒng)計(jì)6)單擊“運(yùn)行”按鈕，查看運(yùn)行結(jié)果。4.“醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)”設(shè)計(jì)醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)是以醫(yī)生為分類標(biāo)準(zhǔn)，統(tǒng)計(jì)各個(gè)醫(yī)生的掛號(hào)量。相關(guān)信息設(shè)計(jì)醫(yī)生表和掛號(hào)表，結(jié)果要以醫(yī)生

14、姓名為分類標(biāo)準(zhǔn)，對(duì)醫(yī)生的掛號(hào)費(fèi)進(jìn)行求和運(yùn)算。任務(wù) 7：建立醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)操作步驟：【創(chuàng)建】選項(xiàng)卡“其他”組中選擇“框，參考圖 9-5。添加掛號(hào)表、醫(yī)生表。設(shè)計(jì)”按鈕，進(jìn)入設(shè)計(jì)視圖，出現(xiàn)“顯示1)表”單擊【設(shè)計(jì)】選項(xiàng)卡“顯示/隱藏”組中的“匯總”按鈕，網(wǎng)格中顯示“總計(jì)”行。拖動(dòng)“醫(yī)生”表中的“姓名”到網(wǎng)格“字段”行第一列。字段行第二列輸入：掛號(hào)數(shù)量統(tǒng)計(jì):姓名，“總計(jì)”設(shè)置為“計(jì)算”。拖動(dòng)“掛號(hào)表”中的“掛號(hào)費(fèi)”到“字段”行第三列，設(shè)置“總計(jì)”行為“合計(jì)”。2)3)4)5)6)將“醫(yī)生”表中的“科室”、“”放置到隨后的字段行。設(shè)置完成的設(shè)計(jì)如圖 9-13 所示。圖 9-13 醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)設(shè)計(jì)7)

15、單擊“保存”按鈕，將保存為“醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)”，單擊“運(yùn)行”按鈕，查看運(yùn)行結(jié)果。5.“處方詳細(xì)”處方表中只有醫(yī)生編號(hào)和編號(hào)，處方詳細(xì)就是要將處方中的醫(yī)生、的詳細(xì)信息包含進(jìn)去，以便于醫(yī)生在生成處方時(shí)核對(duì)。任務(wù) 8：建立處方詳細(xì)操作步驟：【創(chuàng)建】選項(xiàng)卡“其他”組中選擇“框，參考圖 9-5。添加掛號(hào)表、醫(yī)生表、設(shè)計(jì)”按鈕，進(jìn)入設(shè)計(jì)視圖，出現(xiàn)“顯示表。1)表”將掛號(hào)表中的“掛號(hào)編號(hào)”、“就診時(shí)間”、“科室”拖動(dòng)到網(wǎng)格的字段行，再分別將2)醫(yī)生表、表中的“姓名”字段拖動(dòng)到字段行即可完成設(shè)計(jì)。10.4窗體的設(shè)計(jì)窗體是人機(jī)交流的主要工具，對(duì)數(shù)據(jù)庫(kù)的、查看、數(shù)據(jù)的輸入、輸出都是通過(guò)窗體完成的。因此在系統(tǒng)設(shè)計(jì)中，

16、窗體是實(shí)現(xiàn)系統(tǒng)功能的主要載體。一個(gè)系統(tǒng)中會(huì)建立多個(gè)窗體，每個(gè)窗體通常對(duì)應(yīng)一個(gè)表或，可以通過(guò)添加嵌套的子窗體實(shí)現(xiàn)多個(gè)表的信息操作。窗體的設(shè)計(jì)與功能設(shè)計(jì)是相關(guān)的，根據(jù)系統(tǒng)的功能設(shè)計(jì)，主要有以下窗體：1.“登錄”窗體設(shè)計(jì)登錄窗體是系統(tǒng)運(yùn)行的任務(wù) 9：設(shè)計(jì)登錄窗體操作步驟：，應(yīng)該完成檢測(cè)用戶名與的功能。1) 打開(kāi)“用戶”表，【創(chuàng)建】選項(xiàng)卡“窗體”組，“其他窗體”按鈕的下拉列表中選擇 “窗體向?qū)А?，快速建立一個(gè)窗體。2) 【設(shè)計(jì)】選項(xiàng)卡“工具”組，單擊“屬性表”按鈕打開(kāi)屬性表。3) 添加 2 個(gè)按鈕控件，取消控件向?qū)А?) 選擇窗體中的文本框，設(shè)置將其屬性，控件的屬性設(shè)置如表 9-7。如圖 9-14（a

17、） 為窗體的設(shè)計(jì)視圖。9-14（b）為窗體的運(yùn)行視圖。表 9-7 登錄窗體中的控件及其屬性設(shè)置控件屬性屬性值屬性表中的位置文本框名稱Username其他-名稱文本框名稱Password其他-名稱輸入掩碼數(shù)據(jù)-輸入掩碼按鈕名稱Command5其他-名稱標(biāo)題確定格式-標(biāo)題按鈕名稱Command6其他-名稱標(biāo)題取消格式-標(biāo)題窗體名稱登錄其他-名稱標(biāo)題系統(tǒng)登錄格式-標(biāo)題源空數(shù)據(jù)-源彈出方式是其他-彈出方式模式是其他=模式（a）圖 9-14 登錄窗體（b）2.“主菜單”窗體設(shè)計(jì)主菜單窗體上為系統(tǒng)功能模塊的顯示，分別對(duì)應(yīng)一個(gè)按鈕，單擊按鈕進(jìn)入相應(yīng)的功能模塊。任務(wù) 10：創(chuàng)建主菜單窗體操作步驟：1) 【創(chuàng)建

18、】選項(xiàng)卡“窗體”組，單擊“窗體設(shè)計(jì)”按鈕，進(jìn)入窗體設(shè)計(jì)。2) 選擇【設(shè)計(jì)】選項(xiàng)卡“控件”組中的控件，向窗體中添加控件：標(biāo)題和 8 個(gè)按鈕。設(shè)置控件屬性，如表 9-8 所示。表 9-8控件及其屬性3)可通過(guò)【排列】選項(xiàng)卡上的“控件對(duì)齊方式”組中的相關(guān)按鈕，調(diào)整窗體中控件的位置。窗體視圖下如圖 9-15 所示。控件屬性屬性值屬性表中的位置按鈕名稱Command0其他-名稱標(biāo)題信息管理格式-標(biāo)題按鈕名稱Command1其他-名稱標(biāo)題門診掛號(hào)格式-標(biāo)題按鈕名稱Command2其他-名稱標(biāo)題開(kāi)具處方格式-標(biāo)題按鈕名稱Command3其他-名稱標(biāo)題劃價(jià)格式-標(biāo)題按鈕名稱Command4其他-名稱標(biāo)題門診量

19、統(tǒng)計(jì)格式-標(biāo)題按鈕名稱Command5其他-名稱標(biāo)題醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)格式-標(biāo)題按鈕名稱Command6其他-名稱標(biāo)題藥品信息格式-標(biāo)題窗體名稱主菜單其他-名稱標(biāo)題系統(tǒng)主菜單格式-標(biāo)題彈出方式是其他-彈出方式模式是其他=模式圖 9-15 系統(tǒng)主菜單窗體信息管理”窗體設(shè)計(jì)3.“信息管理模塊主要完成初診基本信息的錄入，信息的修改、刪除和等操作，所涉及的表是任務(wù) 11：創(chuàng)建操作步驟：表。因此，使用窗體向?qū)Ы⒁粋€(gè)表的信息管理窗體顯示窗體是很便捷的。1)【創(chuàng)建】選項(xiàng)卡“窗體”組，單擊“其他窗體”下拉列表選擇“窗體向?qū)А薄?)窗體向?qū)е卸x：選擇表，選中全部字段；布局為“縱欄表”；樣式為“辦公室”，標(biāo)題為：

20、3)添加添加“轉(zhuǎn)至下一項(xiàng)信息管理，進(jìn)入窗體設(shè)計(jì)視圖。導(dǎo)航按鈕?！驹O(shè)計(jì)】選項(xiàng)卡“控件”組，添加按鈕，進(jìn)入控件導(dǎo)航，分別”、“轉(zhuǎn)至前一項(xiàng)”、“轉(zhuǎn)至最后一項(xiàng)”、“轉(zhuǎn)至第一項(xiàng)”“查找”?？蓞⒖急緯?5.3.1 節(jié)中的相關(guān)內(nèi)容。4)添加操作按鈕。與步驟（3）類似，在按鈕的控件導(dǎo)航中“類別”選擇“操作”，如圖 9-16 所示，添加“保存”、“刪除”、“添加新”按鈕。圖 9-16 添加操作按鈕5)添加窗體操作按鈕。與步驟（4）類似，控件向?qū)е小邦悇e”選擇“窗體操作”中的“關(guān)閉窗體”。6)保存當(dāng)前窗體為“信息管理”。窗體如圖 9-17 所示。圖 9-17信息管理窗體4.“門診掛號(hào)”窗體設(shè)計(jì)門診掛號(hào)模塊所設(shè)計(jì)的

21、表比較多，在掛號(hào)的過(guò)程中，除要顯示出、醫(yī)生的相關(guān)信息，還要顯示出當(dāng)前掛號(hào)的情況，掛號(hào)的過(guò)程是要在掛號(hào)表中生成一條新，的內(nèi)容包括、醫(yī)生的信息，同時(shí)包含所掛號(hào)的類別及掛號(hào)費(fèi)的情況。這個(gè)窗體涉及到三個(gè)表：、醫(yī)生、掛號(hào)表。操作時(shí)以信息為主，通過(guò)對(duì)的確認(rèn)，再選擇醫(yī)生的相關(guān)信息，最后結(jié)合 2 部分信息添加一個(gè)掛號(hào)的新。窗體的源是，通過(guò)添加子窗體的方法建立與掛號(hào)表的連接，通過(guò) ADO 的方法將用戶選擇的與醫(yī)生的信息結(jié)合在一起，寫入掛號(hào)表中。任務(wù) 12：建立門診掛號(hào)窗體操作步驟：1)使用窗體向?qū)?chuàng)建“”表信息的窗體，必須包含的字段為“編號(hào)”，其余可任選，這里選了“出生日期”和“姓名”，設(shè)置為縱欄表，標(biāo)題為“門

22、診掛號(hào)”，進(jìn)入設(shè)計(jì)視圖。添加導(dǎo)航按鈕。分別添加“轉(zhuǎn)至下一項(xiàng)”、“轉(zhuǎn)至前一項(xiàng)”、“轉(zhuǎn)至最后2)一項(xiàng)3)”、“轉(zhuǎn)至第一項(xiàng)”“查找”?？蓞⒖急緯?5.3.1 節(jié)中的相關(guān)內(nèi)容。繪制一個(gè)邊框。單擊【設(shè)計(jì)】選項(xiàng)卡“控件”組中的“選項(xiàng)組”按鈕，繪制后取消控件向?qū)?，設(shè)置控件的屬性：格式-背景樣式設(shè)置為“透明”，并修改配套人信息”。的標(biāo)題為“病4)添加科室組合框。單擊【設(shè)計(jì)】選項(xiàng)卡“控件”組中的“組合框”按鈕，進(jìn)入控件向?qū)?，選擇“自行鍵入所需的值”，如圖 9-18 所示。5)單擊，輸入組合框的取值，如圖 9-19 所示。圖 9-18 組合框選項(xiàng)圖 9-19 組合框的取值定義6)單擊 如圖 9-20 所示。，設(shè)置

23、組合框選擇結(jié)果的存放方式。選擇“記憶該數(shù)值供以后使用”，圖 9-20 組合框選擇結(jié)果的存放設(shè)置7)單擊，定義配套框的標(biāo)題為“選擇科室”。8) 設(shè)置組合框的名稱為“keshi”。9) 類似方法添加名稱為“l(fā)eibie”的組合框，取值為“普通號(hào)”、“10) 其他要添加的控件及屬性設(shè)置如表 9-9 所示。表 9-9 添加控件及其屬性號(hào)”、“特需”。說(shuō)明：名稱為 dtime 的文本框放置在窗體的標(biāo)題位置，刪除了其配套的前系統(tǒng)日期?？颍瑢⒂米鲲@示當(dāng)名稱為 Command1 的按鈕，是使用控件向?qū)砑拥念愋蜑椤按绑w操作”的“刷新窗體數(shù)據(jù)”按鈕；名稱為 Command2 的按鈕，是使用控件向?qū)砑拥念愋蜑椤?/p>

24、窗體操作”的“關(guān)閉窗體”按鈕。列表框控件在設(shè)置出診的醫(yī)生取消控件向?qū)?，直接放置在窗體中即可。列表框?qū)⒂脕?lái)顯示當(dāng)前名稱為 tt 的文本框?qū)⒂脕?lái)顯示被選擇的醫(yī)生的醫(yī)生編號(hào)。11) 添加掛號(hào)表子窗體控件?！驹O(shè)計(jì)】選項(xiàng)卡“控件”組中單擊“子窗體”按鈕，繪制子窗體，并進(jìn)入控件向?qū)?，選擇“如圖 9-21 所示。12) 單擊13) 單擊，定義數(shù)據(jù)源為掛號(hào)表，并選中其所有字段。，定義子窗體與主窗體的連接，以“編號(hào)”為連接字段，即當(dāng)主窗體中的編號(hào)發(fā)生變化時(shí)，子窗體中的進(jìn)行相應(yīng)的調(diào)整。設(shè)置如圖 9-22 所示?？丶傩詫傩灾滴谋究蛎QDtime文本框名稱Tt文本框配套框標(biāo)題醫(yī)生編號(hào)列表框名稱Docname列表框配

25、套框標(biāo)題掛號(hào)類別按鈕名稱Guahao標(biāo)題生成掛號(hào)信息按鈕名稱Command1標(biāo)題刷新按鈕名稱Command11標(biāo)題查看號(hào)源按鈕名稱Command2圖片圖像（關(guān)閉窗口）圖 9-21 子窗體的控件向?qū)D 9-22 定義子窗體的連接方式14) 指定子窗體名稱，完成子窗體設(shè)置。最后設(shè)置完成后窗體設(shè)計(jì)視圖下如圖 9-23 所示。圖 9-23 門診掛號(hào)窗體設(shè)計(jì)視圖5.“處方輸入”窗體設(shè)計(jì)處方輸入是在掛號(hào)的基礎(chǔ)上，在確認(rèn)了與醫(yī)生的相關(guān)信息后，形成電子處方的過(guò)程。電子處方除包含醫(yī)生、藥品的相關(guān)信息外，還應(yīng)包括處方的開(kāi)具時(shí)間。為了醫(yī)生輸入藥品的方便，在此窗體中還將藥品的相關(guān)信息以子窗體的形式。另一個(gè)子窗體是處方

26、的子窗體，可將以往的處方按鈕可看到新生成的處方。任務(wù) 13：建立處方輸入窗體操作步驟：，當(dāng)前處方輸入后，單擊“刷新”1)【創(chuàng)建】選項(xiàng)卡“窗體”組，單擊“窗體設(shè)計(jì)”按鈕，進(jìn)入窗體設(shè)計(jì)視圖。2)窗體屬性設(shè)置。單擊空白處，屬性表中【數(shù)據(jù)】選項(xiàng)卡，設(shè)置“源”“掛號(hào)詳細(xì)”3)。【格式】選項(xiàng)卡“標(biāo)題”為“處方輸入”，窗體保存為“處方生成”。具有數(shù)據(jù)綁定的文本框?！驹O(shè)計(jì)】選項(xiàng)卡“控件”組，文本框，取消控件向?qū)?，指定文本框的屬性；【?shù)據(jù)】選項(xiàng)卡“源”中指定“掛號(hào)編號(hào)”。4)重復(fù)步驟（3），分別.姓名”、“醫(yī)生.姓名”。4 個(gè)文本框，指定“源”為：“科室”、“就診時(shí)間”、“窗體”?！驹O(shè)計(jì)】選項(xiàng)卡“控件”組中“子

27、窗體”控件，進(jìn)入子窗體5)向?qū)В付ā爸付ìF(xiàn)有的表和”，選擇“藥品”表，選取所有字段。即可選擇“完成”。配套的6)框，即子窗體顯示時(shí)的名稱為“選擇藥品”。窗體的文本框鎖定。設(shè)置鎖定是在運(yùn)行時(shí)不用戶修改數(shù)據(jù)。選擇“藥品子窗體”中的文本框，屬性表【數(shù)據(jù)】選項(xiàng)卡“是否鎖定”項(xiàng)設(shè)置為“是”。3 個(gè)文本框控件，為“未綁定”源，分別設(shè)置文本框標(biāo)題為“藥品編號(hào)”、7)“單價(jià)”、“數(shù)量”。其中“藥品編號(hào)”和“單價(jià)”設(shè)置為鎖定。方法參考步驟（6）。按鈕。在“掛號(hào)編號(hào)”文本框?qū)Ш桨粹o?！驹O(shè)計(jì)】選項(xiàng)卡“控件”8)組，添加按鈕，進(jìn)入控件導(dǎo)航，添加“查找容?！薄＞唧w操作可參考本書 5.3.1 節(jié)中的相關(guān)內(nèi)刷新按鈕。參考

28、任務(wù) 11 門診掛號(hào)窗體的創(chuàng)建中的步驟 10，添加一個(gè)“刷新”9)按鈕，實(shí)現(xiàn)窗體數(shù)據(jù)刷新。10) 添加 3 個(gè)按鈕，分別為“添加”、“預(yù)覽”和“返回”。11) 參考步驟（5）、（6）本框?yàn)殒i定?！疤幏?子窗體”，數(shù)據(jù)源為處方表，并設(shè)置子窗體中的文12) 完成后的處方輸入窗體如圖 9-24 所示。圖 9-24 處方輸入窗體設(shè)計(jì)結(jié)果6.“劃價(jià)交費(fèi)”窗體設(shè)計(jì)劃價(jià)交費(fèi)窗體的功能是根據(jù)需要顯示出要?jiǎng)潈r(jià)的處方，以掛號(hào)編號(hào)為依據(jù)，輸入掛號(hào)編號(hào)后，查找出此掛號(hào)相關(guān)的處方信息，單擊“交費(fèi)”按鈕，將費(fèi)狀態(tài)”賦值為 True。任務(wù) 14：創(chuàng)建劃價(jià)交費(fèi)窗體。操作步驟：將所有處方的“交1)【創(chuàng)建】選項(xiàng)卡“窗體”組，單擊

29、“其他窗體”按鈕，選擇下拉列表里的“窗體向?qū)А?，設(shè)置數(shù)據(jù)源為“交費(fèi)”，添加“掛號(hào)編號(hào)”、“.姓名”、“醫(yī)生.姓名”和“就診時(shí)間”字段。布局為“縱欄表”，樣式為“市鎮(zhèn)”，完成進(jìn)入窗體設(shè)計(jì)視圖。2)將標(biāo)題部分背景色改為淺。鼠標(biāo)單擊背景的空白處，快捷菜單上選擇“填充/背景色”，下級(jí)菜單中選擇顏色。如圖 9-25 所示圖 9-25 背景顏色的設(shè)置3) 添加費(fèi)用合計(jì)文本框。文本框的屬性設(shè)置為：【數(shù)據(jù)】選項(xiàng)卡的“控件來(lái)源”中， 輸入“=sum(小計(jì))”。4) 添加處方子窗體。使用子窗體控件，添加數(shù)據(jù)源為處方表的子窗體，選擇“掛號(hào)編號(hào)”、“數(shù)量”、“單價(jià)”、“小計(jì)”等字段，設(shè)置子窗體與主窗體的連接為“掛號(hào)編

30、號(hào)”字段。具體方法可參考任務(wù) 11 中的步驟（11）-（14）。5) 添加“關(guān)閉窗體”按鈕。保存窗體為“劃價(jià)交費(fèi)”。6) 修改“處方 子窗體”。關(guān)閉“劃價(jià)交費(fèi)”窗體，在窗口左邊的“所有 Access 對(duì)象”窗格中選擇“處方子窗體”，單擊右鍵，快捷菜單上選擇設(shè)計(jì)視圖。如圖 9-26 所示。圖 9-26 處方 子窗體的設(shè)計(jì)視圖子窗體”的設(shè)計(jì)視圖中，打開(kāi)窗體屬性表，選擇【數(shù)據(jù)】選項(xiàng)卡“7)在“處方源”，單擊右邊的按鈕，出現(xiàn)框，如圖 9-27 所示。圖 9-27 創(chuàng)建新提示框8)選擇“是”進(jìn)入的編輯狀態(tài)。添加藥品表，拖動(dòng)“處方”表中的“掛號(hào)編號(hào)”、“數(shù)量”、“單價(jià)”、“小計(jì)”和“交費(fèi)狀態(tài)”字段，以及“

31、藥品”表中的“藥品名稱”字段到網(wǎng)格的字段行。9)單擊“另存為”按鈕，將保存為“處方藥品名”。如圖 9-28 所示。圖 9-28 處方藥品名的創(chuàng)建10) 關(guān)閉，提示信息框中選擇“是”，如圖 9-29 所示。圖 9-29 提示更改數(shù)據(jù)源框11) 添加文本框控件，屬性表設(shè)置其控件的數(shù)據(jù)源為“藥品名稱”，如圖 9-30 所示。更改文本框配套框標(biāo)題為“藥品名稱”。關(guān)閉“處方 子窗體”。圖 9-30 文本框的添加與屬性設(shè)置12) 打開(kāi)“劃價(jià)交費(fèi)”窗體。最后結(jié)果如圖 9-31 所示。圖 9-31 劃價(jià)交費(fèi)窗體設(shè)計(jì)結(jié)果報(bào)表的設(shè)計(jì)10.5報(bào)表是將統(tǒng)計(jì)結(jié)果進(jìn)行輸出的主要載體。通過(guò) Access 的報(bào)表向?qū)Чぞ?，?/p>

32、快速、方便地建立多種復(fù)雜的報(bào)表。在本章中共建立 4 個(gè)報(bào)表，其中處方報(bào)表對(duì)應(yīng)于開(kāi)具處方模塊，將生成的電子處方打印輸出。其余 3 個(gè)報(bào)表分別對(duì)應(yīng)了系統(tǒng)的的統(tǒng)計(jì)、藥品情況的顯示。1.藥品情況顯示報(bào)表統(tǒng)計(jì)的三個(gè)模塊。即門診量的、醫(yī)生掛號(hào)費(fèi)藥品情況顯示報(bào)表是將當(dāng)前藥品表中的信息一個(gè)藥品表。任務(wù) 15：建立藥品信息報(bào)表。操作步驟1)打開(kāi)“藥品”表。，無(wú)須作統(tǒng)計(jì)和計(jì)算，因此只涉及2)【創(chuàng)建】選項(xiàng)卡“報(bào)表”組，單擊“報(bào)表”按鈕，即可生成以當(dāng)前表內(nèi)容為數(shù)據(jù)源的報(bào)表。如圖 9-32 所示。圖 9-32 藥品信息報(bào)表3)保存報(bào)表為“藥品”。2.門診量統(tǒng)計(jì)結(jié)果報(bào)表門診量結(jié)果報(bào)表的數(shù)據(jù)源是“門診量統(tǒng)計(jì)”，生成方法與藥

33、品報(bào)表的方法相同。任務(wù) 16：生成門診量統(tǒng)計(jì)報(bào)表。操作步驟：參考任務(wù) 14。結(jié)果如圖 9-33 所示圖 9-33 門診量統(tǒng)計(jì)報(bào)表3.醫(yī)生掛號(hào)費(fèi)的統(tǒng)計(jì)結(jié)果報(bào)表醫(yī)生掛號(hào)費(fèi)法生成。結(jié)果報(bào)表的數(shù)據(jù)來(lái)源是“醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)”，可使用報(bào)表向?qū)У姆饺蝿?wù) 17：生成醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)報(bào)表。操作步驟：1)打開(kāi)醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)。2) 單擊【創(chuàng)建】選項(xiàng)卡“報(bào)表”組“報(bào)表向?qū)А卑粹o。3) 指定數(shù)據(jù)源、字段，沒(méi)有分組，可參考本書第 5 章相關(guān)章節(jié)。排序的設(shè)置如圖 9-34所示。圖 9-34 報(bào)表排序設(shè)置4)報(bào)表樣式選擇“辦公室”，結(jié)果如圖 9-35 所示。圖 9-35 醫(yī)生掛號(hào)費(fèi)統(tǒng)計(jì)報(bào)表4.處方報(bào)表的創(chuàng)建處方報(bào)表的內(nèi)容依據(jù)處方

34、詳細(xì)，報(bào)表的創(chuàng)建過(guò)程要求以掛號(hào)編號(hào)進(jìn)行分組，即一個(gè)掛一次號(hào)，開(kāi)一次處方，處方上應(yīng)具有所有藥品。處方表中，掛號(hào)編號(hào)相同的個(gè)處方上的內(nèi)容。因此，報(bào)表以掛號(hào)編號(hào)為分組依據(jù)。任務(wù) 18：創(chuàng)建處方報(bào)表。操作步驟：為一1)打開(kāi)處方詳細(xì)，單擊【創(chuàng)建】選項(xiàng)卡“報(bào)表設(shè)計(jì)”按鈕。進(jìn)入報(bào)表設(shè)計(jì)視圖。單擊【設(shè)計(jì)】選項(xiàng)卡“控件”組“標(biāo)題”按鈕添加報(bào)表標(biāo)題。設(shè)置標(biāo)題內(nèi)容與背景。標(biāo)題部分添加一個(gè)文本框，未綁定數(shù)據(jù)源且刪除配套框。2)報(bào)表的屬性設(shè)置：指定數(shù)據(jù)源為“處方詳細(xì)”。3)在報(bào)表的頁(yè)面頁(yè)眉部分，添加 5 個(gè)文本框，文本框數(shù)據(jù)源分別為“掛號(hào)編號(hào)”、“醫(yī)生.姓名”、“.姓名”、“科室”、“就診時(shí)間”。4)報(bào)表的主體部分，添

35、加 5 個(gè)文本框，文本框數(shù)據(jù)源分別為“藥品名稱”、“單價(jià)”、“數(shù)量”、“小計(jì)”、“”。5)報(bào)表頁(yè)腳部分添加一個(gè)文本框，文本框數(shù)據(jù)源為“=sum(小計(jì))”。完成后報(bào)表的設(shè)計(jì)視圖如圖 9-36 所示。圖 9-36 報(bào)表設(shè)計(jì)視圖結(jié)果6)報(bào)表修飾。在頁(yè)面頁(yè)眉的頂端繪制一細(xì)實(shí)線，頁(yè)面頁(yè)眉的下端繪制一虛線，報(bào)表頁(yè)腳頂端繪制一細(xì)實(shí)線。預(yù)覽報(bào)表結(jié)果如圖 9-37 所示。圖 9-37 報(bào)表的預(yù)覽效果10.6VBA 代碼與宏設(shè)計(jì)前面所建立的各個(gè)、窗體、報(bào)表是相對(duì)的、靜態(tài)的，要將它們有機(jī)的整一個(gè)完整的系統(tǒng)，必須依靠宏及 VBA 的設(shè)計(jì)。盡管在 Access 中所需要的代碼已經(jīng)非常少，但是一些數(shù)據(jù)庫(kù)的連接、系統(tǒng)信息的

36、輸入等還是需要寫一小段程序的。1.建立對(duì) ADO 庫(kù)的VBA 的使用ADO 庫(kù)的設(shè)置，否則將不能對(duì)數(shù)據(jù)庫(kù)信息進(jìn)行操作，具體的操作方法，請(qǐng)參考本書 8.5.1 中的任務(wù) 12。2.登錄窗體中的代碼登錄窗體的運(yùn)行過(guò)程中，用戶輸入用戶名和后，單擊“確定”按鈕，因此在“確定”按鈕的單擊中，進(jìn)行的，及結(jié)果的處理。任務(wù) 19：登錄窗體中按鈕中的代碼設(shè)置。操作步驟1)進(jìn)入“登錄”窗體的設(shè)計(jì)視圖，選擇“確定”按鈕，屬性表【】選項(xiàng)卡上“單擊”行中單擊 ，選擇“代碼2)添加如下代碼：On Error GoTo err_ok_clickDim strsql As String”進(jìn)入 VBA 環(huán)境Dim rs As

37、New ADODB.RecordsetIf IsNull(Me.username) Or Me.username = "" ThenDoCmd.BeepMsgBox "請(qǐng)輸入用戶名" ElseIf IsNull(Me.password) Or Me.password = "" ThenDoCmd.BeepMsgBox "請(qǐng)輸入Else"strsql = "select * from 用戶 where 用戶名='" & Me.username & "'an

38、d='" & Me.password & "'"rs.Open strsql, CurrentProject.AccessConnection, adOpenKeysetIf rs.EOF ThenDoCmd.Beep MsgBox "用戶或Me.username = ""Me.password = ""錯(cuò)誤"Me.username.SetFocusExit Sub ElseDoCmd.Close check = TrueDoCmd.OpenForm ("主菜單&

39、quot;) End IfEnd If End IfSet rs = Nothing exit_ok_click:Exit Sub err_ok_click:MsgBox (Err.Description)Debug.Print Err.Description說(shuō)明：這里使用的是 ADO 來(lái)連接數(shù)據(jù)庫(kù)，用戶息框提示確認(rèn)則打開(kāi)主菜單窗體，錯(cuò)誤給出信正確的用戶名和保存在用戶表中，可使用用戶名：小護(hù)士 1，是 12345678?！?，設(shè)置“操（3） 選擇“取消”按鈕。屬性表【“Close”。】的“單擊”行中選擇“宏作”主菜單窗體中的代碼及宏設(shè)置3.主菜單中為 8 個(gè)按鈕，除了“相應(yīng)的窗體。系統(tǒng)”按鈕外，

40、其余按鈕均為關(guān)閉當(dāng)前窗體，再打開(kāi)任務(wù) 20：主菜單窗體中的代碼與宏設(shè)置。操作步驟：1)選擇“信息管理”按鈕，通過(guò)屬性表設(shè)置宏，2 個(gè)宏命令：close 和 Openform。Openform 中需指定要打開(kāi)的窗體名稱，可在宏界面下方的下拉選項(xiàng)中設(shè)置，結(jié)果如圖 9-38所示。圖 9-38管理按鈕的宏設(shè)置2) 選擇“門診掛號(hào)”按鈕，通過(guò)屬性表進(jìn)入 VBA 環(huán)境，輸入以下代碼：Private Sub Command1_Click() DoCmd.CloseDoCmd.OpenForm ("門診掛號(hào)")End Sub3) 參考步驟（1）或（2）設(shè)置其余按鈕系統(tǒng)按鈕設(shè)置的宏命令為：q

41、uit 信息管理”窗體中的宏設(shè)置信息管理”窗體中，只要設(shè)置“返回”按鈕的宏即可。在窗體設(shè)計(jì)中此按鈕已經(jīng)4)4.“ “設(shè)置了“關(guān)閉窗體”的宏命令，在此需要再增加一個(gè)宏命令，用來(lái)打開(kāi)“主菜單”窗體，以便返回到主菜單。操作方法可參考“ 主菜單” 中相關(guān)按鈕的設(shè)置方法， 添加宏命令“OpenForm”，或者直接寫成代碼。5. “門診掛號(hào)“窗體中的 VBA 及宏設(shè)置“門診掛號(hào)”窗體的操作過(guò)程是：打開(kāi)窗體后可看到信息，需要先選擇掛號(hào)的科室及掛號(hào)類別，單擊“查看號(hào)源”按鈕，將可供選擇的出診醫(yī)生顯示在列表框中，如沒(méi)有符合條件的則使用信息框進(jìn)行提示。單擊列表框選擇醫(yī)生，這時(shí)“生成處方信息”的按鈕才被激活，單擊此

42、按鈕出現(xiàn)處方信息表，將顯示出此的以往就診信息。單擊“刷新”按鈕，可看到新增的掛號(hào)信息。掛號(hào)過(guò)程結(jié)束。程序的運(yùn)行結(jié)果如圖 9-39所示。掛號(hào)后要將已掛號(hào)醫(yī)生可掛號(hào)數(shù)量進(jìn)行減 1 操作。圖 9-39 門診掛號(hào)窗體運(yùn)行任務(wù) 21：門診掛號(hào)窗體的代碼與宏設(shè)置操作步驟：通過(guò)屬性表設(shè)置窗體的“加載”Private Sub Form_Load()Me.dtime = Date Me.guahao.Enabled = False中的 VBA 代碼：1)獲取當(dāng)前系統(tǒng)日期“生成掛號(hào)信息”按鈕為不激活狀態(tài)Me.掛號(hào)表_子窗體.Visible = False End Sub隱藏掛號(hào)表_子窗體“查看號(hào)源”按鈕單擊Dim

43、 strsql, lb As String中的 VBA 代碼為：2)Dim rs As New ADODB.RecordsetSet rs = New ADODB.RecordsetSelect Case Me.leibieCase "普通號(hào)"lb = "主治醫(yī)師" Case "號(hào)"lb = "副Case "特需"醫(yī)師"lb = "醫(yī)師" End Select先清空醫(yī)生姓名列表框For i = 0 To Me.docname.ListCount 1Me.docname.Rem

44、oveItem (0) Next istrsql = "select * from 醫(yī)生 where='" & lb & "' and 科室='" & Me.keshi & "' and掛號(hào)數(shù)量>0"'語(yǔ)句字符串rs.Open strsql, CurrentProject.AccessConnection, adOpenKeysetIf rs.EOF ThenMsgBox "此類型號(hào)源已用完" Me.keshi.SetFocusElser

45、s.MoveFirstDo While Not rs.EOFMe.docname.AddItem (rs("姓名") rs.MoveNextLoop將符合條件的醫(yī)生姓名加入列表框End If3)單擊“docname”醫(yī)生姓名列表框時(shí)的 VBA 代碼：Private Sub docname_Click() Dim strsql, lb As StringDim rs As New ADODB.RecordsetSet rs = New ADODB.Recordsetstrsql = "select 醫(yī)生編號(hào) from 醫(yī)生 where 姓名='"

46、& Me.docname & "' and='" & Me.keshi & "'"rs.Open strsql, CurrentProject.AccessConnection, adOpenKeyset科室If Not rs.EOF ThenMe.tt = rs("醫(yī)生編號(hào)") End If將選中的醫(yī)生編號(hào)賦值給 tt 文本框激活“生成掛號(hào)信息”按鈕Me.guahao.Enabled = TrueEnd Sub4)“生成掛號(hào)信息”按鈕單擊中的 VBA 代碼：Private Su

47、b guahao_Click() Dim strsql, sql2 As StringDim rs, rs1 As New ADODB.Recordset Set rs = New ADODB.RecordsetSet con = CurrentProject.Connectionstrsql = "select * from 掛號(hào)表"rs.OpenadCmdTextstrsql,CurrentProject.AccessConnection,adOpenKeyset,adLockOptimistic,rs.MoveLastSet bh = rs.Fields("

48、掛號(hào)編號(hào)") bh = Val(rs("掛號(hào)編號(hào)") + 1掛號(hào)編號(hào)字段的數(shù)值為前一個(gè)號(hào)加 1定義不同類別的掛號(hào)費(fèi)用Select Case Me.leibieCase "普通號(hào)" gfee = 5Case "號(hào)" gfee = 14Case "特需" gfee = 200End Select添加新rs.AddNewrs("掛號(hào)編號(hào)") = bhrs("醫(yī)生編號(hào)") = Me.ttrs("編號(hào)") = Me.編號(hào)rs("就診時(shí)間"

49、;) = Me.dtime rs("掛號(hào)類別") = Me.leibie rs("科室") = Me.keshirs("掛號(hào)費(fèi)") = gfee rs.Updaters.Close集更新掛號(hào)要修改醫(yī)生的掛號(hào)數(shù)量Set rs1 = New ADODB.RecordsetSet con = CurrentProject.Connectionsql2 = "select * from 醫(yī)生 where 醫(yī)生編號(hào)='" & Me.tt & "'"打開(kāi)醫(yī)生表rs1.Open

50、adCmdTextsql2,CurrentProject.AccessConnection,adOpenKeyset,adLockOptimistic,Set fie = rs1.Fields("掛號(hào)數(shù)量") fie = fie - 1rs1("掛號(hào)數(shù)量") = fie掛號(hào)數(shù)量-1集更新rs1.Updaters1.CloseMe.掛號(hào)表_子窗體.Visible = True End Sub5)“返回”按鈕的設(shè)置同“顯示掛號(hào)表_子窗體信息管理”窗體中的“返回”。6.“處方生成”窗體中的 VBA 及宏設(shè)置“處方生成”窗體的操作過(guò)程是：首先要通過(guò)掛號(hào)編號(hào)顯示掛

51、號(hào)信息，以確認(rèn)掛號(hào)的病人與出診的醫(yī)生。在窗體中將可供選擇的藥品以數(shù)據(jù)表的形式列出，醫(yī)生可以通過(guò)在表格中單擊選擇藥品，選中的藥品將顯示在下方的文本框中，同時(shí)默認(rèn)的數(shù)量為 1；醫(yī)生可根據(jù)需要進(jìn)行修改。單擊“添加”按鈕將選中的藥品及其相關(guān)信息保存至處方表， 每選擇一次藥品單擊一次“添加”按鈕，所有藥品選擇完成后的操作是：?jiǎn)螕簟八⑿隆卑粹o可以查看新生成的處方信息。單擊“返回”按鈕返回到主菜單。任務(wù) 22：處方生成窗體中 VBA 代碼與宏的設(shè)置。操作步驟：掛號(hào)編號(hào)的確定。窗體運(yùn)行時(shí)，將光標(biāo)在掛號(hào)表中，單擊“”按鈕，將出1)現(xiàn)框。如圖 9-40 所示。在這個(gè)“查找和替換”框中，查找內(nèi)容輸入要的掛號(hào)編號(hào)，這

52、里輸入“30001003”，查找范圍選擇“請(qǐng)輸入掛號(hào)編號(hào)”，匹配選擇“字段任何部分”。圖 9-40 查找掛號(hào)編號(hào)2)“窗體”中“藥品名稱”文本框單擊的 VBA 代碼。在“處方生成”窗體的設(shè)計(jì)視圖中，選擇“窗體”中的“藥品名稱”文本框，如圖 9-41 所示。圖 9-41 選中“ 在“藥品名稱”文本框的屬性表【Private Sub 藥品名稱_Click()窗體”中“藥品名稱”文本框】選項(xiàng)卡中“單擊”中輸入如下代碼：Form_處方生成.ypbh = Me.藥品編號(hào)Form_處方生成.ypdj = Me.出庫(kù)單價(jià)Form_處方生成.ypsl = 1End Sub說(shuō)明：由于這里的操作對(duì)象是“窗體”的，

53、而賦值的對(duì)象是處方生成窗體的，因此在調(diào)用對(duì)象時(shí)要指明對(duì)象所屬的窗體。使用 Me 是指定當(dāng)前的窗體。語(yǔ)句：Form_處方生成.ypbh = Me.藥品編號(hào)作用是：將當(dāng)前窗體的“藥品編號(hào)”文本框的值賦給處方生成窗體中名稱是“ypbh”的文本框。這一小段程序代碼可以粘貼到“窗體”中其他文本框的單擊中，如“藥品編號(hào)”文本框，這樣在程序運(yùn)行時(shí)，單擊“藥品編號(hào)”和“藥品名稱”產(chǎn)生的效果是相同的。3)“添加”按鈕“單擊”的代碼如下：Private Sub Command29_Click() Dim strsql, sql2 As StringDim rs, rs1 As New ADODB.Recordset建立數(shù)據(jù)庫(kù)連接Set rs = New ADODB.RecordsetSet con = CurrentProject.Connectionstrsql = "select * from 處方"rs.Open strsql, Current