【正文】
,192,192,192)MOVE WINDOWS win1 CENTERACTIVATE WINDOWS win1 =SET CONSOLE OFF@ 2,10 SAY 39。正在備份數(shù)據(jù),請(qǐng)稍候39。COPY FILE TO (+39。39。)COPY FILE TO (+39。39。)COPY FILE TO (+39。39。)COPY FILE TO (+39。39。)DEACTIVATE WINDOWS win1RELEASE WINDOWS win1MESSAGEBOX(39。數(shù)據(jù)已成功備份。39。,64,39。完成39。)Endif(3)“備份目錄”按鈕的Click事件代碼=GETDIR(39。39。,39。請(qǐng)輸入備份的文件所在的目錄:39。)DO WHILE EMPTY() IF MESSAGEBOX(39。您沒(méi)有選擇目錄39。+CHR(13)+39。是否要取消恢復(fù)數(shù)據(jù)?39。,49,39。對(duì)話窗口39。)=7 =GETDIR(39。39。,39。請(qǐng)輸入備份的文件所在的目錄:39。) ELSE RETURN ENDIFENDDO =(4)“恢復(fù)數(shù)據(jù)”按鈕的Click事件代碼if empty(alltrim()) thenMESSAGEBOX(沒(méi)有選擇源目標(biāo)路徑!)elseset talk offCLOSE ALLDEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE 39。數(shù)據(jù)恢復(fù)39。 COLOR RGB(0,0,0,192,192,192)MOVE WINDOWS win1 CENTERACTIVATE WINDOWS win1SET CONSOLE OFF =@ 2,10 SAY 39。正在恢復(fù)數(shù)據(jù),請(qǐng)稍候39。COPY FILE (+39。39。) to COPY FILE (+39。39。) to COPY FILE (+39。39。) to COPY FILE (+39。39。) to DEACTIVATE WINDOWS win1RELEASE WINDOWS win1MESSAGEBOX(39。數(shù)據(jù)已恢復(fù)。39。,64,39。完成39。) Endif(5)“退出”按鈕的Click事件代碼do form 系統(tǒng)維護(hù)新建一個(gè)表單,命名為“添加用戶”。在表單上放置相應(yīng)的控件:1個(gè)表格Grid;4個(gè)標(biāo)簽Label;3個(gè)文本框Text ;1個(gè)組合框Cobol; 2個(gè)形狀Shape;8個(gè)命令按鈕Command。在該表單的數(shù)據(jù)環(huán)境中添加庫(kù)存管理信息系統(tǒng)數(shù)據(jù)庫(kù)中的 “用戶表”。此表單主要供倉(cāng)庫(kù)管理人員對(duì)倉(cāng)庫(kù)操作人員的信息進(jìn)行添加、修改等管理。運(yùn)行結(jié)果如圖24所示:圖24 添加用戶運(yùn)行界面(1)“Form1”按鈕的Activate事件代碼set dele onwith .recordsourcetype=1 .recordsource=用戶表 .columncount=3 .= .=用戶名 .=2 .=100 .=.t. .= .=聯(lián)系電話 .=2 .=100 .=.t. .= .=用戶級(jí)別 .=2 .=100 .=.t. endwith()(2)“第一條”、“下一條”、“上一條”、“最末條”按鈕的Click事件代碼與入庫(kù)管理表單的相關(guān)按鈕類型,此處省略。(3)“修改”按鈕的Click事件代碼if =39。修改39。=.f.=.f.=.f.=.f.=39。保存39。=.f.=.f.=.f.=.f.=.f.=.f.=.f.else=39。修改39。=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.endif(4)“添加”按鈕的Click事件代碼與“修改”按鈕類型,此處省略。(5)“刪除”按鈕的Click事件代碼cMessageTitle=39。系統(tǒng)警告39。 cMessageText=39。確認(rèn)要?jiǎng)h除嗎?39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)if nanswer=6deleendifdo form 系統(tǒng)維護(hù)新建一個(gè)表單,命名為“密碼修改”。在表單上放置相應(yīng)的控件: 4個(gè)標(biāo)簽Label; 1個(gè)組合框Cobol;3個(gè)文本框Text ;3個(gè)命令按鈕Command。在該表單的數(shù)據(jù)環(huán)境中添加庫(kù)存管理信息系統(tǒng)數(shù)據(jù)庫(kù)中的 “用戶表”。此表單主要供倉(cāng)庫(kù)管理人員和倉(cāng)庫(kù)操作人員對(duì)系統(tǒng)登陸時(shí)所使用的密碼進(jìn)行修改。運(yùn)行結(jié)果如圖25所示:圖25 密碼修改運(yùn)行界面(1)“修改”按鈕的Click事件代碼set talk offset safe offif empty() mess=messagebox(用戶名不能為空!,48,警告)else if empty() mess=messagebox(舊密碼不能為空!,48,警告) else if empty() mess=messagebox(新密碼不能為空!,48,警告) else if empty() mess=messagebox(重復(fù)密碼不能為空!,48,警告) else if alltrim()alltrim() or len(alltrim())len(alltrim()) mess=messagebox(二次密碼不一致!,48,警告) else locate for alltrim(用戶名)==alltrim() and alltrim(密碼)==alltrim() if eof() mess=messagebox(密碼錯(cuò)誤,系統(tǒng)將取消你的修改權(quán)利!,48,警告) else repl 密碼 with alltrim() mess=messagebox(密碼修改成功!,48,信息提示框) endif endif endif endif endif endifset talk onset safe on(2)“取消”按鈕的Click事件代碼=== 系統(tǒng)集成新建一個(gè)菜單,命名為“四川奕新集團(tuán)庫(kù)存管理信息系統(tǒng)”。將前面所建立的所以表單、報(bào)表全部集成到該菜單中。過(guò)程如下:(1)首先在項(xiàng)目管理器—庫(kù)存管理信息系統(tǒng)的其他視圖下菜單欄單擊“新建”按鈕,并選擇“菜單”按鈕。(2)在接下來(lái)的彈出的菜單設(shè)計(jì)器中,按照實(shí)際輸入相關(guān)數(shù)據(jù),完成后按Ctrl+W鍵保存菜單。主菜單項(xiàng)輸入數(shù)據(jù)如圖26所示,子菜單項(xiàng)輸入數(shù)據(jù)如圖27所示:圖26 系統(tǒng)菜單主菜單信息輸入圖27 信息查詢子菜單信息輸入(3)在表單樣式中,選擇“陰影式”以及“文本按鈕”,單擊“下一步”按鈕。(4)向?qū)нM(jìn)行到“排序次序”,選擇“貨品號(hào)”為索引,并選擇升序排列。設(shè)計(jì)好的菜單運(yùn)行結(jié)果如圖28所示:圖28 庫(kù)存管理信息系統(tǒng)主菜單運(yùn)行界面新建一個(gè)程序,命名為“四川奕新集團(tuán)庫(kù)存管理信息系統(tǒng)”。將前面所建立的所以表單、報(bào)表全部集成到該菜單中。過(guò)程如下[11]:(1)首先在項(xiàng)目管理器—庫(kù)存管理信息系統(tǒng)的代碼視圖下程序欄單擊“新建”按鈕。(2)在接下來(lái)的彈出程序窗口中,按照系統(tǒng)運(yùn)行實(shí)際需要,在程序窗口中輸入相關(guān)系統(tǒng)啟動(dòng)的主程序,輸入完成后關(guān)閉并保存程序。程序如下:set talk offset sysmenu off set cent on =2=icons\ =0=1=.f.modify window screen nocloseMODIFY WINDOW SCREEN TITLE 庫(kù)存管理信息系統(tǒng) ZOOM WINDOW SCREEN MAX set default to do form 登陸界面read eventsclearclose allreturnendif(3)指定主程序。在項(xiàng)目管理器中選擇“代碼”選項(xiàng)卡,在彈出的快捷菜單中選擇“設(shè)置主文件”,命令項(xiàng)。(4)連編項(xiàng)目。單擊項(xiàng)目管理器窗口中的“連編”按鈕,在出現(xiàn)的對(duì)話框中選擇“重新連編項(xiàng)目”選項(xiàng),并單擊確定按鈕,則系統(tǒng)連編項(xiàng)目。(5)如果連編項(xiàng)目未顯示錯(cuò)誤信息,再次單擊 “連編”按鈕,在出現(xiàn)的對(duì)話框中選擇“連編應(yīng)用程序或連編可執(zhí)行文件”選項(xiàng),單擊確定按鈕,連編程序出現(xiàn)“另存為”對(duì)話框,在“應(yīng)用程序名”處輸入“庫(kù)存管理信息系統(tǒng)”,單擊“保存”按鈕,如圖29所示:圖29 庫(kù)存管理信息系統(tǒng)應(yīng)用程序圖標(biāo)7 結(jié) 論一個(gè)完整的庫(kù)存管理信息系統(tǒng)到此就制作完成了,本設(shè)計(jì)中按照管理信息系統(tǒng)開(kāi)方法中的生命周期法、以Visual ,詳細(xì)的講述了從創(chuàng)建數(shù)據(jù)庫(kù)到系統(tǒng)設(shè)計(jì)和各模塊的創(chuàng)建、面向?qū)ο蟮谋韱蔚脑O(shè)計(jì)、基本功能如查詢的實(shí)現(xiàn)、主程序的編寫(xiě)??偨Y(jié)與體會(huì)我在本次畢業(yè)設(shè)計(jì)中,通過(guò)前期圖書(shū)館和網(wǎng)絡(luò)上查找資料以及到公司去收集相關(guān)信息、中期的庫(kù)存管理信息系統(tǒng)的設(shè)計(jì)和畢業(yè)設(shè)計(jì)說(shuō)明書(shū)的編寫(xiě)、后期的修改,我把大學(xué)所學(xué)的主干知識(shí)大體上重新溫習(xí)了一邊,再次詳細(xì)的自我學(xué)習(xí)了物流管理信息系統(tǒng)和Visual ,鞏固了我的知識(shí)儲(chǔ)備體系,增加了我的學(xué)習(xí)熱情;同時(shí)到公司起調(diào)研以及收集信息等,讓我出去校園,開(kāi)始融入社會(huì)和工作之中,增加了我的社會(huì)實(shí)踐能力和經(jīng)驗(yàn),為馬上走出校園,進(jìn)入工作崗位奠定了堅(jiān)實(shí)的基礎(chǔ)。此外,我認(rèn)為自己有很多地方還有所欠缺,這需要我在今后的工作于學(xué)習(xí)中區(qū)彌補(bǔ)與提高。謝 辭在張文晰老師的指導(dǎo)下,我順利的完成了本次畢業(yè)設(shè)計(jì)。在本次畢業(yè)設(shè)計(jì)的過(guò)程中,張老師多次開(kāi)會(huì)查看我的畢業(yè)設(shè)計(jì),為我提供一些設(shè)計(jì)和寫(xiě)作思路,幫助我解決在本次系統(tǒng)開(kāi)發(fā)中遇到的很多問(wèn)題。特別是一些程序的編寫(xiě)上,有幾次我編寫(xiě)的程序都進(jìn)入了死循環(huán)導(dǎo)致電腦死機(jī),在我找到張文晰老師后,老師犧牲了中午的休息時(shí)間對(duì)我的程序進(jìn)行指導(dǎo)。對(duì)于張文晰老師給我的幫助,在此,我謹(jǐn)向她表示最衷心的感謝。同時(shí),本次畢業(yè)設(shè)計(jì)還得到了很多同學(xué)的幫助,在此也對(duì)他們表示感謝。【參考文獻(xiàn)參考文獻(xiàn)格式、數(shù)量】[1] 曾傳華,黎青松.物流管理與信息系統(tǒng).北京:清華大學(xué)出版社,[2] 匡松.Visual FoxPro面向?qū)ο蟪绦蛟O(shè)計(jì)(第二版).成都,西南交通大學(xué)出版社,-