【文章內容簡介】 入的用戶名是否正確，然后判斷用戶輸入的密碼是否正確，如果正確，這根據用戶選擇操作員說擁有的權限級別為全局變量賦值，如果不正確，彈出系統(tǒng)警告。在進行編碼的時候，首先將使用的數據表—權限表打開：use database\tabpurview amp。amp。打開數據表為了對所輸入的操作員姓名與權限表中的姓名相比較，我們用權限表中的“操作員姓名”作為索引文件：set order to 操作員姓名 amp。amp。指定控制索引文件當輸入姓名與密碼以后，我們要判斷所輸入的操作員名稱和密碼是否正確。方法是先查找表中是否有所輸入的名字，如果表中沒有所輸入的名字，則系統(tǒng)登陸失敗，并顯示登陸失敗。在查詢搜索名字時，可用以下語句：seek ame amp。amp。快速查詢. . . .判斷錯誤，并顯示錯誤界面：if alltrim()!=ame cMessagetext=39。操作員錯誤，請重新輸入！39。如果在表中找到了所輸入的名字，則系統(tǒng)需要對所對應的密碼進行比較判斷，看是否能與名字所匹配，方法與上面的名字比較相似： if alltrim()!=ppassword cmessagetext=39。密碼錯誤，請重新輸入！39。當系統(tǒng)發(fā)現所輸入的名字與密碼都正確的時候，系統(tǒng)需要給此用戶賦予表中相對應的權限，先判斷用戶的權限級別： purview=val(alltrim()) 再對應的各個系統(tǒng)模塊，分別賦予相應的權限，以“銷售管理”權限為例，將銷售管理的權限賦值給全局變量： pxsgl= amp。amp。賦值給全局變量 功能模塊設計與功能實現通過前面的需求分析可以知道，本系統(tǒng)共有 8 個部分，一共包含 33個完整的功能模塊。這 33 個功能模塊，除去系統(tǒng)管理所實現的功能，其它的模塊根據其實現的功能可以分為以下幾類：(1)查詢類模塊：庫存查詢，調貨查詢，收款查詢，付款查詢， 銷售查詢統(tǒng)計，入庫查詢統(tǒng)計，銷售退貨查詢， 入庫退貨查詢。(2)報表類模塊：銷售報表，入庫報表，庫存報表，財務報表，查詢 月報表，庫存盤點。(3)登記類模塊：銷售登記，銷售退貨，入庫登記，入庫退貨，調貨 登記。. . . .(4)結賬類模塊：收款單，付款單，財務結賬，當月結賬。(5)可修改類模塊：庫存修改，藥品信息，員工信息，客戶信息，供 應商信息，倉庫基本信息。 查詢類模塊由于本系統(tǒng)中含有大量的數據信息，而在實際的系統(tǒng)操作中，又需要對數據進行查詢，因此在這些查詢類模塊中，我們要設計并實現查詢這項功能。 圖 5. 查詢系統(tǒng)界面在本系統(tǒng)中，查詢的種類分為兩大類：分別為條件查詢與時間查詢。條件查詢分為四種方式，分別為模糊查詢(like) ，小于查詢()，大于查詢()和等于查詢(=)。為了實現這條件查詢的這幾種方式，在創(chuàng)建表單的時候，須在表單上添加 2 個 Combo 控件，屬性均為：RowSource RowSourceType，分別用來提供查詢字段列表和查詢條件列表。而如果模塊中，要實現按日期查詢，還需要在表單中加入 2 個 Text控件，屬性為 Format Value，用來提供日期的輸入。對于模塊需要按條件還是日期來查詢，在查詢前，需要進行選擇，為了實現這個選擇功能，在表單設計時，需添加 2 個 Check 控件，用來分別選擇查詢的方式。. . . .當選擇查詢的類型時，只要在查詢方式前加上勾，系統(tǒng)就將采用此種查詢方式，系統(tǒng)判斷是否選擇，使用下面的方法：if =1 amp。amp。選擇了該方法if =0 amp。amp。為沒選擇該方法 當系統(tǒng)發(fā)現選擇了該查詢方式，則需要設置控件有效來使用此方法： , amp。amp。設置控件有效 若發(fā)現未使用該方法，只需要將第一句改為： 即可。這樣也就實現是選擇條件還是日期來查詢。如果按選擇條件查詢，系統(tǒng)在查詢的時候，將查詢過程分成三個情況。 第一種情況為查詢操作失敗，出現這種情況，主要是使用查詢的時候，沒有按照要求來進行查找操作，如沒有填寫查詢的字段，沒有選擇查詢的方式，出現這種情況，系統(tǒng)會提示查詢失敗，需要重新查詢。系統(tǒng)判斷出沒有填寫完整的查詢，也就是沒有選擇查詢方式為空和查詢的內容為空，輸出錯誤提示： if empty(ccif) or empty(ctext) messagebox(39。請選擇查詢條件！39。,48,39。操作失?。?9。) 此時查詢失敗，需要重新查詢第二種情況為模糊查詢，實現模糊查詢在 Microsoft Visual . . . .FoxPro 中顯得比較容易，因為 Visual FoxPro 的語言代碼中有一個很特殊的符號，這個符號就是“%” 。 “%”在 Microsoft Visual FoxPro 的數據庫代碼中叫做通配符，使用通配符可以連接任意數目的字符。因此要實現模糊查詢，只需要先利用系統(tǒng)查出帶有所輸入字段的所有目標，而“%”在語句中則表示其他所有任意字段字符。先判斷出所選的查詢?yōu)槟：樵?like)： if =39。like39。then然后找出所有與所寫的字段相匹配的信息，其中非所寫字段的信息就用通配符所代替： fff=alltrim()++alltrim(thisform.) +39。+alltrim()+%39。 這樣，系統(tǒng)就可以找出所要查詢的所有信息。 第三種情況為除去模糊查詢的其它查詢，包括小于，大于，等于查詢，這三種查詢與模糊查詢相比，唯一的不同就是所給的字段微可比較的，而且不需要系統(tǒng)對不確定的信息進行搜索，也就是沒有通配符。 fff=alltrim()++alltrim()。 + 39。+alltrim()+39。上面就是條件查詢的幾種方式。當然，除了條件查詢的方式外，還可以按時間日期進行查詢。如果是按照時間日期查詢，與條件查詢相似，時間查詢可以分為查詢失敗和日期查詢兩個情況：. . . .sdate 與 edate 分別指向了時間查詢的日期起止時間，若起止時間為空，則查詢失敗 if sdate={//} or edate={//} messagebox(39。請輸入起始時間！39。,48,39。操作失敗！39。) 如果日期均不為空，則系統(tǒng)將查找起止日期之間的信息，將信息存入臨時表 Lindeping 以供使用。以銷售登記查詢 為例，我們將銷售登記表中的銷售日期作為起止日期查詢標準，將滿足日期的所有數據信息裝入 Lindeping 。 fff=between(銷售日期,sdate,edate) select * from tabxsdj where amp。 cursor lindeping 有的模塊使用查詢功能的同時，希望能夠實現統(tǒng)計功能。我們可以通過查詢語句將符合條件的記錄存入臨時表 Lindeping 中，在對臨時表Lindeping 進行統(tǒng)計。計算方法為：統(tǒng)計品種數：品種數=臨時表 Lindeping 中的記錄總數 select lindeping creccount=recount( )統(tǒng)計數量：對符合條件的記錄進行求和計算 sum 數量 to jhcount統(tǒng)計金額：對符合條件的記錄進行求和計算 sum 金額 to jhje 報表類模塊 本系統(tǒng)中所實現的報表類模塊功能大體一樣，均包含打印，打印預. . . .覽，以及使用查詢羅列出所需的信息。 在系統(tǒng)中單單實現打印與打印預覽是很容易的，只要在表單的相應位置寫入簡單的語句即可實現。在“打印預覽”按鈕的 Click 事件中加入： report form report\xiaoshou to print preview amp。amp。打印預覽報表在“打印”按鈕的 Click 事件中加入： report form report\xiaoshou to print amp。amp。打印報表這樣，利用上述的代碼就可以實現將表單 grid 控件中所羅列的數據以表單的形式打印出來。在設計表單類模塊的時候，關鍵是要能把所查詢的數據能夠羅列出來。為了實現該功能，我們首先應該將查詢的數據輸入到臨時表中。以銷售報表為例，我們需要將所輸入的查詢時間范圍內的所有數據線找出來，以銷售票號作為索引，將結果輸入到臨時表 Lindeping 中：select *。 from medicamentmanage!tabxsdj。 where between(出庫日期,sdate,edate)。 order by 。 into cursor lindeping amp。amp。查詢結果輸出到臨時表中然后我們需要實現將所找到的數據輸入表單的到 grid 控件，也就是我們可以清楚看到的列表中：現將指針移動到臨時表的頂端，如果沒有我們要找的信息，指針移動到最后一條記錄，然后顯示出無記錄的信息. . . .go top amp。amp。指針移動到表頂端 if e