【導(dǎo)讀】理系統(tǒng)來對公司的運(yùn)營進(jìn)行管理，已是成為各公司的重要手段。塊的實(shí)現(xiàn)，最后分析存在的問題，提出假定的解決方案。

　　

【正文】 mm=alltrim(39。0139。) yy=alltrim(str(val(y)+1)) 最終時(shí)間的確定： enddate=ctod(mm+39。/39。+dd+39。/39。+yy) 為了不重復(fù)對月進(jìn)行結(jié)賬，在本系統(tǒng)中，如果月結(jié)前發(fā)現(xiàn)已經(jīng)對本月進(jìn)行了結(jié)賬，則不再進(jìn)行此操作，要實(shí)現(xiàn)此項(xiàng)功能，必須以開始日期作為索引： select tabyjcsh 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 25 頁 共 31 頁 set order to 開始日期 amp。amp。指定控制索引文件 seek startdate amp。amp?？焖俨樵? if found() messagebox(39。此月已結(jié)帳，不能再進(jìn)行月結(jié)操作！ 39。,48,39。操作失??！ 39。) 如果沒有發(fā)現(xiàn)開始日期，月結(jié)賬進(jìn)入與日結(jié)賬相似的表單。 可修改類模塊 可修改類模塊大部分是各類數(shù)據(jù)信息系統(tǒng)，這類模塊 機(jī)查詢 ，登記，保存，修改等功能于一體。其中查詢功能與查詢類模塊所實(shí)現(xiàn)的功能相似，而登記，修改功能與登記類模塊所實(shí)現(xiàn)的功能相 似，這些功能在前面已實(shí)現(xiàn)，這里不再重復(fù)，現(xiàn)在最重要的是實(shí)現(xiàn)修改功能。 其實(shí)，在進(jìn)行添加和保存功能介紹時(shí)，對如何實(shí)現(xiàn)這類功能已經(jīng)有了介紹，例如要想在表單的 text2 中進(jìn)行修改，只要系統(tǒng)執(zhí)行 =.，同理如果 =.能實(shí)現(xiàn)修改，這種語句可以用在表單中不能修改的控件上。 還有一點(diǎn)要注意，在修改的過程中，表單上的功能件只有保存、取消能夠執(zhí)行，而修改這個(gè)按鈕在修改執(zhí)行以后，就不能再執(zhí)行了，這一點(diǎn)很容易搞錯(cuò)： =.f. amp。amp。設(shè)置修改無效 =.f. amp。amp。設(shè)置刪除無效 =.t. amp。amp。設(shè)置取消有效 =.t. amp。amp。設(shè)置保存有效 =.f. amp。amp。設(shè)置添加無效 由 此可以實(shí)現(xiàn)修改的功能。 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 26 頁 共 31 頁 其它模塊設(shè)計(jì) 在本系統(tǒng)中除了上述幾種功能模塊外，還一些關(guān)于系統(tǒng)管理的模塊設(shè)計(jì)。 操作員管理 對于操作員管理系統(tǒng)，主要實(shí)現(xiàn)用戶的增加，刪除，修改以及密碼的設(shè)置。其中用戶的增加，刪除，修改與可修改類模塊實(shí)現(xiàn)的功能相似，對于“密碼修改確定”功能可以采用以下方法實(shí)現(xiàn)： 首先要將權(quán)限表置為當(dāng)前工作區(qū) use database\tabpurview 然后將操作員姓名作為索引 set order to 操作員姓名 在表中查找當(dāng)前要修改密碼的人員是否為表中所含有的人員 seek ame amp。amp?？焖俨樵? set exact on amp。amp。字符精確比較 如果所修改的人員不為表中所擁有的，顯示錯(cuò)誤： if alltrim( )!=ame cMessagetext=39。操作員錯(cuò)誤，請重新輸入！ 39。 如果人員的名字無誤，則原密碼進(jìn)行比較，同樣若密碼不正確，同樣顯示修改失敗 if alltrim( )!=ppassword cmessagetext=39。原密碼錯(cuò)誤，請重新輸入！ 39。 上述功能實(shí)現(xiàn)與前面所講的登陸確認(rèn)功能相似，當(dāng)身份的到確認(rèn)的時(shí)候，下面的功能就實(shí)現(xiàn)了密碼的修改確認(rèn)。 =.t. =.t. 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 27 頁 共 31 頁 =.f. =.t. =.t. =.f. =.f. 這種語句所實(shí)現(xiàn)的功能就是修改 thisform 后面的控件的內(nèi)容 權(quán)限管理設(shè)計(jì) 為了保護(hù)本系統(tǒng)的各用戶的利益，保證數(shù)據(jù)的安全性，本系統(tǒng)采用了權(quán)限管理。也就是不同的用戶擁有不同的權(quán)限。各自用戶只能進(jìn)入權(quán)限規(guī)定的功能模塊。 圖 8. 權(quán)限管理界面 本系統(tǒng)的權(quán)限管理共分四個(gè)等級，分別為 1， 2， 3， 4 級別，等級 1的級別最高，屬于系統(tǒng)管理員等級，且只有一個(gè)，能使用各種功能系統(tǒng)。等級 2不能實(shí)現(xiàn)系統(tǒng)管理功能，等級 3不能使用基礎(chǔ)信息管理與系統(tǒng)管理。這三類等級的人員權(quán)限均不可改。等級 4 的人員權(quán)限由系統(tǒng)管理員進(jìn)行設(shè)置，可以設(shè)置與等級 1 一樣的權(quán)限。 因此有可能出現(xiàn)等級為 4 的人員，卻能實(shí)現(xiàn)等級 2 和 3 都不能使用的電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 28 頁 共 31 頁 功能模塊。 為了系統(tǒng)的安全性，權(quán)限等級為 1 的只能有一個(gè)，當(dāng)再設(shè)置權(quán)限的時(shí)候發(fā)現(xiàn)設(shè)置成了權(quán)限 1，則系統(tǒng)自動(dòng)提示信息，拒絕操作： case val(alltrim())=1 amp。amp。設(shè)置權(quán)限等級 1 amp。amp。執(zhí)行表單的 Resize 事件 messagebox(39。級別 1 為系統(tǒng)管理員，不能有多個(gè)，請重新輸入！ 39。,48,39。權(quán)限管理 39。) =39。39。 amp。amp。拒絕操作 對于設(shè)置權(quán)限為非 1 的人，可以用 update 語句來設(shè)置表中的功能模塊的是用權(quán)限，設(shè)置為 t 為可以使用，設(shè)置為 f 為不能使用 locate for 操作員姓名 =czyname do case amp。amp。條件語句 case crand=39。239。 amp。amp。等級為 2 update tabpurview set 權(quán)限級別 =crand,銷售管理 =.t., 進(jìn)貨管理 =.t.,庫房管理 =.t.,調(diào)貨管理 =.t.,財(cái)務(wù)管理 =.t.,帳目管理 =.t.,基礎(chǔ)信息管理 =.t.,系統(tǒng)管理 =.f. where 操作員姓名 =czyname case crand=39。339。 amp。amp。等級為 3 update tabpurview set 權(quán)限級別 =crand,銷售管理 =.t., 進(jìn)貨管理 =.t.,庫房管理 =.t.,調(diào)貨管理 =.t.,財(cái)務(wù)管理 =.t.,帳目管理 =.t.,基礎(chǔ)信息管理 =.f.,系統(tǒng)管理 =.f. where 操作員姓名 =czyname case crand=39。439。 amp。amp。等級為 4 update tabpurview set 權(quán)限級別 =crand,銷售管理 =cxsgl, 進(jìn)貨管理=cjhgl,庫房管理 =ckfgl,調(diào)貨管理 =cthgl,財(cái)務(wù)管理 =ccwgl,帳目管理 =czmgl,基礎(chǔ)信息管理 =cjcinfo,系統(tǒng)管理 =csysgl where 操作員姓名 =czyname endcase 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 29 頁 共 31 頁 為了能夠?qū)崿F(xiàn)權(quán)限改動(dòng)的功能，表單上列出了各種管理模塊的復(fù)選框，只要在所選功能的前面打上勾，就能實(shí)現(xiàn)這項(xiàng)功能，而在選擇功能的時(shí)候，只有確定和取消按鈕有效，由于有 8 個(gè)系統(tǒng)功能，若分別寫有效與無效代碼太麻煩，可用下列方法簡化 在“銷售管理”的控件中添加 =.t. amp。amp。 取消有效 =.f. amp。amp。 權(quán)限退出無效 =.t. amp。amp。 確定有效 在其他的復(fù)選框中添加 amp。amp。執(zhí)行 xsgl 的 interactivechange 事件 這樣就都實(shí)現(xiàn)了按鈕的功能有效性。 同在查詢選擇時(shí)介紹的方法一樣，用下了語句判斷是否選擇此系統(tǒng)功能： =1 表示該功能被選。 數(shù)據(jù)備份與恢復(fù) 為了在意外的情況下，能夠?qū)?shù)據(jù)進(jìn)行保護(hù)，需要 設(shè)計(jì)數(shù)據(jù)備份與數(shù)據(jù)恢復(fù)。 圖 9. 數(shù)據(jù)備份 進(jìn)行上述兩個(gè)功能時(shí)，需要關(guān)閉所有的數(shù)據(jù)庫文件，可以利用 close all 語句來實(shí)現(xiàn)。在關(guān)閉數(shù)據(jù)庫文件后，需要賦值給 progressbar 控件的值，電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 30 頁 共 31 頁 并且取出原數(shù)據(jù)庫文件所在的路徑賦給變量。 = amp。amp。 把progressbar 控件的屬性值賦給 progressbar 控件的值 source=sys(5)+sys(2021)+\database\*.* amp。amp。取出原數(shù)據(jù)庫文件所在的路徑賦值給變量 obj=alltrim()+*.* 在進(jìn)行備份或恢復(fù)功能，方法一樣，只是原文件與目標(biāo)文件相反 copy file amp。obj to amp。source 或者 copy file amp。source to amp。obj 以上就能夠?qū)崿F(xiàn)數(shù)據(jù)的恢復(fù)與備份。 五 .存在問題及解決方案 本系統(tǒng)最大的問題在于多臺(tái)計(jì)算機(jī)共享一個(gè)系統(tǒng)時(shí)候的網(wǎng)絡(luò)連接問題。由于本系統(tǒng)目前只針對單機(jī)的使用，因此并 沒有采用前臺(tái)與后臺(tái)的數(shù)據(jù)連接方式來構(gòu)造系統(tǒng)。因此要想在現(xiàn)有的系統(tǒng)基礎(chǔ)上實(shí)現(xiàn)多臺(tái)計(jì)算機(jī)使用此系統(tǒng)，只能使用微軟公司在 Windows 操作系統(tǒng)中自帶的“遠(yuǎn)程桌面連接”系統(tǒng)來實(shí)現(xiàn)此功能。但這樣也會(huì)對計(jì)算機(jī)系統(tǒng)本身的安全性造成一定的影響。所以，網(wǎng)絡(luò)的連接問題是本系統(tǒng)的一個(gè)重要問題。 本系統(tǒng)的另一個(gè)問題是系統(tǒng)管理模塊的操作員管理，如果是首次使用此系統(tǒng)，會(huì)出現(xiàn)一個(gè)沒有初始用戶的問題。此時(shí)用戶由于沒有初始的用戶和密碼，這無法進(jìn)入該系統(tǒng)。只有人為的在數(shù)據(jù)庫中添加一個(gè)用戶，才能開始使用此系統(tǒng)。目前認(rèn)為解決此問題的方法是 在對操作員管理模塊編碼的時(shí)候，事先創(chuàng)造一個(gè)系統(tǒng)自帶的管理員，級別為 0 級。在系統(tǒng)創(chuàng)造好并且第一次運(yùn)行時(shí)，將自動(dòng)出現(xiàn)在該系統(tǒng)中。 電子科技大學(xué)畢業(yè)設(shè)計(jì)論文 第 31 頁 共 31 頁 六 .結(jié) 論 本系統(tǒng)針對醫(yī)藥業(yè)的產(chǎn)品種類繁多，銷售模式特殊，業(yè)務(wù)量大的特點(diǎn)，利用 Microsoft Visual FoxPro 數(shù)據(jù)庫工具開發(fā)出醫(yī)藥物流管理系統(tǒng)。實(shí)現(xiàn)了對大規(guī)模數(shù)據(jù)流的控制與管理，為開發(fā)其它物流管理系統(tǒng)提供了很好的框架，對使用數(shù)據(jù)庫工具開發(fā)各類系統(tǒng)也有了深刻的認(rèn)識(shí)。 七 .參考資料 (1)《數(shù)據(jù)庫原理，編程與性能 》 Patrick O’Neil， Elizabeth O’Neil 著 周傲英，俞榮華等譯 機(jī)械工業(yè)出版社出版 2021 年 3 月 (2)《從零開始 Visual FoxPro 中文版基礎(chǔ)培訓(xùn)教程》 姜繼紅 著 人民郵電出版社出版 2021 年 8 月 (3)《 Visual FoxPro 數(shù)據(jù)庫開發(fā)實(shí)例解析》 王晶瑩，王國輝著 機(jī)械工業(yè)出版社出版 2021 年 9 月 (4)中國物流網(wǎng) 網(wǎng)址 :