【正文】 數(shù)據(jù)庫(kù)表中當(dāng)前紀(jì)錄的某個(gè)字段值的數(shù)據(jù)瀏覽組件。在應(yīng)用程序中，常用此組件來對(duì)應(yīng)表中一個(gè)字段，通過設(shè)置它的 DataSource,DataField 屬性便可以為其指定表中相應(yīng)的字段。如果用戶希望能通過 TDBedit 組件編輯修改數(shù)據(jù)庫(kù)表中的字段值，還要設(shè)置其 ReadOnly 屬性值為 false,設(shè)置與其相聯(lián)的數(shù)據(jù)源組件 TdataSource 的 AutoEdit 屬性為Ture 以及確保與 TdataSource 組件相連的數(shù)據(jù)集組件 Ttable 或 Tquery 組件處于編輯狀態(tài)。TDBedit 組件顯示和編輯修改的是當(dāng)前紀(jì)錄中特定字段的值，所以隨著記錄指針的移動(dòng)，其顯示的內(nèi)容也不斷變化，但與 TDBGrid 組件不同的示，它一次只能顯示及編輯修改當(dāng)前紀(jì)錄中特定的一個(gè)字段值。 TDBedit 組件的主要屬性是 DataField,這一屬性用來確定TDBedit 組件顯示與編輯的是數(shù)據(jù)表中哪個(gè)特定字段的值。在為 TDBedit 組件對(duì)象指定了數(shù)據(jù)源后，在對(duì)象查看其中改對(duì)象的 DataField 屬性框會(huì)自動(dòng)產(chǎn)生一 個(gè)下拉列表，其中包含了當(dāng)前打開數(shù)據(jù)集中的所有字段。在本窗體的增加按鈕的 onclick 事件里編寫項(xiàng)數(shù)據(jù)庫(kù)寫入數(shù)據(jù)的代碼時(shí)，不同的組件有不同的寫入方式，除 TDBedit 可以用 Table 的 post 方法直接寫入外，其余的組件都需用其不同的屬性值賦值給后臺(tái)的數(shù)據(jù)庫(kù)，最后還要將下一個(gè)窗體顯現(xiàn)出來，用 show 的方法。 （ 4）病案首頁錄入主界面模塊 當(dāng)病人的基本信息錄入完成之后，就可進(jìn)入病案的首頁錄入主界面了，如下圖所示： 信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 18 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 在這一錄入界面上基本上涵括了所有的病案信息?？偣卜譃?5 大部分，其中直接顯示出的是病人的基本信息 ，住院情況信息和收費(fèi)情況信息，另兩部分的信息錄入則需點(diǎn)及相應(yīng)的按鈕進(jìn)入，分別是疾病診斷信息和手術(shù)診斷信息。在主界面窗體上使用了大量的各種各樣的組件，其中將病人基本信息，住院情況信息及收費(fèi)信息錄入進(jìn)行分組的就是GroupBox 組件，這是標(biāo)準(zhǔn)的分組框組件，在該組件里可以放置其他組，放進(jìn)去的組件將會(huì)自動(dòng)成為一組。其主要屬性就是 caption,通過修改 caption 的值來改變?cè)摻M件的標(biāo)題。 在此窗體的最上面的一組就是病人基本信息，前面所錄入的病人信息在此處并不需要再進(jìn)行重復(fù)的錄入了，在這里使用了 DBtext 這一組件 。這個(gè)組件是一個(gè)只讀的數(shù)據(jù)瀏覽組件，它類似 Tlabel 組件，但它是用于顯示數(shù)據(jù)庫(kù)表中記錄的指定字段的值。因?yàn)樗@示的是表中當(dāng)前紀(jì)錄的制定字段的值，所以是動(dòng)態(tài)的，在其中顯示的內(nèi)容隨著記錄指針的移動(dòng)而變化。它的主要屬性有 DataField(用來確定 TDBtext 組件顯示的是當(dāng)前紀(jì)錄中哪個(gè)特定字段的值 )， Transparent(布爾型，為 ture 時(shí)文字會(huì)以透明方式顯示，即不覆蓋背景圖案 )。病歷號(hào)，住院次數(shù)和病人姓名是用的 Edit 組件，其中以病歷號(hào)為觸發(fā)字段。在病歷號(hào)的Edit 組件的 onchange 事件內(nèi)編寫代碼， 使得用戶在添如病歷號(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ù)和病人姓名則可以用賦值語句實(shí)現(xiàn)。 此窗體內(nèi)的信息錄入完成后點(diǎn)擊響應(yīng)的按鈕可進(jìn)入疾病診斷或手術(shù)診斷錄入界面，以疾病診斷為例，如下圖示： 在此窗體內(nèi)，使用了 DBGrid 組件， TQuery 組件及 TDataSource 組件各一 ,主要實(shí)現(xiàn)了對(duì)于疾病診斷情況的瀏覽；由于瀏覽窗口中的數(shù)據(jù)并非單個(gè)表的內(nèi)容，所以不用 Table組件 而是選用了 Query 組件。 TQuery 組件是一個(gè)使用 SQL 語句對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行功能強(qiáng)大的查詢的組件。它使用 SQL 語言訪問數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)表，甚至可以是類型不同的表。這些表可以是本地?cái)?shù)據(jù)庫(kù)中的表，也可以是本地服務(wù)器或遠(yuǎn)程服務(wù)器上的表。 TQuery 組件與 Ttable 組件同屬于數(shù)據(jù)集組件，因而同樣具有 Ttable 組件從數(shù)據(jù)集類中繼承來的屬性，方法和事件。而且它還可以允許用戶同時(shí)訪問多表，進(jìn)行多表聯(lián)接查詢；它訪問的是表格中的一個(gè)子集，既符合查詢條件的特定數(shù)據(jù)；在只有使用 SQL 語言才能完成查詢時(shí)必須用該組件 ，它支持復(fù)雜的嵌套查詢。 TQuery 組件有兩個(gè)重要屬性：一個(gè)是 DatabaseName(用于指定數(shù)據(jù)庫(kù)名 )，另一個(gè)是SQL 屬性（用于指定進(jìn)行查詢的 SQL 語句）。 SQL 屬性中的語句的編寫有兩種方法：一種方法是在程序設(shè)計(jì)階段便將相應(yīng)的語句寫入到此屬性中，另一種方法則是在開發(fā)應(yīng)用程序時(shí)將 SQL 語句包含在程序代碼中，此窗體中我們使用的是靜態(tài)的；在默認(rèn)情況下， TQuery信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 19 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 組件得到的查詢結(jié)果數(shù)據(jù)是只讀數(shù)據(jù)，要想獲得可編輯的數(shù)據(jù)，在應(yīng)用程序中需要將其RequestLive 屬性值設(shè)置為 true,同時(shí)相應(yīng)的命令語句還要滿足 一定約束條件。 設(shè)定好 Query 組件后，要將相應(yīng)的查詢結(jié)果顯示出來，這就要用到 DBGrid 這個(gè)組件了。這個(gè)組件以網(wǎng)格的形式顯示數(shù)據(jù)庫(kù)表中全部紀(jì)錄的所有字段信息。它顯示數(shù)據(jù)庫(kù)中的記錄信息是按表中記錄的默認(rèn)順序和字段的默認(rèn)順序來顯示的，而且要顯示表中各個(gè)紀(jì)錄的全部字段的值。我們需要按一定的字段順序顯示紀(jì)錄的各個(gè)字段，所以我們得通過字段編輯器來設(shè)置。 DBGrid 組件的主要屬性有 Columns(用來讀取和設(shè)置網(wǎng)格中列的特性，它可以在設(shè)計(jì)階段有 ColumnsEditor 對(duì)話框來設(shè)定，也可以在應(yīng)用程序運(yùn)行時(shí)動(dòng)態(tài)的設(shè)置。在設(shè)計(jì)階段，如果已經(jīng)建立了組件與數(shù)據(jù)集的聯(lián)系，并且此數(shù)據(jù)集處于打開狀態(tài)，則單極對(duì)象查看其的 Columns 屬性框就會(huì)激活 columnsEditor 對(duì)話框，可從工具欄上將所需字段加入；在選擇了對(duì)話框中的某一字段后，在對(duì)象查看器中會(huì)出現(xiàn)網(wǎng)各種關(guān)于改字段對(duì)象的一些屬性，通過對(duì)這些屬性的設(shè)置，我們可以改變每一列字段內(nèi)容的布局 )， Option(是一個(gè)擴(kuò)展屬性，在程序設(shè)計(jì)階段設(shè)置它可以控制組件的顯示特性和對(duì)事件的響應(yīng)特性 )。 使用 TDBGrid 組件編輯修改數(shù)據(jù)庫(kù)表時(shí)， Delphi 是以記錄為基本單位將修改寫入磁盤上的數(shù)據(jù)庫(kù) 表中。用戶在編輯和修改表中的當(dāng)前中的當(dāng)前記錄時(shí)，只有將記錄指針移到其他記錄時(shí)， Delphi 才會(huì)把用戶對(duì)當(dāng)前紀(jì)錄的修改寫入磁盤上的數(shù)據(jù)庫(kù)表中，否則不會(huì)保存用戶對(duì)當(dāng)前紀(jì)錄的修改。在窗體中放置一個(gè) TDBGrid 對(duì)象來顯示和編輯一個(gè)數(shù)據(jù)集中的紀(jì)錄，應(yīng)用程序可以通過數(shù)據(jù)網(wǎng)格組件來插入，刪除或編輯數(shù)據(jù)集中的數(shù)據(jù)，或者只是簡(jiǎn)單用它來顯示數(shù)據(jù)集中的數(shù)據(jù)紀(jì)錄。網(wǎng)格中的各字段值可以使用字段編輯器來設(shè)定，也可以在運(yùn)行時(shí)動(dòng)態(tài)設(shè)置。 如果要進(jìn)一步添加疾病診斷的錄入，點(diǎn)擊增加按鈕，就會(huì)彈出疾病診斷的添加窗體： 在此窗體中，基本沿用 了前面的一些組件，點(diǎn)擊確定按鈕后就將所有數(shù)據(jù)進(jìn)行提交，疾病診斷情況表也是用住院號(hào)唯一確定的。 手術(shù)診斷的錄入和疾病診斷相似，在此不再贅述； （ 5）查詢模塊 在病案首頁的錄入完成之后，就可以對(duì)已有的病案進(jìn)行查詢了，在本次設(shè)計(jì)中，病案管理系統(tǒng)的另一項(xiàng)重要功能就是查詢；在擁有了大量的病案信息后，需要分類進(jìn)行查詢，否則無法對(duì)病案的情況全面清晰的掌握。設(shè)計(jì)中共設(shè)置了五項(xiàng)查詢功能，分別是按照第一疾病診斷，第一手術(shù)診斷，病歷號(hào)，住院科室及病人姓名進(jìn)行查詢；此模塊分五個(gè)窗體進(jìn)信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 20 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 行實(shí)現(xiàn)，基本原理相同，所以在此謹(jǐn)以按第一疾病診斷 查詢?yōu)槔f明，如下圖示： 在本窗體中，主要放置了 TDataSource ,TQuery ,TDBGrid ,TDBLookupComboBox 及Button,Panel 等組件；此處的使用技巧在于對(duì) TQuery 的 SQL 屬性的使用上，默認(rèn)的情況下，將 SQL 的查詢語句寫入，實(shí)現(xiàn)多表之間的查詢。此處根據(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)需要編寫一部分程序代碼，利用 TQuery 的方法屬性進(jìn)行編程實(shí)現(xiàn)。在程序運(yùn)行過程中設(shè)置TQuery 組件的 SQL 屬性，首先需要調(diào)用 Close 方法，關(guān)閉 TQuery 組件，然后再調(diào)用 Clear方法清除 SQL 屬性中現(xiàn)存的 SQL 命令語句，最后再調(diào)用 Add 方法為 SQL 屬性設(shè)置新的SQL 命令語句。首先調(diào)用 Close 方法關(guān)閉 Query 組件對(duì)象是必需的，即使已經(jīng)關(guān)閉，再調(diào)用此方法也不會(huì)有副作用。調(diào)用 Clear 方法則是為了清除 SQL 屬性中能導(dǎo)致出錯(cuò)的舊的語句，如果不調(diào) 用此方法，直接用 Add 方法向?qū)傩灾性O(shè)置命令語句，新設(shè)的語句會(huì)追加再現(xiàn)存命令語句的后面，在程序運(yùn)行時(shí)常常會(huì)出現(xiàn)出乎意料的查詢結(jié)果甚至程序無法運(yùn)行下去。 在程序執(zhí)行階段動(dòng)態(tài)生成 SQL 語句，大多情況下都會(huì)包含可以變化的參數(shù)，參數(shù)值的可變性能提高程序的靈活性。程序運(yùn)行過程中，可以使用 Params 屬性為參數(shù)賦值。 TQuery組件的 Params 屬性在程序運(yùn)行階段可動(dòng)態(tài)使用，當(dāng)為 TQuery 組件編寫動(dòng)態(tài) SQL 語句時(shí)，Delphi 會(huì)自動(dòng)的建立一個(gè)數(shù)組 Params,數(shù)組 Params 是以 0 下表開始的，依次對(duì)應(yīng)動(dòng)態(tài) SQL語句中 的參數(shù)，也就是說動(dòng)態(tài) SQL 語句中第一個(gè)參數(shù)對(duì)應(yīng) Params[0],第二個(gè)參數(shù)對(duì)應(yīng)Params[1],以此類推。在程序中為方便用戶查詢，查詢條件使用了 DBLookupComboBox 來為用戶進(jìn)行選擇性輸入；用戶將根據(jù)下拉列表中的疾病名稱來選取查詢，此處選定的查詢條件將反映給數(shù)組 Params,再由 SQL 語句查詢實(shí)現(xiàn)，編寫的動(dòng)態(tài) SQL 語句如下： 。 。 (39。SELECT , , , ,Dbo_do,39。)。 信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 21 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 里面用到的 Prepare 方法用于將帶參數(shù)的 SQL 語句傳送給與其對(duì)應(yīng)的數(shù)據(jù)庫(kù)引擎，對(duì)動(dòng)態(tài) SQL 語句進(jìn)行語法分析和優(yōu)化。調(diào)用 Prepare 方法后，會(huì)大大提高動(dòng)態(tài) SQL 語句的執(zhí)行性能，特別是當(dāng)要反復(fù)多次執(zhí)行同一條動(dòng)態(tài)語句時(shí)，其優(yōu)越性會(huì)更加明顯。 查詢出結(jié)果后，如果用戶想要打印查詢的結(jié)果，那么點(diǎn)擊預(yù)覽報(bào)表按鈕就會(huì)彈出報(bào)表窗體，如下圖所示： 在此窗體中主要是應(yīng)用了 QuickRep ,QRLable ,QRDBText ,QRSysData ,TQuery 這幾個(gè)組件，其中 QuickRep 組件是報(bào)表的主體，決定了報(bào)表的外觀。 QuickRep 組件的最主要的屬性是 Band 屬性，該屬性是一個(gè)屬性集，包括了多個(gè)子項(xiàng)： HasColumnHeader(是否設(shè)置為每列打印標(biāo)題的表帶 )， HasDetail(是否設(shè)置打印記錄信息的表帶 )， HasPageFooter(是否在頁面的底部設(shè)置打印頁腳的表帶 )， HasPageHeader(是否在頁面的頭部設(shè)置打印頁眉的表帶 )， HasSummary(是否為報(bào)表設(shè)置打印總計(jì)的表帶 ),HasTile(是否在報(bào)表的開始處設(shè)置打印報(bào)表標(biāo)題的表帶 )； Bands 屬性的某個(gè)子項(xiàng)的值設(shè)置為 true 時(shí)，報(bào)表中將增加相應(yīng)的表帶。表帶僅是一個(gè)用來放置組件的空白區(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。FROM Dbo_incircs, Dbo_sick_info, Dbo_ill_diagnose, Dbo_sickness, Dbo_doctor, Dbo_keshi 39。)。 (39。WHERE ( = )39。)。 (39。AND(= )39。)。 (39。AND ( = )39。)。 (39。AND ( = )39。)。 (39。AND ( = )39。)。 (39。AND (=:var1)39。)。 [0].AsInteger:=StrToInt() 。 。 。 信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 22 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 組件，將其 Caption 設(shè)為相應(yīng)的標(biāo)題名；在 HascolumnHeader 里放入所要顯示的字段標(biāo)題（同樣用 QRLable 組件實(shí)現(xiàn)），在 HasDetail 表帶里和 HasColumnH