1、學(xué)習(xí)-好資料1. 系統(tǒng)概述 從本質(zhì)來說，藥店的職能就是為消費(fèi)者提供服務(wù)，所銷售的藥品只是其提供 的服務(wù)所附實(shí)體而已。對于藥店來說，只有服務(wù)才能形成其差異化競爭特色。因 此，分析消費(fèi)者的服務(wù)需求對了解藥店消費(fèi)者的需求具有重要意義。藥店消費(fèi)者 的需求主要表現(xiàn)在以下幾個(gè)方面：（1）管理者能查詢藥店的藥品庫存狀態(tài)，以便進(jìn)行及時(shí)的藥品補(bǔ)進(jìn)和更新；（2）消費(fèi)者能通過系統(tǒng)快速查詢藥品的狀態(tài) （包括是否在柜、 出售價(jià)格、數(shù)量等）；（3）能讓消費(fèi)者及時(shí)獲得用藥指導(dǎo)、合理的咨詢；（4）能讓消費(fèi)者感覺到服務(wù)的簡捷和實(shí)用。2. 系統(tǒng)分析經(jīng)過系統(tǒng)的需求分析， 初步得到了醫(yī)藥管理的主要步驟： 定制藥品采購計(jì)劃、 經(jīng)審核后

2、實(shí)施藥品采購、采購的藥品由庫管登記入庫、銷售員根據(jù)客戶的需要登 記銷售藥品、提交藥品給客戶。經(jīng)過對藥店管理進(jìn)行分析，藥店管理信息系統(tǒng)要實(shí)現(xiàn)的主要功能有：（ 1）對藥品的基礎(chǔ)信息進(jìn)行維護(hù)和管理。 能夠完成藥品信息的添加、 修改和刪除， 并按照一定的條件查詢藥品信息；（2）對藥品的批量銷售處理，顧客購買的藥品可能是一種也可能是多種，如果能 夠批量銷售藥品，便會(huì)大大提高工作效率；（3）庫存藥品查看，可按不同字段和條件查詢庫存藥品信息；（4）查詢統(tǒng)計(jì)功能，要求既可以按日期查詢，也可以按用戶選擇的字段和輸入的 內(nèi)容查詢，并在查詢過程中統(tǒng)計(jì)銷售數(shù)量和銷售金額；（5）統(tǒng)計(jì)分析某個(gè)客戶或所有客戶某段時(shí)間內(nèi)藥品

3、銷售品種、銷售數(shù)量和銷售金 額。我們把藥店進(jìn)銷存管理系統(tǒng)劃分為 4 大功能模塊，分別為日常業(yè)務(wù)、庫 存管理、查詢統(tǒng)計(jì)、基礎(chǔ)信息管理。其中日常業(yè)務(wù)完成藥品銷售、銷售退貨和藥 品入庫；庫存管理主要完成庫存藥品查詢、庫存藥品盤點(diǎn)；查詢統(tǒng)計(jì)主要完成銷 售查詢統(tǒng)計(jì)和入庫查詢統(tǒng)計(jì)；基礎(chǔ)信息管理主要完成藥品信息、客戶信息、供貨 商信息的添加、修改、刪除、查詢等。另外，藥店管理信息系統(tǒng)功能模塊如下：圖1藥店管理信息系統(tǒng)功能模塊2.1模型設(shè)計(jì)實(shí)體的屬性表在藥店管理信息系統(tǒng)中我們設(shè)計(jì)了多個(gè)數(shù)據(jù)表，具體有：藥店信息表（tb_shop）:（藥店號Sid、藥店名SName所在地SAdd、經(jīng)理SMgr、 聯(lián)系方式SPhn

4、）藥品信息表（tb medicine）:（藥品編號Mid、藥品名稱MName、規(guī)格MSize、單 位MUnt、產(chǎn)地MAdd、有效期MData、批號MNub.、商標(biāo)號MTm、出廠價(jià) MFp、 零售價(jià)MRp、批發(fā)價(jià)MMp、類別MS、供貨商名稱MDsg）供貨商信息表（tb_provider）:（商家號PId、商家名PName所在地PAdd、經(jīng)理 PSgr、聯(lián)系方式PPhn供貨量PNmb）顧客信息表（tb_client）:（顧客編號Cid、顧客名稱CName、地址CAdd、郵政編 碼CCd、聯(lián)系方式CPhn、賬款CCrd）客戶賬款明細(xì)表（tbclientarrearage :（日期AData、時(shí)間AT

5、ime、摘要ASmm、 數(shù)量AQun、單位AUnt、單價(jià)AUntp、金額小計(jì)ASbt、客戶編號Aid、客戶名稱 AName）銷售信息表（tb_sell_detailed）:（藥品編號Did、藥品名稱DName、規(guī)格DSize、 產(chǎn)地DAdd、批號DNub、數(shù)量DSmm、零售價(jià)DRp、金額DMny、顧客編號DCid、 顧客名稱DCname、銷售日期DDdata、銷售單據(jù)號DDid）庫存信息表（tb stocknformation）:（藥品編號iid、藥品名稱IName、規(guī)格ISize、 產(chǎn)地IAdd、批號INub、有效期IData、庫存數(shù)量ISnub、出廠價(jià)IFp、批發(fā)價(jià)IMp、零售價(jià)IRp)2

