【正文】 ３、對(duì)貨物的銷(xiāo)售情況分日、月和分類(lèi)統(tǒng)計(jì)。盡管在這過(guò)程中出現(xiàn)了許多難題，但最后都能在同組同學(xué)努力探討及老師的指導(dǎo)下較好的解決。 do form pos_dl *調(diào)用登錄表單。 if qxl=n clear events quit else endif 38 菜單表單 (pos_qmenu)： 此表單主要介紹本系統(tǒng)的權(quán)限功能，有些單純的按鈕連接調(diào)用表單功能將省略。 select pos_jefl set filter to 0 35 go top “數(shù)量類(lèi)別”組合框初始化（ ）： 下面的代碼的功能是初始化“數(shù)量分類(lèi)”下拉列表框，并向列表中添加“分類(lèi)”項(xiàng)目。 “下一件 ”(): bm1=alltrim() *以下為在庫(kù)存庫(kù)中查找商品編碼框中商品的資料 select pos_kck locate for alltrim()==alltrim() if .not. EOF() pm1=alltrim() bm2=alltrim() dj1= jhsl1= 30 xhsl1= sysl1=jhsl1xhsl1 if val()=0 =messagebox(請(qǐng)輸入進(jìn)貨數(shù)量 !,48+0+0,警告 ) return endif **以下為更改 銷(xiāo)售數(shù)量 spsl1=val() if spsl1 =messagebox(該商品存貨不足 !,48+0+0,警告 ) return else do while .t. if spsl1sysl1 replace with , with DATE() spsl1=spsl1sysl1 continue jhsl1= xhsl1= sysl1=jhsl1xhsl1 else replace with xhsl1+spsl1, with DATE() exit endif enddo **以下為更改庫(kù)存數(shù)量 hjsl1=() go top locate for alltrim()==alltrim() do while .t. if eof() exit else replace with hjsl1 continue endif enddo endif **browse **以下為更改銷(xiāo)售庫(kù)資料 select pos_xsk append blank 31 replace with bm2, with DATE(), with dj1, with val(), with xhbm2, with pm1, with yg = = else =messagebox(無(wú)此商品 ,請(qǐng)重新輸入 !,48+0+0,警告 ) select pos_xsk return endif hjs=hjs+(*) =hjs =.T. 本段代碼的功能是：當(dāng)單擊“下一件”按鈕時(shí) ,將商品編碼文本框和商品數(shù)量文本框 的資料在庫(kù)存庫(kù)中查找，并將查找到的相關(guān)資料在表格中顯示出來(lái)，計(jì)算出當(dāng)前銷(xiāo)售的各種商品的庫(kù)存值；找當(dāng)前合計(jì)數(shù)在“合計(jì)”框中顯示出來(lái)。 26 表單流程圖： 開(kāi)始 輸入商品編碼 輸入商品數(shù)量 按“下一件” 查商品庫(kù) 有該商品 進(jìn)行庫(kù)存庫(kù)更新，銷(xiāo)售資料存于銷(xiāo)售庫(kù)?？傊韱问菓?yīng)用程序設(shè)計(jì)的核心。 （２） 在“連編選項(xiàng) ”對(duì)話(huà)框中，在“連編可執(zhí)行程序”單選按鈕。 24 設(shè)計(jì)介面如下： 第六步：連項(xiàng)目文件與可執(zhí)行文件 完成了以上的各步，我們已經(jīng)建立了一個(gè)完整的管理信息系統(tǒng)，最后要做的就是將這個(gè)系統(tǒng)編譯成獨(dú)立的應(yīng)用程序了。 Visual FoxPro 提供了三種創(chuàng)建報(bào)表的方法： 1. 用“報(bào)表向?qū)А眲?chuàng)建簡(jiǎn)單的單表或多表報(bào)表。數(shù)據(jù)源通常是數(shù)據(jù)庫(kù)中的表，但也可以是視圖、查詢(xún)或臨時(shí)表。 － 視圖使用了哪些字段。 （３） 在對(duì)話(huà)框中單擊“新建表單”按鈕，就會(huì)打開(kāi)表單設(shè)計(jì)器，并且創(chuàng)建一個(gè)空表單。使用 Visual FoxPro 創(chuàng)建的應(yīng)用程序的交互操作，主要是通過(guò)表單來(lái)實(shí)現(xiàn)的。如“小型商場(chǎng)管理系統(tǒng)” 20 （２） 單擊“確定”按鈕，系統(tǒng)便開(kāi)始了項(xiàng)目文件的創(chuàng)建 第 二步：創(chuàng)建數(shù)據(jù)庫(kù) 創(chuàng)建一個(gè)新數(shù)據(jù)庫(kù)的步驟如下： （１） 在“項(xiàng)目管理器”中，選擇“數(shù)據(jù)”選項(xiàng)，然后在列表中選擇“數(shù)據(jù)庫(kù)”，并單擊“新建”按鍵。 供應(yīng)商表： gys 主索引，通過(guò) gys 字段和 pos_spk 表中的 gys 字段建立了永久關(guān)系。根據(jù)權(quán)限本表單對(duì)各模塊進(jìn)行開(kāi)啟和調(diào)用。 由于客戶(hù)輸入（ pos_khsr） ,客戶(hù)刪改（ pos_khgl） ,供應(yīng)商輸入／刪改（ pos_gyssr/pos_gysgl） ,員工輸入／刪改（ pos_ygsr/pos_yggl） 功能于商品輸入／刪改相近故 不再注明。若查找失敗，則在商品管理中輸入相應(yīng)的商品信息。當(dāng)輸入編碼時(shí)，系統(tǒng)從商品庫(kù)（ pos_spk）中查找到相應(yīng)的商品名稱(chēng)和單價(jià)，再將單價(jià)乘數(shù)量算出金額。等待狀態(tài) 39。數(shù)據(jù)仍然是與單一的字段綁定的，這 就是為什么這些控件需要 ControlSource 屬性。 11 為了使用戶(hù)在使用程序時(shí)更加方法，通常會(huì)在一個(gè)文本框輸入結(jié)果后，自動(dòng)把光標(biāo)指定在下一個(gè)應(yīng)該輸入的框中，其方法是在事件中使用 setfocus()，但是 setfocus()不能從一個(gè)對(duì)象的 VALID 事件中把焦點(diǎn)設(shè)置到另一個(gè)對(duì)象上。 FoxPro 為了移動(dòng)記錄指針到相應(yīng)的記錄上，必須找到和你的標(biāo)準(zhǔn)相匹配且和 filter 條件相稱(chēng)的記錄。 模式表單一般地被用來(lái)處理錯(cuò)誤報(bào)告，或者請(qǐng)求用戶(hù)確認(rèn)操作等。改完后，再次運(yùn)行程序前，最好將所有的數(shù)據(jù)庫(kù)及表關(guān)閉，以免在程序打開(kāi)一個(gè)數(shù)據(jù)表時(shí)出現(xiàn)表已打開(kāi)的錯(cuò)誤，比較好的辦法是在程序開(kāi)頭先關(guān)閉所有的數(shù)據(jù)庫(kù)及表。 9． 使用 FoxPro 時(shí)，一切工作均可圍繞工作菜單與窗口進(jìn)行，可以利用界面對(duì)數(shù)據(jù)進(jìn)行操作，也呆以利用界面編寫(xiě)、編譯應(yīng)用程序。 5． ForPro 中的使用兩種索引文件：?jiǎn)嗡饕募蛷?fù)合索引文件。該系統(tǒng)分為單用戶(hù)版本和多用戶(hù)版。 3）實(shí)現(xiàn)設(shè)計(jì) 實(shí)現(xiàn)設(shè)計(jì)的目標(biāo)是將概念模型轉(zhuǎn)換成特定數(shù)據(jù)管理系統(tǒng)所接受的數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)。 8 3. 數(shù)據(jù)庫(kù)設(shè)計(jì)概述： 數(shù)據(jù)庫(kù)設(shè)計(jì)是從用戶(hù)對(duì)數(shù)據(jù)的需求為出發(fā)點(diǎn)，研究并構(gòu)造數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程，這里的數(shù)據(jù)結(jié)構(gòu)是指數(shù)據(jù)庫(kù)的邏輯和物理結(jié)構(gòu)。 其內(nèi)容主要分為兩部分：一是物理數(shù)據(jù)庫(kù)，記載了所有數(shù)據(jù)；二是數(shù)據(jù)字典，描述了不同數(shù)據(jù)之間的關(guān)系和數(shù)據(jù)組織的結(jié)構(gòu) 。 Base 可譯為基地。 最后我將對(duì)這次畢業(yè)設(shè)計(jì)進(jìn)行小結(jié)。 這次我們負(fù)責(zé)設(shè)計(jì)的是小型商場(chǎng)管理系統(tǒng)系統(tǒng)。 4 前 言 從第一臺(tái)計(jì)算機(jī)的誕生，經(jīng)過(guò)幾十年的發(fā)展，計(jì)算機(jī)技術(shù)的應(yīng)用領(lǐng)域越來(lái)越廣。 數(shù)據(jù)庫(kù)于 20 世紀(jì) 60 年代末產(chǎn)生，目前數(shù)據(jù)庫(kù)技術(shù)已經(jīng)滲透到計(jì)算機(jī)應(yīng)用的每個(gè)領(lǐng)域。 主要用到的表單控件：文本框、表格、命令按鈕 等。s process procedure proceed detailedly. At last,I39。它們之間構(gòu)成有機(jī)的整體，相互配合和依靠，為用戶(hù)提供各類(lèi)信息服務(wù)。 3）硬件系統(tǒng) 硬件系統(tǒng)是指支持?jǐn)?shù)據(jù)庫(kù)系統(tǒng)運(yùn)行的全部硬件，一般由 CPU、主存、外存等組成。 4. 數(shù)據(jù)庫(kù)設(shè)計(jì)的過(guò)程： 1）系統(tǒng)分析 系統(tǒng)分析的目標(biāo)是了解與分析用戶(hù)的信息及應(yīng)用處理的要求。 FoxPro 的功能強(qiáng)大，速度高，有完整豐富的工具、非常友好的用戶(hù)界面、簡(jiǎn)單的數(shù)據(jù)存取方式，并具有良好的兼容性、跨平臺(tái)特性及可編擇性。增加了同時(shí)打開(kāi) 的工作區(qū)數(shù)和索引文件數(shù) 3． FoxPro 比其它數(shù)據(jù)庫(kù)產(chǎn)品處理速度快。 7． FoxPro 采用高級(jí)外部程序接口（ API），使用戶(hù)方便的運(yùn)用 C語(yǔ)言、匯編語(yǔ)言完成涉及系統(tǒng)底層的程序設(shè)計(jì)。 如果你看出問(wèn)題出在哪，那么您可以用取消，然后進(jìn)到程序中找出錯(cuò)誤所在，將其改正。通常的解決方法有兩種。另外， 也可以在主程序中加入： =你的標(biāo)題 4. 當(dāng) filter 設(shè)置時(shí)，應(yīng)該用 locate 代替 seek 當(dāng)你的查找字段是建立了索引且當(dāng)前索引是該索引時(shí)， SEEK 通常是查找單個(gè)記錄的最快的方法。 5. 當(dāng)所有窗口打開(kāi)時(shí)，怎樣才能看到 VFP 桌面上的內(nèi)容 在程序設(shè)計(jì)時(shí)，通常要開(kāi)兩個(gè)或以上的的窗口，但是這樣一來(lái)，要使用 VFP桌面上的東西就要一個(gè)個(gè)的縮小或關(guān)閉。 您可以 使用 SQLSETPROP( ) 函數(shù)操 作 DataSource 屬 性 ， 而 用 SQLGETPROP( ) 函 數(shù) 可 以 查 看 它 的 設(shè) 置 。 以上方法是對(duì)單個(gè)控件進(jìn)行屬性設(shè)置，但有些表單的控件有十幾個(gè)，所以就算使用熱鍵還是比較麻煩。這也提供等待狀態(tài)，但是不允許你使用菜單。 進(jìn)貨模塊（ pos_jhsr） : 能夠?qū)}(cāng)庫(kù)曾有和現(xiàn)有的商品進(jìn)貨，自動(dòng)獲取單價(jià)及其供應(yīng)商。 清空銷(xiāo)售庫(kù)（ pos_qkxsk）： 對(duì)已存的商品銷(xiāo)售記錄進(jìn)行清空，清空記錄后不能再次恢復(fù)。 打印庫(kù)存表（ pos_kctj） ： 通過(guò)視圖打印庫(kù)中商品的資料。 員工庫(kù) : bm 主索引，通過(guò) bm字段與 pos_xsk 表中的 sh 字段建立永久關(guān)系。 其創(chuàng)建項(xiàng)目的過(guò)程如下： （１）系統(tǒng)“文件”菜單，執(zhí)行其中的“新建”命令。 （３） 在“創(chuàng)建”對(duì)話(huà)框的“輸入表名”框中輸入新表名，然后單擊“保存按 鍵就行了。 － 表單的外觀。 在創(chuàng)建本地視圖前，應(yīng)先做好以下準(zhǔn)備： － 創(chuàng)建視圖要達(dá)到的目的。 設(shè)計(jì)介面如下： 視圖的聯(lián)接條件選項(xiàng)： 23 視圖的篩選條件選項(xiàng)： 視圖的排序條件和分組條件通常情況下默認(rèn)即可，如所做視圖還要特定的功能可對(duì)更新條件，以及雜項(xiàng)進(jìn)行設(shè)置。設(shè)計(jì)報(bào)表有四個(gè)主要步驟： （１） 決定要?jiǎng)?chuàng)建的報(bào)表類(lèi)型 （２） 創(chuàng)建報(bào)表布局文件。 （２） 在“新建報(bào)表”對(duì)話(huà)框中單擊“報(bào)表向?qū)А卑粹o。（如項(xiàng)目中不存在錯(cuò)誤就能編譯成功，否則將在編譯完成后顯示錯(cuò)誤信息） 如果連編項(xiàng)目之后沒(méi)有錯(cuò)誤，就可以開(kāi)始連編應(yīng)用程序了，建立自己可獨(dú)立運(yùn)行的程序。因此，屏幕的功能很有限，不能滿(mǎn)足應(yīng)用程序的功能需求。最后輸入付款數(shù)。 “退出”（ ） : ??chr(7) result=messagebox(是否退出 ?,4+48+256,信息窗口 ) if result=6 select pos_xsk =cursorsetprop(39。 “打印收據(jù)”（ ） : report form for =xhbm2 preview 功能為將本宗交易的資料以報(bào)表方式進(jìn)行打印。 if qxln =1 =返 回 endif 37 “確認(rèn)”按鈕（ ）： 以下代碼的功能是當(dāng) 點(diǎn)擊“確認(rèn)”時(shí)，將表單中的“操作員編碼”和“密碼”與員工庫(kù)中資料比較，如有此記錄就將“操作員編碼”賦值給全局變量 yg，將相應(yīng)的權(quán)限字段的內(nèi)容賦值給全局變量 qxl。 qxt=2 if qxla .and. qxlc =.f. endif if qxla .and. qxlg =.f. =.f. 39 endif i=qxl do case case i=a =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. case i=c =.t. =.t. =.t. =.t. =.t. =.t. case i=g =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. endcase endif “重新登錄”按鈕（ ）： 本段功能為更改操作員，并將表單重置可用功能。 41 設(shè)計(jì)小結(jié) 經(jīng)過(guò)兩月的時(shí)間，我的畢業(yè)計(jì)劃“小型商場(chǎng)管理系統(tǒng)”已經(jīng)順利完成。 42 華南理工大學(xué)繼續(xù)教育學(xué) 院 畢 業(yè) 設(shè) 計(jì)（論 文）任 務(wù) 書(shū) 辦學(xué)單位 教 學(xué)二部 2021 計(jì)算機(jī)科學(xué)與技術(shù) 專(zhuān)業(yè) B