【正文】 (3) 添加 edtChangeRate 控件的 OnKeyPress 事件，此事件限制了在 edtChangeRate
。添加窗體的 OnClose 事件，其主要功能是釋放窗體實例。 窗體的設計界面如圖 46 所示。 藥品字典 “藥品字典維護”窗體主要用于藥品基本信息的建立和維護。 修改密碼的時候 begin update [User] set [Password] = Pass where LoginID=LoginID end end (3) 添加窗體的 OnShow 事件，此事件的功能主要是 顯示當前登錄的用戶的編號信息。其實現(xiàn)代碼如下： if Flag1 =39。 25 圖 45 更改密碼 (1) 向“ proc_Base”存 儲過程中添加更新密碼的 SQL 語句。 為了實現(xiàn)這些功能，需要如下控件： 2 個 TBitBtn 控件，分別用來保存數(shù)據(jù)和關閉模塊窗體； 3 個 TEdit 控件，分別用來輸入“原密碼”、“新密碼”和“確認新密碼”； 5 個 TLabel 控件，顯示信息描述簡介； 1 個 TADOQuery 控件，用于獲取數(shù)據(jù)集。 更改密碼 “更改密碼”窗體主要實現(xiàn)對當前已經登錄了的用戶修改密碼。 圖 44 權限設定 (1) 添加窗體的 OnShow 事件，此事件的功能主要是當窗體打開時初始化TCheckListBox 控件和 TTreeView 控件，分別顯示權限列表和當前系統(tǒng)中的用戶信息。 24 為了實現(xiàn)這些功能，需要如下控件： 1 個 TTreeView 控件，用來顯示用戶信息的樹形 列表； 2 個 TBitBtn 控件，確定和取消權限操作按鈕； 1 個 TCheckListBox 控件，權限列表框； 1 個 TADOQuery 控件，用于獲取數(shù)據(jù)集。 權限設置 此模塊實現(xiàn)了設置系統(tǒng)使用者權限的功能。 end。Select * From [User]39。 procedure (Sender: TObject)。 (3)在窗體的 OnShow 事件中調用公用單元的 OpenDataSQL 方法打開用戶信息表數(shù)據(jù)集。 begin if in [dsInsert,dsEdit] then 。 end。 。提示 39。確定要刪除此條記錄嗎 ?39。 procedure (Sender: TObject)。 begin 。 end。LoginID39。 23 := MaxID。LoginID39。 //調用存儲過程 OpenDataSQL(, SQLMaxID)。,LoginID=39。39。Select_LoginID_Max39。Exec proc_Base Flag=39。100039。 begin 。其代碼如下： procedure (Sender: TObject)。Select_LoginID_Max39。 22 圖 43 “用戶設定”窗體 (1) 向存儲過程 proc_Base 中添加一段用于檢查用戶編號是否存在的 SQL 語句。 為了實現(xiàn)這些功能，需要如下控件： 1 個 TDBGrid 控件，顯示用戶信息； 4 個 TBitBtn 控件，裝載按鈕圖片，分別執(zhí)行添加、修改、刪除和保存功能； 2 個 TDBEdit 控件，分別顯示用戶輸入的用戶名稱和密碼； 1 個 TADOQuery 控件，數(shù)據(jù)查詢控件，用來執(zhí)行 SQL 語句，查詢用戶數(shù)據(jù)； 1 個 TDBText 控件，用于顯示登陸編號信息； 1 個 TDataSource 控件，數(shù)據(jù)源控件。 用戶設置 用戶設置模塊實現(xiàn)了系統(tǒng)用戶維護功能。 (3) 添加“放棄”按鈕的單擊事件，此事件的功能是放棄登 錄并關閉應用程序。 圖 42 用戶登錄界面 (1) 在“ proc_Base”存儲過程中添加判斷用戶登錄和用戶權限的 SQL 語句。 21 為了實現(xiàn)這些功能，需要如下控件： 1 個 TImage 控件，顯示登錄畫面； 2 個 TBitBtn 控件，裝載按鈕圖片，分別執(zhí)行登錄和放棄功能； 2 個 TEdit 控件， 分別顯示用戶輸入的用戶編碼和密碼； 2 個 TLabel 控件，顯示用戶提示信息； 1 個 TADOQuery 控件 ， 獲取用戶登陸權限。 用戶登錄 此模塊通過驗證用戶的編號和密碼來實現(xiàn)用戶登錄功能。 (5) FindSQL 函數(shù)：執(zhí)行 SQL 語句，查詢數(shù)據(jù)。 (3) FileName 函數(shù)：用于獲取 初始化文件路徑。 (1) WriteIni 方法：將數(shù)據(jù)字符串保存在初始化 INI 文件中。公用單元主要實現(xiàn)調用存儲過程打開數(shù)據(jù)集，執(zhí)行 SQL 語句更新數(shù)據(jù)庫信息和通過 SQL 語句查詢信息等。 end。 end。39。DBConFileName39。BDConn39。,16)。,39。 except (39。 := ADOConnStr。)。,39。 end else ADOConnStr := ReadIni(FileName,39。DBConFileName39。BDConn39。 then 20 begin //彈出 UDL 連接數(shù)據(jù)窗體 ADOConnStr := PromptDataSource(, )。) = 39。,39。 try //動態(tài)加載 DLL,DLL中包含了讀取 INI 文件的函數(shù) if ReadIni(FileName,39。 begin ADOConnStr := 39。 procedure (FileName: string)。 //登錄窗體的現(xiàn)實 frmLogin := (Self)。其代碼如下： procedure (Sender: TObject)。 end。 end。39。DBConFileName39。BDConn39。,16)。,39。 except (39。 := ADOConnStr。)。,39。 end else ADOConnStr := ReadIni(FileName,39。DBConFileName39。BDConn39。 then begin 19 //彈出 UDL 連接數(shù)據(jù)窗體 ADOConnStr := PromptDataSource(, )。) = 39。,39。 try //動態(tài)加載 DLL,DLL中包含了讀取 INI 文件的函數(shù) if ReadIni(FileName,39。 begin ADOConnStr := 39。其代碼如下： procedure (FileName: string)。 圖 41 藥品進銷存管理系統(tǒng)主界面 (1) 添加主窗體的 MainMenu 菜單和快捷按鈕對應的事件，這些事件分別發(fā)打不同的模塊窗體。 (6) proc_Storage： 此存儲過程主要用來實現(xiàn)庫存的查詢功能。 (4) proc_Sale：此存儲過程主要用來實現(xiàn)入庫模塊的業(yè)務邏輯。存儲過程可以向用戶返 (2) proc_StockTask：此存儲過程主要用來實現(xiàn)采購模塊后臺數(shù)據(jù)所有的業(yè)務邏輯。 在系統(tǒng)中使用存儲過程，數(shù)據(jù)庫的新增，刪除，更新等操作就變得輕松和便于管理。存儲過程是Transact_SQL 語句的預編譯集合，這些語句在一個名稱下存儲并作為一個單元處理。存儲過程可以向用 戶返回執(zhí)行的結果集，使用存儲過程可以極大的提高，程序的性能，減少網絡流量和防止 SQL 注入式攻擊。 在系統(tǒng)中使用存儲過程，數(shù)據(jù)庫的新增，刪除，更新等操作就變得輕松和便于管理。 存儲過程的建立 存儲過程是 Transact_SQL 語句的預編譯集合，這些語句在一個名稱下存儲并作為一個單元處理。 表 313 盤點明細表說明 字段名稱 字段描述 數(shù)據(jù)類型 可否為空 CheckID 盤點編號 Varchar(10) 主鍵 MedType 藥品類別 Varchar(30) ValidityDatetime 有效日期 Datetime 主鍵 MedicineID 藥品編號 Varchar(10) CheckAmount 盤點數(shù)量 Numeric (13)庫存表（ Storage）的定義如表 314 所示。 表 311 銷售明細表說明 字段名稱 字段描述 數(shù)據(jù)類型 可否為空 SaleID 銷售編號 Varchar(10) 主鍵 +外鍵 ValidityDatetime 有效日期 Datetime 主鍵 MedicineID 藥品編號 Varchar(10) RetailPrice 零售價格 Money Amount 銷售數(shù)量 Numeric (11) 盤點主表（ CheckHeader）的定義如表 312 所示。 表 39 入庫明細表說明 字段名稱 字段描述 數(shù)據(jù)類型 可否為空 InDepotID 入庫編號 Varchar(10) 主鍵 +外鍵 ValidityDatetime 有效日期 Datetime 主鍵 MedicineID 藥品編號 Varchar(10) ByPrice 購進價格 Money JobPrice 批發(fā)價格 Money RetailPrice 零售價格 Money Amount 購進數(shù)量 Numeric BatchCode 批號 Varchar(20) (9) 銷售主表（ SaleHeader）的定義如表 310 所示。 表 37 采購明細表說明 字段名稱 字段描述 數(shù)據(jù)類型 可否為空 StockID 采購編號 Varchar(10) 主鍵 +外鍵 MedicineID 藥品編號 Varchar(10) 主鍵 ByPrice 購進價格 Money JobPrice 批發(fā)價格 Money RetailPrice 零售價格 Money Amount 購進數(shù)量 Numeric (7) 入庫主表（ InDepotHeader）的定義如表 38 所示。 14 表 35 權限表說明 字段名稱 字段描述 數(shù)據(jù)類型 可否為空 UserID 權限編號 Varchar(8) 主鍵 MenuName 菜單名稱 Varchar(20) (5) 采購主表（ StockHeader）的定義如表 36 所示。 表 33 藥商信息表說明 字段名稱 字段描述 數(shù)據(jù)類型 可否為空 ProviderID 公司編號 Varchar(10) 主鍵 ProName 公司名稱 Varchar(30) Address 地址 Varchar(30) Principal 負責人 Varchar(8) Telephone 電話 Varchar(20) (3) 用戶信息表（ User）的定義如表 34 所示。 (1) 藥品信息表（ Medicine）的定義如表 32 所示。 數(shù)據(jù)庫設計 創(chuàng)建數(shù)據(jù)庫和數(shù)據(jù)表 首先用 Microsoft SOL Server 2021 創(chuàng)建數(shù)據(jù)庫，根據(jù)需求分析創(chuàng)建，藥品進銷存管理系統(tǒng)總共需要 13 個表，各表的含義如表 31 所示 。具有不同權限的人 可以對系統(tǒng)進行相對應 的操作， 從而保證了系統(tǒng)的安全性。 信息管理功能 管理人員進入系統(tǒng)后， 可看到系統(tǒng)的全部內容，可以對用戶權限進行管理，并把操作后的信息重新寫進數(shù)據(jù)庫。 圖 34 藥品進銷存業(yè)務模塊 系統(tǒng)流程圖 如圖 35 所示 ,實現(xiàn)了該系統(tǒng)的登錄流程。 ④ 庫存 盤點：定期對藥庫中的藥品進行盤點登記，核對藥品賬面數(shù)量和藥品實系統(tǒng)設置 用戶設定 更改密碼 權限設定 基礎資料 藥品字典 廠商字典 11 際數(shù)量，統(tǒng)計盈虧等。 ③ 出 庫管理：藥房領藥或藥品銷售領藥出庫的登記，包括出庫日期、出庫類別、銷售價格和銷售數(shù)量，以及出庫單據(jù)的審核等。 ② 入庫管理：對采購或退藥的藥品進行入庫登記，包括入庫類別、入庫日期、藥品的入庫信息等。 ① 采購管理：記錄采購單的詳細信息，包括采購日期和采購廠商以及各種藥品的信息和購入價格、購入數(shù)量，并實現(xiàn)采購單據(jù)的審核等。 普通用戶也可以根據(jù)自己所 擁有的權限使用本系統(tǒng)的 藥品業(yè)務信息管理 的部分功能。 圖 33 基礎資料模塊 (3) 藥品業(yè)務信息管理 藥品進銷存業(yè)務信息管理可以分為采購管理、入庫管理、出庫管理、庫存盤點和藥庫查詢五大模塊。 ① 藥品字典：維護藥品的基本 信息，如藥品的名稱、藥品的類型、規(guī)格、單位、和藥品描述、藥品用法以及零售轉換率等。 藥品進銷存管理 系統(tǒng)設置