6、.2概念模型通過對用戶需求分析進(jìn)行綜合、歸納與抽象、形成一個(gè)獨(dú)立于具體DBMS的概念模型。在本藥店管理系統(tǒng)中涉及到了 2種概念模型的抽象，如圖3、圖4所示：圖3聚集模型更多精品文檔圖4 概況模型2.3用例圖和頂層數(shù)據(jù)流圖圖5總體分析的用例圖代售圖6 經(jīng)理與供貨商的用例圖學(xué)習(xí)-好資料圖8 頂層數(shù)據(jù)流圖更多精品文檔圖7顧客與經(jīng)理間的用例圖填好的倉庫信息倉庫信息填寫倉庫信息倉庫信息倉庫藥品信息填好的藥品信息藥品信息填寫藥品信息藥品編好號的采購單藥 品 來 自所需藥品采購單信息顧客信息確認(rèn)的消 費(fèi)單2.0處理消費(fèi)單顧客所購藥品憑蓋好章 的消費(fèi)單所需藥品領(lǐng)取顧客依據(jù)消費(fèi) 單上的藥 品歹U表為確定未付款的

7、消費(fèi)單經(jīng)理信息經(jīng)理下 發(fā)已編過號 的消費(fèi)單消費(fèi)單信息付款后進(jìn) 行未處理的 消費(fèi)單1.0付款1 r填寫經(jīng)理信息填好的經(jīng)理信息經(jīng)理信息學(xué)習(xí) 好資料2.4用戶子模式設(shè)計(jì) 將概念模型轉(zhuǎn)換為全局邏輯模型后， 還應(yīng)該根據(jù)局部應(yīng)用需求，結(jié)合具體DBMS 的特點(diǎn)，設(shè)計(jì)用戶的外模式。在此，要設(shè)計(jì)藥房藥庫管理子系統(tǒng)：通過對 藥品的出入庫管理，產(chǎn)生藥品帳務(wù)的變更，提出采購計(jì)劃。能對各種藥品的帳務(wù)、 庫存、財(cái)務(wù)臺帳等項(xiàng)目進(jìn)行查詢、統(tǒng)計(jì)、匯總、打印，達(dá)到控制成本，提高效率 的目的。其主要功能有：庫房管理：采購計(jì)劃、入庫制單、 出庫制單、藥品調(diào)價(jià)、庫存管理、藥房申領(lǐng) 帳務(wù)明細(xì)：庫房總帳、庫房臺帳、庫房明細(xì)、藥品盈虧、部門

8、往來。 查詢報(bào)表：供應(yīng)商查詢、入庫批次查詢、進(jìn)銷存報(bào)表、入出庫匯總、工作量匯 總、藥品營銷分析。2.5總體實(shí)施計(jì)劃 不用的系統(tǒng)用戶擁有不同的權(quán)限，這樣才能保證數(shù)據(jù)庫的安全性。在本藥店 管理信息系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)中，主要用戶包括店主和顧客。店主應(yīng)該具有超級用 戶的權(quán)限，而顧客只能對數(shù)據(jù)進(jìn)行簡單的查詢，不能修改數(shù)據(jù)庫中的數(shù)據(jù)。因此， 在數(shù)據(jù)庫總角色的創(chuàng)建，只涉及到：店主權(quán)限：增，刪，改，查；顧客權(quán)限： 查。在數(shù)據(jù)庫初步系統(tǒng)設(shè)計(jì)好之后，為了檢測其基本功能是否能正常實(shí)現(xiàn)。先進(jìn) 行嘗試性的運(yùn)行：檢測簡單的、普通的、常涉及到的操作是否能夠正常的運(yùn)行。 比如：檢測藥店經(jīng)理是否能查詢顧客庫中的顧客信息、顧客能否

9、獲知藥店藥品庫 的藥品信息如藥品生產(chǎn)日期、單價(jià)、功效等。數(shù)據(jù)的載入并不是一次性的，需要藥店經(jīng)理不斷地更新藥店信息，而信息的 更新建立在基本操作（進(jìn)銷）之上的，這樣就能有效地把藥店的基本功能聯(lián)系 起來， 同時(shí)也實(shí)現(xiàn)了顧客、藥店、供貨商之間的關(guān)系。通過此信息管理系統(tǒng)，能 很好地實(shí)現(xiàn)藥店的日常管理。在數(shù)據(jù)庫剛剛設(shè)計(jì)完成后，只有將原有系統(tǒng)或者手工處理的數(shù)據(jù)進(jìn)行轉(zhuǎn)換使 之符合新系統(tǒng)的數(shù)據(jù)模式，從而完成數(shù)據(jù)輸入工作。3. 系統(tǒng)總體設(shè)計(jì)（1）分解的數(shù)據(jù)流圖更多精品文檔學(xué)習(xí)-好資料更多精品文檔圖9處理消費(fèi)處理好的圖10 處理采購(2)類圖4. 系統(tǒng)詳細(xì)設(shè)計(jì)需要建立索引的屬性：表 1tb shop字段類型大小是

