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