【導(dǎo)讀】包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。而對(duì)于后者則要求具備應(yīng)用程序功能完備,易使用等特點(diǎn)。模塊劃分、數(shù)據(jù)庫(kù)模式分析，并由此設(shè)計(jì)了數(shù)據(jù)庫(kù)結(jié)構(gòu)和應(yīng)用程序。第一章闡述了開發(fā)倉(cāng)儲(chǔ)式藥房管理系統(tǒng)的意義和背景。第二章第三章闡述了MIS系統(tǒng)和倉(cāng)儲(chǔ)式MIS系統(tǒng)的基本理論。作權(quán)限，設(shè)計(jì)了了三個(gè)操作界面。實(shí)現(xiàn)了數(shù)據(jù)庫(kù)表的瀏覽，記錄的添。加、刪除、修改和查詢，報(bào)表的生成等。明本系統(tǒng)還存在的不足及未實(shí)現(xiàn)的功能。

　　

【正文】 QL Server 2020,采用此方法 的原因是因?yàn)槲冶容^熟悉 VB，且 VB 有這個(gè)能力完成此系統(tǒng)的設(shè)計(jì)，本人對(duì) VB + SQL Server 2020 模式比較了解。此過程中，我接觸了很多 VB 的中高級(jí)編程技術(shù)，學(xué)會(huì)了很多有關(guān)編程和數(shù)據(jù)庫(kù)的知識(shí)。在整個(gè)過程中，我遇到了很多困難，也學(xué)到了很多知識(shí)，感覺自己比原來更進(jìn)了一層。 33 這學(xué)期，我在畢業(yè)設(shè)計(jì)上花了大量的時(shí)間，在開發(fā)設(shè)計(jì)的過程中，我經(jīng)歷了對(duì)軟件開發(fā)的需求分析，數(shù)據(jù)庫(kù)設(shè)計(jì)，到功能的具體實(shí)現(xiàn)的過程。這對(duì)我以后在新的信息管理系統(tǒng)開發(fā)中將有很大的幫助，也積累了很多經(jīng)驗(yàn)，在我以后步入工作都有極大的幫助。在 程序的總體設(shè)計(jì)、編程技巧方法上有了很大的提高。經(jīng)過這次畢業(yè)設(shè)計(jì)，我的系統(tǒng)設(shè)計(jì)能力又向上升了一級(jí)。 34 致 謝 感謝 XXX 老師在百忙之中抽空給予我們細(xì)心的指導(dǎo)和幫助，使得我們能在指定的時(shí)間里較好的完成系統(tǒng)的設(shè)計(jì)。 35 【 參考文獻(xiàn) 】 [1] 黃梯云 . 管理信息系統(tǒng) [M]. 高等教育出版社 , 1999. [2] 甘仞初 . 信息系統(tǒng)開發(fā) [M]. 經(jīng)濟(jì)科學(xué)出版社 , 1996. [3] 王汝涌 . 管理信息系統(tǒng) [M]. 中國(guó)財(cái)經(jīng)經(jīng)濟(jì) , . [4] 黃文劭 , 楊宗璟 . Visual 2020 實(shí)踐進(jìn)銷存系統(tǒng) [M]. 中 國(guó)鐵道出版社 , . [5] 曹衍龍 , 四維科技 . Visual Basic 系統(tǒng)開發(fā)實(shí)例精粹 [M]. 人民郵電出版社 , . [6] 段興 , 吳德勝 , 齊曉亮 , 肖仁華 . Visual Basic 數(shù)據(jù)庫(kù)實(shí)用程序設(shè)計(jì) 100 例[M]. 人民郵電出版社 , . [7] F. B. Modeling and Integration (EMI): Current Status and Research Perspectives [J]. Annual Reviews in Control, 2020(26): 216222. [8] , J. G. Nell. Standardization in ISO for enterprise engineering and integration [J]. Computers in Industry, 1999(40): 311319. [9] H. S. Gill. The Case for Enterprise Business Model Management [J]. DM Review, December 2020(22): 187193. [10] 張巨儉 , 甘仞初 . 管理信息系統(tǒng)的發(fā)展方向及實(shí)現(xiàn)技術(shù) [J]. 計(jì)算機(jī)應(yīng)用研究 , 2020(1) : 2123. [11] 韓燕 , 李隨成 . 生產(chǎn)方式與管理信息系統(tǒng)發(fā)展 [J]. 成組技術(shù)與生產(chǎn)現(xiàn)代化 , 2020(3) : 8791. [12] 王晟 . Visual 數(shù)據(jù)庫(kù)開發(fā)經(jīng)典案例解析 [M]. 清華大學(xué)出版社 , . [13] 羅朝盛 . Visual Basic 程序設(shè)計(jì)教程 [M]. 人民郵電出版社 , . [14] 尚北城 , 方麗莎 , 龐云麗 , 等 1“軍衛(wèi)一號(hào)”門診藥房管理子系統(tǒng)呆滯藥品相關(guān)問題的討論 [J]. 軍隊(duì)醫(yī)藥 , 2020, 11(1): 22. [15] 尚北城 , 唐冰 , 劉江 , 段慧瓊 , 何獻(xiàn)花 . 計(jì)算機(jī)藥房管理系統(tǒng)中積壓和呆滯藥品分析及處理方法 [J]. 藥學(xué)實(shí)踐雜志 , 2020, 19(6): 371372. [16] 陳勇 , 蔡淑琴 . 管理信息系統(tǒng)的發(fā)展動(dòng)因及趨勢(shì)研究 [J].商業(yè)研究 , 2020, 322(14): 46. [17] 杜梅雅 ,鄭文輝 .倉(cāng)儲(chǔ)式銷售特點(diǎn)及其在我國(guó)的發(fā)展前景 [J].商業(yè)研究 , 1999, 36 208(8): 5859. [18] 尚北城 , 韋麗佳 , 方麗莎 . “軍衛(wèi)一號(hào)”門診藥房管理子系統(tǒng) 進(jìn)行藥品建賬時(shí)藥品準(zhǔn)備值高限量和低限量確定的意義和方法 [J]. 軍隊(duì)醫(yī)藥 , 2020, 10(4): 4. [19] W illiam J. Stevenson. Production Operations Management. Sixth Edition. TheMcGrawH ill Company [J], 1999, 322345. [20] 薩師煊 , 王珊 . 數(shù)據(jù)庫(kù)系統(tǒng)概論 (第三版 )[M]. 高等教育出版社 , 2020. 37 附 錄 1) 文本框 Text 與 MSFlexGrid 控件同步代碼 : Private Sub msgSell_EnterCell() 39。確定 txtInput 在 msgSell 表中的位置 Dim x, Y, P As String If = 0 Or = 0 Then Exit Sub x = (, ) Y = (, 0) If Y Then If = 3 Then = + 1 End If If 0 And 0 Then = = = + = + End If x = (, ) Y = (, 0) P = (, ) = = 0 = Len() End If End Sub 2) 采用 Datareport 打印輸出代碼： Private Sub Command2_Click() 38 On Error GoTo errhandler: Set DataEnvironment1 = New DataEnvironment1 select * from tb_sell_main where 日期 =39。 + Str() + 39。 order by 銷售單據(jù)號(hào) If 0 Then Else MsgBox 沒有可以打印的信息！ End If Exit Sub errhandler: MsgBox error: amp。 amp。 , , 錯(cuò)誤 Resume Next End Sub 3) 權(quán)限不同登錄的界面不同的代碼： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = 藥品銷售 If = True Then Case Is = 藥品入庫(kù) If = True Then Case Is = 銷售退貨 Case Is = 入庫(kù)退貨 Case Is = 庫(kù)存查詢 If = True Then Case Is = 庫(kù)存盤點(diǎn) If = True Then Case Is = 價(jià)格管理 39 Case Is = 銷售日?qǐng)?bào)表 If = True Then Case Is = 銷售月報(bào)表 Case Is = 客戶銷售報(bào)表 Case Is = 應(yīng)收款管理 If Qkgl. Case Is = 收款查詢 Case Is = 銷售查詢 If = True Then Case Is = 入庫(kù)查詢 Case Is = 銷售退貨查詢 Case Is = 入庫(kù)退貨查詢 Case Is = 藥品信息管理 Case Is = 客戶管理 If = True Then Case Is = 供應(yīng)商管理 Case Is = 載操作員管理 Case Is = 密碼設(shè)置 Case Is = 退出系統(tǒng) Unload Me 40 End Select End Sub 4) 藥品排行代碼： Private Sub Command1_Click() On Error GoTo errhandler: Set rs6 = New If = True Then select 藥品名稱 as 39。藥品名稱 39。,sum(數(shù)量 ) as 39。藥品數(shù)量 39。 from tb_sell_detailed group by all 藥品名稱 order by sum(數(shù)量 ) desc , conn, adOpenStatic, adLockOptimistic ElseIf = True Then select 藥品名稱 as 39。藥 品名稱 39。,sum(數(shù)量 ) as 39。藥品數(shù)量 39。 from tb_sell_detailed where datediff(day,銷售日期 ,39。 amp。 Date$ amp。 39。) =365 group by all 藥品名稱 order by sum(數(shù)量 ) desc , conn, adOpenStatic, adLockOptimistic ElseIf = True Then select top 10 藥品名稱 as 39。藥品名 稱 39。,sum(數(shù)量 ) as 39。藥品數(shù)量 39。 from tb_sell_detailed where datediff(day,銷售日期 ,39。 amp。 Date$ amp。 39。) =30 group by all 藥品名稱 order by sum(數(shù)量 ) desc , conn, adOpenStatic, adLockOptimistic ElseIf = True Then select top 10 藥品名稱 as 39。藥品名稱 39。,sum(數(shù)量 ) as 39。藥品數(shù)量 39。 from tb_sell_detailed where datediff(day,銷售日期 ,39。 amp。 Date$ amp。 39。) =7 group by all 藥品名稱 order by sum(數(shù)量 ) desc , conn, adOpenStatic, adLockOptimistic ElseIf = True Then select 藥品名稱 as 39。藥品名稱 39。,sum(數(shù)量 ) as 39。藥品數(shù)量 39。 from tb_warehouse_detailed group by all 藥品名稱 order by sum(數(shù)量 ) desc , conn, adOpenStatic, adLockOptimistic ElseIf = True Then select 藥品名稱 as 39。藥品名稱 39。,sum(數(shù)量 ) as 39。藥品數(shù)量 39。 from tb_warehouse_detailed where datediff(day,進(jìn)貨日期 ,39。 amp。 Date$ amp。 39。) =365 group by all 藥品名 41 ElseIf = True Then select top 10 藥品名稱 as 39。藥品名稱 39。,sum(數(shù)量 ) as 39。藥品數(shù)量 39。 from tb_warehouse_detailed where datediff(day,進(jìn)貨日期 ,39。 amp。 Date$ amp。 39。) =30 group by all 藥品名稱 order by sum(數(shù)量 ) desc , conn, adOpenStatic, adLockOptimistic ElseIf = True Then select top 10 藥品名稱 as 39。藥品名稱 39。,sum(數(shù)量 ) as 39。藥品數(shù)量 39。 from tb_warehouse_detailed where datediff(day,進(jìn)貨日期 ,39。 amp。 Date$ amp。 39。) =7 group by all 藥品名稱 order by sum(數(shù)量 ) desc , conn, adOpenStatic, adLockOptimistic End If Set = rs6 Dim x(1 To 25) As Variant For i = 1 To x(i) = (i, 1) (i, 1) Next i MSChart1 = x For i = 1 To = i = 第 amp。 i amp。 名 amp。 : amp。 (i, 0) Next i Exit Sub errhandler: MsgBox e