藥店綜合管理系統(tǒng)票據(jù)處理樣本

藥店管理系統(tǒng)摘要：藥店管理系統(tǒng)開發(fā)總體任務是實現(xiàn)對藥店業(yè)務系統(tǒng)化，規(guī)范化，和自動化管理，簡化業(yè)務人員手工勞動，減輕事物解決人員勞動強度，合理記錄和管理藥店藥物信息，提高藥店生存能力，加強管理，增進效益，因此咱們從藥店基本需求出發(fā)，有針對性開發(fā)了本藥店管理系統(tǒng)。它可以滿足一種藥店基本業(yè)務需求，涉及藥物基本信息管理，藥物購進，銷售，對庫存中藥物進行效期報警以及分析等功能，并可以形成需要報表。藥店管理系統(tǒng)是一種信息管理系統(tǒng)，它開發(fā)涉及后臺數(shù)據(jù)庫建立維護和前臺應用程序開發(fā)，前者規(guī)定數(shù)據(jù)要具備一致性，完整性及安全性，后者規(guī)定功能完備，操作簡便靈活實用。通過度析，咱們使用MicrosoftAccess建立數(shù)據(jù)庫，MicrosoftVisualBasic6.0作為前臺開發(fā)工具，結(jié)合ADO數(shù)據(jù)庫開發(fā)技術(shù)，開發(fā)本系統(tǒng)。在開發(fā)過程中，對原始模型不斷改進，針對顧客對報表圖表需求，使用了CrystalReports9.20，使系統(tǒng)逐漸完善，直到形成顧客滿意可行系統(tǒng)。通過多次大量實驗和顧客使用檢查，本系統(tǒng)可以滿足中小藥店業(yè)務需要。核心詞：ADO數(shù)據(jù)庫開發(fā)技術(shù)，CrystalReports9.20，數(shù)據(jù)庫，打印Abstract:ThetotalmissionofPharmacymanagementsystemistomanagethePharmacyoperationsystemicstandardizedandautomatically，simplifythebusinesspersonnel'shandicraftlabor，easethelaborstrengthofpeople，noteandmanagementthemedicineinformation，improvethepharmacyviability，strengthenthemanagement，promotetheperformance.Forapharmacythemostimportantoperationsarepurchase，sellandstorage，sowearefromthePharmacybasicneed，developthePharmacymanagementsystempertinently.Including,sell,return,cancel,analyzeandsoon，itcanmaketheneedreportandchart.ThePharmacymanagementsystemisakindofMIS，itsdevelopmentincludessettingupthedatabaseofbackgroundandapplicationofproscenium，andthefirstrequirethedatakeepcoherence，integralityandsecurity，andtheoperationissimpleandvividandpractical.Acrossanalyze，wedevelopthesystemuseMicrosoftAccessbuiltdatabase，MicrosoftVisualBasic6.0asdeveloptools，combineADOdatabasedeveloptechnology.Intheprocessofdevelop，weimproveoriginalmodelcontinuously，fortheuser'sneedofreportandchat，weuseCrystalReports9.20tomakethesystemgraduallyperfect，untilformasystemcangoandmakeusersatisfied.Throughmuchexperimentationanduseruse，thesystemcansatisfythebusinessdemandofthemediumandsmallpharmacy.Keywords:ADOdatabasedeveloptechnology，CrystalReports9.20，Database,Print.1.前言隨著科學技術(shù)發(fā)展和計算機科學日漸成熟，信息時代已經(jīng)來臨，計算機已經(jīng)應用于各行各業(yè)，人們對計算機也不再陌生。人們可以以便存儲大量數(shù)據(jù)，并且容易保存，不適當丟失損壞。針對以上問題和有利條件，咱們開發(fā)了本藥店管理系統(tǒng)。藥店管理系統(tǒng)可以完畢藥店基本業(yè)務如藥物入庫、銷售，可以進行返貨、退貨解決，同步還可以實現(xiàn)特殊業(yè)務如報損收益、效期報警等。此外它可以依照業(yè)務需求生成報表圖形如銷售毛利表等。它可以協(xié)助業(yè)務解決人員輕松掙脫大量重復手工勞動，以便快捷解決數(shù)據(jù)，進行分析匯總，大大提高了工作效率。依照分析后臺數(shù)據(jù)庫建立我使用了MicrosoftAccess，它提供了數(shù)據(jù)庫中最慣用功能，使用便捷，可以滿足本系統(tǒng)需要。完畢了對后臺數(shù)據(jù)庫搭建和設計，通過ADO數(shù)據(jù)庫開發(fā)技術(shù)與前臺VisualBasic6.0進行連接，同步我在開發(fā)過程中為了美化界面和完畢報表功能應用了第三方控件和CrystalReport9.2。在下面簡介中，將詳細簡介藥店管理系統(tǒng)--票據(jù)解決開發(fā)過程，同步，闡述開發(fā)過程中所涉及到問題及解決辦法。2.應用軟件與開發(fā)環(huán)境概述2.1MicrosoftAccess數(shù)據(jù)庫MicrosoftAccess是Microsoft公司開發(fā)一套桌面數(shù)據(jù)庫，是微軟Office辦公套件重要構(gòu)成某些。它具備使用便捷、系統(tǒng)資源占用低、互換數(shù)據(jù)非常以便長處，它迅速、小巧、靈活，作為本系統(tǒng)后臺數(shù)據(jù)庫可以勝任。微軟JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道途徑，并運用SQL語句或者ADO控件實現(xiàn)與數(shù)據(jù)庫連接，咱們是通過它以及VisualBasic來訪問數(shù)據(jù)庫并對其進行各種操作。VisualBasic、Access以及其她微軟軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給顧客提供了豐富數(shù)據(jù)類型。在此系統(tǒng)運用SQL語句完畢對數(shù)據(jù)庫中數(shù)據(jù)操作。2.2CrystalReport9.2CrystalReport9是世界領先桌面及Web報表工具，它除了可以替windows與web應用程序創(chuàng)立報表外，更可以將報表發(fā)布成web服務器上報表web服務。CrystalReport9可以內(nèi)嵌到MicrosoftVisualBasic6.0中，顧客可以更以便設計報表。CrystalReport9在MicrosoftVisualBasic6.0中設計器CrystalReport是所見即所得報表設計工具，其對數(shù)據(jù)庫訪問可以通過“提取模式”（pullmodel）和“推入模式”（pushmodel）兩種模式，并支持當前流行各種數(shù)據(jù)源。2.3MicrosoftVisualBasic6.0 MicrosoftVisualBasic6.0數(shù)據(jù)庫開發(fā)技術(shù)有DAO數(shù)據(jù)庫開發(fā)技術(shù)、RDO數(shù)據(jù)庫開發(fā)技術(shù)、ADO數(shù)據(jù)庫開發(fā)技術(shù)、ODBC數(shù)據(jù)庫開發(fā)技術(shù)。本系統(tǒng)開發(fā)應用是ADO數(shù)據(jù)庫開發(fā)技術(shù)。ADO是一種提供訪問各種數(shù)據(jù)類型連接機制，不但可以使用SQLServer、Oracle、Access等數(shù)據(jù)庫應用程序，也可使用與Excel表格、文本文獻、圖形文獻和無格式數(shù)據(jù)文獻。3.藥店管理系統(tǒng)開發(fā)分析3.1需求分析通過和顧客交流詳細理解客戶需求，細化功能規(guī)定，精確地回答系統(tǒng)必要作什么。系統(tǒng)也許完畢功能規(guī)定涉及：(1)藥物入庫、及其信息查詢和即時記錄打印；(2)即時查詢打印當前收銀員收銀狀況，及選定期間內(nèi)所有收銀員收銀狀況；(3)對供應商供貨金額查詢、單品保管帳查詢；(4)每天結(jié)帳解決，其中涉及對入庫（返貨）、銷售（退貨）、庫存；(5)通過每日結(jié)帳可以查詢打印選定期間內(nèi)銷售毛利表；(6)選定期間內(nèi)銷售排行（分別按柜組和單品）前10名柱狀圖顯示。3.2總體設計藥店管理系統(tǒng)需要滿足來自三方面需求，分別是藥物基本信息查詢、藥物出庫、入庫記錄及庫存記錄和系統(tǒng)管理人員個人信息更改。藥物基本信息查詢需求是查詢藥物所在柜組、編碼、拼音編碼、產(chǎn)地等基本信息；藥物基本信息及管理員個人信息修改；系統(tǒng)管理人員功能最為復雜，涉及對供應商，藥物基本信息、個人信息、進行管理和維護，及系統(tǒng)狀態(tài)查看、維護。系統(tǒng)管理人員功能信息量大，權(quán)限高，并且對數(shù)據(jù)安全性和保密性規(guī)定最高。4．藥店管理系統(tǒng)實現(xiàn)4.1詳細功能實現(xiàn)報表打印模塊：針對不同需要運用SQL語句選出需要數(shù)據(jù)給以顯示并實現(xiàn)打印功能。銷售排行：直方圖形式顯示（柜組/單品）銷售額前10名。詳細實現(xiàn)將在背面論述。4.2數(shù)據(jù)庫功能實現(xiàn)一方面在模塊中運用ADO數(shù)據(jù)庫開發(fā)技術(shù)自定義了一種執(zhí)行程序中SQL語句函數(shù)，此函數(shù)自動連接數(shù)據(jù)庫執(zhí)行SQL語句后將返回執(zhí)行成果記錄集。 本系統(tǒng)中與數(shù)據(jù)庫關于操作，各種查詢及對數(shù)據(jù)庫中表操作、各中數(shù)據(jù)集得到均由以上幾種操作組合實現(xiàn)，詳細過程參見程序源碼，此處不再論述。4.3打印與出圖功能實現(xiàn)導出到excel表中，通過Excel進行打印。實現(xiàn)：由于入庫查詢成果項目眾多，而對于查詢成果并不需要打印所有項目，查詢者可以有選取選取需要打印項目，Excel靈活性正好符合規(guī)定，因此此處選取此辦法。一方面通過Excel建立打印模版文獻入庫查詢.xls存于excel目錄下，為了避免對模版文獻修改，先復制模版文獻為到temp目錄下名為新入庫查詢成果.xls，然后將查詢成果到入此文獻中并自動打開此文獻等待打印操作。以收銀員收銀報表簡介交叉報表實現(xiàn)。添加CrystalReports9后選取使用專家報表，選取專家中選取交叉表，選取完需要表后設立如圖4-1所示。圖4-1交叉表創(chuàng)立向?qū)c擊完畢后通過，自動形成交叉表，設計修改后得到需要報表，顯示效果如圖4-2所示。圖4-2收銀員收銀報表建立新設計器選取數(shù)據(jù)庫、表之后選取插入圖表成果如圖4-3所示。圖4-3圖表專家再選取上圖數(shù)據(jù)，擬定后得到柜組銷售排行前10柱狀圖，操作如圖4-4所示。圖4-4柜組銷售排行系統(tǒng)中其他由CrystalReports9實現(xiàn)打印與出圖功能均可由上面簡介辦法實現(xiàn)，其中在設計時候一方面設立打印機選取適當紙張，本系統(tǒng)設計過程中打印機設立為EPSON-LQ1600KⅢ與實際應用想符合，而紙張大小選取與實際最相接近10x11紙。5．系統(tǒng)測試與問題解決5.1解決不完善問題多次查詢持續(xù)打印，打印數(shù)據(jù)不能更新，如銷售毛利查詢，進入系統(tǒng)第一次擬定查詢選取打印運營正常，繼續(xù)查詢顯示數(shù)據(jù)無誤，但是再選取打印，打印仍為上次查詢成果，只有完全退出系統(tǒng)在再進，即每次進入系統(tǒng)只能對的打印一次。解決通過重復實驗發(fā)現(xiàn)當顯示打印成果控件CRViewer9EnableRefreshButton屬性為true會浮現(xiàn)一種刷新按鈕，多次查詢打印前先通過此按鈕刷新便可得到最新需要打印數(shù)據(jù)。不完善在于打印數(shù)據(jù)不能自動刷新。5.2未解決問題 系統(tǒng)與實際業(yè)務狀況還存在差距，如實際中實售價應可以改、由于某種需要某種藥某幾筆貨要暫時禁止銷售（所謂挑庫存）、當庫存中藥物批號與計算機內(nèi)不符時候可以改批號等功能沒有實現(xiàn)。系統(tǒng)運營只在1024x768下運營，在其他顯示模式下會浮現(xiàn)窗體顯示不全問題。當顧客添加一條新藥物記錄是系統(tǒng)會將數(shù)據(jù)庫中最后一條記錄編號取出并加一，使其作為新記錄編號。但是由于某些規(guī)定，已刪除藥物編號不能作為新藥物編號。系統(tǒng)協(xié)助某些只設計了界面排版工作，詳細功能尚未實當前測試中，發(fā)現(xiàn)提示信息過于死板，運用MsgBoxvbQuestion，屬性做了解決后來，界面較為美觀，但依然局限性。此系統(tǒng)還沒有實現(xiàn)添加新柜組功能。5.3測試小結(jié) 在測試時候我盡量更接近實際狀況，全面考慮實際操作中也許浮現(xiàn)特殊狀況，發(fā)現(xiàn)并解決了某些問題，同步也發(fā)現(xiàn)了某些暫時無法解決問題，只能在后來開發(fā)過程中逐漸找到解決辦法。固然通過測試也發(fā)現(xiàn)了某些由于馬虎產(chǎn)生語法錯誤，也都及時修改。單個模塊測試后由于業(yè)務連貫性，我又從實際業(yè)務角度用實際數(shù)據(jù)進行錄入，對手中對的數(shù)據(jù)和各功能實現(xiàn)成果相比較，以保證功能對的性，最后完畢系統(tǒng)中本人負責功能模塊。6．小結(jié) 以上是藥店管理系統(tǒng)本人開發(fā)某些所有過程，這次畢業(yè)設計迄今歷時三個月。通過本次畢業(yè)設計鍛煉，在實踐中我學到了諸多東西，對軟件開發(fā)有了更進一步結(jié)識，提高了自己應用程序開發(fā)水平和對事物思考，邏輯分析能力有了長足進步，同步也看到了自己缺陷和局限性，由于自身技術(shù)和理論水平有限系統(tǒng)中尚有些局限性，但愿教師批評指正，開發(fā)過程中某些沒有想到地方，也但愿教師予以指點，以便在此后學習工作中改進。通過這次鍛煉相信在后來學習和工作中，我一定會不斷充實自己，使自己水平不斷提高。7．謝辭 本畢業(yè)設計是在馬春華，孫珊珊，李欣教師們悉心指引下完畢。在課題選取和設計開發(fā)過程中各位教師們予以了我熱心協(xié)助和大力支持，借此論文成稿之時，向她們致以忠心感謝。同步我要感謝我合伙伙伴李帛霖，黃冬，課題完畢需要合伙，通過這次合伙我更理解了團結(jié)合伙作用。最后對所有大學期間指引、關懷、協(xié)助和支持過我教師和同窗，致以最崇高敬意和最真誠感謝。參照文獻：[1]李盛,《VisualBasic數(shù)據(jù)庫編程技術(shù)與實例》,第三版,北京,人民郵電出版社，,21-22頁[2]張立科,《VisualBasic6.0程序設計參照手冊》，北京,人民郵電出版社，,122-123頁[3]齊鋒,《VisualBasic6.0程序設計》,第二版，北京,中華人民共和國鐵道出版社,,154-156頁[4]廖疆星張艷釵,《中文Access數(shù)據(jù)庫開發(fā)指南》,冶金工業(yè)出版社,,10-12頁[5]Microsoft公司,《VisualBasic6.0應用程序開發(fā)》,第二版,北京大學出版社,,25-26頁[6] EdRobinson,《UpgradingVisualBasic6.0toVisualBasic.NET（影印版）》,世界圖書出版公司,,23-24頁[7][美]DIANEZAK,《VISUALBASIC6.0編程（提高版）（英文原版）》,電子工業(yè)出版社，,26-27頁[8]JoeEstes,《TeachYourselfCrystalReports9in24Hours》，Sams,,101-103頁[9]AlexKriegel,《VorisM.TrukhnovSQLBible》,wiley,,58-60頁附錄：銷售排行：PrivateSubCommand1_Click()DimiAsIntegerDimsqlAsStringDimrsAsADODB.RecordsetDimsqlinAsStringDimrs1AsADODB.RecordsetIfOption1.Value=TrueThensql="delete*from銷售量排行柜組"transactsql(sql)sql="select柜組,sum(數(shù)量),sum(金額)from銷售登記表wheredatevalue(銷售日期)between#"&DTPicker1.Value&"#and#"&DTPicker2.Value&"#groupby柜組"Setrs=transactsql(sql)Ifrs.EOFAndrs.BOFThenMsgBox"沒有銷售記錄!"，，"提示!"ExitSubElseFori=1Tors.RecordCountsqlin="insertinto銷售量排行柜組values('"&rs(0)&"','"&rs(1)&"','"&rs(2)&"',#"&DTPicker1.Value&"#,#"&DTPicker2.Value&"#)"transactsql(sqlin)rs.MoveNextNextixhphgz.ShowEndIfEndIfIfOption2.Value=TrueThensql="delete*from銷售量排行單品"transactsql(sql)sql="select編碼,sum(數(shù)量),sum(金額)from銷售登記表wheredatevalue(銷售日期)between#"&DTPicker1.Value&"#and#"&DTPicker2.Value&"#groupby編碼"Setrs=transactsql(sql)Ifrs.EOFAndrs.BOFThenMsgBox"沒有銷售記錄!"，，"提示!"ExitSubElseFori=1Tors.RecordCountsql="select*from藥物基本表where編碼='"&rs(0)&"'"Setrs1=transactsql(sql)sqlin="insertinto銷售量排行單品values('"&rs(0)&"','"&rs1(3)&"','"&rs(1)&"','"&rs(2)&"',#"&DTPicker1.Value&"#,#"&DTPicker2.Value&"#)"transactsql(sqlin)rs.MoveNextNextixhphdp.ShowEndIf