【文章內(nèi)容簡(jiǎn)介】 入的用戶名是否正確，然后判斷用戶輸入的密碼是否正確，如果正確，這根據(jù)用戶選擇操作員說擁有的權(quán)限級(jí)別為全局變量賦值，如果不正確，彈出系統(tǒng)警告。在進(jìn)行編碼的時(shí)候，首先將使用的數(shù)據(jù)表—權(quán)限表打開：use database\tabpurview amp。amp。打開數(shù)據(jù)表為了對(duì)所輸入的操作員姓名與權(quán)限表中的姓名相比較，我們用權(quán)限表中的“操作員姓名”作為索引文件：set order to 操作員姓名 amp。amp。指定控制索引文件當(dāng)輸入姓名與密碼以后，我們要判斷所輸入的操作員名稱和密碼是否正確。方法是先查找表中是否有所輸入的名字，如果表中沒有所輸入的名字，則系統(tǒng)登陸失敗，并顯示登陸失敗。在查詢搜索名字時(shí)，可用以下語句：seek ame amp。amp。快速查詢. . . .判斷錯(cuò)誤，并顯示錯(cuò)誤界面：if alltrim()!=ame cMessagetext=39。操作員錯(cuò)誤，請(qǐng)重新輸入！39。如果在表中找到了所輸入的名字，則系統(tǒng)需要對(duì)所對(duì)應(yīng)的密碼進(jìn)行比較判斷，看是否能與名字所匹配，方法與上面的名字比較相似： if alltrim()!=ppassword cmessagetext=39。密碼錯(cuò)誤，請(qǐng)重新輸入！39。當(dāng)系統(tǒng)發(fā)現(xiàn)所輸入的名字與密碼都正確的時(shí)候，系統(tǒng)需要給此用戶賦予表中相對(duì)應(yīng)的權(quán)限，先判斷用戶的權(quán)限級(jí)別： purview=val(alltrim()) 再對(duì)應(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ì)，銷售退貨查詢， 入庫退貨查詢。(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)操作中，又需要對(duì)數(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控件，屬性為 Format Value，用來提供日期的輸入。對(duì)于模塊需要按條件還是日期來查詢，在查詢前，需要進(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。請(qǐng)選擇查詢條件！39。,48,39。操作失??！39。) 此時(shí)查詢失敗，需要重新查詢第二種情況為模糊查詢，實(shí)現(xiàn)模糊查詢?cè)?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)對(duì)不確定的信息進(jìn)行搜索，也就是沒有通配符。 fff=alltrim()++alltrim()。 + 39。+alltrim()+39。上面就是條件查詢的幾種方式。當(dāng)然，除了條件查詢的方式外，還可以按時(shí)間日期進(jìn)行查詢。如果是按照時(shí)間日期查詢，與條件查詢相似，時(shí)間查詢可以分為查詢失敗和日期查詢兩個(gè)情況：. . . .sdate 與 edate 分別指向了時(shí)間查詢的日期起止時(shí)間，若起止時(shí)間為空，則查詢失敗 if sdate={//} or edate={//} messagebox(39。請(qǐng)輸入起始時(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 中，在對(duì)臨時(shí)表Lindeping 進(jìn)行統(tǒng)計(jì)。計(jì)算方法為：統(tǒng)計(jì)品種數(shù)：品種數(shù)=臨時(shí)表 Lindeping 中的記錄總數(shù) select lindeping creccount=recount( )統(tǒng)計(jì)數(shù)量：對(duì)符合條件的記錄進(jìn)行求和計(jì)算 sum 數(shù)量 to jhcount統(tǒng)計(jì)金額：對(duì)符合條件的記錄進(jìn)行求和計(jì)算 sum 金額 to jhje 報(bào)表類模塊 本系統(tǒng)中所實(shí)現(xiàn)的報(bào)表類模塊功能大體一樣，均包含打印，打印預(yù). . . .覽，以及使用查詢羅列出所需的信息。 在系統(tǒng)中單單實(shí)現(xiàn)打印與打印預(yù)覽是很容易的，只要在表單的相應(yīng)位置寫入簡(jiǎn)單的語句即可實(shí)現(xiàn)。在“打印預(yù)覽”按鈕的 Click 事件中加入： report form report\xiaoshou to print preview amp。amp。打印預(yù)覽報(bào)表在“打印”按鈕的 Click 事件中加入： report form report\xiaoshou to print amp。amp。打印報(bào)表這樣，利用上述的代碼就可以實(shí)現(xiàn)將表單 grid 控件中所羅列的數(shù)據(jù)以表單的形式打印出來。在設(shè)計(jì)表單類模塊的時(shí)候，關(guān)鍵是要能把所查詢的數(shù)據(jù)能夠羅列出來。為了實(shí)現(xiàn)該功能，我們首先應(yīng)該將查詢的數(shù)據(jù)輸入到臨時(shí)表中。以銷售報(bào)表為例，我們需要將所輸入的查詢時(shí)間范圍內(nèi)的所有數(shù)據(jù)線找出來，以銷售票號(hào)作為索引，將結(jié)果輸入到臨時(shí)表 Lindeping 中：select *。 from medicamentmanage!tabxsdj。 where between(出庫日期,sdate,edate)。 order by 。 into cursor lindeping amp。amp。查詢結(jié)果輸出到臨時(shí)表中然后我們需要實(shí)現(xiàn)將所找到的數(shù)據(jù)輸入表單的到 grid 控件，也就是我們可以清楚看到的列表中：現(xiàn)將指針移動(dòng)到臨時(shí)表的頂端，如果沒有我們要找的信息，指針移動(dòng)到最后一條記錄，然后顯示出無記錄的信息. . . .go top amp。amp。指針移動(dòng)到表頂端 if e