【文章內(nèi)容簡介】 入庫票號(hào)表 Tabrkph， 入庫退貨電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 11 頁 共 31 頁 表 Tabrkth， 倉庫信息表 Tabstorage， 銷售登記表 Tabxsdj， 銷售結(jié)賬表Tabxsjz， 銷售票號(hào)表 Tabxsph， 銷售退貨表 Tabxsth， 員工信息表Tabyginfo， 月結(jié)表 Tabyj， 月結(jié)初 始化 Tabyjcsh， 藥品信息表 Tabypinfo。 主程序界面設(shè)計(jì) 創(chuàng)建一個(gè)標(biāo)準(zhǔn)項(xiàng)目，名稱為“醫(yī)藥物流管理系統(tǒng)”，在該項(xiàng)目中添加一個(gè)表單，名稱為 Fdesktop。在表單中插入名稱為 Vcxmain 的 ToolBar 類。 在各個(gè)按鈕的 Click 事件中添加類代碼。 圖 3. 主程序界面 為了使操作更加簡便，將常用的幾種操作單獨(dú)提出來，設(shè)計(jì)一個(gè)Vcxmain 的 Toolbar 類。添加代碼如下： 在“銷售登記”按鈕的 Click 事件中添加代碼 ： do form form\xiaoshoudj 同理，在“入庫登記”按鈕中添加： do form form\rukudj 在“調(diào)貨登記”按鈕中添加： do form form\tiaohuodj 在“庫存查詢”按鈕中添加： do form form\kcquery 在“銷售查詢”按鈕中添加： do form form\xiaoshouquery 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 12 頁 共 31 頁 在“入庫查詢”按鈕中添加： do form form\rukuquery 在“財(cái)務(wù)結(jié)賬”按鈕中添加： do form form\cwjz 在“藥品信息”按鈕中 添加： do form form\ypmanage 在“退出”按鈕中添加： quit 系統(tǒng)登錄界面設(shè)計(jì) 用戶進(jìn)入系統(tǒng)前，必須進(jìn)入系統(tǒng)登錄界面，系統(tǒng)登錄界面能夠確認(rèn)用戶的身份及使用權(quán)限。 圖 4. 系統(tǒng)登錄界面 首先要判斷用戶輸入的用戶名是否正確，然后判斷用戶輸入的密碼是否正確，如果正確，這根據(jù)用戶選擇操作員說擁有的權(quán)限級(jí)別為全局變量賦值，如果不正確，彈出系統(tǒng)警告。 在進(jìn)行編碼的時(shí)候，首先將使用的數(shù)據(jù)表 — 權(quán)限表打開： use database\tabpurview amp。amp。打開數(shù)據(jù)表 為了對所輸入的操作員姓名與權(quán)限表中的姓名相比較，我們用權(quán)限表中的“操作員姓名”作為索引文件： set order to 操作員姓名 amp。amp。指定控制索引文件 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 13 頁 共 31 頁 當(dāng)輸入姓名與密碼以后，我們要判斷所輸入的操作員名稱和密碼是否正確。方法是先查找表中是否有所輸入的名字，如果表中沒有所輸入的名字，則系統(tǒng)登陸失敗，并顯示登陸失敗。 在查詢搜索名字時(shí)，可用以下語句： seek ame amp。amp?？焖俨樵? 判斷錯(cuò)誤，并顯示錯(cuò)誤界面： if alltrim( )!=ame cMessagetext=39。操作員錯(cuò)誤，請重新輸入！ 39。 如果在表中找到了所輸入的名字，則系統(tǒng)需要對所對應(yīng)的密碼進(jìn)行比較判斷，看是否能與名字所匹配，方法與上面的名字比較相似： if alltrim( )!=ppassword cmessagetext=39。密碼錯(cuò)誤，請重新輸入！ 39。 當(dāng)系統(tǒng)發(fā)現(xiàn)所輸入的名字與密碼都正確的時(shí)候，系統(tǒng)需要給此用戶賦予表中相對應(yīng)的權(quán)限，先判斷用戶的權(quán)限級(jí)別： purview=val(alltrim( )) 再對應(yīng)的各個(gè)系統(tǒng)模塊，分別賦予相應(yīng)的權(quán)限，以“銷售管理”權(quán)限為例，將銷售管理的權(quán)限賦值給全局變量： pxsgl= amp。amp。賦值給全局變量 功能模塊設(shè)計(jì)與功能實(shí)現(xiàn) 通過前面的需求分析可以知道，本系統(tǒng)共有 8 個(gè)部分，一共包含 33個(gè)完整的功能模塊。這 33 個(gè)功能模塊，除去系統(tǒng)管理所實(shí)現(xiàn)的功能，其它的模塊 根據(jù)其實(shí)現(xiàn)的功能可以分為以下幾類： (1) 查詢類模塊：庫存查詢，調(diào)貨查詢，收款查詢，付款查詢， 銷售查詢統(tǒng)計(jì)，入庫查詢統(tǒng)計(jì)，銷售退貨查詢， 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 14 頁 共 31 頁 入庫退貨查詢。 (2) 報(bào)表類模塊：銷售報(bào)表，入庫報(bào)表，庫存報(bào)表，財(cái)務(wù)報(bào)表，查詢 月報(bào)表，庫存盤點(diǎn)。 (3) 登記類模塊：銷售登記，銷售退貨，入庫登記，入庫退貨，調(diào)貨 登記。 (4) 結(jié)賬類模塊：收款單，付款單，財(cái)務(wù)結(jié)賬，當(dāng)月結(jié)賬。 (5) 可修改類模塊：庫存修改，藥品信息，員工信 息，客戶信息，供 應(yīng)商信息，倉庫基本信息。 查詢類模塊 由于本系統(tǒng)中含有大量的數(shù)據(jù)信息，而在實(shí)際的系統(tǒng)操作中，又需要對數(shù)據(jù)進(jìn)行查詢，因此在這些查詢類模塊中，我們要設(shè)計(jì)并實(shí)現(xiàn)查詢這項(xiàng)功能。 圖 5. 查詢系統(tǒng)界面 在本系統(tǒng)中，查詢的種類分為兩大類：分別為條件查詢與時(shí)間查詢。 條件查詢分為四種方式，分別為模糊查詢 (like) ，小于查詢 ()，大于查詢 ()和等于查詢 (=)。 為了實(shí)現(xiàn) 這條件查詢的這幾種方式，在創(chuàng)建表單的時(shí)候，須在表單上添加 2 個(gè) Combo 控件，屬性均為： RowSource RowSourceType，分別用來提供查詢字段列表和查詢條件列表。 而如果模塊中，要實(shí)現(xiàn)按日期查詢，還需要在表單中加入 2 個(gè) Text電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 15 頁 共 31 頁 控件，屬性為 Format Value，用來提供日期的輸入。 對于模塊需要按條件還是日期來查詢，在查詢前，需要進(jìn)行選擇，為了實(shí)現(xiàn)這個(gè)選擇功能，在表單設(shè)計(jì)時(shí)，需添加 2 個(gè) Check 控件，用來分別選擇查詢的方式。 當(dāng)選擇查詢的類型時(shí)，只要在查詢方式前加上勾，系統(tǒng)就將采用此種查詢方式 ，系統(tǒng)判斷是否選擇，使用下面的方法： if =1 amp。amp。選擇了該方法 if =0 amp。amp。為沒選擇該方法 當(dāng)系統(tǒng)發(fā)現(xiàn)選擇了該查詢方式，則需要設(shè)置控件有效來使用此方法： , , amp。amp。設(shè)置控件有效 若發(fā)現(xiàn)未使用該方法，只需要將第一句改為： 即可。 這樣也就實(shí)現(xiàn)是選擇條件還是日期來查詢。 如果按選擇條件查詢，系統(tǒng)在查詢的時(shí)候，將查詢過程分成三個(gè)情況。 第一種情況為查詢操作失敗，出現(xiàn)這種情況，主要是使用查詢的時(shí)候，沒有按照要求來進(jìn)行查找操作，如沒有填寫查詢的字段，沒有選擇查詢的方式，出現(xiàn)這種情況，系統(tǒng)會(huì)提示查詢失敗，需要重新查詢。 系統(tǒng)判斷出沒有填寫完整的查詢，也就是沒有選擇查詢方式為空和查詢的內(nèi)容為空，輸出錯(cuò)誤提示： if empty(ccif) or empty(ctext) messagebox(39。請選擇查詢條件！ 39。,48,39。操作失??！ 39。) 此時(shí)查詢失敗，需要重新查詢 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 16 頁 共 31 頁 第二種情況為模糊查詢，實(shí)現(xiàn)模糊查詢在 Microsoft Visual FoxPro 中顯得比較容易，因?yàn)?Visual FoxPro 的語言代碼中有一個(gè)很特殊的符號(hào)，這個(gè)符號(hào)就是“ %”?！?%”在 Microsoft Visual FoxPro 的數(shù)據(jù)庫代碼中叫做通配符，使用通配符可以連接任意數(shù)目的字符。因此要實(shí)現(xiàn)模糊查詢，只需要先利用系統(tǒng)查出帶有所輸入字段的所有目標(biāo)，而“ %”在語句中則表 示其他所有任意字段字符。 先判斷出所選的查詢?yōu)槟：樵?(like)： if =39。like39。then 然后找出所有與所寫的字段相匹配的信息，其中非所寫字段的信息就用通配符所代替： fff=alltrim()++alltrim(thisform. ) +39。+alltrim()+%39。 這 樣，系統(tǒng)就可以找出所要查詢的所有信息。 第三種情況為除去模糊查詢的其它查詢，包括小于，大于，等于查詢，這三種查詢與模糊查詢相比，唯一的不同就是所給的字 段微可 比較的，而且不需要系統(tǒng)對不確定的信息進(jìn)行搜索，也就是沒有通配符。 fff=alltrim()+ +alltrim()。 + 39。+alltrim()+39。 上面就是條件查詢的幾種方式。 當(dāng)然，除了條件查詢的方式外，還可以按時(shí)間日期進(jìn)行查詢。 如果是按照時(shí)間日期查詢，與條件查詢相似，時(shí)間查詢可以分為查詢失敗和日期查詢兩個(gè)情況： 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 17 頁 共 31 頁 sdate 與 edate 分別指向了時(shí)間查詢的日期起止時(shí)間，若起止時(shí)間為空，則查詢失敗 if sdate={//} or edate={//} messagebox(39。請輸入起始時(shí)間！ 39。,48,39。操作失??！ 39。) 如果日期均不為空，則系統(tǒng)將查找起止日期之間的信息，將信息存入臨時(shí)表 Lindeping 以供使用。以銷售登記查詢 為例，我們將銷售登記表中的銷售日期作為起止日期查詢標(biāo)準(zhǔn)，將滿足日期的所有數(shù)據(jù)信息裝入Lindeping 。 fff=between(銷售日期 ,sdate,edate) select * from tabxsdj where amp。 cursor lindeping 有的模塊使用查詢功能的同時(shí)，希望能夠?qū)崿F(xiàn)統(tǒng)計(jì)功能。我們可以通過查詢語句將符合條件的記錄存入臨時(shí)表 Lindeping 中，在對臨時(shí)表Lindeping 進(jìn)行 統(tǒng)計(jì)。 計(jì)算方法為：統(tǒng)計(jì)品種數(shù)：品種數(shù) =臨時(shí)表 Lindeping 中的記錄總數(shù) select lindeping creccount=recount( ) 統(tǒng)計(jì)數(shù)量：對符合條件的記錄進(jìn)行求和計(jì)算 sum 數(shù)量 to jhcount 統(tǒng)計(jì)金額：對符合條件的記錄進(jìn)行求和計(jì)算 sum 金額 to jhje 報(bào)表類模塊 本系統(tǒng)中所實(shí)現(xiàn)的報(bào)表類模塊功能大體一樣，均包含打印，打印預(yù)覽，電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 18 頁 共 31 頁 以及使用查詢羅列出所