【正文】 況，就醫(yī)記錄。比如說有些傳統(tǒng)進銷存軟件是為替代手工錄入，從傳統(tǒng)數(shù)據(jù)記錄中產(chǎn)生的，這些軟件面對 Inter 及電子商務(wù)迅猛發(fā)展的網(wǎng)絡(luò)經(jīng)濟時代顯得如此脆弱而只能望 e 興嘆！ 體系封閉，無法實現(xiàn)網(wǎng)絡(luò)化管理，更無法支持電子商務(wù)。軟件依舊沒有擺脫傳統(tǒng)束縛，以對外報告為其存在目的。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。 當前，醫(yī)院作為病人就診的地方，有許多信息需要處理和管理?？偟膩碚f，缺乏系統(tǒng)，規(guī)范的信息管理手段。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機之所以如此流行的原因主要有以下幾個方面：首先，計算機可以代替人工進行許多繁雜的勞動；其次，計算機可以節(jié)省許多資源；第三，計算機可以大大的提高人們的工作效率；第四，計算機可以使敏感文檔更加安全，等等。 歸納起來，好處大約有以下幾點：1． 可以存儲以往的門診信息，安全、高效；2． 只需一到二名信息錄入員即可操作系統(tǒng)，節(jié)省大量人力；3． 可以迅速查到所需信息。要使進銷存信息系統(tǒng)在企業(yè)建立、使用，并從中獲得巨大的效益，必須具備以下基本條件。(2)具備一定的資源條件管理信息系統(tǒng)的資源主要包括計算機硬、軟件設(shè)備，不間斷電源、空調(diào)等輔助設(shè)備和計算機房設(shè)施等，有條件的公司應(yīng)盡量發(fā)掘和利用現(xiàn)有計算機設(shè)備。(3)組織一個強有力的開發(fā)小組管理信息系統(tǒng)的質(zhì)量，在某種意義上直接取決于開發(fā)人員的水平和素質(zhì)。詳細的現(xiàn)狀調(diào)查目的是為了弄清現(xiàn)行系統(tǒng)的基本功能及信息流程，為新系統(tǒng)邏輯模型提供基礎(chǔ)。 系統(tǒng)的可行性分析系統(tǒng)的可行性分析包括兩個詳細的部分：分析開發(fā)新的系統(tǒng)的必要性和可能性。技術(shù)可行性要考慮現(xiàn)有的技術(shù)條件是否能夠順利完成開發(fā)工作，軟硬件配置是否滿足開發(fā)的需求等。當前我們公司信息化技術(shù)已經(jīng)相當普及，各類操作人員水平都有相當?shù)母叨?，所以在運行上是可行性的。國內(nèi)外許多系統(tǒng)開發(fā)的實例都證明這是一種行之有效的開發(fā)方式。門診收費管理信息系統(tǒng)的規(guī)劃系統(tǒng)規(guī)劃是整個管理信息系統(tǒng)建立過程中的基礎(chǔ)階段。(2)管理流程及工作步驟：現(xiàn)行系統(tǒng)中各職能部門的管理業(yè)務(wù)流程、各種數(shù)據(jù)在收第 15 頁集、整理、輸入、存貯、處理和輸出各個環(huán)節(jié)的具體加工步驟，主要單據(jù)、表格的來源和去處等，從而得到較為完整的信息流程。 可行性分析在現(xiàn)行系統(tǒng)初步調(diào)查的基礎(chǔ)上就可以提出新系統(tǒng)目標，即新系統(tǒng)建立后所要求達到的運行指標，這是系統(tǒng)開發(fā)和評價的依據(jù)。新系統(tǒng)的目標確定后，就可以從以下三方面對能否實現(xiàn)新系統(tǒng)目標進行可行性分析：（1）技術(shù)可行性根據(jù)新系統(tǒng)目標來衡量所需的技術(shù)是否具備，一般可從硬件、軟件的性能要求、環(huán)境條件、技術(shù)人員水平和數(shù)量等方面去考慮和分析，其中開發(fā)人員的技術(shù)力量應(yīng)首先考慮能力與水平，并考慮近期內(nèi)可以培養(yǎng)和發(fā)展的技術(shù)人員。對于企業(yè)管理信息系統(tǒng)則應(yīng)著重分析其社會效益。按上述三方面進行可行性分析、研究后，就可整理并編制出新系統(tǒng)開發(fā)的可行性報告，它是總體規(guī)劃工作的階段性成果。另外，對本系統(tǒng)的開發(fā)，只需一臺普通配置的計算機，及專職的開發(fā)人員一名，宿舍管理人員一名即可完成對現(xiàn)行系統(tǒng)的分析，導(dǎo)出新系統(tǒng)，顯然在經(jīng)濟上也是可行的。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用 Windows 內(nèi)部的應(yīng)用程序接口（API）函數(shù)，以及動態(tài)鏈接庫（DLL） 、動態(tài)數(shù)據(jù)交換（DDE） 、對象的鏈接與嵌入（OLE） 、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)出 Windows 環(huán)境功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic 自第 18 頁動生成對象的程序代碼并封裝起來。例如，命令按鈕是一個對象，用戶單擊該按鈕時，將產(chǎn)生一個“單擊”事件，而產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫，并提供強大的數(shù)據(jù)存儲和檢索功能。Visual Basic 是專門為 Microsoft 的 32 位操作系統(tǒng)設(shè)計的，可用來建立 32位的應(yīng)用程序。Microsoft ActiveX Data Objects (ADO) 主要優(yōu)點是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。VB和其他的應(yīng)用程序包括 Access、Foxpro、Orcale、SQL Server 等都支持 SQL 語言。具體要求對系統(tǒng)進行功能分解，不斷下去，直到分解成含義明確，功能單一的單元功能模塊，從而繪制出系統(tǒng)的功能模塊圖，即 HIPO 圖。E——R 圖的有關(guān)符號說明如下：實體 屬性 聯(lián)系編號名稱 日期 其它來源散件 散件實體ID帳號密碼用戶ID單位名稱說明藥品單位ID類型名稱說明藥品類型第 22 頁編號藥品編碼 藥品名稱 有效期型號規(guī)格藥品ID科室名稱說明科室ID醫(yī)師名稱說明醫(yī)師第 23 頁實體間主要關(guān)系如下: 物理結(jié)構(gòu)設(shè)計物理結(jié)構(gòu)設(shè)計的原則如下：（1） 盡可能的減少數(shù)據(jù)冗余和重復(fù)。為了加快系統(tǒng)訪問的速度把這些表放在一個數(shù)據(jù)庫中。主要由最上方的工具條，中間的現(xiàn)有數(shù)據(jù)顯示區(qū)及下方的新增內(nèi)容區(qū)。 = amp。.ScrollTrack = True 39。H8000000FNext i39。設(shè)置標題寬度，防止部分長文字不顯示 If j (i) Then (i) = j End IfNext i39。H8000000F End If = 4 39。實時的移動記錄 39。 Trim(strID) If Not ( And ) Then (strFind) 39。在具體的實現(xiàn)中，在醫(yī)師輸入框后，放置了一命令按鈕，方便用戶快速的查找醫(yī)師的信息。在實現(xiàn)上，要求用戶首先選擇一掛號信息，然后，打開此編號對應(yīng)的劃價的信息，用戶可以增加，也可以在已有的基礎(chǔ)上進行修改和刪除。 c_gl)Text1 = initText2 = Text3 = End IfEnd IfIf t_ = modify ThenIf = adStateOpen Then(類型) = Trim()(醫(yī)師 ID) = Trim(Text1)(掛號費) = Trim(Text3)End IfEnd IfIf 1 ThenUnload MeEnd IfEnd Sub 劃價界面 所謂的劃價，就是將醫(yī)生所給的藥品清單，以系統(tǒng)中擬定的價格計算應(yīng)收款的過程。 Move to amp。 strID End If End IfEnd Sub第 31 頁 藥品管理界面本界面，主要實現(xiàn)對藥品信息的管理，如藥品編碼、藥品名稱、型號規(guī)格、有效期。循環(huán)結(jié)束顯示所有符合條件記錄End SubPrivate Sub tblOperator_ButtonClick(ByVal Button As ) Select Case Case add Call (add) vbModal Case modify Call (modify) vbModal Case exit Unload Me 第 30 頁 Case delete End Select Call ShowInfo(rec_user, flexb)End SubPrivate Sub flexb_DblClick()If Not ThenDim f As New Form3Call (modify) vbModalCall ShowInfo(rec_user, flexb)End IfEnd SubPrivate Sub flexb_SelChange() Dim strID, strFind Call GetFlexGridFirstColValue(flexb, strID) If strID Empty Then strFind = ID= amp。其中標題占一行 = 0第 29 頁While Not = + 1 39。 = True 39。設(shè)置第一行的各列標題For i = 0 To SumFields 1 = i (0, i) = (i).Name (i) = 3 39。設(shè)置網(wǎng)格背景顏色 = SumFields 39。該表的字段總數(shù) 39。另一方面，對當前使用的某一功能選項對應(yīng)的窗口，以模式的方式進行工作，使得在同一窗口，僅能打開某一類功能的窗口，也在一定程度上減輕了用戶的使用難度。（3） 數(shù)據(jù)結(jié)構(gòu)具有相對的穩(wěn)定性。概念結(jié)構(gòu)設(shè)計在數(shù)據(jù)庫設(shè)計中，先要對系統(tǒng)分析所得的數(shù)據(jù)字典中的數(shù)據(jù)存儲進行分析，然后得出系統(tǒng)的關(guān)系模式，可以采用實體——聯(lián)系圖（簡稱 E——R 圖）的方法進行數(shù)據(jù)結(jié)用戶信息表藥品管理藥品類別信息文件　操作員 用戶信息管理用戶信息藥品類別信息圖 劃價藥品信息表劃價信息管理劃價信息用戶信息收費信息管理 藥品收費信息表第 21 頁構(gòu)的描述。其一般的用法是以 VB 的各種控件接收用戶對數(shù)據(jù)庫訪問的請求，在事件響應(yīng)程序代碼中將其轉(zhuǎn)換成對數(shù)據(jù)庫的 SQL 查詢語句，并以字符串的形式存在，然后將其傳遞給相應(yīng)的數(shù)據(jù)庫操作對象，最終完成對數(shù)據(jù)庫的訪問。在VB 中，