【文章內(nèi)容簡介】 n n 醫(yī)生 門診登記單 藥物 拿藥 收費 開藥 患者 收費項目 收費 日期 日期 《 醫(yī)院門診收費系統(tǒng)的設(shè)計與實現(xiàn) 》 第 １０ 頁 共 23 頁 (1). 基本信息表 BaseType 基本信息表 BaseType 用來保存科室名稱、藥品類別名稱和藥品單位名稱等信息。表 BaseType 的結(jié)構(gòu)如表 31 所示。 表 31 表 BaseType 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Id int 記錄編號 2 TypeId tinyint 類型編號， 1科室名稱， 2藥品類別名稱， 3藥品單位名稱 3 TypeName Varchar(30) 基本信息名稱 通過對上面表的分析，插入，刪除，查找等操作，所有模式都符合 3NF。 本系統(tǒng)將用戶劃分為兩種類型，即系統(tǒng)管理員和普通用戶。系統(tǒng)管理員為 Admin，他可以管理其他用戶的信息，在其他方面所有用戶的權(quán)限相同。 前面是通過前臺來實現(xiàn)系統(tǒng)安全性的，我們也可以對數(shù)據(jù)庫進行身份驗證，可以從服務(wù)器角度建一個登錄名，使得不同的服務(wù)器角色擁有不同的權(quán)限，從而實現(xiàn)對數(shù)據(jù)庫的不同權(quán)限的管理，以此來增強醫(yī)院門診收費系統(tǒng)的安全性。 數(shù)據(jù)庫表的建立 在設(shè)計數(shù)據(jù)庫表結(jié)構(gòu)之前，首先要創(chuàng)建一個數(shù)據(jù)庫。本系統(tǒng)使用的數(shù)據(jù)庫為Hospital。可以在企業(yè)管理器中創(chuàng)建數(shù)據(jù)庫，也可以在查詢分析器中執(zhí)行以 下Transact—SQl語句： CREATE DATABASE Hospital GO (1). 創(chuàng)建表 BaseType 創(chuàng)建表 BaseType（基本信息表），它的代碼如下： USE Hospital GO CREATE TABLE BaseType (Id int PRIMARY KEY IDENTITY, TypeId tinyint, TypeName varchar(30) ) GO 《 醫(yī)院門診收費系統(tǒng)的設(shè)計與實現(xiàn) 》 第 １１ 頁 共 23 頁 4 系統(tǒng)實現(xiàn) 《 醫(yī)院門診收費系統(tǒng)的設(shè)計與實現(xiàn) 》 第 １２ 頁 共 23 頁 數(shù)據(jù)庫的連接 在 該系統(tǒng)中數(shù)據(jù)庫的連接使用 ADO Data 控件。將 ADO Data 控件、 DataGrid 控件、DataCombo 控件和 DataList 控件添加到工程中，在工程中添加類 ADoConn，連接字符串中 “Database=Hospital”。在類 CDataGrid 中添加成員函數(shù) GetItem()，用于從 DataGrid表格中讀取數(shù)據(jù)。在對話框中添加的 ADO Data 控件如圖 所示。 圖 對話框中的 ADO Data 控件 右鍵單擊 ADO Data 控件，打開控件屬性窗口，設(shè)置連接屬性和身份認證屬性，分別如圖 和圖 所示。 圖 設(shè)置連接屬性 《 醫(yī)院門診收費系統(tǒng)的設(shè)計與實現(xiàn) 》 第 １３ 頁 共 23 頁 圖 設(shè)置身份認證屬性 具體實現(xiàn)代碼見附錄中的 程序。 系統(tǒng)功能模塊設(shè)置 (1). 設(shè)計科室信息管理對話框 科室信息管理對話框可以用來添加、修改、刪除和查看科室信息。添加一個對話框，將其 ID 設(shè)置為 IDD_DEPT_DIALOG。控件設(shè)置和屬性見表 41. 表 41 對話框 IDD_DEPT_DIALOG 中的空間及其屬性 控件 ID 屬性 屬性 屬性值 /說明 IDC_EDIT1 用于編輯科室名稱 IDC_ADD_BUTTON Caption 添加 IDC_MODI_BUTTON Caption 修改 IDC_DEL_BUTTON Caption 刪除 IDCANCEL Caption 返回 IDC_ADODC1 ConnectionString Provider=。IntegratedSecurity=SSPI。PersistSecurityInfo=False。UserID=sa。InitialCatalog=Hospital。DataSource=5B41B73D460A40A Visible 取消 CommandType 8—Unknown CommandType Password sa UserName sa RecordSourse SELECT*FROM BaseType WhereTypeId=1 IDC_DATALIST1 RowSource IDC_ADODC! BoundColumn Id ListField TypeName 《 醫(yī)院門診收費系統(tǒng)的設(shè)計與實現(xiàn) 》 第 １４ 頁 共 23 頁 對話框的布局如圖 所示。 圖 對話框 IDD_DEPT_DIALOG 的布局 打開 Class Wizard 窗口， 為對話框 IDD_DEPT_DIALOG 創(chuàng)建類 CDeptDlg。單擊“Member Viriable”選項卡，控件成員變量的設(shè)置見表 42。 表 42 控件成員變量的設(shè)置 控件 ID 類型 成員變量名 IDC_ADODC1 CAdodc m_Adodc IDC_DATALIST1 CDataList m_DataList IDC_EDIT1 CString m_DeptName 對話框啟動時，程序?qū)⒆詣痈鶕?jù) Adodc 控件設(shè)置的記錄源讀取科室信息，并將科室名稱顯示在 DataList 控件中。 當(dāng)用 戶單擊 DataList 控件時，將執(zhí)行 OnClickDataList()函數(shù)，程序?qū)?DataList 控件中讀取科室名稱和可是編號信息，并將科室名稱顯示在右側(cè)的編輯框中。 當(dāng)用戶單擊 “添加 ”按鈕時，將執(zhí)行 OnAddButton()函數(shù)；當(dāng)用戶單擊 “修改 ”按鈕時，將執(zhí)行 OnEditButton()函數(shù)，在保存數(shù)據(jù)之前，程序要判斷科室名稱是否為空以及是否選擇了要修改的科室記錄；當(dāng)用戶單擊 “刪除 ”按鈕時，將執(zhí)行 OnDeltButton()函數(shù)，在刪除數(shù)據(jù)之前，程序?qū)⒄{(diào)用 MessageBox()函數(shù)打開一個包含 “是 ”和 “否 ”按鈕的對話框，提示用戶確認是否刪除數(shù)據(jù)。 《 醫(yī)院門診收費系統(tǒng)的設(shè)計與實現(xiàn) 》 第 １５ 頁 共 23 頁 5 功能測試