【正文】 此需要構(gòu)造一個物流管理系統(tǒng)。針對醫(yī)藥品銷售的特點(diǎn)，初步設(shè)計本系統(tǒng)包含以下幾個功能模塊：(1) 銷售管理：包含銷售登記，銷售退貨，銷售報表。(3) 庫房管理：包含庫存查詢，庫存盤點(diǎn)，庫存修改，庫存報表。(5) 財務(wù)管理：包含收款單，收款查詢，付款單，付款查詢。(7) 基礎(chǔ)信息管理：包含藥品信息，員工信息，客戶信息，供應(yīng)商信 息，倉庫基本信息。 實(shí)現(xiàn)目標(biāo)本醫(yī)藥物流管理系統(tǒng)在完成運(yùn)行后，需要達(dá)到以下效果：(1)操作簡單，易于上手。(3)數(shù)據(jù)存儲安全可靠。(5)自動化信息管理。Microsoft Visual FoxPro 是微軟公司推出的可視化編程工具，它的開發(fā)效率高，成本低，投資小，見效快。通過前面的需求分析可以知道，本系統(tǒng)一共分為了 8 個系統(tǒng)模塊，包括：銷售管理，進(jìn)貨管理，庫房管理，調(diào)貨管理，財務(wù)管理，賬目管理，基礎(chǔ)信息管理，系統(tǒng)管理。每一個系統(tǒng)模塊都實(shí)現(xiàn)其特定的功能。銷售管理主要是針對公司的銷售人員而設(shè)計，幫助公司對所銷售的藥品進(jìn)行一個系統(tǒng)地記錄。銷售退貨用于單據(jù)已開出的客戶進(jìn)行退貨操作。. . . . 進(jìn)貨管理進(jìn)貨管理模塊主要實(shí)現(xiàn)藥品入庫的功能，它包括入庫登記，入庫退貨，入庫報表三個功能模塊。入庫登記實(shí)現(xiàn)入庫登記操作，并自動計算金額，生成入庫票號。入庫報表實(shí)現(xiàn)按日期查詢?nèi)霂焖幤沸畔?，打印和預(yù)覽入庫報表。此系統(tǒng)模塊同樣為倉庫管理員而設(shè)計。因此庫房管理模塊就能實(shí)現(xiàn)對庫存中的藥品信息進(jìn)行系統(tǒng)地管理。? 庫存盤點(diǎn)實(shí)現(xiàn)以表單的形式顯示庫存數(shù)量大于零的全部藥品信息。? 庫存報表實(shí)現(xiàn)按條件查詢庫存信息，預(yù)覽和打印庫存報表。它包含調(diào)貨登記，調(diào)貨查詢。藥品由于其種類繁多，信息復(fù)雜，在進(jìn)行藥品的調(diào)動時，對調(diào)動的信息進(jìn)行記錄也就顯得尤為關(guān)鍵。調(diào)貨查詢支持條件和日期查詢，以頁框和列表方式瀏覽調(diào)貨信息。醫(yī)藥品業(yè)務(wù)的流通量是非常巨大的，因此在財務(wù)上對收款與付款的信息記錄也就非常繁瑣。財務(wù)管理包含收款單，付款單，收款查詢，付款查詢。收款查詢能按不同條件查詢收款信息，以頁框和列表瀏覽收款信息。付款查詢與收款查詢相似，可查詢與瀏覽付款信息。它可以大大簡化公司財務(wù)人員的工作量，對公司的財務(wù)賬目信息有一個系統(tǒng)的管理。財務(wù)結(jié)賬可完成日結(jié)賬操作，可匯總每日結(jié)賬信息。入庫查詢統(tǒng)計可查詢與瀏覽藥品入庫信息，自動匯總?cè)霂焖幤沸畔ⅰＨ霂焱素洸樵兣c銷售退貨查詢的功能實(shí)現(xiàn)相似。查詢月報表可按條件查詢該月的藥品進(jìn)銷存信息，可預(yù)覽和打印此月報表。這個模塊相當(dāng)于公司的檔案管理，有大量的數(shù)據(jù)信息。這些信息數(shù)據(jù)是其它功能模塊實(shí)現(xiàn)的基礎(chǔ)。員工信息提供了添加，修改，刪除員工信息功能，也可查詢?yōu)g覽。供應(yīng)商信息與上述三種功能模塊實(shí)現(xiàn)的功能相似。 系統(tǒng)管理系統(tǒng)管理模塊是針對系統(tǒng)的保護(hù)而設(shè)計的。此系統(tǒng)的管理操作可直接影響整個系統(tǒng)的操作管理。操作員管理可以對操作員信息進(jìn)行增加、刪除、修改，可設(shè)置操作員密碼。數(shù)據(jù)備份可以對庫存中的數(shù)據(jù)信息實(shí)現(xiàn)備份功能。 數(shù)據(jù)庫設(shè)計利用 Microsoft Visual FoxPro 新建一個數(shù)據(jù)庫，名稱為Medicamentmanage ,在此數(shù)據(jù)庫中添加 27 個表：臨時登記表 Ltabdhdj, 臨時日結(jié)表 Ltabrj，臨時入庫登記表 Ltabrkdj，臨時入庫退貨表Ltabrkth，臨時銷售登記表 Ltabxsdj，臨時銷售退貨表 Ltabxsth，臨時月結(jié)表 Ltabyj，調(diào)貨登記表 Tabdhdj，供應(yīng)商信息表 Tabgys，結(jié)算方式表 Tabjsfs，庫存表 Tabkc，客戶信息表 Tabkh，權(quán)限表 Tabpurview，日結(jié)表 Tabrj，入庫登記表 Tabrkdj，入庫結(jié)賬表 Tabrkjz，入庫票號表Tabrkph，入庫退貨表 Tabrkth，倉庫信息表 Tabstorage，銷售登記表Tabxsdj，銷售結(jié)賬表 Tabxsjz，銷售票號表 Tabxsph，銷售退貨表Tabxsth，員工信息表 Tabyginfo，月結(jié)表 Tabyj，月結(jié)初始化Tabyjcsh，藥品信息表 Tabypinfo。在表單中插入名稱為 Vcxmain 的 ToolBar類。 圖 3. 主程序界面 為了使操作更加簡便，將常用的幾種操作單獨(dú)提出來，設(shè)計一個Vcxmain 的 Toolbar 類。 圖 4. 系統(tǒng)登錄界面 首先要判斷用戶輸入的用戶名是否正確，然后判斷用戶輸入的密碼是否正確，如果正確，這根據(jù)用戶選擇操作員說擁有的權(quán)限級別為全局變量賦值，如果不正確，彈出系統(tǒng)警告。amp。amp。方法是先查找表中是否有所輸入的名字，如果表中沒有所輸入的名字，則系統(tǒng)登陸失敗，并顯示登陸失敗。amp。操作員錯誤，請重新輸入！39。密碼錯誤，請重新輸入！39。amp。這 33 個功能模塊，除去系統(tǒng)管理所實(shí)現(xiàn)的功能，其它的模塊根據(jù)其實(shí)現(xiàn)的功能可以分為以下幾類：(1)查詢類模塊：庫存查詢，調(diào)貨查詢，收款查詢，付款查詢， 銷售查詢統(tǒng)計，入庫查詢統(tǒng)計，銷售退貨查詢， 入庫退貨查詢。(3)登記類模塊：銷售登記，銷售退貨，入庫登記，入庫退貨，調(diào)貨 登記。(5)可修改類模塊：庫存修改，藥品信息，員工信息，客戶信息，供 應(yīng)商信息，倉庫基本信息。 圖 5. 查詢系統(tǒng)界面在本系統(tǒng)中，查詢的種類分為兩大類：分別為條件查詢與時間查詢。為了實(shí)現(xiàn)這條件查詢的這幾種方式，在創(chuàng)建表單的時候，須在表單上添加 2 個 Combo 控件，屬性均為：RowSource RowSourceType，分別用來提供查詢字段列表和查詢條件列表。對于模塊需要按條件還是日期來查詢，在查詢前，需要進(jìn)行選擇，為了實(shí)現(xiàn)這個選擇功能，在表單設(shè)計時，需添加 2 個 Check 控件，用來分別選擇查詢的方式。amp。amp。amp。這樣也就實(shí)現(xiàn)是選擇條件還是日期來查詢。 第一種情況為查詢操作失敗，出現(xiàn)這種情況，主要是使用查詢的時候，沒有按照要求來進(jìn)行查找操作，如沒有填寫查詢的字段，沒有選擇查詢的方式，出現(xiàn)這種情況，系統(tǒng)會提示查詢失敗，需要重新查詢。請選擇查詢條件！39。操作失?。?9。 “%”在 Microsoft Visual FoxPro 的數(shù)據(jù)庫代碼中叫做通配符，使用通配符可以連接任意數(shù)目的字符。先判斷出所選的查詢?yōu)槟：樵?like)： if =39。then然后找出所有與所寫的字段相匹配的信息，其中非所寫字段的信息就用通配符所代替： fff=alltrim()++alltrim(thisform.) +39。 這樣，系統(tǒng)就可以找出所要查詢的所有信息。 fff=alltrim()++alltrim()。+alltrim()+39。當(dāng)然，除了條件查詢的方式外，還可以按時間日期進(jìn)行查詢。請輸入起始時間！39。操作失?。?9。以銷售登記查詢 為例，我們將銷售登記表中的銷售日期作為起止日期查詢標(biāo)準(zhǔn)，將滿足日期的所有數(shù)據(jù)信息裝入 Lindeping 。 cursor lindeping 有的模塊使用查詢功能的同時，希望能夠?qū)崿F(xiàn)統(tǒng)計功能。計算方法為：統(tǒng)計品種數(shù)：品種數(shù)=臨時表 Lindeping 中的記錄總數(shù) select lindeping creccount=recount( )統(tǒng)計數(shù)量：對符合條件的記錄進(jìn)行求和計算 sum 數(shù)量 to jhcount統(tǒng)計金額：對符合條件的記錄進(jìn)行求和計算 sum 金額 to jhje 報表類模塊 本系統(tǒng)中所實(shí)現(xiàn)的報表類模塊功能大體一樣，均包含打印，打印預(yù). . . .覽，以及使用查詢羅列出所需的信息。在“打印預(yù)覽”按鈕的 Click 事件中加入： report form report\xiaoshou to print preview amp。打印預(yù)覽報表在“打印”按鈕的 Click 事件中加入： report form report\xiaoshou to print amp。打印報表這樣，利用上述的代碼就可以實(shí)現(xiàn)將表單 grid 控件中所羅列的數(shù)據(jù)以表單的形式打印出來。為了實(shí)現(xiàn)該功能，我們首先應(yīng)該將查詢的數(shù)據(jù)輸入到臨時表中。 from medicamentmanage!tabxsdj。 order by 。amp。amp。amp。amp。無記錄！39。信息窗口39。lindeping39。 登記類模塊登記類各個模塊所實(shí)現(xiàn)的功能比較繁多，每個模塊都比較大，但這些模塊都有一些共同的功能，而這些功能在登記類模塊是一些核心功能，這些功能包括登記，保存和自動生成各種票號。當(dāng)單擊“登記”按鈕時，將清空表單上相關(guān)的內(nèi)容，做好接受用戶輸入信息的準(zhǔn)備。首先判斷入庫登記表“Tabrkdj”中的入庫票號是否為空，如果為空，則入庫票號等于“系統(tǒng)日期+rkd+0001” ，如果不為空，則入庫票號等于“系統(tǒng)日期+rkd+四位數(shù)字編碼加 1”。039。amp。039。amp。39。39。rkd000139。 cend=val(substr(a(1),14))+1 amp。票號尾數(shù)+1=alltrim(str(year(date()),4)+39。+lmonth+39。+lday+39。+padl(alltrim(str(cend,4)),4,39。)) amp。形成新票號=date()在將所輸入的信息進(jìn)行登記，由于在登記的時候不允許同時保存，和退出，但可以取消，因此要設(shè)置保存 csave 和退出功能 cexit 無效，而登記 cadd 和取消 cexit 有效。仍以入庫登記為例，當(dāng)我們單擊“保存”按鈕時，將臨時表中的入庫信息保存到入庫登記表“Tabrkdj”中，將臨時表中的入庫信息匯總后保存到入庫票號“Tabrkph”表中，在庫存信息表“Tabkc”查找該藥品，如果找到，則修改庫存數(shù)量，如果沒找到，