【正文】 其實解決這種問題并不復雜，但對不熟悉軟件內部構造的操作人員來說是相當困難的。把軟件作為整個計算機系統(tǒng)的一個元素，與計算機硬件、外設、某些支持軟件、數(shù)據和人員等其它系統(tǒng)元素結合在一起，在實際運行（使用）環(huán)境下，對計算機系統(tǒng)進行一系列的組裝測試和確認測試。例如，程序因為找不到它所需要的文件而出錯，也許這個文件已被刪除或移動；或者訪問數(shù)據庫的權限不足，需要分配更高級的權限。為了保證本軟件運行的正確性和有效性，必須做好系統(tǒng)的調試，把一切有可能發(fā)生錯誤的幾率降低到最小，使運行時盡量不發(fā)生錯誤，這是一個系統(tǒng)進行調試的主要目的所在。(2) 添加“查詢”按鈕的單擊事件，此事件的功能是按選擇的條件查詢庫存信息。通過調用“proc_ Check”存儲過程，當“Flag”變量標記為“DelCheck”和“DelHeader”時刪除從表和主表數(shù)據，維持主從表數(shù)據的完整性。為了實現(xiàn)這些功能，需要如下控件：3個TComboBox控件，用來選擇盤點人員編號、藥品類別和藥品編號；6個TBitBtn控件，分別用來實現(xiàn)對數(shù)據庫的添加、修改、刪除、保存和查找，報表的打印和審核；1個TEdit控件，用來輸入盤點數(shù)量；2個TDateTimePicker控件，用來輸入盤點日期和有效日期；1個TDBMemo控件，顯示輸入備注信息；1個TDBGrid控件，用來顯示盤點數(shù)據；1個TRvProject控件，Rave報表工程控件；1個TRvSystem控件，用來管理Rave報表的控件；1個TRvDataSetConnection控件，報表數(shù)據集連接控件。(3) 添加“添加”按鈕的單擊事件，此事件的功能主要是調用存儲過程，清空輸入條件并新增出庫流水單號，實現(xiàn)添加操作。 end。ProviderID39。).AsString。 + Quotedstr(FindID)。 if FindBool then begin SelectAll := 39。var SelectAll, FindID: string。(3) 添加“添加”按鈕的單擊事件，此事件的功能主要是調用存儲過程，清空輸入條件并新增入庫流水單號，實現(xiàn)添加操作。end。 except (39。).AsString)。 := (39。SelectStock39。輸入查詢的編號39。(7) 添加“查找”按鈕的單擊事件，此事件的功能主要是查找采購單。 (39。39。 if then Exit。已審核39。錯誤39。 +39。,Amount=39。,MedID=39。Exec proc_StockTask Flag=39。 + Quotedstr() + 39。39。主項數(shù)據沒有單號,請?zhí)砑?39。錯誤39。39。,39。end。 + Quotedstr()。 SelectAll := 39。39。 + Quotedstr() + 39。,68) = IDYes then begin DelBodyStr := 39。,16)。其實現(xiàn)代碼如下：procedure (Sender: TObject)。 else :=39。).AsString = 39。39。 := 39。 := 39。圖48 采購建立(1) 在數(shù)據庫中添加名為“proc_StockTask”的存儲過程，此過程主要用來實現(xiàn)采購模塊后臺數(shù)據庫所有的業(yè)務邏輯。為了實現(xiàn)這些功能，需要如下控件：1個TDBGrid控件，用來顯示數(shù)據表格；5個TBitBtn控件，分別用來實現(xiàn)添加、修改、刪除、保存和取消操作；4個TDBEdit控件，用來輸入或顯示數(shù)據字段值；1個TDBText控件，用于顯示編號信息；5個TLabel控件，顯示信息描述簡介；1個TDataSource控件，數(shù)據源控件；1個TADOQuery控件，用于獲取數(shù)據集。 藥品字典“藥品字典維護”窗體主要用于藥品基本信息的建立和維護。為了實現(xiàn)這些功能，需要如下控件：2個TBitBtn控件，分別用來保存數(shù)據和關閉模塊窗體；3個TEdit控件，分別用來輸入“原密碼”、“新密碼”和“確認新密碼”；5個TLabel控件，顯示信息描述簡介；1個TADOQuery控件，用于獲取數(shù)據集。 權限設置此模塊實現(xiàn)了設置系統(tǒng)使用者權限的功能。(3)在窗體的OnShow事件中調用公用單元的OpenDataSQL方法打開用戶信息表數(shù)據集。提示39。end。 //調用存儲過程 OpenDataSQL(, SQLMaxID)。Exec proc_Base Flag=39。Select_LoginID_Max39。(3) 添加“放棄”按鈕的單擊事件，此事件的功能是放棄登錄并關閉應用程序。(5) FindSQL函數(shù)：執(zhí)行SQL語句，查詢數(shù)據。end。BDConn39。 := ADOConnStr。DBConFileName39。,39。//登錄窗體的現(xiàn)實 frmLogin := (Self)。39。,39。,39。 then begin//彈出UDL連接數(shù)據窗體 ADOConnStr := PromptDataSource(, )。begin ADOConnStr := 39。(4) proc_Sale：此存儲過程主要用來實現(xiàn)入庫模塊的業(yè)務邏輯。存儲過程可以向用戶返回執(zhí)行的結果集，使用存儲過程可以極大的提高，程序的性能，減少網絡流量和防止SQL注入式攻擊。表311 銷售明細表說明字段名稱字段描述數(shù)據類型可否為空SaleID銷售編號Varchar(10)主鍵+外鍵ValidityDatetime有效日期Datetime主鍵MedicineID藥品編號Varchar(10)RetailPrice零售價格MoneyAmount銷售數(shù)量Numeric(11) 盤點主表（CheckHeader）的定義如表312所示。表33 藥商信息表說明字段名稱字段描述數(shù)據類型可否為空ProviderID公司編號Varchar(10)主鍵ProName公司名稱Varchar(30)Address地址Varchar(30)Principal負責人Varchar(8)Telephone電話Varchar(20)(3) 用戶信息表（User）的定義如表34所示。 信息管理功能管理人員進入系統(tǒng)后，可看到系統(tǒng)的全部內容，可以對用戶權限進行管理，并把操作后的信息重新寫進數(shù)據庫。② 入庫管理：對采購或退藥的藥品進行入庫登記，包括入庫類別、入庫日期、藥品的入庫信息等。① 藥品字典：維護藥品的基本信息，如藥品的名稱、藥品的類型、規(guī)格、單位、和藥品描述、藥品用法以及零售轉換率等。服務器：，硬盤120G或更大，內存512M。(2) 由于數(shù)據訪問對象ADO可以訪問各種后端數(shù)據庫，因此通過以它為基礎的ADO數(shù)據控件同樣可以訪問Access, FoxPro ,SQL Sever, Oracle等各種關系型數(shù)據庫以及非關系型數(shù)據庫。(5) 語言簡捷，易學易用[11]。(2) 高度非過程化非關系數(shù)據模型的數(shù)據操縱語言是面向過程的語言，用其完成某項請求必須指定存取路徑。 SQL 語句介紹 SQL 簡介SQL(Structured Query Language)，意思為結構化查詢語言，是一種介于關系代數(shù)與關系演算之間的結構化查詢語言。例如，使用SQL Sever，程序的數(shù)據庫引擎部分（數(shù)據和程序代碼駐留的位置，完成大多數(shù)工作的地方）駐留在一個指定的服務器計算機上，而程序的另一部分客戶界面則駐留在用戶的臺式機中。Delphi7改善了集成開發(fā)環(huán)境，以幫助程序員更好的開發(fā)環(huán)境[5]。(5) 免費的Data Snap多層應用開發(fā)。(2) 可視化的快速Web開發(fā)。由于您并未告訴它接收到用戶輸入后作何反應，窗口除了響應Windows的基本操作(移動、縮放等)外，它只是接受用戶的輸入，然后再忽略。在骨架上即使沒有附著任何東西，仍可以嚴格地按照設計運行。 時間可行性軟件的時間可行性是指軟件的開發(fā)時間和使用時間的比例，雖然藥品管理系統(tǒng)不斷完善和發(fā)展，但本系統(tǒng)所采用功能強大的軟硬件配置及優(yōu)良的開發(fā)技術，在近一段時間內可以滿足醫(yī)院的要求。醫(yī)院藥品管理系統(tǒng)是一個醫(yī)院不可缺少的部分，藥品管理系統(tǒng)能夠為用戶提供充足的信息和快捷的數(shù)據處理手段。 可行性分析 經濟可行性軟件的經濟可行性是指軟件的所有帶來經濟效益與開發(fā)所需的投資費用相比較，是否適宜，隨著近幾年計算機技術的普及和發(fā)展，用計算機輔助管理所帶來的經濟效益遠遠大于對計算機硬件和軟件的投資?？傊?，藥品管理系統(tǒng)，能夠及時、準確地收集、傳輸、處理和反饋各項醫(yī)藥信息，增強和擴展醫(yī)務人員的信息功能，增強醫(yī)務人員對醫(yī)藥信息的變換、存貯、識別處理和決策，從而提高醫(yī)護人員的工作效率。 系統(tǒng)開發(fā)的意義藥品管理系統(tǒng)的開發(fā)運用，將在以下管理方面取得了突出的意義：(1) 藥品管理規(guī)范化在藥品管理方面，實行的是品種管理模式。醫(yī)院的藥庫每天有很多藥要取出，又不斷有藥品補充進去，每天藥品的流量是很大的。如果只用人工的方法去統(tǒng)計是不可能的，醫(yī)院藥品信息管理與藥品供應有著密切的關系。從藥品的采購，到藥品的入庫、銷售，全部通過網絡調配，杜絕了已往手工運行所帶來的管理不清、藥品流失、不正常的價格波動等弊端。 目標系統(tǒng)的功能要求醫(yī)院藥品管理系統(tǒng)是為了滿足醫(yī)院或診所對藥品進貸、銷售以及庫存管理而開發(fā)的。開發(fā)的這套系統(tǒng)完全可以在醫(yī)藥現(xiàn)有的計算機上運行，因此系統(tǒng)具有了良好的硬件基礎。本系統(tǒng)的完成可以使醫(yī)院藥品管理人員從繁重的手工操作中解脫出來，減輕了勞動強度。本系統(tǒng)的開發(fā)時間很短且具有較強的兼容性，可以在一段很長時間內使用，所以在時間上是可行的。您的工作只是在“骨架”中加入您的程序。Delphi把Windows編程的回調、句柄處理等過程都放在一個不可見的Romulam覆蓋物下面，這樣您可以不為它們所困擾，輕松從容地對可視部件進行編程[3]。開發(fā)者能夠在Delphi7環(huán)境中可視化的創(chuàng)建Web應用。Data ，更加入了許多新的組件。 SQL Server 2000簡介SQL Server 2000數(shù)據庫管理系統(tǒng)是目前世界上最為流行的關系數(shù)據庫系統(tǒng)之一，作為大型數(shù)據庫管理系統(tǒng)?？蛻?服務器系統(tǒng)的組件通過網絡進行通信，好像它們是同一個程序一樣[8]。它的主要功能就是同各種數(shù)據庫建立聯(lián)系，進行溝通。而用SQL語言進行數(shù)據操作，只要提出“做什么”，而無須指明“怎么做” ，因此無須了解存取路徑，存取路徑的選擇以及SQL語言句的操作過程由系統(tǒng)自動完成。 ADO 數(shù)據存取技術的選擇ADO數(shù)據控件（ADO Data Control）是Delphi 7新增加的一種數(shù)據庫訪問控件，是目前主要的數(shù)據存取技術。(3) ADO是“遠程數(shù)據庫訪問”，能夠通過一個來回的傳輸將數(shù)據從服務器移到客戶端應用程序或Web頁中，然后將更新數(shù)據返回服務器。3 系統(tǒng)分析與設計 功能模塊分析 系統(tǒng)功能結構 系統(tǒng)功能結構圖如圖31所示。② 藥商字典：維護藥品供貨廠商的基本資料，如廠商名稱、聯(lián)系方式、廠商地址、負責人和聯(lián)系電話等?？梢詫崿F(xiàn)管理醫(yī)院或診所內藥品入庫信息。此系統(tǒng)還可以進行藥品入庫管理、出庫管理、藥品庫存管理。表34 用戶信息表說明字段名稱字段描述數(shù)據類型可否為空LoginID登錄編號Varchar(10)主鍵LogName用戶名稱Varchar(8)Password密碼Varchar(8)PopedomID權限編號Varchar(8)(4) 權限表（Popedom）的定義如表35所示。表312 盤點主表說明字段名稱字段描述數(shù)據類型可否為空CheckID盤點編號Varchar(10)主鍵CheckDatetime盤點時間DatetimeCheckMan盤點人員Varchar(8)續(xù)表312 盤點主表說明字段名稱字段描述數(shù)據類型可否為空Remark備注TextAuditingPeople審核人員Varchar(8)Auditing是否審核Bit(1)(12)盤點明細表（CheckBody）的定義如表313所示。本系統(tǒng)在SQL Serve 2000 數(shù)據庫中建立了以下存儲過程：(1) proc_Base：封裝了所有設計基礎資料查詢操作的SQL語句。(5) proc_Check：此存儲過程主要用來實現(xiàn)庫存盤點模塊功能。39。 WriteIni(FileName,39。DBConFileName39。提示39。)。 。DBConFileName39。,ADOConnStr)。 。,39。 創(chuàng)建公用單元通過公用單元來調用存儲過程，實現(xiàn)對數(shù)據庫的操作。(6) ExecSQL方法：用于執(zhí)行插入、更新或刪除等數(shù)據庫操作。(4) 添加edtUserID控件的OnKeyPress事件，使用回車鍵控制光標的焦點。 藥商的最大編號 begin Select ISNULL(Max(LoginID), LoginID) + 1 as LoginID From [User] end(2) 依次添加“添加”、“修改”、“刪除”和“保存”按鈕的單擊事件，這些事件的功能主要是對數(shù)據庫執(zhí)行添加、刪除、修改、保存等基本的數(shù)據庫操作。39。 //執(zhí)行SQL語句的過程 MaxID := (39。procedure (Sender: TObject)。,68) = IDNo then Exit。其代碼如下所示?！皺嘞?