【文章內(nèi)容簡介】 編寫能處理實際問題的實用小程序， VB 都是最快速、最簡便的方法。 它是由最初的 Basic 語言發(fā)展而來的， Basic 語言是面向過程的，后來出現(xiàn)的 到 ......一直到現(xiàn)在的 和 ，是一種可視化面向?qū)ο蟮木幊陶Z言，特點是編程效率高，很短時間就可以編寫出功能強大的軟件。 ADO 技術(shù) 2 ADO（ ActiveX Data Objects） 稱為 ActiveX 數(shù) 據(jù)對象，是 Microsoft 公司開發(fā)數(shù)據(jù)庫應(yīng)用程序面向?qū)ο蟮男陆涌冢?ADO 技術(shù)已成為 ASP 技術(shù)用來訪問 Web 數(shù)據(jù)庫應(yīng)用程序的核心。 ADO 是 DAO/RDO 的后繼產(chǎn)物，它擴展了 DAO 和 RDO 所使用的對象模型，具有更加簡單，更加靈活的操作性能。 ADO 在 Inter 方案中使用最少的網(wǎng)絡(luò)流量，并在前端和數(shù)據(jù)源之間使用最少的層數(shù)，提供了輕量、高性能的數(shù)據(jù)訪問接口，可通過 ADO Data 控件非編程和利用 ADO 對象編程來訪問各種數(shù)據(jù)庫。 它是對當(dāng)前微軟所支持的數(shù)據(jù)庫進行操作的最有效和最簡單直接的方法，它是一種功能強大的 數(shù)據(jù)訪問編程模式，從而使得大部分數(shù)據(jù)源可編程的屬性得以直接擴展到你的 Active Server 頁面上?？梢允褂?ADO 去編寫緊湊簡明的腳本以便連接到 Open Database Connectivity (ODBC) 兼容的數(shù)據(jù)庫和 OLE DB 兼容的數(shù)據(jù)源，這樣程序員就可以訪問任何與 ODBC 兼容的數(shù)據(jù)庫，包括 MS SQL SERVER、Access、 Oracle 等等。 系統(tǒng)簡介 科學(xué)技術(shù)的飛速發(fā)展，使得競爭十分激烈，有許多公司在崛起，也有許多公司在沒落，優(yōu)勝劣汰十分明顯，這就要看誰先掌 握先進的技術(shù)了，對于管理方面也是一樣，效率和成效就是關(guān)鍵，為了提高管理的效率和操作的簡單化，制作這中型醫(yī)院門診管理系統(tǒng)是十分必要的。該系統(tǒng)特別適用 中小 型醫(yī)院，針對醫(yī)院 規(guī)模不大，人手不足等特點，能夠直接面對 病人 或 醫(yī)生 ，以智能化的操作滿足 日常需求。我的目標(biāo)就是開發(fā)一個功能實用、操作方便、簡單明了且成本低的中型醫(yī)院門診管理系統(tǒng)。 本系統(tǒng)采用 C/S 結(jié)構(gòu)，服務(wù)器采用 SQL Server2021 數(shù)據(jù)庫，客戶端采用 Visual Basic 為開發(fā)工具。在設(shè)計時力求作到界面簡潔，風(fēng)格統(tǒng)一，操作方便，上手簡易等特點。 本系統(tǒng)主要包括 8 大功能 ,即 :收費管理、退費管理、醫(yī)務(wù)人員管理、科室管理、收費項目管理、藥品管理、報表管理和數(shù)據(jù)維護等。 系統(tǒng)具有以下特點： 極大地提高了醫(yī)務(wù)人員的工作效率，加快了病人就診的速度，有效地解決了“看病難“的問題。 全面提高了醫(yī)院的綜合管理水平和服務(wù)質(zhì)量。 解決了漏收費、錯收費問題，控制了藥品的流失。 采用公費、自費兩種收費模式。 強大的報表打印功能，使用戶可以隨時查看或打印收費、退費的統(tǒng)計結(jié)果。 系統(tǒng)具有較高的安全性，每進入一個功能模塊，都要驗證操作員的身份和密碼。 系統(tǒng)實現(xiàn)的目標(biāo) 中型醫(yī) 院門診管理系統(tǒng)用于支持醫(yī)院完成各方面的管理，有如下幾個方面的目標(biāo)： ，提供便捷的查詢功能。 ，使醫(yī)生與病人有很好的聯(lián)系。 ，以便醫(yī)生查詢。 2 、錯收費問題，降低管理成本。 。 2 2 系統(tǒng)分析 系統(tǒng)主要模塊功能進行詳細的分析 主要功能有 7 大塊分別為計價收費、藥品維護、統(tǒng)計查詢、報表打印、系統(tǒng)維護、關(guān)于等，下面對每一模塊進行詳細的介紹： A：提供“病案類型”列表供用戶選擇錄入。如果用戶選擇“新患者”，那么系統(tǒng)自動分配給該患者一個病案號；如果選擇其他病案類型，可以自動輸入證號。例如，提供兩種費用類型，即：自費、公費。 B：通過拼音簡碼檢索輸入就診科室、醫(yī)生和診療項目，提高了工作效率。 C：通過“類型”列表選擇項目類別，例如：中藥費、檢查費、化驗費等。再通過選擇的項目類型，篩選并彈出與之對應(yīng)的藥品或診療項目的詳細信息列表，供用戶查看和選擇錄入。 D：對于錯誤的數(shù)據(jù)，可以單條刪除，也可以整單作廢。 E：金額系統(tǒng)自動計算， 減小了錯誤率。 F：如果收費項目中存在藥品，那么自動更新該藥品的庫存數(shù)量。 實現(xiàn)了中西藥品和特殊藥品的管理。將新增藥品入庫到相應(yīng)的倉庫中，對于倉庫中已存在的藥品，可以增加庫存數(shù)量；如果藥品信息輸入有誤可以進行修改或刪除。 該模塊主要以查詢?yōu)橹?，收費查詢、藥品查詢、療項目查詢等。 此模塊有收款員日結(jié)報表、結(jié)帳統(tǒng)計報表、就診科室統(tǒng)計報表、執(zhí)行科室統(tǒng)計報表等。 收款員日結(jié)報表主要完成當(dāng)日或某日收款員收款和退款收據(jù)數(shù)和金額統(tǒng)計。 結(jié)帳統(tǒng)計報表根據(jù)用戶選擇的日期區(qū)間和統(tǒng)計方式。完成門診收費信息的統(tǒng)計。當(dāng)用戶選擇“付款方式統(tǒng)計”選項時，將分別統(tǒng)計現(xiàn)金、支票和計帳三種結(jié)算方式總計收據(jù)數(shù)和收費金額。當(dāng)用戶選擇“按收費項目統(tǒng)計”選項時，將按收費項目統(tǒng)計收費金額。 就診科室統(tǒng)計報表完成按就診科室和日期統(tǒng)計收費信息。 該模塊有三大管理功能分別為科室管理、生管理、療項目管理 根據(jù)用戶輸入的單據(jù)號，顯示單據(jù)的收費項目信息。在此信息中選擇需要退費的收費項目。這時系統(tǒng)自動統(tǒng)計退費金額和收費剩余金額。 綜上所 述可得圖 21 所示的模塊結(jié)構(gòu)圖。 2 數(shù)據(jù)庫設(shè)計 ER 圖 醫(yī)生與科室之間的 ER 圖，醫(yī)生與科室有著一定的聯(lián)系，一個科室可以有若干個醫(yī)生，故科室與醫(yī)生是一對多的關(guān)系。 圖 22 醫(yī)生與科室之間的 ER 圖 門診與醫(yī)生之間的 ER 圖，一個門診中可以有多個醫(yī)生，每一個醫(yī)生卻只能有一個對應(yīng)的門診，為人看病 醫(yī)院門診管理系統(tǒng) 計價收費 藥品維護 統(tǒng)計查詢 報表打印 系 統(tǒng)維護 關(guān)于 幫助 圖 21 系統(tǒng)模塊結(jié)構(gòu)圖 收費 退費 新增藥品 增加庫存 修改 刪除 打印 收費查詢 藥品查詢 診療項目查詢 收款員日結(jié)報表 結(jié)賬統(tǒng)計報表 就診科室統(tǒng)計報表 執(zhí)行科室統(tǒng)計報表 科室管理 醫(yī)生管理 診療項目管理 2 圖 23 門診與醫(yī)生之間的 ER 圖 醫(yī)生與病人之間的 ER 圖，在一個醫(yī)院中，醫(yī)生與病人有著緊密的聯(lián)系，往往是一對一的關(guān)系。 圖 24 醫(yī)生與病人之間的 ER 圖 藥品與門診收費之間的 ER 圖，一種藥品一個進價，收費時的價格也是統(tǒng)一的。 圖 25 藥品與門診收費之間的 ER 圖 重要數(shù)據(jù)庫表設(shè)計 表 醫(yī)生信息表 字段名稱 字段類型 字段大小 說明 編號 varchar 2 由兩個數(shù)字組成，不允許為空。例如 01 2 姓名 varchar 10 拼音碼 varchar 10 取每個漢字拼音 的第一個字母，然后進行組合。例如：任艷的拼音簡碼為 RY 性別 varchar 2 職稱 varchar 10 職務(wù) varchar 10 聯(lián)系電話 varchar 20 所在科室 varchar 20 兼職科室 varchar 20 表 科室信息表 字段名稱 字段類型 字段大小 說明 科室編號 varchar 2 由兩個數(shù)字組成，不允許為空，例如： 01 科室名稱 Varchar 20 科室簡稱 Varchar 10 科室名稱的簡寫 拼音碼 Varchar 10 取每 個漢字拼音的第一個字母，然后進行組合 科室電話 Varchar 20 科室類型 Varchar 4 主要包括臨床和醫(yī)技 表 藥品信息表 字段名稱 字段類型 字段大小 說明 藥品編碼 varchar 7 由 7 位數(shù)字組成，不允許為空，例如0000002 品名 Varchar 60 藥品的曾用名 拼音碼 Varchar 20 取每個漢字拼音的第一個字母，然后進行組合。例如：去痛片的拼音碼為 QTP 劑型 Varchar 10 包括片劑、丸劑、針劑等 規(guī)格 Varchar 40 最小單位 Varchar 4 包裝量 Varchar 18， 0 包裝單位 Varchar 4 零售價 Varchar 20 庫存數(shù)量 Varchar 18， 0 自費類型 varchar 4 主要有自費和公費兩種 類別 Varchar 10 主要有西藥、中藥、中草藥 毒麻標(biāo)志 Varchar 10 生產(chǎn)企業(yè) Varchar 20 表 診療項目信息表 字段名稱 字段類型 字段大小 說明 收費項目編號 Varchar 4 由兩位數(shù)字組成，不允許為空，例如： 01 2 收費項目名稱 varchar 30 拼音碼 Varchar 20 取每個漢字拼音的第一個字母，然后進行組合 類別 Varchar 10 主要有中藥費、西藥費、化驗費、檢查治療費等 收費金額 Varchar 50 執(zhí)行科室 Varchar 20 核算科目 Varchar 10 自費類型 varchar 4 主要有自費和公費兩種 表 門診收費信息表 字段名稱 字段類型 大小 說明 病案類型 Varchar 10 主要有門診號、新患者、住院號、醫(yī)療證號、條碼號 病案號 Varchar 10 根據(jù)病案類型 輸入 患者姓名 Varchar 10 費用類型 Varchar 4 主要有自費和公費兩種 就診科室 Varchar 20 醫(yī)生 Varchar 10 就診次數(shù) Int 賬單號 Int 處方號 Int 項目號 Varchar 10 類別 Varchar 10 藥品或診療項目名稱 Varchar 200 數(shù)量 numeric 18,0 單價 money 金額 Money 執(zhí)行科室 Varchar 20 收據(jù)號 Varchar 7 收費單據(jù)的惟一標(biāo) 識 日期 Datetime 結(jié)算方式 Varchar 4 主要有現(xiàn)金、支票和計帳 退費標(biāo)志 Bit 操作員 Varchar 10 工號 Varchar 5 窗口號 varchar 2 表 收費單據(jù)信息表 字段名稱 字段類型 大小 說明 收據(jù)號 Varchar 7 收費單據(jù)的惟一標(biāo)識 2 總金額 Money 結(jié)算方式 Varchar 4 實收金額 Money 找零 Money 操作員 Varchar 10 工號 Varchar 10 窗口號 Va rchar 2 日期 Datetime 表 門診退費信息表 字段名稱 字段類型 大小 說明 病案類型 Varchar 10 病案號 Varchar 10 患者姓名 Varchar 10 費用類別 Varchar 4 就診科室 Varchar 20 醫(yī)生 Varchar 10 就診次數(shù) Int 賬單號 Int 處方號 Int 項目號 Varchar 10 類別 Varchar 10 藥品和診療項目 名稱 Varchar 200 數(shù)量 Numeric 18,0 單價 Money 金額 Money 執(zhí)行科室 Varchar 20 收據(jù)號 Varchar 7 收費日期 Datetime 結(jié)算方式 Varchar 4 日期 Datetime 操作員 Varchar 10 工號 Varchar 5 窗口號 Varchar 2 表 退費單據(jù)信息表 字段名稱 字段類型 字段大小 說明 收據(jù)號 Varchar 7 總金額 Money 結(jié)算方式 Varchar 4 操作員 Varchar 10 工號 Varchar 10 窗口號 Varchar 2 2 金額 Money 收據(jù)數(shù) Varchar 10 日期 Datetime 2 3 系統(tǒng)實現(xiàn)及編碼 系統(tǒng)工程說明 系統(tǒng)的工程名定為醫(yī)院醫(yī)院門診管理系統(tǒng)。在工程中的一些規(guī)定 ： 1. Form 取名 Frm + 標(biāo)識名， 標(biāo)識名一般取表名。 2. 與數(shù)據(jù)庫的連接用 ADOConnection，在程序主界面上 。 3. 數(shù)據(jù)庫控件統(tǒng)一用 ADOQuery, 取名 Query + 表名。 4. 編輯字段控件用 Edit 控件，取名為字段名。 數(shù)據(jù) 自動存儲， 只要置 Edit字段的 name 屬性為字段名， Tag 置 0，非庫字段值