倉(cāng)庫(kù)管理系統(tǒng)數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì)-資料下載頁(yè)
2025-04-07 12:11本頁(yè)面
【正文】 將資源路徑設(shè)為默認(rèn)路徑=10000do form 倉(cāng)庫(kù)管理on shutdown quitread events為了避免無(wú)限循環(huán)，必須在READ EVENTS命令之前安排CLEAR EVENTS命令?？梢栽谥鞑藛位蛑鞅韱沃刑砑右粋€(gè)“退出”項(xiàng)，該項(xiàng)發(fā)出CLEAR EVENTS命令。具體步驟詳見(jiàn)第l章中相關(guān)內(nèi)容。 如果在發(fā)布的應(yīng)用程序中不想再更改這些文件，可把它們放在項(xiàng)目中并設(shè)置為“包含”。那么這些文件變成只讀的，不能修改。如果想修改這些文件，把它們放到項(xiàng)目中并設(shè)置為排除”，然后作為獨(dú)立文件隨著應(yīng)用程序一起發(fā)布。 在默認(rèn)情況下Visual FoxPro在嵌放的過(guò)程中排除了數(shù)據(jù)庫(kù)、表格、。建議用戶除了一些特定的表格，最好不要包含這類文件。數(shù)據(jù)庫(kù)和表格需要變化和添加，由于這兩個(gè)文件被創(chuàng)建后都是靜態(tài)的，因此被包含的文件也是靜態(tài)的和只讀的。把數(shù)據(jù)庫(kù)和表格包含在這些文件中很明顯會(huì)帶來(lái)問(wèn)題。 ，所以要在發(fā)布一個(gè)應(yīng)用程序之前為這些文件做好準(zhǔn)備。若要排除可修改的文件，首先在項(xiàng)目管理器中，選擇可修改的文件，然后從“項(xiàng)目菜單中選擇“排除”命令。在一個(gè)文件被排除后，則在文件的左方加入一個(gè)排除符號(hào)。 運(yùn)行結(jié)果倉(cāng)庫(kù)管理系統(tǒng)各模塊運(yùn)行結(jié)果如圖4一5圖4一5圖4一5圖4一59所示，以下所列為幾個(gè)重要的表單的運(yùn)行結(jié)果，其他輔助表單未列出。相關(guān)代碼：1：主程序源代碼：SET TALK offset sysmenu off set cent on =2=icons\ =0=1=.f.modify window screen nocloseMODIFY WINDOW SCREEN TITLE 倉(cāng)庫(kù)管理信息系統(tǒng) ZOOM WINDOW SCREEN MAX set default to datado form 登錄表單read eventsclearclose allreturnendif2：登錄表單的確定按鈕控件的click源代碼：locate for alltrim(用戶名)==alltrim() and alltrim(密碼)==alltrim() if !eof() if alltrim(級(jí)別)==管理員 public jb,username jb=1 username=alltrim() else public jb,username jb=0 username=alltrim() endif do do form 倉(cāng)庫(kù)管理elsedefine missmatch_loc 用戶或口令錯(cuò)，請(qǐng)重新登錄！wait window missmatch_loc timeout 1=39。39。=39。39。numcount=numcount+1 if numcount=4 numcount=0 mess =messagebox(三次口令錯(cuò)，將退出程序！,4+16+2,退出) clear event release thisform endif endif3：密碼修改表單的修改按鈕的click事件源代碼：if empty() mess=messagebox(用戶名不能為空！,48,警告)else if empty() mess=messagebox(舊密碼不能為空！,48,警告) else if empty() mess=messagebox(新密碼不能為空！,48,警告) else if empty() mess=messagebox(重復(fù)密碼不能為空！,48,警告) else ifalltrim()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,信息) endif4：添加操作員表單的最首按鈕的click事件源代碼：go top5：添加操作員表單的上一個(gè)按鈕的click事件源代碼：skip1if bof()?? chr(7) =messagebox(警告，這已經(jīng)是第一條記錄！,48,信息窗口)go topendif6：添加操作員表單的下一個(gè)按鈕的click事件源代碼：skipif eof()?? chr(7) =messagebox(警告，這已經(jīng)是最后一條記錄！,48,信息窗口)go bottomendif7：添加操作員表單的最末按鈕的click事件源代碼：go bottom8：添加操作員表單的修改按鈕的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.endif9：添加操作員表單的添加按鈕的click事件源代碼：if =39。添加39。=.f.=.f.=.f.=.f.=39。保存39。=.f.=.f.=.f.=.f.=.f.=.f.=.f.appe blanelse=39。添加39。=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.endif10：添加操作員表單的刪除按鈕的click事件源代碼：cMessageTitle=39。系統(tǒng)警告39。 cMessageText=39。確認(rèn)要?jiǎng)h除嗎？39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)if nanswer=6deleendif50 / 50
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1