【正文】 ，盡量避免損失。 強(qiáng)大的報(bào)表功能，讓您隨時(shí)了解企業(yè)經(jīng)營(yíng)情況 。 實(shí)施強(qiáng)大的后臺(tái)監(jiān)控功能。 強(qiáng)大的庫(kù)存預(yù)警功能，盡可量地減少商家不必要的損失。管理方式的轉(zhuǎn)變，提高整個(gè)企業(yè)的工作效率，在某種意義上講，給中小企業(yè)提供了新的有利條件，增強(qiáng)了企業(yè)的核心競(jìng)爭(zhēng)力，成為企業(yè)管理的必備工具。 根據(jù)指導(dǎo)老師下達(dá)的任務(wù)書(shū)，完成開(kāi)題報(bào)告，文獻(xiàn)綜述，并針對(duì)存在的問(wèn)題，提出解決的方案，確定系統(tǒng)實(shí)現(xiàn)的目標(biāo)和框架。管理方式的轉(zhuǎn)變，提高整個(gè)企業(yè)的工作效率，在某種意義上講，給中小企業(yè)提供了新的有利條件，增強(qiáng)了企業(yè)的核心競(jìng)爭(zhēng)力，成為企業(yè)管理的必備工具。 5．強(qiáng)大的庫(kù)存預(yù)警功能，盡量避免損失。 9． 強(qiáng)大的報(bào)表功能，讓您隨時(shí)了解企業(yè)經(jīng)營(yíng)情況 本系統(tǒng)的開(kāi)發(fā)適用于多個(gè)行業(yè)，可以幫助企業(yè)快速有效管理進(jìn)貨、銷(xiāo)售、庫(kù)存等各項(xiàng)業(yè)務(wù)，合理控制進(jìn)銷(xiāo)存各個(gè)環(huán)節(jié)，提高資金利用率，實(shí)現(xiàn)管理高效率和實(shí)時(shí)性。 根據(jù)市場(chǎng)的需求，要求系統(tǒng)具有以下功能： 1．系統(tǒng)操作簡(jiǎn)單，界面友好。 5．支持多種報(bào)表打印功能。提高了管理水平和工作效率，最大限度減少了手工操作帶來(lái)的錯(cuò)誤。 本系統(tǒng)的開(kāi)發(fā)適用于多個(gè)行業(yè)，可以幫助企業(yè)快速有效管理進(jìn)貨、銷(xiāo)售、庫(kù)存等各項(xiàng)業(yè)務(wù)，合理控制進(jìn)銷(xiāo)存各個(gè)環(huán)節(jié)，提高資金利用率，實(shí)現(xiàn)管理高效率和實(shí)時(shí)性。 強(qiáng)大的庫(kù)存預(yù)警功能，盡量避免損失。 強(qiáng)大的報(bào)表功能，讓您隨時(shí)了解企業(yè)經(jīng)營(yíng)情況 研究進(jìn)程計(jì)劃及時(shí)間安排 （計(jì)劃進(jìn)度、預(yù)計(jì)完成的日期 ,階段性成果的形式） ： 按照設(shè)計(jì)要求，查閱相關(guān)文獻(xiàn)資料 并 進(jìn)行資料搜集、整理。 計(jì)算機(jī)技術(shù)的全面普及，給中小企業(yè)帶來(lái)新鮮的血液，利用計(jì)算機(jī)對(duì)企業(yè)進(jìn)行管理，不僅解決了傳統(tǒng)管理方式中的管理效率低下、管理不全面，數(shù)據(jù)信息不能得到統(tǒng)計(jì)等問(wèn)題。 系統(tǒng)運(yùn)行穩(wěn)定，安全可靠。 強(qiáng)大的查詢分析功能。 return。 本系統(tǒng)是根據(jù)人們?cè)谌粘Ｉ钪械膶?shí)際需求而開(kāi)發(fā)的，完全能夠?qū)崿F(xiàn)人們對(duì)各類藥品信息及疑難病癥查詢的功能，通過(guò)本系統(tǒng)可以達(dá)到以下目標(biāo)： 系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。 圖形化數(shù)據(jù)分析。管理方式的轉(zhuǎn)變，提高整個(gè)企業(yè)的工作效率，在某種意義上講，給中小企業(yè)提供了新的有利條件，增強(qiáng)了企業(yè)的核心競(jìng)爭(zhēng)力，成為企業(yè)管理的必備工具。 支持多人操作，要求有較好的權(quán)限分配功能。 課題背景 要提高市場(chǎng)竟?fàn)幜?，既要有好的產(chǎn)品質(zhì)量，同時(shí)也要有好的客戶服務(wù)。由此可見(jiàn)，進(jìn)銷(xiāo)存管理決策的正確與否直接影響了企業(yè)的經(jīng)濟(jì)效益。 進(jìn)銷(xiāo)存管理系統(tǒng)的開(kāi)發(fā)實(shí)現(xiàn)了從進(jìn)貨、庫(kù)存、到銷(xiāo)售的一體化管理。系統(tǒng)由系統(tǒng)管理、銷(xiāo)售管理、庫(kù)存管理、基礎(chǔ)信息、往來(lái)管理、查詢管理、報(bào)表管理、決策管理和維護(hù)管理等模塊組成。 基礎(chǔ)信息模塊： 商品信息管理、供應(yīng)商信息管理、客戶信息管理、員工信息管理、銀行帳戶管理。 決策管理模塊： 商品銷(xiāo)售排 行、商品退貨排行、利潤(rùn)分析、決策分析（進(jìn)銷(xiāo)存結(jié)轉(zhuǎn)、供應(yīng)商應(yīng)收應(yīng)付款結(jié)轉(zhuǎn)、客戶應(yīng)收應(yīng)付款結(jié)轉(zhuǎn)）。 銷(xiāo)售管理銷(xiāo)售退貨管理銷(xiāo)售管理訂貨管理系統(tǒng)管理權(quán)限設(shè)置更改密碼操作員管理系統(tǒng)設(shè)置通用進(jìn)銷(xiāo)存管理系統(tǒng)查詢管理商品入庫(kù)查詢商品報(bào)損報(bào)溢查詢商品退貨查詢商品銷(xiāo)售查詢基礎(chǔ)信息客戶信息管理供應(yīng)商信息管理商品信息管理退出銀行帳戶管理員工信息管理庫(kù)存管理入庫(kù)退貨庫(kù)存盤(pán)點(diǎn)庫(kù)存查詢?nèi)霂?kù)管理庫(kù)存上下限管理商品報(bào)損報(bào)溢管理商品有效期查詢往來(lái)管理超期應(yīng)收應(yīng)付款管理客戶帳目管理供應(yīng)商帳目管理報(bào)表管理周銷(xiāo)售報(bào)表單商品銷(xiāo)售報(bào)表月銷(xiāo)售報(bào)表日銷(xiāo)售報(bào)表決策管理商品退貨排行決策分析利潤(rùn)分析商品銷(xiāo)售排行維護(hù)管理系統(tǒng)初始化數(shù)據(jù)恢復(fù)數(shù)據(jù)備份初期建帳客戶應(yīng)收應(yīng)付款結(jié)轉(zhuǎn)供應(yīng)商應(yīng)收應(yīng)付款結(jié)轉(zhuǎn)進(jìn)銷(xiāo)存結(jié)轉(zhuǎn)庫(kù)存商品往來(lái)帳目圖21 醫(yī)藥進(jìn)銷(xiāo)存系統(tǒng) 結(jié)構(gòu)圖 4 第三章 系統(tǒng)設(shè)計(jì) 設(shè)計(jì)目標(biāo) 隨著信息技術(shù)的迅速發(fā)展，信息化、數(shù)字化已經(jīng)進(jìn)入各行各業(yè)和人們生活中的許多方面，醫(yī)藥行業(yè)也在不知不覺(jué)的進(jìn)入數(shù)字 化和信息化時(shí)代。 系統(tǒng) 根據(jù)企業(yè)的特點(diǎn)，集進(jìn)、銷(xiāo)、存、分析于一體，為企業(yè)量身定做的進(jìn)銷(xiāo)存管理軟件。 系統(tǒng)運(yùn)行穩(wěn)定，安全可靠。 靈活、細(xì)分的權(quán)限控制功能。 實(shí)施強(qiáng)大的后臺(tái)監(jiān)控功能。 開(kāi)發(fā)及運(yùn)行環(huán)境 系統(tǒng)開(kāi)發(fā)平臺(tái)： Microsoft Visual FoxPro 。同時(shí)，程序主界面的設(shè)計(jì)也是程序控制的核心，操作權(quán)限、程序功能調(diào)用等都要通過(guò)主程序調(diào)用實(shí)現(xiàn)。 （ 2）在表單的 Unload 事件下添加如下代碼 ： =.t. amp。amp。\39。 對(duì)象 屬性 值 ToolBarMenu Appearance 0Flat ToolBarMenu BorderStyle 0None ToolBarMenu Style 0standard 表 1 更改 ToolBarMenu 控件屬性 （ 3）將 ToolBarMenu 控件與 ImageMenu 控件聯(lián)系起來(lái)，在 ToolBarMenu 控件中添加 10 個(gè)按鈕，并將 ImageMenu 控件中的圖片與按鈕相對(duì)應(yīng)。（ 1）在表單中添加一個(gè) ToolBar 控件 。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。blname. =.f. (m).enabled=.f. ENDIF ENDIF ENDFOR （ 3）調(diào)整 ToolBar 控件的位置，在 ToolBar 控件下方添加一張圖片，作為工具按鈕的顯示區(qū)域。 （ 6）在 ToolBar 控件的 ButtonClick 事件下添加如下代碼： ActiveX 控件事件 LPARAMETERS button DO CASE CASE =2 DO FROM forms\frm訂單 CASE =3 DO FROM forms\frm銷(xiāo)售管理 CASE =5 DO FROM forms\frm配送申請(qǐng) CASE =6 DO FROM forms\frm配送開(kāi)票 CASE =7 DO FROM forms\frm配送結(jié)款 CASE =9 DO FROM forms\frm入庫(kù)管理 CASE =10 DO FROM forms\frm庫(kù)存查詢 CASE =12 DO FROM forms\frm商品信息 CASE =13 DO FROM forms\frm商品銷(xiāo)售查詢 CASE =14 DO FROM forms\frm商品銷(xiāo)售排行 CASE =16 DO FROM forms\frm日?qǐng)?bào)表 CASE =18 DO FROM forms\frm數(shù)據(jù)備份 ENDCASE 創(chuàng)建狀態(tài)欄 （ 1）在表單中添加一個(gè) StatusBar 控件， 并在該控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇 “SBarCtrl properties”菜單項(xiàng)，將打開(kāi) “SBarCtrl 屬性 ”對(duì)話框。只有合法的用戶才可進(jìn)入系統(tǒng)。 （ 3）重要控件的屬性設(shè)置如表 4 所示。系統(tǒng)登錄模塊運(yùn)行結(jié)果。 11 對(duì)象 屬性 值 Form1 AutoCenter .T. Form1 ShowWindows 2作為頂層表單 ListView1 BackColor 13160660 表 5 重要控件及屬性 代碼設(shè)計(jì) 在表單的 Init 事件下添加如下代碼： PUBLIC no SET SAFT OFF no=0 SELE 操作員信息表 =0 = IF reccount()0 FOR m=1 TO reccount() SELE 操作員信息表 GOTO m =(,操作員信息表 .用戶名 ,操作員信息表 .頭像 ) ENDFOR ELSE =(,超級(jí)管理員 ,rand(11)*12) ENDIF 在表單的 Unload 事件下添加如下代碼： QUIT 在“登錄”按鈕的 Click 事件下添加如下代碼： IF alltrim()=超級(jí)管理員 gly=超級(jí)管理員 =1100 =.f. DO FROM forms\frmmain ELSE SELECT * FROM 操作員信息表 WHERE 用戶名 =alltrim() 。 13 （ 3）重要控件的屬性設(shè)置如表 6 所示。取出供應(yīng)商名稱 SELE 商品信息表 =padl(alltrim(str(reccount())),5,0) =reccount() =reo() SELE 商品信息表 在表單的 Init 事件中添加如下代碼： SET DELE ON 在表單的 Unload 事件中添加如下代碼： CLOSE ALL database USE data\商品信息表 EXCL PACK USE 14 USE data\庫(kù)存信息表 EXCL PACK USE 在“名稱”文本框的 InterActiveChange 事件下添加如下代碼： =lower(()) 在“名稱”文本框的 Click 事件下添加如下代碼： =() 在 Locatebuttons1 控件的 _FirstButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _LastButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _NextButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _PreviousButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Oftenbuttons1 控件的 _SaveButtonClick 方法程序下添加如下代碼： DIME txt(13),get(9) ***存入信息 SELE 商品信息表 thisreo=reo() FOR m=1 TO 6 txtname=text+alltrim(str(m)) txt(m)=alltrim(thisform.amp。txtname..value amp。 然后再試一次！ ,16, 系統(tǒng)提示 ) ENDIF get(8)=9999 get(9)=1 15 ELSE FOR m=1 TO 9 get(m)=fgets(handle1) ENDFOR ENDIF fclose(handle1) IF =1 INSERT INTO 商品信息表 VALUES(txt(1),txt(2),lower(txt(3)),Txt(4),。 保質(zhì)期 =txt(8),進(jìn)價(jià) =txt(9),批發(fā)價(jià) =txt(10),零售價(jià) =txt(11),備注 =txt(12),。textname..value= ENDFOR ={} ={} =0 =0 =0 =39。 FOR m=2 TO 12 amp。amp。textname..enabled=.f. ENDFOR =.f. GOTO 1 =.t. =.t. =.t. =.t. 在 Oftenbuttons1 控件的 _AddButtonClick 方法程序下添加如下代碼： PRIVATE bh FOR m=1 TO 6 amp。39。SP0000139。textname..enabled=.t. ENDFOR =.t. 17 =.f. =.f. =.f. 在 Oftenbuttons1 控件的 _ChangeButtonClick 事件下添加如下代碼： FOR m=4 TO 12 textname=text+alltrim(str(m)) thisform.amp。查詢同名商品 IF reccount()0 =alltrim()+。 (+alltrim( )+)[+allt