10、否為主鍵是否允許為空Sidvarchar10是SNamevarchar30否SAddvarchar50SMgrvarchar10SPh nvarchar11表 2 tb_client字段類型大小是否為主鍵是否允許為空Cidvarchar10是Cn amevarchar20CAddvarchar50CPh nvarchar11CCrdvarchar10表 3 tb_medicine字段類型大小是否為主鍵是否允許為空MIdvarchar10是MNamevarchar20否MSizevarchar10MUntvarchar10MAddvarchar50否MDatavarchar10MNubvarch

11、ar20MTmvarchar20MFpvarchar10否MRpvarchar10否MMpvarchar10否MSvarchar10否MDsgvarchar30表 4tb clintarrearage字段類型大小是否為主鍵是否允許為空ADatavarchar10是ATimevarchar10是ASmmvarchar50否AQunvarchar10AUntvarchar10AUn tpvarchar10ASbtvarchar10AIdvarchar10否ANamevarchar10否表 5tbprovider字段類型大小是否為主鍵是否允許為空PIdvarchar20是PNamevarchar20

12、否PAddvarchar50PSgrvarchar10PPh nvarchar11PNmbvarchar10表 6tbselldetailed字段類型大小是否為主鍵是否允許為空DIDvarchar10是DNamevarchar20DSizevarchar10DAddvarchar10DNubvarchar20DSmmvarchar10否DRpvarchar10DMnyvarchar10DCidvarchar10否DCn amevarchar20DCdatavarchar10DDidvarchar10否表 7tb_stock_information字段類型大小是否為主鍵是否允許為空IIdvarc

13、har10是INamevarchar20ISizevarchar10IAddvarchar10INubvarchar20否ISn ubvarchar10IFpvarchar10IMpvarchar10IRpvarchar10IDatavarchar105. 系統(tǒng)實(shí)現(xiàn)5.1窗體登錄代碼：Option ExplicitDim Conn As New ADODB.Co nn ectio nDim rs As New ADODB.RecordsetDim i As In tegerPrivate Sub cmdCa ncel_Click()Un load MeEnd SubPrivate Sub cm

14、dLogin_Click()Dim strUserName As Stri ngDim strPassword As Stri ngstrUserName = Trim(txtUserName.Text)strPassword = Trim(txtPassword.Text)If strUserName = "" The nMsgBox "請輸入用戶名", vbOKOnly + vbExclamation,""txtUserName.SetFocus學(xué)習(xí) 好資料ElseIf strPassword = "" The

15、nMsgBox " 請輸入密碼 ", vbOKOnly + vbExclamation, "" txtPassword.SetFocusElsers.Open "SELECT * FROM tb_user WHERE UserName = '" + strUserName + "'"If i < 3 And rs.EOF = True ThenMsgBox "用戶名或密碼錯(cuò)誤，請重新輸入 ", vbOKOnly + vbExclamation, ""rs

16、.ClosetxtUserName.SetFocustxtUserName.Text = ""txtPassword.Text = ""ElseIf i >= 3 ThenMsgBox " 您輸入用戶名和密碼的次數(shù)已經(jīng)超過三次，本 次不能登錄！ ", vbCritical + vbOKOnly, " 錯(cuò)誤 "Unload MeElseIf Trim(rs.Fields(1) = strPassword Then 賬' 號密碼均正確， 登 入系統(tǒng)rs.CloseUnload MeMsgBox "

17、; 歡迎進(jìn)入玨緣信息管理系統(tǒng)！ " 操作界面 .Show vbModalElseMsgBox "用戶 名或密碼錯(cuò)誤 ，請重新 輸入",vbOKOnly + vbExclamation, ""txtUserName.SetFocustxtUserName.Text = "" txtPassword.Text = "" End IfEnd IfEnd Ifi = i + 1End IfEnd IfEnd Sub6. 結(jié)論 通過數(shù)據(jù)庫的需求分析、概念設(shè)計(jì)、邏輯模型設(shè)計(jì)等階段基本完成了藥店管 理信息系統(tǒng)數(shù)據(jù)庫的設(shè)計(jì)，同時(shí)也實(shí)現(xiàn)了數(shù)據(jù)庫和VB 的基本功能。但是完整性相對較弱，在針對具體的藥店應(yīng)用時(shí)，還需進(jìn)一步分析其管理需求。當(dāng)然，在具體 設(shè)計(jì)中還可能遇到