【正文】 [orders] [numeric](18, 0) NOT NULL , [hocusway] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [cutway] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [healcircs] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [operationdate] [datetime] NULL , [operationdoctor] [numeric](18, 0) NULL , [hocusdoctor] [numeric](18, 0) NULL ) ON [PRIMARY] GO 用戶密碼表 —— 系統(tǒng)維護(hù)表，只能由管理員進(jìn)行更改添加 CREATE TABLE [dbo].[password] ( [user_id] [char] (18) COLLATE Chinese_PRC_CI_AS NOT NULL , [username] [char] (18) COLLATE Chinese_PRC_CI_AS NOT NULL , [password] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [privilege] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO 病人基本信息表 —— 病案中的基本信息 CREATE TABLE [dbo].[sick_info] ( [case_id] [numeric](18, 0) NOT NULL , [sick_name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [sick_sex] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , 信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 13 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 [case_num] [numeric](18, 0) NULL , [sick_nation] [numeric](18, 0) NULL , [sick_birth] [datetime] NULL , [sick_wed] [char] (4) COLLATE Chinese_PRC_CI_AS NULL , [sick_job] [numeric](18, 0) NULL , [address] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [sick_native] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [sick_postalcode] [numeric](18, 0) NULL ) ON [PRIMARY] GO 疾病編碼表 —— 字典維護(hù)表之一 CREATE TABLE [dbo].[sickness] ( [ill_id] [numeric](18, 0) NOT NULL , [ill_name] [char] (40) COLLATE Chinese_PRC_CI_AS NULL , [pinyin] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [ill_code] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [death_code] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO （ 4）表間關(guān)系圖 各個表之間的關(guān)系及約束見下圖： 信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 14 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 主要的幾個表就是用戶信息表，住院情況表，疾病診斷情況表，手術(shù)診斷情況表，收費(fèi)情況標(biāo)及病案借閱情況表；病歷號可唯一確定病人，而住院號則向發(fā)票號一樣，是唯一確定每一次住院操作的；由于建立了較多的約束，所以在數(shù)據(jù)錄入時一旦出現(xiàn)邏輯錯誤，就會報(bào)錯，較好的維護(hù)了數(shù)據(jù)庫的規(guī)范性。 2 前臺程序設(shè)計(jì) 在建好了后臺的數(shù)據(jù)庫后 ，就可以進(jìn)行前臺的程序開發(fā)了；在 Delphi 中新建一個項(xiàng)目 Project1,按照系統(tǒng)分析的步驟，首先新建一個表單，也就是一個窗體，作為用戶登錄界面；在本次程序開發(fā)中，我們主要是利用 Delphi 里一些常用組件來實(shí)現(xiàn)功能的；而窗體和組件的關(guān)系非常密切，窗體就像一個可以放置東西的桌面，我們可以根據(jù)任務(wù)的需要在窗體上擱置各種各樣的組件；在 windows 環(huán)境中，人機(jī)交互主要是在一些窗體和對話框中進(jìn)行的。 從視覺的角度來看，窗體就象一個容器，可以包含很多組件的對象。但這并不是說窗體類包含了組件類或者說窗體是組件的父類。 事實(shí)上窗體和組件都是從 Tponent 類繼承下來的，他們都有公共的 Tobject 祖先類。 在窗體中進(jìn)行可視化程序設(shè)計(jì)時要涉及到 VCL組件面版中的組建和在改窗體對應(yīng)的單元文件中編寫代碼：在組件面板上選擇需要的組件放在窗體 Form 上，在對象察看器中設(shè)置該組件對象的屬性；窗體的單元文件會自動生成窗體中的組件對象的信息以及在單元文件中編寫程序處理代碼。 不同的組件具有不同的屬性，方法和事件，但有些屬性和事件是公共的，也就是說他們雖然出現(xiàn)在不同的組件中但具有相同的的含義和使用方法。組件的屬性在對象察看器的properties 標(biāo)簽頁上能夠看到，在程序設(shè)計(jì)階段可直接通過對象察看器對組件的屬性進(jìn)行設(shè)置，也可在程序運(yùn)行階段通過賦值語句對組件的屬性賦值。在對象察看器的 event 標(biāo)簽頁上能夠看到組件的事件。 （ 1）用戶登錄模塊 在用戶登錄的窗體上放置兩個 label 標(biāo)簽和兩個 edit 組件以及兩個 button 組件，另外，因?yàn)橐M(jìn)行數(shù)據(jù)的檢驗(yàn)，所以還要在此窗體上放置 DataSource 和 Table 這兩個數(shù)據(jù)庫組件，如圖所示： Edit 組件是常用組件之一，可以用來顯示，編輯單獨(dú)的一行文本，主要屬性是 Text(是編輯組件與用戶交互 的字符串，字符串在編輯框中顯示 )。 TTable 組件是表達(dá)數(shù)據(jù)庫表中的數(shù)據(jù)和結(jié)構(gòu)的組件，它是本次 Delphi 開發(fā)數(shù)據(jù)庫應(yīng)用程序中最常用的組件也是最重要的組件之一；他在應(yīng)用程序訪問數(shù)據(jù)庫時起著極其重要的作用。它通過 BDE 從一個數(shù)據(jù)庫表格中取得數(shù)據(jù)病通過 TdataSource 組件將數(shù)據(jù)傳遞給一個或多個數(shù)據(jù)控制組件，且將從數(shù)據(jù)控制組件處得到的信息通過 BDE 傳遞給數(shù)據(jù)庫。此組件最重要的幾個屬性是： DataBaseName(指定數(shù)據(jù)庫來源 )， Active(激活當(dāng)前數(shù)據(jù)庫連信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 15 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 接 )， TableName(Ttable 最重要的 屬性之一，用來說明這個 Ttable 組件所對應(yīng)的是數(shù)據(jù)庫中的哪一張數(shù)據(jù)表格。在設(shè)定此項(xiàng)屬性時， Active 屬性值一定要設(shè)為 False)。 TDataSource 組件是聯(lián)系數(shù)據(jù)集組件（ Ttable,Tquery 和 TstoredProc 組件）與數(shù)據(jù)控制組件的橋梁。它主要為數(shù)據(jù)控制組件提供服務(wù)，數(shù)據(jù)控制組件通過數(shù)據(jù)案組件可以從數(shù)據(jù)集中取得數(shù)據(jù)，數(shù)據(jù)在數(shù)據(jù)控制組件中顯示，用戶在數(shù)據(jù)控制組件中對數(shù)據(jù)進(jìn)行操作。此組件主要的屬性是 DataSet 屬性（用來值明與當(dāng)前數(shù)據(jù)源組件相聯(lián)系的數(shù)據(jù)集組件對象的名字）。 在登錄按鈕的 onclick 事件內(nèi)編寫程序?qū)崿F(xiàn)對用戶名和密碼的檢驗(yàn)，如檢驗(yàn)通過則可進(jìn)如主界面，否則提示用戶名密碼錯誤；在此處的檢驗(yàn)主要使用的是 findkey 這個方法，它將 setkey,制定查找值，執(zhí)行查找三個步驟融合在一步里完成。一旦找到就返回真值并將指針指向此處；在此就是利用了它的指針指向這一特點(diǎn)，首先讓她查找到用戶名，然后指針定位于此后直接檢查這條紀(jì)錄中的密碼字段值是否與用戶錄入的相符，這樣就實(shí)現(xiàn)了用戶名密碼的驗(yàn)證功能。 （ 2）程序主界面模塊 程序主界面的窗體中只有兩個組件，一個是主菜單 MainMenu 組件，一個是 Timage組件，如下圖所示： Timage 組件可以方便的現(xiàn)實(shí)和處理圖像，其主要屬性是 Picture 屬性（可以在程序設(shè)計(jì)階段指定圖像，也可在程序運(yùn)行階段用 loadfromfil()方法實(shí)現(xiàn)）；主菜單一般顯示在窗口的頂部，位于應(yīng)用程序的標(biāo)題欄下。主菜單種基本上包括了這個應(yīng)用程序的所有操作。創(chuàng)建主菜單時加入一個 MainMenu 組件，雙擊此組件將打開菜單設(shè)計(jì)器（ Menu Designer） ,通過它編輯菜單項(xiàng)；在每個菜單項(xiàng)上單擊鼠標(biāo)右鍵會出現(xiàn)一個彈出式菜單，其中 Insert 命令用于在當(dāng)前菜單項(xiàng)前面插入一個新菜單項(xiàng)； Delete 命令用于刪除當(dāng)前的菜單項(xiàng)；CreateSubmenu 命令用于為當(dāng)前此菜單項(xiàng)創(chuàng)建下一級菜單項(xiàng)。在每個菜單項(xiàng)的屬性中，caption 屬性決定菜單項(xiàng)上顯示的文字；菜單的事件處理過程及程序運(yùn)行時單擊菜單項(xiàng)后執(zhí)行的程序代碼，常見菜單的事件處理過程有兩種方法：一種是打開菜單設(shè)計(jì)器，在其中選中要創(chuàng)建事件過程的菜單項(xiàng)，然后在對象查看器中單擊 event 頁，選擇相應(yīng)的事件（通常是 onclick 事件）并在單元編輯窗口中編寫改事件的過程代碼；另一種方法是在主窗口中信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 16 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 直接單擊菜單項(xiàng)。 在本窗口中，由于菜單上顯示出了所有的功能 ，而有的功能是不允許所有用戶都使用的；由于在開始分析是沒有想到這點(diǎn)，所以只好在此處用了一點(diǎn)兒小技巧：我在主窗體的程序體里定義了一個字符型的常量 user,并給它賦了一個 admin 的值；在程序運(yùn)行時，用戶登錄近來后并未將登錄窗體關(guān)掉，所以在用戶點(diǎn)擊系統(tǒng)參數(shù)維護(hù)選項(xiàng)時，在 Onclick 事件中編寫一個檢查語句，看登錄窗口中用戶名那一欄的內(nèi)容是否與 user 常量相符；如相符才會允許進(jìn)入系統(tǒng)參數(shù)維護(hù)界面，否則會彈出對話框。 （ 3）病人基本信息錄入模塊 在本設(shè)計(jì)中，病案的首頁錄入是主要的功能之一，由于在做數(shù)據(jù)庫時將病人的病 案首頁信息分為了多個表結(jié)構(gòu)進(jìn)行存儲，所以在前臺程序設(shè)計(jì)時也相應(yīng)將它們進(jìn)行了分組；病人的基本信息錄入在整個病案首頁信息錄入之前單獨(dú)進(jìn)行錄入，在這個模塊的窗體中，我們總共放置了 6 個 DBedit 組件 ,一個 DateTimePicker 組件，兩個 DBLookupComboBox 組件和兩個 ComboBox 組件，三個 Ttable 組件和三個 TdateSource 組件，如下圖所示： 由于日期的輸入格式較為多樣化，為使用戶在使用時盡量方便，所以病人的出生日期這一項(xiàng)使用了 DateTimePicker 組件，這一組件的方便之處就 是不需要用戶為格式不規(guī)范而擔(dān)心，直接使用了日歷形式將時間從下拉框里選出來。 而病人的性別和婚姻狀況只有兩種情況，所以在這兩個字段的輸入時使用了ComboBox 組件； ComboBox 組件是由一個編輯框和一個下拉式列表框組成，可以從下拉式列表框中的多個列表項(xiàng)中選擇一項(xiàng)，也可以從編輯框中輸入。 ComboBox 組件的主要屬性有 sorted,Items,DropDrowCount 及 text,其中 sorted 屬性用來排列下拉列表中項(xiàng)的順序，Items 用來存放列表框中的項(xiàng)， ItemIndex 屬性的值是當(dāng)前選中的列表項(xiàng)的索 引號。DropDrowCount 屬性用來指定下拉列表中可一次顯示的最大項(xiàng)數(shù)，如果項(xiàng)目數(shù)大于其屬性值，它將出現(xiàn)一個可上下滾動的滾動條。 Text 屬性顯示的是編輯框中的文本。另外還有一個 Style 屬性，當(dāng)此項(xiàng)屬性值為 csDropDown 時，在組合框的編輯框中可以輸入，同時下拉列表框是一組具有等高度的字符串，我們就是用了此屬性。 民族和職業(yè)這兩個字段值也同樣是多樣化的，為了便于用戶的輸入，將這兩者都作了各自的字典維護(hù)，也就是各自都建了表結(jié)構(gòu)，所以在這里使用了 TDBLookupComboBox 這一 組 件 ， 可 以 直 接 從 后 臺 數(shù) 據(jù) 庫 中 將 職 業(yè) 及 民 族 的 值 調(diào) 出 供 用 戶 選 擇 ；信息學(xué)院 計(jì) 班 學(xué)生 畢業(yè)設(shè)計(jì)（論文） 第 17 頁 共 30頁 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)（論文）用紙 DBLookupComboBox 這一組件是用來給用戶提供一個數(shù)據(jù)集中的特定字段的字段值列表。其下拉列表的內(nèi)容是另一個相關(guān)數(shù)據(jù)集中特定的字段的字段值，它在設(shè)置號屬性后自動添加到 TDBLookupComboBox 中，而不需要象使用 TDBComboBox 組件那樣由用戶自己輸入列表內(nèi)容。在這里，所有的數(shù)據(jù)寫入都用的數(shù)據(jù)源是 Table1 所連接的 sickinfo 的表，而姓名和職業(yè)的顯示數(shù)據(jù)源則為各自的字典維護(hù)表。這里需要注意的示，如果只想顯示，并不想要通過它來向數(shù)據(jù)庫寫入，可以不 設(shè)其 DataSource,DataField 屬性值。 其余幾項(xiàng)字段的值都可以直接進(jìn)行手動輸入，所以都使用了 DBedit 這一組件。這一組件用于顯示編輯