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