【正文】 信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 22 頁(yè) 共 30頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 組件，將其 Caption 設(shè)為相應(yīng)的標(biāo)題名；在 HascolumnHeader 里放入所要顯示的字段標(biāo)題（同樣用 QRLable 組件實(shí)現(xiàn)），在 HasDetail 表帶里和 HasColumnHea。 。)。 (39。AND ( = )39。)。 (39。AND ( = )39。)。 (39。WHERE ( = )39。)。表帶僅是一個(gè)用來(lái)放置組件的空白區(qū)域，它還需要與一個(gè)數(shù)據(jù)集相連，在這個(gè)窗體中我們使用的是 Query 組件與之相連； 在 Band 屬性里把 HasColumnHeader， HasDetail， HasPageHeader 三個(gè)子項(xiàng)設(shè)為 ture,則在 QuickRep 組件里會(huì)出現(xiàn)相應(yīng)的三個(gè)表帶；在 HasPageHeader 表帶里放入一個(gè) QRLable(39。 查詢出結(jié)果后，如果用戶想要打印查詢的結(jié)果，那么點(diǎn)擊預(yù)覽報(bào)表按鈕就會(huì)彈出報(bào)表窗體，如下圖所示： 在此窗體中主要是應(yīng)用了 QuickRep ,QRLable ,QRDBText ,QRSysData ,TQuery 這幾個(gè)組件，其中 QuickRep 組件是報(bào)表的主體，決定了報(bào)表的外觀。 信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 21 頁(yè) 共 30頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 里面用到的 Prepare 方法用于將帶參數(shù)的 SQL 語(yǔ)句傳送給與其對(duì)應(yīng)的數(shù)據(jù)庫(kù)引擎，對(duì)動(dòng)態(tài) SQL 語(yǔ)句進(jìn)行語(yǔ)法分析和優(yōu)化。SELECT , , , ,Dbo_do,39。 。 TQuery組件的 Params 屬性在程序運(yùn)行階段可動(dòng)態(tài)使用，當(dāng)為 TQuery 組件編寫(xiě)動(dòng)態(tài) SQL 語(yǔ)句時(shí)，Delphi 會(huì)自動(dòng)的建立一個(gè)數(shù)組 Params,數(shù)組 Params 是以 0 下表開(kāi)始的，依次對(duì)應(yīng)動(dòng)態(tài) SQL語(yǔ)句中 的參數(shù)，也就是說(shuō)動(dòng)態(tài) SQL 語(yǔ)句中第一個(gè)參數(shù)對(duì)應(yīng) Params[0],第二個(gè)參數(shù)對(duì)應(yīng)Params[1],以此類推。 在程序執(zhí)行階段動(dòng)態(tài)生成 SQL 語(yǔ)句，大多情況下都會(huì)包含可以變化的參數(shù)，參數(shù)值的可變性能提高程序的靈活性。首先調(diào)用 Close 方法關(guān)閉 Query 組件對(duì)象是必需的，即使已經(jīng)關(guān)閉，再調(diào)用此方法也不會(huì)有副作用。此處根據(jù)要求應(yīng)該將疾病編碼和疾病名稱字段放置在最前面，從 DBGrid 的 Columns 屬性中進(jìn)行設(shè)置，包括調(diào)整字段的順序以及字段的名稱顯示，因?yàn)槟J(rèn)的情況下字段名稱顯示得是表內(nèi)的字段名，是英文的，我們需要將之改為中文標(biāo)題 ；因?yàn)橐獙?shí)現(xiàn)查詢功能，所以在查詢按鈕的 onclick 事件內(nèi)需要編寫(xiě)一部分程序代碼，利用 TQuery 的方法屬性進(jìn)行編程實(shí)現(xiàn)。 手術(shù)診斷的錄入和疾病診斷相似，在此不再贅述； （ 5）查詢模塊 在病案首頁(yè)的錄入完成之后，就可以對(duì)已有的病案進(jìn)行查詢了，在本次設(shè)計(jì)中，病案管理系統(tǒng)的另一項(xiàng)重要功能就是查詢；在擁有了大量的病案信息后，需要分類進(jìn)行查詢，否則無(wú)法對(duì)病案的情況全面清晰的掌握。網(wǎng)格中的各字段值可以使用字段編輯器來(lái)設(shè)定，也可以在運(yùn)行時(shí)動(dòng)態(tài)設(shè)置。用戶在編輯和修改表中的當(dāng)前中的當(dāng)前記錄時(shí)，只有將記錄指針移到其他記錄時(shí)， Delphi 才會(huì)把用戶對(duì)當(dāng)前紀(jì)錄的修改寫(xiě)入磁盤上的數(shù)據(jù)庫(kù)表中，否則不會(huì)保存用戶對(duì)當(dāng)前紀(jì)錄的修改。在設(shè)計(jì)階段，如果已經(jīng)建立了組件與數(shù)據(jù)集的聯(lián)系，并且此數(shù)據(jù)集處于打開(kāi)狀態(tài)，則單極對(duì)象查看其的 Columns 屬性框就會(huì)激活 columnsEditor 對(duì)話框，可從工具欄上將所需字段加入；在選擇了對(duì)話框中的某一字段后，在對(duì)象查看器中會(huì)出現(xiàn)網(wǎng)各種關(guān)于改字段對(duì)象的一些屬性，通過(guò)對(duì)這些屬性的設(shè)置，我們可以改變每一列字段內(nèi)容的布局 )， Option(是一個(gè)擴(kuò)展屬性，在程序設(shè)計(jì)階段設(shè)置它可以控制組件的顯示特性和對(duì)事件的響應(yīng)特性 )。我們需要按一定的字段順序顯示紀(jì)錄的各個(gè)字段，所以我們得通過(guò)字段編輯器來(lái)設(shè)置。這個(gè)組件以網(wǎng)格的形式顯示數(shù)據(jù)庫(kù)表中全部紀(jì)錄的所有字段信息。 SQL 屬性中的語(yǔ)句的編寫(xiě)有兩種方法：一種方法是在程序設(shè)計(jì)階段便將相應(yīng)的語(yǔ)句寫(xiě)入到此屬性中，另一種方法則是在開(kāi)發(fā)應(yīng)用程序時(shí)將 SQL 語(yǔ)句包含在程序代碼中，此窗體中我們使用的是靜態(tài)的；在默認(rèn)情況下， TQuery信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 19 頁(yè) 共 30頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 組件得到的查詢結(jié)果數(shù)據(jù)是只讀數(shù)據(jù)，要想獲得可編輯的數(shù)據(jù)，在應(yīng)用程序中需要將其RequestLive 屬性值設(shè)置為 true,同時(shí)相應(yīng)的命令語(yǔ)句還要滿足 一定約束條件。而且它還可以允許用戶同時(shí)訪問(wèn)多表，進(jìn)行多表聯(lián)接查詢；它訪問(wèn)的是表格中的一個(gè)子集，既符合查詢條件的特定數(shù)據(jù)；在只有使用 SQL 語(yǔ)言才能完成查詢時(shí)必須用該組件 ，它支持復(fù)雜的嵌套查詢。這些表可以是本地?cái)?shù)據(jù)庫(kù)中的表，也可以是本地服務(wù)器或遠(yuǎn)程服務(wù)器上的表。 TQuery 組件是一個(gè)使用 SQL 語(yǔ)句對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行功能強(qiáng)大的查詢的組件。在病歷號(hào)的Edit 組件的 onchange 事件內(nèi)編寫(xiě)代碼， 使得用戶在添如病歷號(hào)后，即觸發(fā)響應(yīng)事件；還是用 findkey 這個(gè)方法進(jìn)行檢測(cè)，一旦從數(shù)據(jù)庫(kù)中找到數(shù)據(jù)，即將當(dāng)前指針指向此紀(jì)錄；這時(shí) DBtext 內(nèi)就會(huì)顯示出相應(yīng)的內(nèi)容，住院次數(shù)和病人姓名則可以用賦值語(yǔ)句實(shí)現(xiàn)。它的主要屬性有 DataField(用來(lái)確定 TDBtext 組件顯示的是當(dāng)前紀(jì)錄中哪個(gè)特定字段的值 )， Transparent(布爾型，為 ture 時(shí)文字會(huì)以透明方式顯示，即不覆蓋背景圖案 )。這個(gè)組件是一個(gè)只讀的數(shù)據(jù)瀏覽組件，它類似 Tlabel 組件，但它是用于顯示數(shù)據(jù)庫(kù)表中記錄的指定字段的值。其主要屬性就是 caption,通過(guò)修改 caption 的值來(lái)改變?cè)摻M件的標(biāo)題。總共分為 5 大部分，其中直接顯示出的是病人的基本信息 ，住院情況信息和收費(fèi)情況信息，另兩部分的信息錄入則需點(diǎn)及相應(yīng)的按鈕進(jìn)入，分別是疾病診斷信息和手術(shù)診斷信息。在本窗體的增加按鈕的 onclick 事件里編寫(xiě)項(xiàng)數(shù)據(jù)庫(kù)寫(xiě)入數(shù)據(jù)的代碼時(shí)，不同的組件有不同的寫(xiě)入方式，除 TDBedit 可以用 Table 的 post 方法直接寫(xiě)入外，其余的組件都需用其不同的屬性值賦值給后臺(tái)的數(shù)據(jù)庫(kù)，最后還要將下一個(gè)窗體顯現(xiàn)出來(lái)，用 show 的方法。 TDBedit 組件的主要屬性是 DataField,這一屬性用來(lái)確定TDBedit 組件顯示與編輯的是數(shù)據(jù)表中哪個(gè)特定字段的值。如果用戶希望能通過(guò) TDBedit 組件編輯修改數(shù)據(jù)庫(kù)表中的字段值，還要設(shè)置其 ReadOnly 屬性值為 false,設(shè)置與其相聯(lián)的數(shù)據(jù)源組件 TdataSource 的 AutoEdit 屬性為Ture 以及確保與 TdataSource 組件相連的數(shù)據(jù)集組件 Ttable 或 Tquery 組件處于編輯狀態(tài)。這一組件用于顯示編輯數(shù)據(jù)庫(kù)表中當(dāng)前紀(jì)錄的某個(gè)字段值的數(shù)據(jù)瀏覽組件。這里需要注意的示，如果只想顯示，并不想要通過(guò)它來(lái)向數(shù)據(jù)庫(kù)寫(xiě)入，可以不 設(shè)其 DataSource,DataField 屬性值。其下拉列表的內(nèi)容是另一個(gè)相關(guān)數(shù)據(jù)集中特定的字段的字段值，它在設(shè)置號(hào)屬性后自動(dòng)添加到 TDBLookupComboBox 中，而不需要象使用 TDBComboBox 組件那樣由用戶自己輸入列表內(nèi)容。另外還有一個(gè) Style 屬性，當(dāng)此項(xiàng)屬性值為 csDropDown 時(shí)，在組合框的編輯框中可以輸入，同時(shí)下拉列表框是一組具有等高度的字符串，我們就是用了此屬性。DropDrowCount 屬性用來(lái)指定下拉列表中可一次顯示的最大項(xiàng)數(shù)，如果項(xiàng)目數(shù)大于其屬性值，它將出現(xiàn)一個(gè)可上下滾動(dòng)的滾動(dòng)條。 而病人的性別和婚姻狀況只有兩種情況，所以在這兩個(gè)字段的輸入時(shí)使用了ComboBox 組件； ComboBox 組件是由一個(gè)編輯框和一個(gè)下拉式列表框組成，可以從下拉式列表框中的多個(gè)列表項(xiàng)中選擇一項(xiàng)，也可以從編輯框中輸入。 在本窗口中，由于菜單上顯示出了所有的功能 ，而有的功能是不允許所有用戶都使用的；由于在開(kāi)始分析是沒(méi)有想到這點(diǎn)，所以只好在此處用了一點(diǎn)兒小技巧：我在主窗體的程序體里定義了一個(gè)字符型的常量 user,并給它賦了一個(gè) admin 的值；在程序運(yùn)行時(shí)，用戶登錄近來(lái)后并未將登錄窗體關(guān)掉，所以在用戶點(diǎn)擊系統(tǒng)參數(shù)維護(hù)選項(xiàng)時(shí)，在 Onclick 事件中編寫(xiě)一個(gè)檢查語(yǔ)句，看登錄窗口中用戶名那一欄的內(nèi)容是否與 user 常量相符；如相符才會(huì)允許進(jìn)入系統(tǒng)參數(shù)維護(hù)界面，否則會(huì)彈出對(duì)話框。創(chuàng)建主菜單時(shí)加入一個(gè) MainMenu 組件，雙擊此組件將打開(kāi)菜單設(shè)計(jì)器（ Menu Designer） ,通過(guò)它編輯菜單項(xiàng)；在每個(gè)菜單項(xiàng)上單擊鼠標(biāo)右鍵會(huì)出現(xiàn)一個(gè)彈出式菜單，其中 Insert 命令用于在當(dāng)前菜單項(xiàng)前面插入一個(gè)新菜單項(xiàng)； Delete 命令用于刪除當(dāng)前的菜單項(xiàng)；CreateSubmenu 命令用于為當(dāng)前此菜單項(xiàng)創(chuàng)建下一級(jí)菜單項(xiàng)。 （ 2）程序主界面模塊 程序主界面的窗體中只有兩個(gè)組件，一個(gè)是主菜單 MainMenu 組件，一個(gè)是 Timage組件，如下圖所示： Timage 組件可以方便的現(xiàn)實(shí)和處理圖像，其主要屬性是 Picture 屬性（可以在程序設(shè)計(jì)階段指定圖像，也可在程序運(yùn)行階段用 loadfromfil()方法實(shí)現(xiàn)）；主菜單一般顯示在窗口的頂部，位于應(yīng)用程序的標(biāo)題欄下。 在登錄按鈕的 onclick 事件內(nèi)編寫(xiě)程序?qū)崿F(xiàn)對(duì)用戶名和密碼的檢驗(yàn)，如檢驗(yàn)通過(guò)則可進(jìn)如主界面，否則提示用戶名密碼錯(cuò)誤；在此處的檢驗(yàn)主要使用的是 findkey 這個(gè)方法，它將 setkey,制定查找值，執(zhí)行查找三個(gè)步驟融合在一步里完成。它主要為數(shù)據(jù)控制組件提供服務(wù)，數(shù)據(jù)控制組件通過(guò)數(shù)據(jù)案組件可以從數(shù)據(jù)集中取得數(shù)據(jù)，數(shù)據(jù)在數(shù)據(jù)控制組件中顯示，用戶在數(shù)據(jù)控制組件中對(duì)數(shù)據(jù)進(jìn)行操作。在設(shè)定此項(xiàng)屬性時(shí)， Active 屬性值一定要設(shè)為 False)。它通過(guò) BDE 從一個(gè)數(shù)據(jù)庫(kù)表格中取得數(shù)據(jù)病通過(guò) TdataSource 組件將數(shù)據(jù)傳遞給一個(gè)或多個(gè)數(shù)據(jù)控制組件，且將從數(shù)據(jù)控制組件處得到的信息通過(guò) BDE 傳遞給數(shù)據(jù)庫(kù)。 （ 1）用戶登錄模塊 在用戶登錄的窗體上放置兩個(gè) label 標(biāo)簽和兩個(gè) edit 組件以及兩個(gè) button 組件，另外，因?yàn)橐M(jìn)行數(shù)據(jù)的檢驗(yàn)，所以還要在此窗體上放置 DataSource 和 Table 這兩個(gè)數(shù)據(jù)庫(kù)組件，如圖所示： Edit 組件是常用組件之一，可以用來(lái)顯示，編輯單獨(dú)的一行文本，主要屬性是 Text(是編輯組件與用戶交互 的字符串，字符串在編輯框中顯示 )。組件的屬性在對(duì)象察看器的properties 標(biāo)簽頁(yè)上能夠看到，在程序設(shè)計(jì)階段可直接通過(guò)對(duì)象察看器對(duì)組件的屬性進(jìn)行設(shè)置，也可在程序運(yùn)行階段通過(guò)賦值語(yǔ)句對(duì)組件的屬性賦值。 在窗體中進(jìn)行可視化程序設(shè)計(jì)時(shí)要涉及到 VCL組件面版中的組建和在改窗體對(duì)應(yīng)的單元文件中編寫(xiě)代碼：在組件面板上選擇需要的組件放在窗體 Form 上，在對(duì)象察看器中設(shè)置該組件對(duì)象的屬性；窗體的單元文件會(huì)自動(dòng)生成窗體中的組件對(duì)象的信息以及在單元文件中編寫(xiě)程序處理代碼。但這并不是說(shuō)窗體類包含了組件類或者說(shuō)窗體是組件的父類。 2 前臺(tái)程序設(shè)計(jì) 在建好了后臺(tái)的數(shù)據(jù)庫(kù)后 ，就可以進(jìn)行前臺(tái)的程序開(kāi)發(fā)了；在 Delphi 中新建一個(gè)項(xiàng)目 Project1,按照系統(tǒng)分析的步驟，首先新建一個(gè)表單，也就是一個(gè)窗體，作為用戶登錄界面；在本次程序開(kāi)發(fā)中，我們主要是利用 Delphi 里一些常用組件來(lái)實(shí)現(xiàn)功能的；而窗體和組件的關(guān)系非常密切，窗體就像一個(gè)可以放置東西的桌面，我們可以根據(jù)任務(wù)的需要在窗體上擱置各種各樣的組件；在 windows 環(huán)境中，人機(jī)交互主要是在一些窗體和對(duì)話框中進(jìn)行的。凡是表在設(shè)計(jì)時(shí)涉及到有關(guān)的非標(biāo)準(zhǔn) 化的分類與算法，系統(tǒng) 應(yīng)全部采用參數(shù)化表的設(shè)計(jì)方法。 表的屬性設(shè)計(jì)依賴于對(duì)實(shí)際客體的屬性分析及應(yīng)用的需要，這主要是考慮：它即要適應(yīng)各種不同類型、不同規(guī)模醫(yī)院的不同需求，又要適應(yīng)一個(gè)醫(yī)院對(duì)當(dāng)前信息及對(duì)今后對(duì)信息的處理內(nèi)容日益增長(zhǎng)的需要。 .對(duì)永久性工作用表則在規(guī)范化理論的指導(dǎo)分析后，允許某些字段的冗余與重復(fù)，這完全是為了程序編制的方便，通常只容許閱讀，不 容許修改。 .靜態(tài)字典表，動(dòng)態(tài)共享表及永久性表的建立過(guò)程要經(jīng)過(guò)規(guī)范化的過(guò)程。詳細(xì)設(shè)計(jì)時(shí)則要對(duì)每一個(gè)表在生成過(guò)程中都從兩種分類 方法的角度全面審視，以把握任一表與所有其他相關(guān)的表及子系統(tǒng)之間的“關(guān)系”。 臨時(shí)表 :少數(shù)表僅服務(wù)于臨時(shí)的查詢、報(bào)告業(yè)務(wù)，一旦業(yè)務(wù)完成時(shí)，表也就沒(méi)有必要存在，或者僅存一個(gè)空結(jié)構(gòu)作為模板使用。 永久表 :通常此類表只隸屬于一個(gè)或幾個(gè)子系統(tǒng)，為完成特定的功能，保存有支持窗口事務(wù)處理的數(shù)據(jù)，有時(shí)也起到子系統(tǒng)間信息傳遞與轉(zhuǎn)換的作用。 信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 9 頁(yè) 共 30頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 ： 靜態(tài)表：基本上不隨事務(wù)處理變動(dòng)，可以稱之為標(biāo)準(zhǔn)的項(xiàng)目對(duì)照表，如字典表 。 即該表由那個(gè)子系統(tǒng)所建立，便由那個(gè)子系統(tǒng)進(jìn)行讀寫(xiě)及維護(hù)操作。這是從理論 角度提供數(shù)據(jù)完整一致性的保障。 （ 2）系統(tǒng)功能 .病案主索引 .數(shù)據(jù)提取接收 .病案首頁(yè)輸入 .病案數(shù)據(jù)修正 .疾病 /手術(shù)卡建立 .檢索 /查詢 /統(tǒng)計(jì) .病案借閱管理 .病案 /報(bào)表打印 四 設(shè)計(jì)實(shí)現(xiàn)