倉庫管理系統(tǒng)的visaulfoxpro實現(xiàn)-wenkub.com
2024-09-03 08:37 本頁面
【正文】 update on exit ELSE TableRevert(.T.,lcAlias) amp。amp。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) if nanswer=6 dele endif 11：類 baseform 的 picrecord 的源代碼： IF TYPE()C RETURN ENDIF IF () IF AND !EMPTY(ALIAS()) () * Check if we have blank record already from txtbtns IF GETFLDSTATE(1) 3 () ENDIF ENDIF ENDIF 12：類 baseform 的 queryunload 的源代碼： IF TYPE()C IF !() NODEFAULT RETURN .F. ENDIF RETURN ENDIF IF DODEFAULT() IF NOT () NODEFAULT RETURN .F. ENDIF ELSE NODEFAULT RETURN .F. ENDIF 13：類 baseform 的 release 的源代碼： IF !() NODEFAULT RETURN .F. ENDIF 14：類 baseform 的 resolveconflicts 的源代碼： DEFINE PROMPTTOSAVE_LOC Data has been changed. Would you like to save changes? IF ! RETURN ENDIF LOCAL nDECursors, aDECursors, cDataEnvRef, lPromptSave,lHadPrompt LOCAL lcAlias, lnFields, nPromptSave, i, loCurrentControl * Flush current control IF TYPE()=C AND。 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. endif 10：添加操作員表單的刪除按鈕的 click 事件源代碼： cMessageTitle=39。 =.f. =.f. =.f. =.f. =39。 =.f. =.f. =.f. =.f. =.f. =.f. =.f. else =39。 numcount=numcount+1 if numcount=4 numcount=0 mess =messagebox(三次口令錯，將退出程序！ ,4+16+2,退出 ) clear event release thisform endif endif 3：密碼修改表單的修改按鈕的 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 if alltrim()alltrim() or len(alltrim())len(alltrim()) mess=messagebox(二次密碼不一致！ ,48,警告 ) else locate for alltrim(用戶名 )==alltrim() and alltrim(密碼 )==alltrim() if eof() mess=messagebox(密碼錯誤，系統(tǒng)將取消你的修改權(quán)利！ ,48,警告 ) else repl 密碼 with alltrim() mess=messagebox(密碼修改成功！ ,48,信息 ) endif 4：添加操作員表單的最首按鈕的 click 事件源代碼： go top 5：添加操作員表單的上一個按鈕的 click 事件源代碼： skip1 if bof() ?? chr(7) =messagebox(警告，這已經(jīng)是第一條記錄！ ,48,信息窗口 ) go top endif 6：添加操作員表單的下一個按鈕的 click 事件源代碼： skip if eof() ?? chr(7) =messagebox(警告，這已經(jīng)是最后一條記錄！ ,48,信息窗口 ) go bottom endif 7：添加操作員表單的最末按鈕的 click 事件源代碼： go bottom 8：添加操作員表單的修改按鈕的 click 事件源代碼： if =39。 作者 . 書名 . 出版社 . 出版日期 1． 李加福 ?Visual ?北京 ?清華大學(xué)出版 社 ?1999年 6 月 2．周建成 ? ?北京 ?人們郵電出版社 ?1994年 7 月 3．梁杰、效英、殷咸青 ?Foxpro for windows使用詳解 ?西安 ?西安 電子 科技 大學(xué)出版社 ?1995年 5 月 附錄：程序運行界面： 1：主界面： 附錄 2：主要控 件的源代碼清單： 1：主程序源代碼： SET TALK off set sysmenu off set cent on =2 = =0 =1 =.f. modify window screen noclose MODIFY WINDOW SCREEN TITLE 倉庫管理信息系統(tǒng) ZOOM WINDOW SCREEN MAX set default to data do form 登錄表單 read events clear close all return endif 2：登錄表單的確定按鈕控件的 click 源代碼： locate for alltrim(用戶名 )==alltrim() and alltrim(密碼 )==alltrim() if !eof() if alltrim(級別 )==管理員 public jb,username jb=1 username=alltrim() else public jb,username jb=0 username=alltrim() endif do do form 倉庫管理 else define missmatch_loc 用戶或口令錯，請重新登錄！ wait window missmatch_loc timeout 1 =39。 致 謝 在本次畢業(yè)設(shè)計的過程中，我的導(dǎo)師和學(xué)院的老師們給了我很大的指導(dǎo)和幫助。 如要排除可修改的文件，首先在項目管理器中，選擇可修改的文件，然后從 “項目 ”菜單中選擇 “排除 ”命令。建議除了一些特定的表格，最好不要包含這類文件。 5． 3 在 .app 和 .exe 文件中包含和排除文件 如果在發(fā)布的應(yīng)用程序中不想再更改這些文件，可把它們放在項目中并設(shè)置為 “包含 ”。 （ 3） 建立事件循環(huán)。 5． 2 構(gòu)造主文件 如果主文 件是一個程序，它將調(diào)用應(yīng)用程序框架中的各個功能組件，然后由這些組件調(diào)用應(yīng)用程序的其余部分。本設(shè)計過程中利用表單向?qū)姶蟮墓δ埽p松完成了數(shù)據(jù)的查詢功能。 操作日志表 設(shè)置表格控件的屬性，如表所示： grid1 控件的主要屬性表： 2． 代碼設(shè)計 定義 的 init 事件 運行 “顯示報表 ”表 單，界面所圖所示： local Custs1
公司管理相關(guān)推薦
鄂ICP備17016276號-1